HP 9000 Series 200 Computers 



itn 



HEWLETT 
PACKARD 



Pascal Source Code Listings 
Volume Il-Pascal 




Pascal 3.0 Source Code Listings 
Volume Il-Pascal 

for the HP 9000 Series 200 Computers 



Manual Part No. 98615-90074 




© Copyright 1985, Hewlett-Packard Company. 

This document contains proprietary information which is protected by copyright. All rights are reserved. No part of this 
document may be photocopied, reproduced or translated to another language without the prior written consent of 
Hewlett-Packard Company. The information contained in this document is subject to change without notice. 

Use of this manual and flexible disc(s) or tape cartridge(s) supplied for this pack is restricted to this product only. 
Additional copies of the programs can be made for security and back-up purposes only. Resale of the programs 
in their present form or with alterations, is expressly prohibited. 

Restricted Rights Legend 
Use, duplication, or disclosure by the Government is subject to restrictions as set forth in paragraph (b)(3)(B) of the 
Rights in Technical Data and Software clause in DAB 7-104.9(a). 

© Copyright 1980, Bell Telephone Laboratories, Inc. 

© Copyright 1979, 1980, The Regents of the University of California. 

This software and documentation is based in part on the Fourth Berkeley Software Distribution under license from the 
Regents of the University of California. 

© Copyright 1979, The Regents of the University of Colorado, a body corporate. 

This document has been reproduced and modified with the permission of the Regents of the University of Colorado, a 
body corporate. 



Hewlett-Packard Company 

3404 East Harmony Road, Fort Collins, Colorado 80525 



Printing History 



New editions of this manual will incorporate all material updated since the previous edition. Update 
packages may be issued between editions and contain replacement and additional pages to be 
merged into the manual by the user. Each updated page will be indicated by a revision date at the 
bottom of the page. A vertical bar in the margin indicates the changes on each page. Note that pages 
which are rearranged due to changes on a previous page are not considered revised. 

The manual printing date and part number indicate its current edition. The printing date changes 
when a new edition is printed. (Minor corrections and updates which are incorporated at reprint do 
not cause the date to change. ) The manual part number changes when extensive technical changes 
are incorporated. 

February 1985... Edition 1 



Warranty Statement 

Hewlett-Packard products are warranted against defects in materials and workmanstiip. For Hewlett-Packard computer sys- 
tem products sold in ttie U.S.A. and Canada, this warranty applies for ninety (90) days from the date of shipment.* Hewlett- 
Packard will, at its option, repair or replace equipment which proves to be defective during the warranty period. This warranty 
includes labor, parts, and surface travel costs, if any. Equipment returned to Hewlett-Packard for repair must be shipped 
freight prepaid. Repairs necessitated by misuse of the equipment, or by hardware, software, or interfacing not provided by 
Hewlett-Packard are not covered by this warranty. 

HP warrants that its software and firmware designated by HP for use with a CPU will execute its programming instructions 
when properly installed on that CPU. HP does not warrant that the operation of the CPU, software, or firmware will be uninter- 
rupted or error free. 

NO OTHER WARRANTY IS EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTY OF 
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. HEWLETT-PACKARD SHALL NOT BE LIABLE FOR 
CONSEQUENTIAL DAMAGES. 

HP 9000 Series 200 

For the HP 9000 Series 200 family, the following special requirements apply. The Model 21 6 computer comes with a 90-day, 
Return-to-HP warranty during which time HP will repair your Model 216, however, the computer must be ;;hipped to an HP 
Repair Center. 

All other Series 200 computers come with a 90-Day On-Site warranty during which time HP will travel to your site and repair 
any defects. The following minimum configuration of equipment is necessary to run the appropriate HP diagnostic 
programs: 1 ) v:> Mbyte RAM; 2) HP-compatible S'/a" or SV/ disc drive for loading system functional tests, or a system install 
device for HP-UX installations; 3) system console consisting of a keyboard and video display to allow interaction with the CPU 
and to report the results of the diagnostics. 

To order or to olJtain additional information on HP support services and service contracts, call the HP Support Services Tele- 
marketing Center at (800) 835-4747 or your local HP Sales and Support office 

* For other countries contact your local Sales and Support Office to determine warranty terms. 



Il-ii 



Table of Contents 



File^Module Map 1 

Module— >File Map 3 

Cross Reference 7 

A804XDVR [,[ 189 

AMIGO 195 

ASCII 207 

BAT 211 

BUBBLES 213 

C.HOOK 217 

CLOCK 221 

CONVERT 225 

CRT 229 

CS80 237 

CTABLE 253 

DC.DRV 273 

DGL_C_IN 283 

DGL_C_OUT 287 

DGL_HPGL 293 

DGLJNQ 301 

DGL.KNOB 309 

DGL.POLY 313 

DGL_RAS 325 

DGL_TOOLS 333 

DGL.VARS 335 

DLDRV 341 

DISCHPIB 347 

DMA..DRV 355 

EDRIVER 363 

EPROMS 367 

ETU 371 

F9885 383 

GCRI' 389 

G_DRV 395 

GEN 401 

GLE_FILE 409 

GLE.GEN 413 

GLE.GENI 417 

GLE_HPGL 421 

GLE.HPGLI 431 

GLE.HPIB 437 

GLE.KNOB 445 

GLE.RGL 449 

GLE_SCLIP 455 

GLE.SMARK 457 

GLE_STEXT 461 

GLE_TYPES 465 

Table of Contents iii 



GLE.UTLS 473 

H_DRV 477 

HEAPT 485 

HPHIL 489 

INIT 495 

INITLOAD 507 

lOLIB 525 

KERNEL 555 

KEYS 573 

]JB 581 

LIBRARIAN 595 

LIFDAM 629 

LOCKMOD 641 

M68KSYS 643 

MINIT 655 

MIUI 669 

MOUSE 677 

NONUSKBDl 681 

N0NUSKBD2 685 

PRINTER 689 

RS_DRV 695 

SEGMENTER 701 

SRMAM 705 

SRMDAM 709 

SRM.DRV 727 

SWVOL 747 

SYSDEVS 749 

^rAIL 757 

TAPEBKUP 759 

TYPES 777 



iv Table of Contents 



File -^Module Map 

The title pages in the volumes of listings refer to file names, not volume names. The compilation 
of a single file may include multiple modules, and the module names many times bear no 
resemblance to the file names in which they appear. To help you determine which modules 
appear in each file of this listings volume, the following file:module cross-reference has been 
created. In the left column are the file names, and in the right column, in alphabetical order, 
are the modules which are declared in each file. The map only includes files whose listings are 
in this volume of listings. 



A804XDVR 


a804xdvr 


AMIGO 


amigodvr, csamigo 


ASCII 


asciimodule 


BAT 


bat 


BUBBLES 


bubble 


CLOCK 


clock 


CONVERT 


convert_text 


CRT 


crt 


CS80 


cs80, csSOdsr, csSOdvr, tapebuf 


CTABLE 


brstuff , ctr, options, scanstuff 


C.HOOK 


(no explicit modules) 


DC.DRV 


extdc, init_dc, intdc 


DGL_C_IN 


dgl_confg_in 


DGL_C_OUT 


dgl_confg_out 


DGL_HPGL 


dgl_hpgl 


DGL_HPGLI 


dgl_hpgli 


DGL_INQ 


dgl_inq 


DGL.KNOB 


dgl_knob 


DGL.POLY 


dgl_poly 


DGL.RAS 


dgl_raster 


DGL.TOOLS 


dgl_tools 


DGL_VARS 


dgl_vars 


DISCHPIB 


bkgnd, dischpib 


DI_DRV 


extdi, init_discint 


DMA_DRV 


init_dma 


EDRIVER 


edriver 


EPROMS 


eproms 


ETU 


(no explicit modules) 


F9885 


f9885dvr 


GCRT 


crtb 


GEN 


dgl_gen 


GLE.FILE 


gle_file_io 


GLE_GEN 


gle_gen 


GLE.GENI 


gle_geni 


GLE.HPGL 


glG_hpgl_out 


GLE_HPGLI 


gle_hpgl_in 


GLE.HPIB 


gle_hpib_io 


GLE.KNOB 


gle_knob_in 


GLE.RGL 


gle_ras_out 



III 



GLE.SCLIP 


gle_sclip 


GLE.SMARK 


gle_smark 


GLE.STEXT 


gle_stext 


GLE.TYPES 


gle_types 


GLE_UTLS 


gle_utls 


G_DRV 


extg, init_gpio 


HEAPT 


hpiD, sysglobals 


HPHIL 


hphll 


H_DRV 


exth, init_hpib 


INIT 


fs, initunits, isr, Idr, misc 


INITLOAD 


bootdammodule, loader, mini, sysglobals 


lOLIB 


general_l, general_2, general_3, general_4, hpib_0, hpib_;L, hpib_2. 




hpib_3, serial_0, serial_3 


KERNEL 


general_0, iocomasm, iodeclarations 


KEYS 


keys 


LIB 


dgl_lib 


LIBRARIAN 


(no explicit modules) 


LIFDAM 


lifmodule 


LOCKMOD 


lockmodule 


M68KSYS 


ci 


MINIT 


asmr, bminit, csSOir, hminit, iramigo, midecs, mminit, qmiait, xmini 


MIUI 


(no explicit modules) 


MOREFSYS 


mfs 


MOUSE 


mouse 


NONUSKBDl 


noii_us_kbdl 


N0NUSKBD2 


(no explicit modules) 


PRINTER 


prtdvr 


RS_DRV 


init_rs, rs 


SEGMENTER 


asm, segmenter 


SRMAM 


srmammodule 


SRMDAM 


srmdammodule 


SRM_DRV 


srm 


SWVOL 


(no explicit modules) 


SYSDEVS 


sysdevs 


TAIL 


(no explicit modules) 


TAPEBKUP 


csSOtbdvr, csSOtbr 
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Module -^File Map 

The following cross-reference map is the inverse of the one in the preceding section. This map 
will tell you which listing file a particular module is in. 



amigodvr 


AMIGO 


asciimodule 


ASCII 


asm 


SEGMENTER 


asmr 


MINIT 


bat 


BAT 


bkgnd 


DISCHPIB 


bminit 


MINIT 


bootdanunodule 


INITLOAD 


brstuff 


CTABLE 


bubble 


BUBBLES 


ci 


M68KSYS 


clock 


CLOCK 


convert_text 


CONVERT 


crt 


CRT 


crtb 


GCRT 


cs80 


CS80 


csSOdsr 


CS80 


csSOdvr 


CS80 


csSOir 


MINIT 


csSOtbdvr 


TAPEBKUP 


csSOtbr 


TAPEBKUP 


csamigo 


AMIGO 


ctr 


CTABLE 


dgl_confg_in 


DGL_C_IN 


dgl_coiifg_out 


DGL_C_OUT 


dgl.gen 


GEN 


dgl.hpgl 


DGL_HPGL 


dgl_hpgli 


DGL.HPGLI 


dgl_inq 


DGL_INQ 


dgl_knob 


DGL_KNOB 


dgl_lib 


LIB 


dgl.poly 


DGL_POLY 


dgl_raster 


DGL_RAS 


dgl_tools 


DGL.TOOLS 


dgl_vars 


DGL_VARS 


dischpib 


DISCHPIB 


edriver 


EDRIVER 


eproms 


EPROMS 


extdc 


DC_DRV 


extdi 


DI_DRV 


extg 


G_DRV 


exth 


H_DRV 


f9885dvr 


F9885 
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fs 

general_0 

general_l 

general_2 

general_3 

general_4 

gle_file_io 

gle_gen 

gle_geni 

gle_hpgl_in 

gle_hpgl_out 

gle_hpib_io 

gle_knob_in 

gle_ras_out 

gle_sclip 

gle_smark 

gle_stext 

gle_types 

gle_utls 

hminit 

hphil 

hpib_0 

hpib_l 

hpib_2 

hpib_3 

hpm 

init_dc 

init^discint 

init_dma 

init_gpio 

init_hpib 

init_rs 

initunits 

intdc 

iocomasm 

iodeclarations 

iramigo 

isr 

keys 

Idr 

lifmodule 

loader 

lockmodule 

mfs 

midecs 

mini 

misc 

mminit 

mouse 

non_us_kbdl 



INIT 

KERNEL 

lOLIB 

IDLIB 

lOLIB 

lOLIB 

GLE_FILE 

GLE_GEN 

GLE_GENI 

GLE_HPGLI 

GLE_HPGL 

GLE.HPIB 

GLE_KNDB 

GLE_RGL 

GLE_SCLIP 

GLE_SMARK 

GLE_STEXT 

GLE_TYPES 

GLE_UTLS 

MINIT 

HPHIL 

lOLIB 

lOLIB 

lOLIB 

lOLIB 

HEAPTHEAPT 

DC_DRV 

DI_DRV 

DMA_DRV 

G_DRV 

H_DRV 

RS_DRV 

INIT 

DC_DRV 

KERNEL 

KERNEL 

MINIT 

INIT 

KEYS 

INIT 

LIFDAM 

INITLOAD 

LDCKMDD 

MDREFSYS 

MINIT 

INITLOAD 

INIT 

MINIT 

MOUSE 

NONUSKBDl 



II-4 



options 


CTABLE 


prtdvr 


PRINTER 


qminit 


MINIT 


rs 


RS_DRV 


scanstuff 


CTABLE 


segmenter 


SEGMENTER 


serial_0 


lOLIB 


serial_3 


lOLIB 


srm 


SRM_DRV 


srmammodule 


SRMAM 


srmdammodiale 


SRMDAM 


sysglobals 


HEAPT 


sysglobals 


INITLOAD 


sysdevs 


SYSDEVS 


tapebuf 


CS80 


xminit 


MINIT 
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nniGOfcssmigo) 

CTSBLE(ctr) 

DGL PClLY(<lgl poly) 

GENTdql gen) 

!Nlt(T5T 

INIT(ldr) 

INITLOBD(loader ) 



SEGnENTERIasm) 

SYSDEVS(5ysde»5) 
as 

INIT(ldr) 

INITLOfiD (loader) 

neSKSYSici) 

SEGnENTERIasm) 
a804xdvr 

fl804XDVR 

B804XDVR(a804xdYr) 

HPHIUhphil) 
d804)iinit 

f)304XDVR 
a804xisr 

fl804XDVR(a804xdvrl 
a_max 

DGL_POLY(dgl poly) 
a min ~ 

OGL_POLY(dgl_polyl 
ia 

KEYS(key5| 
aaa 

CS80(C580) 
abort bkgnd_process 

flnl^O(atnigodvr) 

CS80(c580dvr) 

DISCHPIB(bkgnd) 

niNIT(hminit) 

niNIT(qmlnltl 

TflPEBKUP(C586tbdvr) 
abort bkgnd^process proc 

CTfi5LE(scan5tjff) 
abort hpib 

I0LT8(hplb_2) 



108d 




























395c 


398c 


399c 


400c 


403c 




















20252d 


20259c 


























319Sd 


3198c 


3200c 


320Sd 


3208c 


3210c 


















809d 


810d 


829d 


831d 






















237SC 


2377c 


239SC 


2430c 


2431c 


2440c 


2460c 


2468c 


24e9c 


2471c 


2478c 








888d 


1114c 


1115c 


1142c 


1143c 


1148c 


1151c 


1153c 


1168c 


1235c 


12S9C 


1262c 


1269c 


1272c 


1274c 


1286c 


1332c 


1392c 


1428c 


1432c 


1433c 


1441c 


1442c 


1452c 


1453c 


1456c 


1457c 


1458c 


1464c 


1467c 


1471c 


1484c 


1486c 


1S15C 


1S16C 


1523c 


1524c 


1S26C 


1530c 


1534c 


1S3SC 


1536c 


1542c 


1S46C 


1549c 


1570c 


1571c 


1574c 


1598c 


1599c 


1602c 


1604c 


1625c 


16310 


1632c 


ie34c 


1641c 




























127c 


128c 


326c 


355c 


397c 


398c 


407c 


41Sd 


521c 


572c 


582c 


607c 


631c 


867c 


954c 


957c 


962c 


1090c 


1128c 


1130c 


1168c 


1178c 


1277c 


1279c 


1280c 


1291c 


1295c 


1298c 


1302c 


1327c 


1328c 


1332c 


1356c 


1382c 


1399c 


1402c 


1403c 


1499c 


1501c 


1506c 


1513c 


1515c 


1S17C 


lS28c 


1529c 


1S33C 


1536c 


1543c 


1544c 


1549c 


1559c 


1560c 


1577c 


1581c 


1592c 


1597c 


1599c 


1609c 


1624c 


1628c 


1638c 


1639c 


1643c 


1644 c 


1645c 


lessc 


1695c 


1702c 


1736c 


17460 


1767c 


1783c 


1805a 


1812c 


1815c 


1816c 


1817c 


1818c 


1821c 


1822c 


1828c 


1834c 


1836c 


18380 


1839c 


1841c 


1875c 


1876c 


1394c 


1896c 


1920c 


1922c 


1938c 


1939c 


1941c 


1945c 


1948c 


1965c 


2022c 


2032c 


2035c 


2043c 


2052c 


2053c 


2C74C 


2076c 


2101c 


2102c 


2114c 


2181c 


2186c 


2190c 


2204c 


2206c 


2209c 


2211c 


2216c 


2234c 


2235c 


2237c 


2238c 


2244c 


2246c 


22S0C 


2261c 


2261c 


2269c 


2273c 


2274c 


2275c 


2283c 


2288c 


2289c 


2290c 


2292c 


2297c 


2298c 


2299c 


2318c 


2319c 


2320c 


2321c 


2326c 


2327c 


2329c 


2339c 


2341c 


2371c 


2382c 


2385c 


2393c 


2403c 


2404c 


2405c 


2410c 


2411c 


2412c 


2455c 


2479c 


2491c 


2493c 


2502c 


2513c 


2522c 


2S24C 


2527c 


2528c 


2531c 


2S47C 


2548c 


2556c 


2557c 


256SC 


2567c 


2S68C 


2569c 


2576c 


2578c 


2580c 


2581c 


2S8SC 


2595c 


2596c 


2598c 


2599c 


2601c 


2612c 


2619c 


2621c 


2627c 


2639c 


2647c 


26S2C 


2654c 


2707c 


2709c 


2714c 


2715c 


2752c 


2753c 


2759c 


2762c 


2770c 


2772c 


2774c 


2778c 


2781c 


2794c 


279SC 


2800c 


2801c 


2806c 


2810c 


2813c 


2816c 


2838c 


2841c 


2842c 


2843c 


2849c 


2850c 


2961c 


2964c 


3093c 


3094c 


3096c 


3152c 


3221c 


3240c 


3722c 


















123c 


126c 


127c 


128c 


135c 


189c 


235c 


236c 


241c 


242c 


329c 








374d 


492d 


496c 


500c 


S05c 




















2469c 


2470c 


























1048d 


1632c 


1633c 


1657c 






















190c 




























205c 




























414d 




























29d 




























30d 




























28d 




























89d 


122c 


386 c 
























20S21d 


20S35C 


20541c 
























20520d 


20534c 


20538c 
























144d 


146d 


147d 


148d 


149d 


ISOd 


ISld 


152d 


153d 


154d 


155d 








217d 




























645c 


758c 


770c 


7e0c 


969c 




















1009c 


1133c 


























64d 


146d 


























499c 




























127SC 




























35Sc 




























1072d 


1129c 


1157c 


1167c 






















1778d 


1810d 



























abort serial 

I0lTB(5erial_3) 
abort transfer 

I0LTBj9eneral..4) 
3b5 position 

CSSOlcsSOdvr) 
abscode 

LIBRflRinN 
abscoords 

HPHIL(hphil) 

SYS0EVS(5ysdev5) 
absolute 

INITLOfiD(loader) 

LIBRflRinN 
ac 

3Rmnn(srmdanviioduIe) 
3C char arr 

SRnOfiFi ( 5 rmdanvtiodule ) 
ac chars 

jRnOfifl(srmdamrnodule) 
ac createlink 

5Rf1DRn(5rmdamrnodule ) 

SRn_DRV(srm) 
ac execute 

jRfURV(srm) 
ac qeneric09 

SRH_DRV(srm) 
ac genericl 

JRn_DRV(srm) 
ac genericlO 

jRn_DRV(5rm) 
sc generlcll 

SRn_DRV(srm) 
ac genericl2 

JRri_DRV(5rm) 
ac qenericl3 

5RI1_DRV(srm) 
ac genericlA 

5Rl1_DRV(5rm) 
ac genericlS 

5Rn_DRV(5rm) 
ac qenericl6 

SRn_DRV(5rm) 
ac qenericl7 

5Rn_DRV(srm) 
ac qenericl8 

5Rn_DRV(5rm) 
ao qenericl9 

JRI1_DRV(5rm) 
ac qeneric2 

JRn_DRV(5rm) 
ac gene ric20 

JRn_DRV(5rm) 
ac generic21 

JRnjRVIsrm) 
ac qeneric22 

JRM_DRV[5rm) 
ac qeneric23 

5Rn_DRV(5rm) 
ac qerTeric24 

5Rh_DRV(5rm) 
ac qeneric25 

S:C".BRV(5rml 





2617d 


2835d 




119ed 


1327d 




1215d 


1244c 




238d 


1145c 


X** 


UOc 
315d 






858d 
179c 


14600 

1551c 




213d 


317c 




567d 


569d 




569d 


616c 


*«« 


203d 
186d 


213d 


..» 


187d 




*** 


188d 




*** 


188d 




*** 


189d 




»x« 


190d 




*K* 


191d 




»«» 


192d 




XX* 


193d 




**« 


194d 




*x* 


19Sd 




*** 


188d 




*«* 


189d 




*** 


190d 




*** 


189d 




*** 


191d 




,»» 


192d 




*** 


193d 




*»« 


134d 




*«* 


195d 




„. 


196d 





1245c 1270c 1271c 
1209c 1213c 1460c 



1610c 2377c 2398c 
318c 320c 678d 



1297c 1298c 1309c 1310c 
1462c 



2696c 
6140 615c 616c 618c 



613c 614c 



1034d 1071c 1072c 1073c 
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ac qent;ric3 
JRh DRVlsrm) 


























*** 


190d 






















ac generic4 
SRn DRV(3rm) 


























*** 


191d 






















ac generics 
SRn DRV(5rm) 


























*** 


192d 






















ac generic6 
5Rn_DRV(5rm) 


























««* 


193d 






















ac generic7 


























SRn_DRV(5rm) 


**« 


194d 






















ac generics 
5rRn_DRV(5rm) 


























««* 


19Sd 






















ac manager 


























5RhDfln(srmdarrmodule] 




203d 


213d 


317c 


S67d 


614c 


1034d 


1071c 


1105c 








SRM DRV(5rm) 


#** 


ISld 






















ac purgelink 

^RMDMfl ( s rmdarrmodo le ) 




























1034d 


1071c 


1106c 


















SRn DRV(srm) 


*** 


185d 






















ac read 


























SRn_DRV(srm) 


*** 


182d 






















ac search 


























SRI1^DRV(5rm) 


**« 


184d 






















ac write 


























jRn_DRV(5rm) 


*«!« 


183d 






















access 


























SRnflM(srmamrrodule) 




56d 


62c 


67c 


70c 


75c 


84 c 


l03d 


109c 


114c 


117c 


122c 131c 


SRM nRV 




1997d 


2011c 


2083d 


2097c 
















SRf1~DRV(5rm) 
access capabilities 




1097d 


lllOd 












































SRMDrtMfsrmdarrmodule) 




63d 


64d 


472d 


514d 
















SRn nRV{srm) 




247d 


284d 


315d 


411d 
















access code 


























SRn BRV 




2011c 


2097c 




















SRnjlRVlsrm) 




713d 


803d 




















access code type 


























SRnDrfn(srmdartmodule) 


*«Y 


578d 






















SRn URV(srm) 




ISOd 


247d 




















access date 


























SRM rTRV(srm) 


»w* 


736d 






















access not ready during data 


.operation 






















finlGff(aniTgodvry 


*** 


815c 






















fimGn(c5amigo) 


MX* 


78d 






















fllNIT(hminit) 


*** 


321c 






















aces 


























EDRIVER(edriver ) 




57d 


167c 


17ec 


178c 
















acstrat ray 


























SRMDHn(brmdammodule) 




206d 


318c 




















acst rarrtype 


























SRnonnfsrmdaumodule) 




203d 


206d 




















act tfi 


























l5LIB[generaI 4) 




12690 


1420c 




















KERNE:L(iodeclaration5) 


*«» 


573d 






















SRn_DRV(srm) 




1196c 


1343c 




















action 


























INITL0fiD(5ysglob3l5) 




215d 


277d 




















SySDFVS(sy5dev5) 




374d 


492d 




















actionspending 


























INIT 


*«* 


2S42C 






















INITimisc) 




235c 


237c 


238c 


















INITiOBOtsysglobals) 


**» 


254d 






















KEVS(keysl 


*X* 


eic 






















n68KSyS(ci) 


*** 


860c 






















SySDEVS(5ysdevs) 




499c 


sole 


504c 


SOSc 
















active controller 


























GLE RPIBfgle hpib io) 




10142d 


10148c 


10151c 


10236c 


10324c 














lOLlB hpib IT 




397d 


466d 


472c 


475c 


5S8c 


6460 


715c 


76Sc 








lOLIE hpib'Z 




1824c 


187SC 




















lOLIB hpib 3i 




2066c 


2122c 




















active isc 


























DC DlfvTintdc) 




434c 


533c 




















DlSci-PIBCdischpib) 


*** 


467c 






















lOLIE (general 4) 




1270c 


1300c 


1320c 


1333c 


1336c 


1378c 


1S69C 


1596c 


1662c 






KERNEL (iodecla rat ions) 


*K<* 


672d 






















SRM DRV(5rm) 




1197c 


1275c 


1290c 


1318c 
















■ectuaT 


























SRM DRVCsrm) 
actual num files 




433d 


72 Id 


814d 


1452c 








































SRMD^MfsTmdairmodule) 




59Sc 


597c 




















SRM DRV(5rm) 


««* 


385d 






















actual num passwords 


























SRMDRMrsrmdammodule) 
SRM ORV(srm) 




534c 


536c 




















»«* 


407d 






















actual tfr type 


























KERNrniodeclarations) 




559d 


573d 




















actualsize 


























LIFORMIlifmodule) 




48Sd 


507c 


508c 


















add 


























INITLOnD 




1727d 


1764c 


1765c 


1771c 
















LIBRBRIHN 




1486d 


1491c 


1494c 


ISOSc 


ISOSc 


1S22C 












add char data 


























GrE_HPCL (gle_hpgl _out ) 




706Sd 


7106c 


7110c 


7111c 


7126c 


7178c 


7238c 


7309c 


7313c 


7316c 


7317c 7319c 7340c 7344c 






7366c 


7370c 


7409c 


7442c 


745SC 


7476c 


7495c 


7497c 


7671c 


7579c 


7614c 


GLE HPGLI (gle hpgl in) 




18038d 


18071c 


18104c 


18144c 


18204c 


18207c 


18209c 


18211c 


18213c 


18251c 


18261c 18283c 18297c 18307c 






18319c 


18344c 


18352c 


















add parm data 

GrE_HPCL(gle_hpgl.out ) 




























7080a 


7314c 


7316c 


7318c 


7320c 


7343c 


734SC 


7369c 


7371c 


7410c 


7448c 7452c 7454c 7456c 






7496c 


7498c 




















GLE hPGLI(gle hpgl in) 




18053d 


18208c 


18210c 


18212c 


18214c 














addit 


























INITLOPOlloader ) 


«** 


865d 






















LIBRBRISN 




188c 


1523c 


1614c 


2384c 


2388c 


2413c 












addrl 


























GLE RGHgle ras out ) 


XlK* 


8027d 






















addr2 


























GLE RGL(gle ras out ) 


««* 


8028d 






















addr3 


























GLE PGL(qle ras out ) 


#«* 


8029d 






















addr record 


























flMTGO(amigodvr) 




680c 


959c 




















flMIGOJcsamigo) 




151d 


392d 




















addr record cmd 


























firiTG0(c5afnigo) 




51d 


401c 




















addr record cmd buf 


























fiMTGO(csamigoy 




394d 


400c 


401c 


















addr tc listen 


























GlF HPlB(gle hpib io) 
lOLIBfgeneral 2) 




10275d 


10357c 


10516c 




















920c 


997c 


1029c 


1042c 
















lOLIB (general 4) 
IOLIB(hpib 1) 


*«* 


1415c 
























405d 


597d 


679c 


7S2C 
















addr to talk 


























GLF Hl5lB(gle hpib io) 




lOieSd 


10269c 


10537c 


















IOLTB general 2) 




853c 


941c 


972c 


1016c 


lOSSc 


1076c 












lOLIB general 4) 
IOLIE hpib 1) 


*«« 


1401c 
























403d 


510d 


591c 


703c 














II-8 



CTBBLE(ctr) 


«** 


385d 




















INIT(ldr) 




2373d 


2375c 


2385d 
















INITLOflD(loader) 




884d 


917d 


999d 


1013d 


1020d 


1023d 


1028d 


1030d 


1039d 


1045d lOSOd 1054d 1056d 1083d 






1136d 


1226d 


124Sd 


1250d 


1392c 


1422d 


1477d 


lS04d 


1568d 


lS90d 1602c 


LIBRFlRIfiN 




53d 


56 d 


61d 


67d 


82d 


S3d 


86d 


313d 


314d 


319d 1166d 1272d 1318d 1346d 






1368d 


1473d 


1480d 


1482d 


1484d 


1487d 


1633d 


1634d 


1654d 


1715d 1717d 1726d 1805d 1851d 






1862d 

3214d 

112d 


1868d 


1998d 


2008d 


2149d 


2196d 


2310d 


2337d 


2358d 


2737d 2830d 2833d 2964c 307ed 


3EGnENTER(asm) 




178d 


















addref 
























LIBRfiRIfiN 




148Sd 


156SC 


1S66C 


1574c 














address 
























CS80(C580) 




355d 


S56d 


S84c 
















DGL C IN(<)gl confg in) 
DGL C OUTJdgr confg out) 




12044d 


12049c 


120SOC 


12080d 


12097c 














lllSSd 


11279c 


11284c 


11293c 


11313c 


U314C 


11322c 


n338c 


11407d 


11419c 


ETU 




52d 


501c 


502c 


511c 


S17c 


542c 


S43c 


550c 


675c 


679c 961c 1190c 


GLE HPIB(gle hpib io) 
INlTL0n0(loa3er) 




10014d 


10493c 


10494c 


10516c 


10E37C 














I099d 


1107d 


1108d 


1209d 














lOLIBfhplb 2) 
LIBRflRIftN " 




1782d 


1796d 


1798d 


1854d 


1856c 


1974d 


1976c 


1982d 


1984c 






34d 


84d 


313d 


1858d 


2010d 


2128d 


23S9d 


2360d 






TRPEBKUP(c580tbr) 




26d 


lOOd 


126c 
















addressl 
























SRH DRV(5rm) 




260d 


1S02C 


















address bounds 
























CS80(C580) 


*«* 


138d 




















CS80(c580d5r 1 


*** 


678c 




















TnPEBKUP(C580tbdvr) 




SS8c 


790c 


















address for msge in 
























DISCHPlB(ai5chpib) 




329d 


3S4c 


39Sc 


452c 














address for ms<)e out 
























DISCHPlB(3ischplb) 




270d 


293c 


316c 


457c 














address found 
























DGL C OUT(dg:i confg out) 




I1408d 


11417c 


11420c 


11489c 














addressed 
























DISCHPIB(dischpib) 




278c 


337c 


402c 
















GLE HPIBfgle hpib io) 




10125c 


10127c 


10206c 


10296c 














IOLTB(hpib iT 




449c 


451c 


630c 


618c 














KERNEL general 0) 


«*« 


1210c 




















KERNEL lodeclarations) 




502d 


516d 


530d 
















PRINTER(prtdvr) 


**x 


220c 




















adjust echo 
























LIB(3gl_Ub) 




2014Sd 


20184c 


















adjust return echo 
DGL RPGLI (dgl hpgll) 
DGL KNOBfdgl Fnob) 
























**# 


18103c 




















««» 


18146c 




















GENTdgl_gen)"" 




3044d 


3252d 


















adjusted cell height 
CLE SirxTCgle stext) 

adjusted cell width 
GLE STCXTtgTe stext) 

adr 

DGL RfiS(dgl raster) 
INlTLOnD(loader) 


























4024d 


4042c 


4043c 








































4023d 


4038c 


4039c 


















17255d 


17262c 


17263c 


17264c 


17265c 


17268c 


17269c 


17270c 






*** 


8e4d 




















LIBRflRIftN 




187c 
2387c 


190c 
2395c 


194c 
2413c 


19Sc 


196c 


1503c 


ISOSc 


1522c 


1572c 


1573c 1574c 1614c 1616c 2384c 


advance 
























SVSDEVS(sysdevs) 




616d 


529c 


536c 


553c 














advance page 

DGL HPGLldgl hpgl) 
afl 

CS80(C580) 


























17088d 


17129c 


17160c 
















:«*« 


218d 




















ala 
























KEyS(keys) 




146d 


166c 


















ale 
























KEYS (keys) 




147d 


166c 


















aleng 

INIT(fs) 
all 

KEYS (keys) 

all 


























809d 


810d 


829d 


e31d 
















148d 


ie7c 


















INITLOBD(loao'er) 




1082d 


1206d 


1336c 
















KEYS(key5) 
allcapabilities 

SRnDRn(srmdan-module) 




406d 


411c 










































esd 


313c 


















allists 
























HESPT(hpm) 




60d 


75d 


12ed 


13ed 


194d 












allocate 
























LIFDfitl(llfmodule) 
SEGHENtERCasm) 




716d 


747c 


759c 


783c 
















44d 


238c 


244c 
















allocate bkgnd info 
























firllGO(amagodvr) 




580c 


S96c 


















CS80(C580dvr) 




1002c 


11 00c 


















DISCHPIB bkgnd) 




62d 


lOSd 


















MINIT(hm nit) 


»** 


467c 




















MINIT(qminiti 
TflPEBK0P(cs86tbdvr) 




955c 


1120c 


















«(«* 


349c 




















allocate bkgnd info proc 
























CTfiBLETscanstuff)" 




1070d 


1118c 


1165c 


1165c 














allow modification 
























MINTT(qminit) 




1034d 


1073c 


1076c 


1077c 


1091c 












allow release timeout 
























CSStJfcsSO) ~ 


»«« 


230d 




















CS80(c580dsr) 


»«« 


832c 




















allrealstuff 
























MOREFSYS 


)K«« 


4d 




















allresolved 
























INIT(ldr) 




2439c 


2442c 


2453c 


2459c 


24640 












INITLOPDIloader) 
SEGMENTER(asm) 
alo 
KEYS(keys) 




1060d 


1191c 


1311c 


1334c 


1624c 


1627c 












197c 


199c 




















149d 


lesc 


















alpha 
C HOOK 
























*** 


46d 




















DGL TOOLS(dgl tools) 


««» 


20023d 




















alpnaJO 
CRT(crt) 
























X«»t 


720c 




















C HOOK 


*** 


40d 




















DSL TOOLS(dgl tools) 




20018d 


20061c 


















INlTL0nD(5y5gIobal5i 


«K» 


286d 




















alpha key 
























KEYS (keys) 
N0NUSKB01(non us kbdl) 




196c 


219c 


221c 


270c 


433c 


437c 










«*« 


42c 




















SYSDEVS(sy5dev5) 


**« 


2S8d 




















alphabet 
























KEYS (keys) 




239d 


285c 


















alphacrt 
























CRT 


«** 


734c 




















CRT(crt) 




35d 


712d 


716c 


724c 














alphacrtinit 
CRT(crt) 


























663d 


705c 


721c 
















alphalist 

INITLOfiD(loader) 


























1212d 


1243c 


















alphastate 
CRT(crl) 


























273c 


274c 


233c 


28SC 


286c 


e79c 


680c 






11-9 


DGL Rns(dgl raster) 




17492c 


7493c 
















KEvSrkeysj ~ 
SYSDEVS(5v5dev5) 




3ft3c 


391c 


















*** 


117d 





















a jphal ype 


















CRTicrt) 


*»* 


7C8t 














C HOOK 


«»» 


142c 














35i C OUT(dgl confg out) 




n286c 


11296c 


11335c 


11342c 


11346c 






KEYScFeys) 




233d 


239d 












SVSDEVS(5y5dev5) 


«»* 


113d 














alreadyopen 

SRdOsn ( srmdaTtinoOuae ) 




















660d 


708c 


820c 


823c 


843c 


849c 




allmode 


















CRTicrt) 




102d 


148d 












GCRT rcrtb) 
SYSDEVS(sy5dev5) 


«»« 


81d 














X** 


96d 














alu 


















KEVS(key5) 




ISOd 


l$9c 












alvinisr 


















DC DRYIextdc) 


«»* 


199d 














DC DRV(intdc) 


*»* 


307c 














alvintt 


















DC DRVrextdc) 


*** 


198d 














OCJRVfinit^dc) 


K*X 


676c 














ajn 
ETU 




436c 


458c 


479c 










INn (misc) 




469c 


470c 


471c 


472c 


473c 






INITLOfiD(bootdammodule) 




713c 


714c 












INITLOfiDjloader) 




1120c 


1611c 












INnL0fiD(sy59lobal5) 


*t* 


97d 














l.IBRnRinN 




133c 


139c 


2742c 










LIFPnnllitmodule) 
M68KSVS(ci) 




296c 


317c 


920c 


922c 


923c 








U9c 


334c 


335c 


547c 


548c 


567c 




SRnufinfsrmdammodule) 




948c 


949c 


9S0c 


1S03C 








UCSL' DHn(uc5dmoduIe) 




82c 


155c 


164c 


165c 


166c 


500c S03c S04c 623c 676c 




amiqo class 

CTflELE(5can5tuff) 




















1096d 


1121c 


112SC 










amiqo class type 
CTfiFLE(5canstuff) 




















1086d 


1096d 












amigo dev type 


















BmCO(amigodvr) 




493d 


506d 












RMICO(c5ami90) 




43d 


137d 


160d 


205d 








amiqo tm name 
CTBE^LETctr) 




















364d 


707c 


716c 


733c 


752c 






amiqodvr 

flniC0(ami9odvr) 


















)K»* 


422d 














amigoanit 


















SniGO 


«*« 


32d 














amigoio 


















RniC.O(amjgodvr) 




430d 


554d 












amrequesttype 


















flmG0(ami9odvr) 


«K» 


430d 














BSCIliasciimodul^) 
BUBBLES(bubble) 




6d 


13d 














29d 


53d 












CRT(crt 
CS8C(cs60dvr) 


«** 


402d 
















987d 


1094d 


1168d 


1214d 








EPROnS(eproms) 
F98e5(f9885dvr) 




8d 


12d 












**« 


40d 














GCRT (crtb) 


**t* 


272d 














GLE KNOeigle knob in) 


««IK 


18047d 














INIT(initijnits) 




2139d 


2148d 


21S2d 


21S6d 


2223d 






INIT (misc) 




483d 


51Sd 


534d 










lNI"LOQO(bootdamnodule) 




644d 


747d 












INriOBO mini] 
INITLOfiOisysglobals) 




309d 


384d 














6Sd 


68d 












KEVStkeys) 
n68KSYS(Ci) 


*** 


72d 
















306d 


731d 












PRINTER(prtdvr) 




40d 


47d 












SRMPnlsrmammodule) 




40d 


178d 












SVSCEVSIsysdevs) 




372d 


376d 


407d 


432d 


484d 






UCSD RMfucsd am) 


««* 


40d 














UNITTO(uio) 




56d 


77d 












amtable 


















ASCII 


X** 


319c 














INIT(misc) 




471c 


472c 


473c 


7O0c 


706c 


720c 




INITLOfiO 


*** 


170Sc 














INIUOHD(bootdamnodule) 




713c 


714c 












INnL0flD(sy5glob,il5) 


«** 


262d 














LIFDflMflifmodulel 




296c 


920c 


922c 


923c 








SRnDHM(5rmdammodJle) 




948c 


949c 


950c 










UCSD fiM(uc5d am) 


*»* 


271c 














UCSD Ofin(ucsHmod'jle) 




82c 


164c 


165c 


166c 








amtablepTrtype 


















INITL0flD(5ysg]ob3l5) 




173d 


262d 












amtableType 

INITL0flD(5y5glob.il5) 




















168d 


173d 












amtype 

CTRBLE(ctr) 


















*** 


453d 














INIT(initunit5) 


«»« 


2183d 














lNITL0fiD(sy59lobJls) 




68d 


97d 


145d 


168d 


279d 






SYSDEVS(5y5dev3) 




119d 


164d 












an isrib 


















nnB_ORV(lnit_dma 




169d 


nod 


182d 


199d 








answer 


















ETU 




191d 


197c 


202c 


203c 


20Sc 


206c 208c 213d 21Sc 221d 245c 259c 260c 289d I 






231c 


869d 


1009c 


1010c 








niMTfmidecs) 




43d 


47c 


48c 


49c 


50c 






TflPEBKUP 




974d 


979c 


980c 


981c 


982c 


983c 




any 9S95 unit missing 
tTflBLE' 




















I339d 


1360c 


1403c 










any to ucsd 

CCNVFRT (convert text) 




















35d 


40d 












anychange 

[lFOBR(lifmodule 




















199d 


320c 


353c 


37Sc 


415c 


428c 457c 461c 475c 699c 709c 713c 1095c 1124c | 






114SC 


1170c 












anychar 

GLE TYPES(gle types) 




















1009d 


lOlOd 












KEv5(keys) 




S2d 


351c 


352c 


5O0c 


536c 


S83c 




anychar ptr 

GLE riPGLIgle hpg. out) 
GLE HPGLlTgle hpqT in) 




















7067d 


7141d 














1804C.d 


18080d 










U-IO 


GLE TYPES (qle types) 
GLE UTLSOle .-l!) 


*^* 


101 Od 
















2100^d 


21009d 


21010d 


21011d 


21012d 


21039d 21069d 21106d 21118d 21119d 





an vcnar savehook 














KEVStkeys) 




5Sd 


352c 501c 








anytomem 
















418d 


1043c 








aoff 














LIBRBRIflN 




1807d 


ia21c 1824c 


1831c 






area draw mode 














GLE_RGLTgle ras out) 




8049d 


8514c 








areaisdbcrt 














CRTJcrt) 

GCRTfcrtb) 
SYSDEVS(sysdev5) 




63Sc 


647c 654c 










474c 


485c 








*«* 


62d 










areyoualivepack 

SRnfln(srmammoduiel 














X** 


15Sc 










SRM DRV (arm) 




1004d 


lS29d 








arithop 














LIBRBRIfiN 




561d 


1075c 








arithoptype 
LIBRfiRIflN 
















S49d 


561d 








INIT(ldr) 














««* 


2376c 










INITLOflD(loader) 




917d 


1164c 1393c 


1603c 






LIBRBRIfiN 


«** 


29650 










ascii buffer 














DGL C INfdgl confg in) 
DGL C OUT(dgI confg out) 


*#* 
*** 


12022d 
11034d 










GLE FTLE(gle Tile lo) 




9029d 


9031d 








GLE HPGL(gle hpgl out) 
GLE HPGLI (gle SpgT in) 
GLE HPIBtgle Rpib lo) 




7013d 


7015d 










18013d 


18015d 










10040d 


10042d 








ascii buffer pt r 














DGL C INfdgl confg in) 
DGL C OUT(dgI confg out) 




12071d 


12088d 










11372d 


11404d 








GLE FlLEtgle Tile lo) 




9029d 


9065c 








GLE_HPGL(gle_hpgl_oijt) 




7013d 


7044c 7060c 


7072c 7086c 7122c 7144c 7171c 7228c 7336c 7362c 7387c 7405c 


7434 c 






7472c 


7491c 7519c 








GLE HPGLI (gle hpgl in) 
GLE HPIB(gle Kpib To) 




18013d 


18032c 18045c 


18059c 18083c 18102c 18139c 18249c 18295c 18332c 








10040d 


10514c 10S35C 








ascii buffer space 














DGL C INIIdgl confg in) 
DGL"C~OUT (dgT confg out) 




12022d 


12099c 










11034d 


11424c 








asciiam 














fiSCII 


««* 


319c 










ASCII jascilmodule) 
asciifiie 




6d 


13d 




















fiSCII 




319c 


320c 321c 








ETU 


««<* 


930c 










INITL0fiD(sy5global5) 


*** 


50d 










asciimodule 














nscii 


**» 


317d 










ASCII (asciimodule) 


*x% 


3d 










asm 

H804XDVR(a804xdvr) 


*XM 


31d 










fiSCII (asciimodule 


**it 


4d 










CLOCK (clock) 


t*X 


33d 










CONVERT(convert text) 


**» 


27d 










CRT(crti 
CS80(c580d»r) 


X»:» 


33d 










*** 


972d 










DGL HPGL(dgl hpgl) 
DGL POLY(dgl poly) 
DGL Rns(dgl raster) 


*»* 


17014d 










*)^* 


20039d 










MIK* 


17013d 










EDRTVER(edrTver) 


*** 


24d 










EPROriS(eproms) 


««« 


6d 










ETU 


*** 


26d 










GCRT(crtb) 


«** 


33d 










GEN(d9l gen) 
HPHILIhpSil 


*** 


30S3d 










*«* 


30d 










INIT 


X** 


2514d 










INIT(fs) 


«»« 


739d 










IN T initunits) 


1K»« 


2135d 










IN T isr) 


*** 


34d 










IN T Idr 


*** 


2270d 










INIT misc) 


««« 


153d 










INITLOfiD 


»*« 


1664d 










INITLOfiO bootdarrmodule) 


**#. 


535d 










INITLOBO loader) 


*** 


809d 










INITLORD mini) 


»*# 


304d 










KEYSfkevs) 
LIBRBRIfiN 


%*:» 


33d 










*** 


27d 










neSKSYS 


«** 


1211d 










M68KSYS(cl! 


*«« 


33d 










mNIT(mminit) 
MOREFSYS(mfs!i 


*«* 


lUd 










»«« 


lOd 










PRINTER(prtdvr) 
SEGtlENTER(asm) 


*** 


37d 












42d 


48d 








TAIL 


*«« 


32d 










UCSO fiH(uc5d am) 


XM* 


29d 










UCSD Dfll1(uc5<rmodule) 


XX* 


29d 










asm bc^ real 














ri!jREF?YS(mfs) 




40d 


5C3c 








asm bcdround 














M5REFSYS(mf5:i 




552d 


6CSc 








asm flpt reset 
nBREES7S 
















682d 


688c 








asm real bed 














riCREFSyS(mr5] 




556d 


582c 








asmr 














MINIT asmrl 


*x* 


1317d 










MINIT xminit] 


*** 


1371d 










aspecia type 














KEyS(key5) 




234d 


241d 243d 








aspect ratio 
5gl TNQidgl inq) 
DGL VfiRS(dgT Yars) 














k:K* 


6228c 










• »^X* 


1047d 










GENTdglaenJ" 
LIBfdgl lib) 




3480c 


3484c 3493c 


3S04C 3517c 3528c 








20362c 


>0363c 203660 


!0370c 21413c 






assembler 














M68KSYS(ci) 




39d 


59Sc 610c 


619c 6990 7iec 1112c 






assign and clear unit 
CTSBrE(cTr) 
















303d 


832d 85Sc 








assign both flpy units 
CTfiBUE 
CTfiBLE(ct r) 














XX* 


1324c 
273d 
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assign both units 

ctRble 
















12870 


1323c 1397c 


1404.: 







as5igr even unit 
























ctsbCe 




1272c 


1328c 


















CTflBLE(ctr) 




26"d 


272d 


274d 
















a5Sign_npy_Linit_p jir 




126ed 


1502c 


1514c 


1807c 


1829c 


1631c 










assign neither flp; unit 
CTRBCE 


























1193d 


1195d 


1302c 
















CTBBLEIbrstuff ) 


*x* 


933d 




















CTfiBLE(ctr) 


*v* 


271d 




















assign odd unit 
CTBbUE 


























1277c 


1327c 


















CTflBLE(ctr) 




267d 


272d 


274d 
















assign only this uiit 
CTflBUE 


























1287d 


1384c 


















assign temp unliable 
ctRbUe ~ 


**# 


1796c 




















CTBBLE(ctr) 




304d 


848d 


















assoc 
























LlBRflRIflN 




3303d 


3310c 


3311c 


3314c 


3330c 


3431c 


3441c 


3454c 


3460c 


3468c 3489c 3497c 


a sync 

DISCHPlB(bkgndi 
























*»* 


602c 






















Aid 


120c 


13Sc 


149c 














UNniO(uio) 




29d 


31d 


54d 


62c 


66c 


76d 


83c 


87c 






asynchronous 
HmGO(amigodvr) 


























559d 


564c 


602c 


631c 


647c 












atn line 
























lCL18(tipib 21 

KERNE l.(iodeciar a! ions) 




1821c 


1829c 


1876c 
















*** 


39Sd 




















alp 

CS80(C580) 


*** 


107d 




















attempt copy 
IflPEB^UP 


























1227d 


1351c 


















attempt to write o-i protected 


trac 


k 




















flMIGOTamlgodvry 
BniGOicsamigo) 


*** 


seic 




















*»* 


80d 




















aua 
























KEYS (keys) 




ISld 


172c 


















aue 
























KEYS(keys) 




152d 


173c 


















aui 
























KEYSIkeys) 




153d 


174c 


















auo 
























KEYS(keys) 




154d 


175c 


















auto sparing invok'!d 
CSJO(cs80l 
























^** 


189d 




















CS80(C580d5rl 

TflPEBKUP(C586tbdvr) 


*»« 


726c 






















608c 


840c 


















auto unload 
























tbPebkup 




1428d 


1443c 


1444c 


1451c 


1462d 


1480c 


1486c 








auu 
























KEYS (keys) 




ISSd 


176c 


















await blanking 
























GLE GEN(gle gen) 
GLE HPGLTgle hpgl out) 
GLE RGLIgle ras out) 
GLE~TYPE5(gTe Xyixs) 


*** 


2258c 




















*** 


7658c 






















8410c 


8478c 


















»** 


1029d 




















await locator 
























LIBTdgl lib) 




20076d 


209Sld 


















ayastatusptr 
























SRn_QRV(5rm) 




1407d 


1469c 


















ayastatustype 
























SRM DRV(5rm) 




1402d 


1407d 


















ayatimeout 
























SRn_ORV(srm) 




1122d 


141SC 


















b 

RMIGOfcsamigo) 




231d 


236c 


















CS80(C580) 




373d 


377c 


















CS80(c580d5r) 




78Sd 


93Sc 


















CTnBLE(brstuff ) 




971d 


981c 


















DGL POLYIdgl polv) 




20252d 


20259c 


















DGL~RfiS(dgl 7a5t.:r) 




170e7d 


17105c 


















GENTdgl_geny 




3048d 


3049d 


3166d 


3181c 


3182c 


3183c 


3184c 


3185c 


3186c 


3190d 3195d 3198c 3200c 3205d 






3208c 


3210c 


3219c 


3220c 


3229c 


3239c 










GLE RGL(gle ras out ) 
HPHlLlhphilT 
INIT(f5) 
INITLOflD(mini) 




8157d 


8187c 


8191c 


8196c 


8199c 


8203c 












47d 


57d 


140c 


146c 


167c 


172c 


305c 


311c 


314c 






813d 


814d 


836d 


838d 
















334d 


342d 


343d 


344 d 


34Sd 


346d 


347d 


348d 


349d 


350d 351d 352d 353d 354d 






35Sd 


356d 


357d 


358d 


359d 


360d 


361d 


362d 


363d 


364d 365d 366d 367d 368d 






369d 


370d 


380c 
















KERNELtiocomasm) 


»»« 


704d 




















LIBRflRIBN 




754d 


767c 


760c 


764c 


771c 


1805d 


1811c 


1817c 


1818c 


1827c 1828c 1836c 1839c 1841c 


LIFDflM(lifmodule 




230d 


232c 


23Sc 


236c 














tllNIT(iramigo) 




211d 


217c 


















HIUI 




ISd 


103d 


182c 


198c 


201c 


210c 


353c 


477c 






MOUSE (mouse) 




S2d 


114c 


















SRMOflnfsrmdammod'Jle) 
SYSCEVS(sysdev5) 




472d 


486c 


514d 


542c 
















41d 


410d 


















UCSO DRn(uc5dmodjJe) 
bO 

CRT(crt) 


**« 


SSd 




















**» 


176d 




















DGL HPGLIdgl hpgl) 


•XX* 


172S2d 




















DGL RHS dgl raster) 


*** 


17S56d 




















EDRTVER edriver) 


*** 


62d 




















LIBRflRIflN 
bl 

BflT(bat) 




1808d 


1811c 


1813c 


1817c 


1826c 














67d 


77c 


















CRT(crt) 


»*« 


176d 




















DGL HPGLIdgl hpgl) 


*** 


17252d 




















DGL RFlSfdgl raster) 


*«* 


17556d 




















SYSFEVS sysSevs) 




18ed 


380d 


437d 


438c 


44Sd 












blO 
























CRT(crt) 


*x* 


176d 




















DGL HPGLIdgl hpgl) 


**« 


17250d 




















DGL"RfiS(dgl rast.;r) 


*** 


17554d 




















bll " 
























DGL HPGLIdgl hpgl) 
DGL RHSfdgl raster) 
bl2 " 

DGL HPGLIdal hpgl) 


*** 


17250d 




















«*« 


17554d 




















*** 


17249d 




















DGL RflS(dgl raster) 


X** 


17553d 




















bl3 
























CRT(crt) 




174d 


688c 


















DGL HPGLfdol hpgl) 
DGL RflS(dgl rastrr) 


»*« 


17249d 




















»«« 


17553d 




















ei4 " 
























CRT(crt) 




106d 


152d 


174d 
















DGL HPGLIdgl hpgl) 
DGL RfiSldgl raster) 
GCRT(crtb) ~ 
SYSDEVSIsysdevs) 


*** 


17249d 




















**x 


17653d 




















*«* 


85d 






















7Sd 


ggd 


















bl5 
























CRT(crt) 


*x* 


174d 




















DGL HPGL(dgl hpg-) 
DGL RfiSldgl raster) 


*x* 


17249d 




















XX* 


17553d 




















niuT 




381d 


41Sd 
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BnT(bat) 

CRT(crl) 

DGL_HPGL(d3] hpgl) 

DGL RflS(agi raster) 

EDRTVER(edrlver) 

SVSDEVS(5y5cevs) 

b26 

KEYS(key5) 

d3 

BBT(bat) 

CRTJcrt 

CS80(C580) 

DGL HPGL(dql_hpgl) 

DGL RFlS(dgI ratter) 

EDRTvER edriver) 

SYSDEVS sysdevs) 

b4 

BHT(bat) 

CRT(crt 

CS80(C580) 

DGL_HPGL(dgl_hpgl) 

DGL RflSfdgl raster) 

EDRTVER (edriver) 

SYSDEVSfsysdevs) 

bS 

BST(bat) 

CRTJcrt 

CS80(cs80) 

DGL_HPGL(dgi_hpgl) 

DGL RflSfdgl raster) 

SYSDEVsisysSevs) 

bS 

CRT(crt) 
CS80(C580) 
DGL_HPGL(dqJ_hpgl) 
DGL_RnS(agl_raster) 

b7 

CRT(crt) 
CS80(C580) 

b8 

CRT(crt) 

DGL_HPGL(d9l_hpgl) 
DGL_RBS(dgl raster) 

b9 

CRT(crt) 

DGL_HPGL(dgl_hpgl) 
DGL RflS(dgl_ra5ter) 
GCRT(crtb) 
SYSDEVS(sysdevs) 

b98261nfo 
CRT(crt) 

b_idle 

BUBBLES(bubble) 

b info 

DC DRV(lntdc) 
I0riB(general_4) 



SRn_DRV(5rm) 
b_max 

DGL_POLY(dgl_poly) 





67d 


7Sc 














«** 


176d 
















*** 


17252d 
















*#* 


17556d 
















**« 


64d 


















186d 


380d 


437d 


438c 


445d 










236d 


236d 


248d 


250d 












e7d 


79c 














«** 


176d 
















«*» 


80d 
















*** 


172S2d 
















■X** 


17SS6d 
















M** 


6Sd 


















186d 


380d 


437d 


438c 


44Sd 










S7d 


80c 














*■$* 


17$d 
















*** 


80d 
















««» 


17251d 
















*** 


17555d 
















**« 


54 d 


















186d 


380d 


437d 


438c 


44Sd 










67d 


81c 














X** 


17ed 
















*** 


80d 
















#** 


17251d 
















««* 


1755Sd 


















186d 


380d 


437d 


438c 


445d 








*** 


176d 


















80d 
















■x*»< 


172Sld 
















*x* 


17555d 
















«** 


I76d 
















**« 


80d 
















*«» 


176d 
















t.** 


17250d 
















... 


175S4d 
131d 


176d 














«*. 


17250d 
















... 


17S54d 
















... 


64 d 
74d 

86d 


84d 
720c 
















71c 


82c 


83c 


88c 


101c 


102c 


115c 






409d 


416c 


419c 














1197d 


1202d 


1203d 


1214d 


1221d 


1226d 


1228d 


1230d 




1247d 


1257d 


1262c 


128Sd 


1288c 


1296d 


1298c 


1314d 




1367c 


1384c 


1396c 


1402c 


1410c 


1416c 


1439d 


1445c 




1493c 


1494c 


1502c 


1523c 


lS32d 


1538c 


1541c 


1543c 




1S88C 


1S94C 


1612d 


1623c 


1631c 


1640d 


lS44c 


1652c 




1265d 


1267c 


1272d 


1274c 


1285d 


1287c 


1289c 


1291c 



1231d 1233d 1235d 1237d 1240d 1244d 

1317c 1319c 1320c 1328d 1330c 1354d 

14S2C 1463d 1469c 1472c 1477c 1489d 

1546c 15S1C 1557d 1561c 1567c 1584d 

1658d 1661c 



20523d 20S29C 20533c 



b_min 

DGL_P0LY(d9l_poly) 
b w mode 
"DC ORV(intdc) 

Dl5CHPIB(dischpib) 

I0LIB(general_4) 

KERNEL (lodecla rat ions) 

SRn_DRV(5rm) 
ba 

CS80(cs80d5r) 

CTflBLE 



20522d 20S2ec 20541c 



CTnBLE(br5tuff) 
CTflBLE(ctr) 



CTflBLEfoptions) 

CTflBLE scanstuff) 

DISCHPie(dischplb) 

INIT(initunits) 

INITLOflD 

INITL0fiD(5ysglobal5) 

niui 

PRINTER(prtdvr) 
SRnph(5rmarrfnoduIe) 
SRnOflM ( 5 rmd aiTVnod u le ) 
SRrt DRVfsrm) 
TflPFBKUP 
background 

OGl._INQ(dgl_inq) 



GLE_HPGLfgle hpgl out) 
GLE_TYPES(-'- ' - -' 
backspace 



GLE_TYPES(gle_type5) 



CRTtcrt) 

GCRTfcrtb) 

MOREFSYS{mfs) 

SYSDEVS(5ysdev5) 
backup 

SYSDEVS(5ysdev5) 
backwardlist 

LIBRflRIPN 
backwardpatches 

LIBRflRIPN 
bad blocks 

S?M DRV(5rin) 
bad blocks encountered 

TffPEBKUPIcsSOtbdvr) 
bad track 

nTNIT(hminit) 
badch 

CRTlcrt) 

GCRTfcrtb) 

SYSOEVSfsysdevs) 
badcheckword 

F988S(f9885d»r) 
badcommand 

ETU 

F9885(f9885dtf r) 
baddrivetype 

rilNIT(xminit) 



423c 




























472c 




























1422c 


1472c 


























S75d 




























1345c 




























621c 




























1191d 


1243d 


1246c 


1274c 


1278c 


1468c 


ISOSc 


ISCSc 


1531c 


1S40C 


1554c 


1674c 


1596c 


1600c 


1623c 




























934d 


959d 


1008c 
























325d 


328d 


331d 


332d 


333d 


334d 


335d 


336d 


337d 


414c 


474c 


497c 


668d 


671c 


673c 


677d 


680c 


682c 


698d 


703c 


707c 


711d 


714c 


716c 


720d 


725c 


733c 


737d 


742c 


752c 


756d 


765c 


768c 


772d 


784c 


787c 


781d 


795c 


796c 


798c 


881c 




114d 


118d 


120d 


123d 


125d 


127d 


















1115c 




























264c 
2207c 
1680c 


270d 


279c 


293c 


316c 


329d 


338c 


364c 


395c 


429c 


4S2c 


457c 
































147d 




























3Sc 


200c 


351c 
























27Sc 




























168c 




























417c 




























1379c 




























1009c 


1017c 


1092c 
























6318c 




























7696c 




























1091d 




























104d 


127d 


ISOd 
























60d 


83d 


























52d 


124c 


151c 


183c 


21Sc 


2S5c 


293c 


326c 


365c 












80d 


97d 


























S19d 


563c 


575c 
























2369d 


2420c 


2422c 


24e3c 






















80d 


1668c 


2422c 


2607c 


2608c 




















346d 




























S13d 


638c 


67Sc 


683c 






















350d 


373c 


376c 


381c 


383c 




















98d 


144d 


























77d 




























94d 




























49d 


230c 


236c 
























130d 


206c 


814c 


1257c 






















48d 


222c 


























1407d 


1591c 


1S96C 


1598c 


1600c 


1601c 


1603c 
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c 3 cH" i . e 

INI • (misc) 

INIUOflOfsysglobals) 
LIFDflndifmodulel 
UCS[)_Dfln(ucsclmociile ) 

badio 

EDRIVER(edriver) 
ETU 

LiFnnn(iifmoduip) 

tadmessage 
ETU 

badvcif y 

F98«S(f9886dvr) 
baseaddr 

ETU 
basicbinlype 

SRnimM(srmdarmiocule ) 
basicprogtype 

SRnofinisrmdammocule) 
bal 

BfiT(bat) 
bat8041cnidreg 

BflT(bat) 
bal8041datare9 

BBT(bat) 
ba1804l5lat(jsreg 

BflT(b3t) 
batbytereceived 

CL5(;K(clock) 

SYSIiEVS(sy5dev5) 
batcmdhook 

BflTlbat) 

SYSDEVS(5y5devs) 
batcmdtype 

3YSIlEVS(5ysdevs) 
batconmand 

BBTibat) 

CLO(:K(clock) 

SYSIiEVSlsysdevs; 
batdai aout 

BBTibat) 
balinit 

BHT 

BBTibat) 
bat re-idbyle 

BflT(bat) 
bal readhook 

BBTibat) 

SYS[)EVS(sy5dev5) 
bat readtype 

SYSPEVStsysdevs) 
batst.itus 

BflT(bat) 
battel ypresent 

BBT 

BBTibat) 

CLO(:K(clock) 

SYSliEVS(sysdevs) 
bba 

CS8(i(cs80) 

TBPI 8KUP(cs80tbovr) 



714c 
47d 

421c 
5S5c 


715c 
















105d 

119d 

86d 

068c 


114c 

126c 

103c 

1071c 


116c 

133c 

171c 

1073c 


131c 

163c 

177c 

1086c 


135c 

168c 

189c 

1162c 


139c 
203c 
222c 


141c 
329c 
309c 


190c 
552c 
394c 


220c 

1004c 
488c 


123d 


S49c 


662c 


780c 


783c 


803c 


921c 


991c 




49d 


















48d 


672c 


67Sc 


689c 


llSSc 


1197c 


1211c 


1219c 




67d 


939c 
















68d 


940c 
















99d 
32d 


















48d 


76c 
















49d 


70c 


87c 














47d 


SSc 


63c 














148c 
381d 


149c 
440d 


153c 
442c 


154c 


15Sc 










93c 
190d 


438c 


607c 














185d 


19Ca 
















92c 

96c 

380d 


97c 
437d 


147c 


148c 


149c 


153c 


154c 


lS5c 




69d 


77c 


78c 


79c 


80c 


81c 








103c 
35d 


90d 
















8Sd 


94c 
















94c 
191d 


442c 


60BC 














187d 


191d 
















52d 


55c 


56c 


60d 


63c 


64c 








102c 

73c 

141c 

189d 


















222d 
637c 


639c 

















508c 509c 



896c 106SC 



bbadcnunt 

EUBCLES (bubble) 
bbadddta 

BUB!iLES(bubble) 
bbadiiite rupt 

BUBBLES (bubble) 
bbadsfctor 

BUBHLES (bubble) 
bbuffir 

BUBhLES(bubble) 
bcb 

DC (iRV(intdc) 

Dl [)RV(extdi) 

G_IJl.'V(extq) 

H Dl-Vtextfi) 

R5 l)RV(r5) 
bed 

CS80(c580d5r) 

CS8O(c580dvr) 

INIl LOAD ( boo tdammodule) 

LIFliflnillfmodule] 

nlNIT(qminit) 

MXUI 

MORS FSVS(mf5) 

TfiPl BKUP(c586tbdvr) 
bcdl2 

MIUI 
bed piod_num 

Cj8('(cs80d5r) 

CSSOJcsSOdvr) 
bed product number 

riTNIT(qminit) 

TflPf BKUP(c580tbdvr) 
bed str 

nCRf FSYS(mfs) 
bed STrtype 

n!jR[ FSVS(mfs) 
bcddiqit 

hORrFSyS(mfs) 
beounT 

BUBHLES(bubble) 
bdat type 

SRnpflH(5rmdammcdule) 
bdural ion 

n804XDVR(a804xdvr) 

SYSrEVS(5y5dev5) 
bdx chain semaphore 

DTSi HPl5(bkgnd) 

DISI HPIB(di5Chpib) 
bdx nt 

DTStHPIB(bkgnd) 

DISI HPIB(dischpiEi) 
bdx pie eoi 

nmcOTamigodvr) 

CS8( (csSOdvr) 

DISl-HPIB(bk9nd) 

DIS(HPIB(dlschpio) 
bdx pioc 

DTSCHPIBfbkgnd) 

DIStHPIBidischpio) 



4Sc 












47c 












4 3c 












44c 












76c 


93c 










2S4d 
165d 
182d 
180d 
182d 


408d 


416c 








78 Id 
1034d 
555d 
37d 
94 Id 
389d 
552d 
4e0d 


919c 
1064c 

5S6d 

41d 

1008c 

390d 

486c 










390d 


404d 


413d 


426d 






778d 
1031d 


916c 
1061c 


919c 
1064c 








938d 
457d 


1005c 
483c 


1008c 
436c 








399d 


406c 


503c 


562d 


582c 


S83c 


32d 


40d 


399d 


S52d 


556d 


562d 


31d 


34d 










78c 


80c 


96c 


97c 


99c 




66d 


938c 


1047c 








388c 
173d 


414c 










52d 
486c 


498c 


501c 








S4d 
461c 


513c 


514c 


516c 


S17c 


629c 


942c 

1122c 

53d 

530c 


1128c 
531c 


533c 


534c 






5Sd 
462c 


542c 
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beep 

CRT(crt) 
ETU 

GCRT(crtb) 
KEYS (keys) 
LIBRflRIftN 
SYSDEVS(sy5devs) 
beepe r 

SYSDEVS(5ysdev5) 
beeperhook 

S804X0VRla8Ci4xdvr) 
SYSDEVS(5ysdev5) 
Deepop 

fi804XDVR(3804xdvr) 
belgian kbd 

fl804xnvRra804xdvr) 
N0NUSKBD2 
SVSDEVS(5ysclevs) 
bell 

INIT(misc) 
bellchar 
CRTrcrt) 
SCRt(crtb) 
INIT(nii5ci 
LIBRfiRIfiN 
n68KSYS(ciJ 
PRINTER(prtdvr) 
bep 

PRINTER(prtdvr) 
berrortype 

eUBBLcS(buDble) 
between 

LIB(dgl_lib) 
bfast 

EDRIVER(edriver) 
bf requency 

ft804XDVR(a804xdvr) 
SVSDEVS(5ysdevs) 
bi type 

ClSCHPIB(bkgnd) 
bia pt r 

DTSCHPI8(bkgnd) 
bia type 

DTSCHPIB(bkgnd) 
biq_graph 
C HOOK 

D5L_T0OLS(dgJ tools) 
biggraphics 
CRTJcrtl 

INItl.0flD(sy5glob3l5) 
bigpt r 

ETU 
bigsize 

HEPPT(hpm) 
bigtemp 

KERN§L(general_0) 
bigtemp3 

KERNEL (gene r3l_0) 
binand 

I0LIB(5erlal 0) 
I0LIB(5eriar"3) 
KERNELdocomasm] 



bincmp 

I0LIB(5erial 0) 

KERNEL(iocomasm) 
bineor 

KERNEL(iocom.Jsm) 
binior 

I0LIB(5erial 0) 

KERNEL(iocomasm) 
bint 

ETU 
biof ail 

BUeBLES(bubble) 
Pip 

OISCHPIB(bkgnd) 
bip type 

pRl60(aniigodvr) 

CSeO(c580dvr: 

OISCHPIB(bkgnd) 

DISCHPIB(dischpib) 

MINIT(c580irl 

niNIT hminit 

mNIT(qminit 

TRPEBKUP(Cs80tbdvr) 

TPPEBKUPJcsSOtbr) 
bip valid 

DTSCHPIB(bkgrid; 
bit 

CS80(C580dsr) 

MINIT(qminit 

TSPEBKUP(C580tbdvr) 
bitO 

C HOOK 

DCL TOOLS(dg] tools) 

GLE HPGLI gle;hpgl_in) 

GLE_RGl.(qle ras out) 

GLE_TYPES(gTe_type5) 
bitl 

C HOOK 

DSL TOOLS[dg]_tools) 

GLE_HPGLI(gle hpgl in) 

GLE TYPES (gle types) 
bitlO 

GLE_TYPES(9le types) 
bitn 

GLE_HPGLI(gle_hpgl_in) 

GLE TYPES (gle" types) 
bitl2 

GLE_HPGLI(gle hpgl in) 

GLE_TYPES(gle types) 
bitl3 

C HOOK 

D!;L_TOOLS(dgl tools) 

GLE_HPGLI gle^hpgl an) 

GLE TYPES(gle types) 
bitl4 

C HOOK 

D5L„T00LS(dgl tools) 

GLE_HPGLI (gle hpgl in) 

GLE TYPES(gle~1ypes) 
bitl5 

GLE_HPGLI (gle^hpgl^in) 

GLE„TYPES(g]e_type5) 



470c 
810c 
341c 
364c 
90c 
366d 


815c 
403c 
413d 


12SSC 
414c 
601c 


563c 




367d 


416d 








389c 
172d 


414c 


417c 


601c 




157d 


389c 








190d 
155c 
145d 


219c 








162d 










470c 
341c 
162d 

93c 
683c 

4Sc 


371c 
725c 








44d 


191c 


197c 






37d 










20850d 


20853c 


20866c 


20867c 




28d 


157c 


210c 


294c 




388c 
173d 


414c 








37d 


58d 


75CI 






78d 


86c 


87c 


89c 


100c lUc 


7Sd 


7ed 








40d 
20018d 


143c 
20032c 








238c 
285d 


253c 








42d 


419d 


603d 


856d 




73d 


105c 


114c 






969d 


1107c 


1108c 


1134c 


1135c 


970d 


1046c 


1048c 


1099c 


1100c 1113c 1114 


2317c 

2646c 

705d 


2338c 
2664c 


2716c 


2782c 





c 1142c 1143c 1149c llSOc 



**t 


2317c 
711d 


2338c 














**# 


709d 
















««« 


2254c 
707d 


2276c 
















840d 


954 c 


1170d 


118SC 


1190c 


1191c 


1197c 


1211c 


*** 


48c 


















94d 


100c 


107d 


lUc 


114c 


llSc 


uec 




*** 

*»* 

*** 


S98c 
1090c 
S8d 
447c 
759c 
308c 
884c 
735c 
284c 


675c 
1101c 
94 d 
497c 
806c 

1133c 


702c 

107d 
508c 


720c 

129c 
S26C 


766c 
130c 


777c 
149c 


799c 
157c 


938c 

158c 




94d 


98c 


101c 


129c 


lS7c 


155c 








786d 
947d 
466d 


936c 

1017c 
493c 














:k** 
**« 
*** 


46d 

20024d 

18243d 

8264c 

1246d 
















*** 


46d 
20024d 
18242d 

1246d 
















**« 


1245d 
















*** 


18232d 
I245d 
















*** 


18232d 
1245d 
















«** 
*** 


44d 

20022d 

18232d 

1245d 
















*** 
*** 
#** 


44d 

20022d 

13232d 

1245d 
















*** 
*** 


18232d 
1245d 
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tit2 

C HOOK 

aCl JC10LS(dgJ_t"Ols) 
bits 

C HOOK 

OEl _IC0LS(dgl_ti.ol5) 
bit* 

n5l TOOLS(dgl_tool5) 

6LE"TVPES(9le_tvpe5i 
bits 

C HOOK 

OCl 700LS(dgl_ti'0l5) 
bits 

C HOOK 

BCl TOOLS(dgl_tools) 

GLETyPES(gle_tvpe5) 
bif7 

bCl TO0LS(dgl_tool5) 

bite " 

GLE TYPES (gle_t /pes) 

bit9 

GLE. TYPES (gle^t /pes) 
bit_misk 

C NOOK 

DEL RflS(dql_rasier) 

GCirT(crtb) 
bit 5«t 

GtE HPIB(gle hp[b_io) 

I0ir6(hpib_lT 

10t-lB(hpib_3) 

10lIB(5erial_0) 

KERNEL (iocomasmi 
bi tco4int 

LIBRBRIPN 
bitmap 

INITLOflD( loader ) 
bitmapaddr 

GCRTlcrtb) 

SYEOEVSCsysdevs ) 
bitmapt ype 

BGl C_OUT(dgLc»nfg_o 

GCRT(crtb) 

SYS0EV3(sy5dev5 1 
bitop 

LieKHRIPN 
bitopt ype 

LIBRfiRIfiN 



« 46d 
' 20024d 








46d 
< 20024d 








46d 

' 20024d 

1246d 








46d 
< 20024d 








39d 

20017d 

1246d 


46d 
20024d 






39d 
20017d 


46d 
20024d 






> 1245d 
438d 


658c 


849c 


1006c 


> 1245d 








81d 

17382d 

lS4d 


lOlc 

17409c 

177c 


104c 

17412c 

180c 


105c 

17413c 

181c 



10148c 

472c 

2138c 

2412c 

703d 

752d 

911d 

536c 
131d 

11183c 
520c 
113d 

6S3d 

$51d 



lOllc 1048c lOeic 1096c 1101c 1104c 1113c 



10243c 10252c 102S3c 10261c 10331c 10340c 10347c 10349c 

487c 565c S74c 581c 583c 653c 682c 669c 

2148c 2157c 2167c 
2460c 

762c 773c 785c 791c 800c 

995d 

543c 

11288c H302C 11332c 



673c 
653d 



bkqnd 

finiGOIamigodvr) 

RmGOicsamigo) 

CS60(cs80) 

CS80(C580d5r) 

CS80(c580dvr 

CS80(tapebuf) 

DIECHPIB 

DISCHPIB(bkgnd) 

0ISCHPIB(di5clipib) 

mNIT(C580ir) 

nlMT hminit) 

MINIT (iramigo) 

niWT(qminit) 

tllUI 

TflPEBKUP 

TfiPEBKUP(C580tbdvr) 

TBPtBKUPicsSOtbr) 
bkgnd and_dischpib present 

CTfiBLE(scan5tuffT 
blank 

nOREFSVS(mfs) 
blankchk 

ETli 
blanks 

ETU 
blinkl reg 

GLE TYPES (gle_type5) 
blink? reg 

GLE_TYPES(gle_type5) 
block 

CS80(C580dvr) 

INIT(mi5C) 

INlTLOPlD(loader) 

LIBRflRIfiN 

UCED fiM(uc5d_am) 

UNITTOfuio) 
block address 

CSfcClcsSOdvr) 
block boundaries 

ctrBle 

CTfiBLE(ctr) 
block OS 

CTBffLE(ctr) 
block power 

CSeO(C380dvr) 
blocks 

LIBRBRIfiN 

UCED OBM(ucsdmodule) 
bloc^ size 

CSS0(cs80dvr) 

INlTLOflD(loader ) 

LIBRBRIBN 



M6SKSYS(ci) 
bloct time 

CS80(cs80) 
blockwr ite 

LltRBRIflN 
blu intensity 

Grf_RGL(gle_ras_ 



42Sd 

37d 

66d 
698d 
972d 

3Sd 
553d 

28d 
189d 
616d 
248d 
187d 
878d 

Ud 
953d 
305d 

14d 

1080d 
Sid 
868d 
1163d 
127Sd 
1276d 

uesd 

1318c 

537d 

1118d 

131d 

71d 

29d 

109Sd lUOc 



1670c 
315d 

330d 

1218d 

131d 
186d 

1219d 
813d 
1366d 
2288c 
3190c 
806c 

104d 

131d 

8C45d 



1112c iiesc 

96c 370c 391c 

954c 955c 956c 

mSc 1184c 1186c 1193c 1198c 1212c 1218c 



1172c 


1177c 


1220d 


1244c 


12S0C 


1267c 


1271c 


1278c 


5S6c 


5S9c 


592c 


627c 


628c 


e52c 


6e3c 


669c 


1120c 
















133c 


137d 


139c 












75c 


76c 


92c 


94c 


13Sd 


142c 


144c 




31d 


54d 


65c 


75d 


36c 









1282c 1293c 1298c 1307c 1310c 



621d 623c 624c 

331d 686d 692c 

1236c 1237c 1240c 

133c 

192c 



1240c 
1142c 
1980c 
2289c 



194c 

1241c 

114SC 
1984c 
2290c 



195c 

1257c 
H47c 
2116c 
2293c 



698d 705c 
1244c 124Sc 1247c 

217c 218c 235c 



127SC 
1148c 
2n4c 
2301c 



1271c 1298c 1302c 1310c 



582c 583c 



1149c 1152c 11S3C 1154c 
2206c 2211c 2215c 2230c 
2514c 2522c 2S24c 2849c 



1322c 
2231c 
2850c 



132SC 1326c 1328c 1330c 
2253c 22S9C 2269c 2270c 
2867c 2882c 3152c 3189c 



1885c 2118c 2207c 2212c 2232c 2271c 2868c 2883c 3112c 
8199c 
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blue 






























DGL INQ(dgl jnq) 
DGL POLYtdqT poly) 
DGL^Rns(dgl_r"a5ter) 




6053c 


6056c 


























20O79C 


20088c 


























17026d 


17027d 


17028d 


l-'029d 


17030d 


17031d 


n032d 


17033d 


17034d 


17035d 


17036d 


17037d 17038d 


17039d 






17040d 


17041d 


17111c 


l-flSlc 


17187c 


17191c 


17225c 


17236c 


17240c 


17276c 


17629c 






DGL VfiRS(dgl vars) 


:C** 


1026d 


























bminiT 






























nlNIT(bminit) 


««* 


56d 


























niui 


»1K« 


12d 


























bminitialize 






























mNIT(bminit) 




59d 


52d 
























niui 


»!*:« 


363c 


























bmp 

INITLOflD(losder) 






























*#* 


911d 


























LIBRRRIflN 




194c 


399c 


400c 


1573c 


1639c 


1690c 


1790c 














bnode 






























INI TLOBD( boot dammodule) 




782d 


789c 


790c 


791c 




















bnoerror 






























BUBBLES(bubble) 




40c 


164c 
























bnotbubble 






























BUBBLES(bubble) 


)K«« 


46c 


























boff 






























LIBRflRIfiN 




1806d 


1827c 


1830c 


1831c 




















boffset 






























SRM DRV 




1944d 


1957c 


202Sd 


2037c 




















SRn_DRV(5rm) 




1088d 


1104d 
























boolproc 

SySDEVS(5y5dev5) 
































41d 


156d 
























bools 






























CS80(cs80dvr) 




1040d 


1069c 
























boot 






























LIBRflRIflN 




3118d 


3138c 


3166c 






















boot dam name 






























CTHBLETctr) 




350d 


664c 
























boot findfile 






























INTTLOflD(bootdamrnodijIe) 




585d 


eesc 
























boot flags 

INTTLOflD(bootdammodule) 
































S79d 


741c 
























boot id 






























INTTLOflD(bootdammodule) 




S78d 


740c 
























boot lifhead 






























INTTLOflD(bootdamnodule) 




584d 


638c 
























boot mfclose 






























INTT LORD ( boo tdammodule) 




590d 


686c 
























boot mfopen 






























INTT LORD (boo tdammodule) 




588d 


655c 
























boot minit 






























InTTLOSD( boo tdammodule) 




587d 


632c 
























boot mread 






























INTTLOflD(bootdammodule) 




591d 


764c 
























boot msus 






























INTTLOflD( boo tdammodule) 




S77d 


702c 


718c 


799c 




















boot space 






























INTTLOfiO( boo tdammodule) 




738d 


743c 
























boot start address 






























SRnDfln(srmdar™Ttod(jle) 


**« 


S47c 


























SRf1_DRV(5rm) 




S02d 


667d 


1770c 






















boot tm name 






























CTPrBLE(ctr) 




357d 


664 c 
























bootdam 






























INIT(initunits) 




2159d 


2248c 
























IN TLOfiD 


«*« 


1677c 


























IN TLOfiD(bootdammodule) 




543d 


607d 
























bootdamnodule 






























CTBBLE 


*^M 


U8ed 


























INITLOnO 


V*IK 


1664d 


























INI TLOSD (bootdamnodule) 


**M 


534d 


























SRnDfin(5rmdammodule) 


*** 


3Sd 


























TAIL 


»it* 


32d 


























bootdev lun 






























ctsblC 




1487c 


1830c 


1831c 


1840c 




















CTSBLE(ctr) 




299d 


500c 
























bootdev msus 






























CTBBLr 




1484c 


1485c 


1486c 






















CTBBLE(ctr) 




298d 


4aSc 
























booting 
LIBRfiRIBN 
































47d 


268c 


271c 


28360 


3166c 


3169c 


3349c 


3S13C 


3533c 


3S41C 


3546c 


3624c 3628c 


3636c 






3638c 


3644 c 


3691c 


3734c 




















bootmod 






























LIBRRRIBN 




2734d 


2836c 
























bootnode 






























INITLORD 


*^» 


1761c 


























INnLOBD(bootdammodule) 
bootrevl 

INITLOBD(mlni) 




647d 


795d 


798c 


80Cc 






















387d 


488c 
























bootrevflag 
INITLOBOfmini) 
































390d 


488c 
























boottm 






























INIT(lnitunit5) 




2155d 


2248c 
























INITLOBD 


JK*« 


1678c 


























INI TLOflD( bootdamnodule) 




544d 


747d 
























boot type 

CLOCK (clock) 
































47d 


17Sc 


176c 






















bopfailed 

§UBBLES(bubble) 






























X»» 


42c 


























botbyte 
CRT icrt) 
GCRT(crtb) 
































52d 


276c 


288c 


682c 




















*** 


99d 


























bound 






























INITLOfiO(loader) 




1220d 


1237c 


1238c 






















bounds 






























OGL VflRS(dgl vars) 
bp 

DISCHPIB(discnpib) 




lOlOd 


lOSld 


1053d 


105Sd 


1057d 


1059d 


lOSld 


1063d 


1065d 


1067d 


1172d 


1177d 1187d 


1192d 




196d 


198a 


202d 


287d 


298c 


299c 


303c 


357d 


3690 


372c 


375c 


440d 477c 


479c 






480c 


























bphydat a 

hlNITIbminit) 
































60d 


9Sd 


lOlc 






















niui 


*** 


477c 


























bpt 






























CS80(cs80dvr) 




979d 


1075c 


1076c 






















CTBBLE 




1383c 


17465 
























CTBBLE(ct r) 




288d 

sesc 


S27d 
586c 


528d 
600c 


529d 
611c 


530d 
617c 


531d 
623c 


S32d 

624c 


S33d 


534 d 


53Sd 


536d 


537d 538d 


S40d 


bptr 






























EDRIVER(edriver) 




89d 


166c 


177c 






















ETU 




841d 


955c 


956c 


1169d 


1195c 


1203c 
















niNIT(a5mrj 




1329d 


1337d 


13480 






















MINIT(xminit) 


#*# 


1386d 


























br msus type 






























CTflBLt(brstuf f) 




952d 


974d 
























brate 






























EDRIVER(edriv.;r) 




48d 


334d 


339c 






















break 






























CRT(crt) 

GCRTfcrtb) 

SVS[)EVS(5y5devs) 




lOOd 


146d 
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#** 


79d 




























9Sd 



























brec 
























eUEBl ES (bubble) 




76c 


93c 


















ECRIVERIedrjver ) 




sed 


97d 


















ETU 




1167d 


118SC 


1190c 


1191c 


1195c 


1197c 


1203c 


1211c 1215c 1216c 1219c 




bretry 

BUBEi ES (bubble) 


























79c 


98c 


















brightness sequence 
GLE KGKgle ras out ) 


























8065d 


8353c 


8362c 


8363c 


8364c 












brstoTf 
























CTBBLE 


**^ 


1186d 




















CTfiBLE(br5tuff ) 


*** 


918d 




















Srt 
























GLE KGL(gle ras out ) 
bs 

INlT(misc) 




8322d 


8352c 


8357c 


8359c 


8360c 


8361c 










»** 


163d 




















KEYS (keys) 




362c 


435c 


















baize 
























LIFDnn(iifmoOule) 




387d 


399c 


400c 


402c 


403c 


442c 










bstart 
























BUBBi-ES( bubble) 




77c 


94c 
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FflNIT(hmTnit) 


























349d 


374c 


376c 


377c 














bt coujit 
























RlNI'(hmlnit) 




34Sd 


3S6c 


375c 


379c 


380c 


381c 


389c 








bt index 
























RlNir(hmanit) 




3Sld 


375c 


376c 


389c 


391c 












bt table 
























BlNIT(hminit) 




352d 


376c 


381c 


391c 














btbs 
























CS8O(C580) 


*»* 


224d 




















btimeout 
























BUBBLES (bubble) 


««* 


41c 




















bto 
























CT«lBLE(ctr) 




328d 


677d 


681c 


682c 














bub dvr 
























BOBBIES (bubble) 


*«* 


26d 




















bub init 
























BUBBLES 


*** 


182c 




















SUBBl ES(bubble) 




34d 


134d 


















bub iS! 
























BUBB;.ES(bubble) 




32d 


124d 


166c 
















bub tm 
























BUBBLES (bubble) 




29d 


53d 


















bubble 
























BUBBiES 


»«¥ 


179d 




















BUBBLES(bubble} 


**iK 


24d 




















CTBBLE 




12S8C 


1421c 


















CTflBLE(br5tuff) 


*** 


993d 




















ClflBLE(ctr) 




2S9d 


554c 


809c 
















bubble card 
























KERNrL(9eneral_0) 


*** 


1106c 




















KERNl.L (lodecla rat ions) 


*** 


331d 




















bubble dav 
























CTflBLE 




1210d 


1422c 


1449c 


17815 














bubble default dav 
























CTflBl'E 


«** 


1449c 




















CTBBLE (options) 


«** 


122d 




















bubble mp 
























CTflBi:E(ctr) 




638d 


554c 


















bubble tm name 
























CTBBi:E(ctr) 




366d 


809c 


















bubble:, 
























BUBBLES 


... 


23d 




















bubdoi-.r 
























BUBBIES (bubble) 


«** 


131c 




















bubdorcad 
























BUBBI ES(bubble) 


... 


80c 




















bubdor.set 
























BUBBi ES(bubble) 


#** 


108c 




















bubdowr ite 
























8UBBlES(bubble) 


... 


99c 




















bubget .nfo 
























BUBBIES (bubble) 
buf 

CRT(< rt) 


*** 


163c 






















406d 


409c 


419c 


429c 


439c 


440c 


442c 


443c 444c 467c 






DGL C IN(dgl confa in) 
OGL t OUT(dgT confg out) 




120710 


12079c 


12083d 


12099c 


12100c 














11372d 


11393c 


11404d 


11424c 


11425c 












ETU" - - - 




856d 


940c 


1043c 


1053c 


1088c 


1098c 


lUOc 








GCRTicrtb) 




276d 


279c 


289c 


299c 


309c 


310c 


312c 


313c 314c 328c 






GLE ( N(3B(gie knob in) 




1804Sd 


180S4C 


















INlTlfs) 




783d 


784d 


786d 


787d 


789d 












INIT(misc) 




428d 


458c 


















INITlOflD(mini) 




392d 


426c 


428c 


432c 


441c 


44Sc 


S09c 


510c 






KEYS i keys) 




77d 


80c 


103c 


118c 


120c 


122c 


125c 


128c 






n68KSVS(ci) 




311d 


335c 


341c 


349c 


351c 


352c 


3Sec 


3630 374c 






PRINT ER(prtdvr) 




SOd 


280c 


307c 


308c 














UCSD OPin(ucsdmodule) 




571d 


584c 


604c 


606c 














UNITTO(uio) 




28d 


30d 


53d 


6Sc 


74d 


86c 










bjf em[jty 
























DC DRViintdc) 




445c 


447c 


















Dl5CHPIB(dischpib) 


««* 


479c 




















IOLIB(gereral 4) 




1272c 


1290c 


1303c 


1575c 


1577c 












KERNl L(iodeclaration5) 


... 


582d 




















SRH [iRV(5rm) 




U99c 


1268c 


1280c 


1390c 


1430c 


1458c 










buf fill 
























DC OPV(intdc) 




464c 


466c 


476c 


494c 


495c 


498c 


512c 








Dl5CHPIB(dJ5chpib) 


«** 


480c 




















IOLIfi(general 4) 




1273c 


1290c 


1302c 


1321c 


1502c 


1604c 










KERNE L(iodeclaralion5) 


*** 


583d 




















SRn_[iRV(5rm) 




1200c 


12e8c 


1279c 


1292c 


1392c 


1431c 


1459c 








buf info 
























DrSCHPIB(bkgnd) 


... 


56d 




















DISCHPIBJdischpib) 




464c 


508c 


518c 


52ec 














buf ino type 
























DC DfVTintdc) 
DlSCHPIB(bkgnd) 


... 


409d 




















... 


56d 




















I0LIB(general_4) 




1197d 


1202d 


1208d 


1214d 


1221d 


1226d 


1228d 


1230d 1231d 1233d 1235d 1237d 1240d 


1244d 






1247d 


12S7d 


1285d 


1296d 


1314d 


1328d 


1354d 


1439d 1463d 1489d 1532d lSS7d lS84d 


1612d 






1640d 


16S8d 
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... 


570d 




















SRM riRV(5rm) 




1125d 


1265d 


1272d 


128Sd 














buf btr 

OTSCLPIB(dischpibl 
























*** 


477c 




















lOLIE (general 4) 
KERNE Lliodeclarations) 




1267c 


1272c 


1273c 


1302c 


1303c 


1321c 










... 


580d 




















SRn_[iRV(srm) 




119SC 


1279c 


1280c 


1292c 


1388c 


1428c 


1456c 








buf re^!d cmd 
























nRlGC(amigodvr) 


*** 


725c 




















flnlGC (csamigo) 


*«* 


58d 




















buf 5i?e 
























DTSCLPIB(dischpib) 


... 


478c 




















lOLIE (general 4) 




1271c 


1321c 


















KERNE L(iodeclarat ions) 
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581d 




















SRM ERV(5rm) 
buf tyte 




1198c 


1292c 


1389c 


1429c 


1457c 
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56Sd 


680d 



















buf write cmd 




























flFlIGO(amigodvr) 


x«» 726c 


























flnlQ0(c5amigo) 


««« S9d 


























bufblocks 




























LIBRflRIfiN 


2834d 


2849c 


2850c 


2865c 


2866c 


















bufend 




























ASCII (asciimoddle) 


16d 
222c 


21c 
247c 


2;"c 
248c 


37c 


50c 


S9c 


70c 


72c 


74c 


8Sc 


93c 


119c 


158c 202c 


buffer 




























fl804XOVR(3804xdvrl 


126d 


128c 


isia 


154c 




















flMIGOCamiaodvr) 


431d 


625c 
























ASCII (asciimodJie) 
BUBBLESfbubble) 


7d 


14d 


186c 


187c 


194c 


203c 


223c 


225c 


2Slc 


270c 








30d 


64 d 


76c 


93c 




















CRT(crt) 
CS80(csS0dvr 1 


402d 


409c 


415c 


420c 


430c 


















988d 


1395c 
























EORIVER(edriver) 


38d 

322c 

9d 


76 d 


199c 


215c 


217c 


220c 


230c 


232c 


23Sc 


242c 


243c 


285c 


296c 308d 


EPR0nS(epronn5) 


13d 


61c 


68c 




















ETU 


419d 


427c 


564d 


572c 


578c 


S93c 


603d 


609c 












F9885(f9885dvr| 


40d 


llOd 


281c 






















GCRT(crtb) 


272d 


279c 


286c 


290c 


300c 


















INIT initunits) 


2139d 


2148d 


2152d 


2156d 


2228d 


















INITimisc) 


484d 
659c 


503c 
e64c 


506c 
675c 


516d 
677c 


521c 
684c 


525c 


626c 


535d 


600c 


605c 


629c 


631c 


646c e49c 


INI TLOflD( boot dammodule) 


54Sd 


592d 


746d 


764c 


773c 


















INITLOnD(mini) 
INITLORDIsysgiobals) 


309d 


384d 


50Sc 






















««« 69d 


























KEVSCkeys) 
LIBRfiRIflN 


72d 


80c 


94 s 


104c 


118c 


129c 
















2736d 


2770c 


2771c 


2772c 


2798c 


2800c 


2807c 


2809c 


2818c 


2821c 








M68KSYS(ci) 


306d 


341r 


383c 


731d 


738c 


740c 
















niNITfasmr) 


13280 


1329d 
























niui 


4S3d 


463c 


48Sc 


493c 


49Sc 


497c 
















PRINTER(prtdvr) 


40d 


47d 


28Cc 






















SRnflM(5rmaiimodule) 


41d 


179d 


196c 


203c 




















SVSDEVS(5y5dcv5) 


241d 


373d 


377d 


408d 


433d 


434c 


485d 


4860 


529c 


536c 


652c 


563c 


S75c 637c 


UCSD fll1(ucsd am) 


41d 


152c 


i-'ec 


186c 


214c 


















buffer busy 




























IOLIF(qenerai 4) 
buffer cleanup 


1247d 


1658d 


1662c 


1663c 














































GLE HPGL(gle hpgl out) 
buffer data 

I0Lmigeneral_4) 
buffer fudge 


7057d 


7127c 


7348c 


7374c 


74Hc 


7458c 


7477c 














1233d 


128Sd 


129Cc 


1319c 


1384c 


1410c 


1S38C 


1561c 


1623c 




































GLE RPGLTgle hpgl out) 


7010d 


7061c 
























GLE HPGLI (gle hpgl in) 


«*« 18010d 


























buffer mode 




























GLE CEN(gle qen) 
GLE HPGLIgle'hpgl out) 
GLE RGLfgle ras out) 
GLE TVPE5(gTe types) 


:..« 2222c 


























»«« 7546c 


























*«« 8421c 


























»«« 1030d 


























buffer reset 




























lOLIf (general_4) 


1230d 


1296d 


1320c 


1384c 




















buffer space ~ 




























IGLlEilgeneral 4) 


1231d 


1314d 


1321c 


1396c 


1493c 


1S41C 


1588c 


1644c 












buffered transfer 




























finiGO(amigodvr) 
DISCHPIB(bkgnd) 


681c 


686c 


687c 


722c 


7S2c 
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buffersize 




























CRT(crt) 


231d 


243c 


249c 


256c 




















buffsize 




























INIT(mi5c) 


484d 
610c 


491c 
628c 


503c 
637c 


SOSc 
6380 


516d 
640c 


521c 
683c 


525c 


526c 


535d 


588c 


590c 


596c 


599c 603c 


UCSD_flt1(ucsd_airi) 


41d 


176c 


187c 


190c 


227c 


257c 
















buflength 

flSCIIIasciimodule) 




























lOd 


21c 


22c 


265c 




















buf params 

ASCII (asciimodule) 




























18d 


49c 


8Sc 


2660 


295c 


305c 
















CS80(C580dvr) 


1095d 


1116c 


1215d 


1250c 


1268c 


1269c 


1278c 


1283c 


1295c 


1296c 


1307c 


1308c 


1318c 


ETU 


423d 


427c 


428c 


429c 


431c 


446c 


449c 


454c 


458c 


461c 


462c 


466c 


474c 475c 




476c 


478c 


482c 


60ed 


e09c 


613c 


614c 


615c 


618c 


619c 


620c 






F9885(f988Sdvr) 


82d 


178c 


213c 


231c 


282c 


















LIBRARIAN 


2736d 


2772c 


2774c 


2778c 


2781c 


2793c 


2794c 


2795c 


2813c 


2814c 


2816c 


2St7c 




LIFDHtl(Ufcnodule) 


388d 


403c 


444c 


447c 




















IIIMT(xminit) 


1386d 


1481c 


1544c 


1630c 


n24c 


17590 


1800c 














buf rec 




























ETU 


422d 
478c 


429c 
479c 


430c 


431c 


436c 


440c 


443c 


446c 


448c 


449c 


452c 


454c 


476c 477c 


bufsize 




























ASCII (asciimodule) 
BUBBLESfbubble] 


7d 


14d 


182c 


190c 


I9Sc 


202c 


219c 


222c 


226c 


239c 


245c 


248c 




30d 


54 d 


74c 


78c 


91c 


95c 


9ec 


97c 












EDRlVER(edriver) 


39d 


77d 


115c 


196c 


199c 


204c 


225c 


226c 


267c 


280c 


288c 


291c 


309d 322c 


EPROMSfeproms) 


9d 


13d 


51- 


54c 


61c 


67c 


69c 


72c 












ETU 


860d 


938c 


939c 


940c 


1043c 


1050c 


1051c 














INITfinitunits) 


2140d 


2149d 


21S3d 


2157d 


2229d 


















INIT(misc) 


S42d 


546c 


547c 


S48c 


555d 


560c 


S61c 


563c 


564c 


567c 








INITLOflD(bootdaTTmodule) 


545d 


748d 


7S7c 


764c 


773c 


















INITLOAD(sysgiobals) 
M68KSyS(ci) 


»«» 69d 


























i07d 


335c 


346c 


353c 


3S4c 


359c 


365c 


3670 


371c 


376c 


383c 






SRMAri(5rmammodule) 


42d 


180d 


195c 


203c 




















SySDEVS(sy5devs) 


373d 


377d 


408d 


433d 


434c 


48Sd 


486c 














buftype 




























ETU 


41d 


42d 
























buildchar 




























KEVSCkeys) 


53d 


503c 


548 c 


553c 




















buiidcount 




























KEYS(key5) 


54 d 


S03C 


S49c 


550c 




















burn 




























ETU 


43d 


S83c 


S96c 






















burnit 




























ETU 


S64d 


620c 


1082c 


1098c 


1104c 


lUOc 
















burst tfr 




























KERF5EL(iodeclarations) 


•«» 562d 


























bus address 




























CTBBLE 


1212d 


uesc 


1463c 






















PRINTER(prldvr) 


69d 


llSc 


221c 


275c 




















busaddr 




























niNIT(asmr) 
busy 

A804X0VR(a804Kdyr) 


1331d 


1335d 


1342d 


1346d 




















54d 


13Sc 
























BnT(bat) 


42d 


56c 
























CRT(crti 


««« 232d 


























EDRIVER(edriver) 


59d 


218c 


233c 


247c 




















UNITIO(uio) 


118d 


121c 


122c 






















button 




























DGL HPGLI (dgl hpgli) 
DGL KN0B(d9l fnob) 


18037d 18081c 


8096c 


8099c 




















18037d 18111c 


8128c 


8131c 




















DGL VfiRSldgl vars) 


«»* 1141d 


























GLE HPGLI (gle hpgl ioi 


•»« 18227d 


























LIBTd9l_lib) 
bx bufptr 


20077d 20952d 20996c 
















































ffMIGO(amigodvr) 
OISCHPIB(bkgnd) 


62Sc 


768c 


84 3c 


846c 


951c 
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DISCHPlB(bkgnd) 


626c 


748c 


74 9t 


852c 


955c 
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rcrd 
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624c 


690c 


691c 


739c 


818c 


827c 


830c 


866c 


918c 


9S0c 


9S9c 


960c 
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48d 
























b;^ tfr length 




























HnlGt (amiqodvr) 
DISC(<PIB(bk9nd) 




749c 


750c 


768c 


846c 


867c 


868c 


918c 


950c 


951c 


952c 
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Sid 
























bx tries 




























HniGCIamigodvr) 
D.ISCHPIB(6kgnd) 
byte 

B804J<DVR(a804xavr ) 




623c 


832c 


834c 


853c 


860c 


871c 


904c 


905c 
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47d 


























34d 


40d 


41d 


42d 


69d 


71d 


74 d 


80d 


91d 


138d 


142d 


146d 157d 163d 






16Sd 


18 Id 


195d 


258d 


326d 


379d 














flMIGC (amigodvr) 


*** 


508d 
























firllGt (csamigo) 




e3d 


64d 


91d 


92d 


102d 


121d 


145d 


229d 


231d 


245d 


246d 


278d 279d 


BRT(tat) 




44d 


67d 


69d 


85d 


















BUBBlES(bubble) 




139d 


140d 






















CLOCk (clock) 




41d 


42d 


43d 


44d 


















CRT(c rt) 
CS80|C580dvr) 




52d 


263d 
























984d 


993d 


1017d 




















CS80(tapebuf) 


*** 


41d 
























CTfiBlE 




1214d 


1372d 






















CTBBlErscanstuff ) 




1042d 


1054d 


1095d 


1134d 


















DISChPiBtdischpit ) 




196d 


198d 


202d 


270d 


287d 


329d 


357d 


440d 










EDRIVER(edriver) 




S4d 


62d 


63d 


64 d 


65d 


89d 














EPROrtSleproms) 




26d 


27d 






















ETU 




836d 


1157d 






















GCRTlcrtb) 


«** 


99d 
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HPHTi (hpnil) 
INIT(isr) 




18223d 


18229d 
























47d 


S7d 


71d 


96d 


133d 


leod 


229d 


282d 


302d 










40d 


41d 


42d 


47d 


48d 


49d 


52d 


62d 


63d 


64d 


80d 


81 d 82d Hid 


INITlmisc) 


»** 


207d 
























INITI OflD(bootdamir. idule) 




570d 


S71d 


S72d 


573d 


















INITI ORD(loader) 




843d 


926d 


944d 


1171d 


















INITlOSD(mini) 
INITI 0flD(sy5globdls) 


*** 


412d 


























29d 


146d 


147d 


148d 


149d 


206d 


207d 












KEYSikeys) 
LIBRfRIPN 




23Sd 


355d 


373d 




















*** 


442d 
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asmr) 




132Sd 


1328d 






















niNii 


hminit ) 
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337d 
























MI Nil 


iramigo ) 




192d 


211d 


221d 


228d 


229d 
















ttlNIl 
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946d 


1018c 






















MI Nil 


xminit ) 


*** 


1462s 
























must 


mouse) 




41d 


52d 


57d 


75d 


129d 
















PRINlERIprtdvr) 
SEGfli NTERIasm) 


*** 


69d 
























*** 


76d 
























SEGnENTERisegmeni ir) 


)KX» 


26d 
























SRH C'RV(srm) 




297d 


299d 


300d 


301d 


302d 


303d 


304d 


1403d 


1404d 








SYSCf VS(5ysdevs) 




37d 


38d 


40d 


S6a 


158d 


173d 


ISSd 


186d 


187d 


262d 


263d 


313d 338d 348d 






349d 


367d 


369d 


3710 


380d 


381d 


400d 


402d 


40Sd 


416d 


421d 


422d 428d 429d 






437d 


440d 


44 Id 


445d 


447d 
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byteO 

CLOCk (cldck) 




465d 


492c 
























44d 


96c 


149c 


155c 


















bytel 




























CLOCK (clock) 




43c 


9ec 


148c 


154c 


















byte2 




























CLOCK (clock) 




42d 


96c 


153c 




















byte3 




























CLOCk (clock) 


*** 


41d 
























byte array 




























GlF FGL(gle ras o it ) 




8098d 


8101d 






















byte ot fset 




























SRR [ RV 




1957c 


2037c 






















SRn_[.RV(srm) 




681d 


7SSd 






















byte pf-r pixel display 
GLE fGKgle ras o Jt ) 




























#** 


8074d 
























byteali-habettype 




























KEVSlkeys) 

NONUSKBDl (non us <bdl) 




236d 


247d 
























lOld 


lOSd 






















bytecount 




























INITLOfiD(bootdanw >dule) 


*** 


691d 
























SRf1fiL;( srmammodule l 




52d 


S9C 


65c 


73c 


84c 


88c 


99d 


106c 


112c 


120c 


131c 


135c 


byteexl 




























LIBRfiRIfiN 




454d 


529c 


825c 


e26c 


831c 


832c 














byteof tset 




























BMIGC (amigodvr) 
BLIBBlES(bubble) 


K(«* 


624c 


























77c 


94 c 






















CS80(C580dvr) 


*** 


139SC 
























CTB8LE(ctr) 




477c 


900c 






















EPROt:S(eproms) 
F988t (fSSSSdvr) 




46c 


S9c 


81c 


106c 


















*** 


286c 
























INlT(initunits) 


#** 


2210c 
























INITlmisc) 


*** 


267c 
























INITIOFID 


X«* 


1683c 
























INITLOHD{mini) 
INITI OflD(sysgiobals) 
n68K'YS(ci) 


*** 


514c 
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ISOd 


























738c 


740c 


813c 




















mui 

bytes 
ETU 




509c 


514c 
























605d 


6Uc 


613c 


614c 


616c 


618c 


620c 


623c 


626c 


628c 


632c 




UCSD fin(uc5d am) 




71d 


82c 


83c 


88c 


90c 


95c 


97c 


93c 










bytes wide 




























DGL SflS(dgl raste-) 




17318d 


17331c 


17339c 




















bytesi? 




























LIBRPRIPN 




417d 


418d 


648d 


67Sc 


679c 


680c 


699c 


71Sc 


883c 


907c 


1007c 


1043c 1122c 


bytesi^e 




























HEBPl (hpm) 
bytesleTT 




46d 


47d 


288c 


309c 












































LIBRPRIPN 




425d 


474c 


475c 


1249c 


1259c 


1265c 














bytespe rline 




























GLE_RGL(gle_ra5_oit ) 


*** 


8040d 
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B804XDVR(a804xdvrl 




195d 


201c 


202c 


203c 


206c 


207c 


208c 


258d 


265c 


266c 


294c 


296c 






fimGO(amigodvr 1 


X** 


916c 




























fIfllGCltcsdniigo) 


*«* 


n3d 




























RSCII (asciimodule) 




89d 


94 c 


























CONVERT (convert text) 




91d 


9Bc 


97c 


100c 


103c 


104c 


107c 


lUc 


114c 


1150 


118c 








CRT(crt) 




183d 


192c 


193c 


194c 


350d 


362c 


364c 


366c 


384 c 


386c 


387c 


389c 


390c 


404d 






457c 


4S9c 


476c 


478c 


479c 


481c 


482c 


48Sc 


S02d 


509c 


S37c 


615c 


619c 




CS80(C580) 




406d 


411c 


412c 
























DC DRVjextdc) 

DCr HPGL(dgl hpgl) 

DGL Rnsrdgl raster) 


**« 


201d 






























17029d 


170S2C 




























17S83d 


17637c 


17636c 
























ETU^ 




130d 


132c 


























GCRT(crtb) 




117d 
381c 


132d 
406c 


251d 
451c 


260c 
456c 


261c 


262c 


267c 


274d 


328c 


330c 


347c 


348c 


3S2c 


370d 


GEN(dgl_gen) 
INlT(mi5c) 




3195d 


3188c 


320CC 


3202c 


3205d 


3208c 


3210c 


3212c 
















248d 


252c 


253c 


539d 


581c 


582c 


















INITLOSD 




1738d 


17S0c 


17S1C 


1752c 






















KEYS(kevs) 
LIBRfiRIflN 




378d 


457c 


464c 


469c 


470c 


471c 




















98d 


lOlc 


103c 


1373d 


1378c 


1377c 


2012d 


209SC 


2096c 












n68KSVS(ci) 




312d 


315d 


319c 


322c 


323c 


324c 


376c 


379c 


407d 


414c 


417c 


447c 


450c 


479c 






482c 


483c 


484 c 


486c 


497c 


510c 


518c 


658d 


713c 


716c 


727c 








MINITIhminit; 


«*x 


325c 




























MIUI 




15d 


nsc 


202c 


351c 


474c 




















SVSOEVStsysdevs) 




52d 
575c 


61d 
580d 


378d 
582c 


389d 
587d 


391d 
588c 


393d 


487d 


S12d 


529c 


533c 


536c 


538c 


S63c 


673c 


UCSD_fll1[ucsd..ani) 




46d 


113d 


117c 


179c 


180c 


189c 


191c 


199c 


201c 


203c 


230c 


234c 


235c 


242c 






24Sc 


248c 


251c 


253c 


256c 




















SVS0EVS(5y5devs) 




S81d 


582c 
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~DGL_RBS(dgl_ra5ter) 




17022d 


17026d 


170270 


I7028d 


17029d 


170300 


17031d 


17032d 


17033d 


17034d 


17035d 


1703ed 


17037d 


17038d 






170380 


17040d 


17041d 
























DGL VBRS(dgl vars) 




1023d 


1029d 


























c hoolT 
































C HOOK 
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33d 




























c map 
































C_HOOK 




54 d 


I32c 


134 c 
























c map def 
































C HiJOK 




49d 


54 d 


























c table ptr 

DGL RHS(dgl raster) 


































17068d 


17109c 


























cache off 
































EDRTVER(edriver) 


xw« 


163c 




























cache on 
































EDRTVER(edriver) 


*** 


189c 




























calc intercept 
































DGI POLY(dgl poly) 




20433d 


20647c 


2064SC 
























calc rate 
































loriBJserial 3) 
calc soft text xform 




2S32d 


2552c 


2563c 






















































GLF HPGt(g)e hpgl out) 
GLE RGL(gle ras out ) 


*w.* 


7S45C 




























*«* 


8414c 




























GLE TYPESfgTe types) 
calc text xform 


*«» 


1172d 




























DGt VflRSldgl vars) 
GLE STEXTfgle stext) 


*M* 


1291d 






























40S4C 


4064c 


40760 


4088c 


4100c 




















GLE^YPES(9lc types) 


»** 


1171d 




























LIBIdgl lib) 




20317c 


20345c 


2052SC 


20716c 


20721c 


21442c 


















calc vertex info 
































DGI P0LY(3gl poly) 




20S13d 


20685c 


























calculate viewing 
































GENtdgl sen) 
LIB(dglJib) 




3021d 


3385d 


3631c 


























20313c 


20341c 


























call segment 
SESnENTER(asm) 
































*«* 


255d 




























SEGnENTER(segm<!nter) 


«»!« 


32d 




























call segment proc 
































SESMENTER (asm) 


#*# 


278d 




























SEGnENTER(5eqmenter) 


#*# 


33d 




























callit 
































SEGnENTER(asm) 




267d 


275c 


281c 


286c 






















can nonadv 
































KFYSIkeys) 

NONUSKBDl (non us kbdl) 




160c 


261c 


























*** 


146c 




























syS0EVS(sy5deVs) 
candownscroll 


x»t* 


277d 


























































CRT(crt) 

GCRt(crtb) 

SYS0EVS(6ysdevs) 


*** 


118d 




























*>:* 


51d 




























«** 


71d 




























canupscroll 
CRf?crt) 
GCRTicrtb) 
SYSDEVSCsysdevs) 
































*«« 


117d 




























*x* 


50d 




























*** 


71d 




























SRMDflM(srmdammodule) 




201d 


276c 


307c 
























capabilities 

SRnDRn(5rmdafilmodule) 


































304c 


313c 


32Cc 


486c 


542c 


615c 


loesc 


1072c 


1073c 


llOSc 


1106c 


1401c 






SRM DRV(5rm) 




284d 


31Sd 


411d 
























card 
































BUBBLES(bubble) 




S6d 


63c 


8Cc 


99c 


108c 


146d 


156c 


157c 


163c 


167c 










EDRIVER(edriver) 




96d 


134c 


13Ec 


139c 


lS3c 


207c 


















card addr 
































BUffBLES(bubble) 


»*% 


131c 




























KERNEL(general_0) 


*x* 


1206c 




























KERNEL(iodeclarations) 




496d 


SlOd 


524d 
























card id 
































BU5BLES(bubble] 




153c 


154c 


16Cc 
























DC DRV(init dc) 




631c 


632c 


633c 


635c 


e39c 


6710 


6790 


680c 


686c 












DC DRviintdc) 




275c 


276c 


277c 


293c 


391c 


392c 


















Dl5CHPIB(di5chpib) 




233c 


240c 


28Gc 


339c 


343c 


483c 


510c 
















DI DRV(inlt discint) 
DMR dry (i nil dna) 




242c 


281c 


























«!K* 


236c 




























EDRTVER(edriver) 




136c 


137c 


14Sc 


161c 






















Fgsss 


f9885dvr) 


»** 


262c 




























G ORV 


init gpio) 
init'liplb) 




257c 


293c 


























H~DRV 




258c 


259c 


304c 
























IffLIB 


serial 0) 




2240c 


2260c 


2303c 


2323c 


2369c 


2417c 


















lOLIB 


serial .3 




2S60C 


2571c 


2S72C 


2607c 


2636c 


2637c 


2703c 


2711c 


2712c 


2746c 


2765c 


2766c 


2810c 


2817c 






2845c 


2852c 


























KERNEL(9eneral 0) 




986c 


994c 


99SC 


1019c 


1039c 


1045c 


1053c 


1060c 


1078c 


1084 c 


1090c 


1105c 


1130c 


1140c 


KERNEL lodeciarations) 


#** 


S43d 




























PRINTER(prtdvr) 


*** 


224c 




























RS DRV(init rs) 




247c 


278c 


























SRR«l1(5rmamflodule) 


*** 


ISOc 




























card ptr 

BUBBLES (bubble) 


































63c 


156c 


























DC DRV(init del 


#** 


656c 




























DI"DRV(init~discint ) 


*X* 


261c 




























onff DRV(iniT dma) 




267c 


273c 


























EDRTvER(edriver) 


«** 


134c 




























F9885(f9885dvr) 


#** 


263c 




























G DRV init gpio) 
H"DRV(init hpibj 


*«* 


276c 




























#** 


284c 




























KFRNEL(general 0) 




8S7c 


876c 


8960 


91Sc 


1002c 


1020c 


1030c 


1206c 








II-?1 




KERNEL(iodec:.aration;) 


*** 


S'l4d 






















II £ 


"* 




mui 


**« 


3S0c 




























PS DPV 


[ i n i t _ r s '1 


*** 


264c 





























card tvpe 

BUEB[ES(tiubbJel 






















153c 


154c 


159c 












DC DFVtinit dc) 




636c 


687c 














0l5Ct-PIB(dischpit 


*** 


248c 
















EDeiVER(edriver ) 




135c 


136c 


137c 


149c 


ISlc 








GIIE )-PIB(9le hpib lo) 




10146c 


10210c 


10234c 


10298c 


10322c 








lOlTBlhpjb IT 




470c 


485c 


532c 


S56c 


620c 


644c 


713c 


763c 


lOLIB hpib 3) 


**# 


2120c 
















lOLIElserial 0) 




2238c 


2301c 


2367c 












lOLIE (serial 3) 




2558c 


2605c 


2683c 


2743c 


2808c 


2843c 






KERNEL(9eneral_0) 




989c 
1131c 


1014c 
1141c 


1018c 
1152c 


1038c 


1044c 


1052c 


1059c 


1066c 1079c 1085c 1091c UOlc 1106c lllSc 


KEENEL(iodeclarat ions) 


*«* 


541d 
















Pll'INlER(prtdvr) 




121c 


214c 


235c 


290c 










cardrec 




















BIUBBLES (bubble) 




13Sd 


146d 














casecocestar t 




















llBSI~Rim 




309d 


1222c 


1227c 


1234c 










casetat le 




















LIBRBRIflN 




298d 


1223c 


122SC 












cat 




















I.IFD(irl(lifmodule) 

n68>i;syS(ci) 




482d 


489c 


661d 


564c 


S80d 


607c 








791d 


818c 


821c 












UCSD Dfin(uC5dmodu le) 




530d 


646c 














cat inTo 




















S^I10firl(srmd3mmodu .e ) 


«** 


600c 
















SRn_DRV(5rm) 


«** 


386d 
















cataloq 




















INITtOfiO(sy5globa ,5) 


«** 


136d 
















LlFDfln(lifmodule) 


«** 


11S2C 
















SRHJfinisrmdamniodu .e) 




1651c 


1700c 














; UCSD 0fiM(uC5dmodu :e) 


x*» 


645c 
















catalogue organizat ;on 
SRfljRVTsrm) 






















338d 


1498c 














catarray 




















LIFDfin(lifmodule) 




76d 


580d 














SRfOflM(srmdammodu e) 
UCSD 0fit1(uc5dmodu ,e) 




459d 


460d 


502d 


603d 


565d 


666d 








46ci 


477c 


611c 


542c 










catarraypt r 




















SRIUfiM(srmdaimodu e) 




460d 


482c 


503d 


539c 


566d 


600c 






catentry 




















ETU 




353a 


867d 














INIT(misc) 


*** 


n9d 
















lIFnflrlflifmodulel 
n69ICEyS(ci) 




76d 


482d 


561d 












*** 


791d 
















niui 


*** 


375a 
















SRf1Df*^(srmdammodu e) 
UCSD Dfih(uc5dmodu e) 




38ia 


449d 


S6Sd 


989d 










*** 


46d 
















catentryindx 




















SRrt)flM(srmdammodu e) 




469d 
640c 


511d 


517c 


527c 


537c 


539c 


546 c 


557c 577d SSOc 5860 S98c 600c 630: 


catentryptr 




















SRfd^n(5rmdammodu e) 




989d 


896c 














catindx 




















SRnDfi!1(srtndammodu e) 




468d 


SlOd 


526c 


SSOc 


S53c 


57ed 


S85c 


589c 637c 


catpack 

SKrt)fi^(srmdammodU- e ) 




















*** 


588c 
















SRn DRV(5rm) 




1005d 


1547d 














catpasspack 

SRfOfli(srmdarT»nodu e) 




















««:k 


S29c 
















SRn C*V(srm) 




1013d 


15850 














cstpasSJ/ords 




















INITtOSD(5y5globS-S) 


«** 


138d 
















SRhDfln(5rmdanmodu. e) 




1652c 


1702c 














catr 




















CSSO(:s80) 


«** 


lOSd 
















cb inde< 




















ffmGO(amigodvr) 




79Sd 


844 c 


845c 


8480 


850c 








cb pt r 




















BnlGO(amigodvr) 




794d 


843c 


846c 


848c 


849c 








cblocksize 




















l(^IT(:ni5c) 


#*♦ 


189d 
















LIFDfi1(lifmodule] 




568c 


615c 














SRrCfl'lisrmdamrnodu.e) 
UCSD 3Brl(uC5dmodu,e) 




410c 


610c 
















521c 


SSOc 














cbuildl able 




















GCRT( :rtb) 




123a 


508c 














cchar 




















GCRT(.:rtb) 




117d 


352c 


381c 


3860 


392c 


401c 


403c 


406c 439c 447c 4S6c 


cclear 




















GC.RT(.:rtb) 




121d 


234c 


395c 


464c 


466c 








ccreatedate 




















INIT(ni5c) 


**x 


190d 
















LIFDfl^l(lifmodule) 




S74c 


6iec 














SRnDft'lfsrmdarrmodule ) 
UCSD 0fin(uc5dmoduJei 




411c 


435c 


608c 














522c 


551c 














ccreatetime 




















IIMIT(rnl5c) 


*«y 


191d 
















LIFDfi'l(lafmodule) 




574c 


616c 














SRHOfl1(5rmdammodu.:e) 




412c 


435c 


608c 












UCSD i)Bn(uc5dmodu.;e) 




523c 


525c 


552c 


555c 










ccruncH 




















INIT('s) 
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*** 


744d 


















219d 


234c 


235c 


236c 


237c 


238c 


239c 


240c 241c 242c 243c 244c 24Sc 2460 






247c 


248c 


249c 












cdate 




















LrFDfill(lifmodule) 




54d 


SlSc 


574c 












cdbhlghl 
GCRT(i:rtb) 






















132d 


451c 














cdbscro Ui 




















GCRT(.:rtb) 




130d 


436c 














cdbscro Ilr 




















GCRT(.:rtb) 




131d 


444c 














cdn erg kbd 




















SE'04XiTvR(a804xdvr', 


*** 


137d 
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173c 


219c 














sySDEvs(5y3devs) 


*** 


146d 
















cdn fr ^ bd 




















RfOAynvRlaSOAxdyr) 


*** 


190d 
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173c 


219c 














SVSDEVS(5y5dev5) 


«** 


146d 
















ceft 




















INIT(ni5C) 


*** 


I8ia 
















LIFDfin(lifmodule! 


*** 


610c 
















SRMDRM(5rmdarmiodu le ) 


*** 


603c 
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*** 


546c 
















centered 
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*** 
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280c 


309c 




















CLOCK(clock) 




8Ic 


120c 
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226d 
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**# 


235c 






















LIFDftnilifmodule) 
l168KSyS(ci) 




125c 


126c 


557c 


588c 
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127c 


27tc 


278c 
















MIUI 
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84c 
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37Sc 


388d 




















UCSO_Dfln(ucsdmodule) 




523c 


553c 
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rie8KSYS(ci) 




317d 


321c 


32;c 


















certify 
TfiPESKUP 




























1457d 


1508c 




















TfiPEBKUP(cs80tbdvr) 




413d 


42Sc 




















cexchange 


























GCRT(crtb) 




126d 


480c 




















cextral 
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nS8KSYS[ci) 
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504c 


571c 
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823c 
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523c 






















SRtlDfiMjsrmdanimodule) 
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405c 


611c 






















481c 


483c 


S16c 


S56c 
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INIT(ml5c) 


♦ ** 


196s 
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572c 


618c 




















SRflOFIM(srmdanriodule) 




408c 


612c 




















UCSD Dnn(uc5dmodule) 




520c 


557c 
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ETU 




56d 


248c 


25Cc 


257c 


2eOc 


270c 


276c 


280c 


281c 


335c 
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389c 


399c 


405c 


890c 


893c 


904c 


923c 


926c 


1023c 


1043c 


1052c 


cfile 


























ETU 
cget 
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*** 
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241c 






















CLOCK(clocl<) 




S3c 


103c 


inc 


















sySDEVS(sysd(:vs) 




199d 


460c 




















cgetdate 


























CLOCK(clock) 


*** 


165c 






















S\'SDEVS(Eysd5!Vs) 




198d 


464c 




















cgettime 


























CLOCK(clock) 


it** 


167c 






















SYSDEVS(5ysdev5) 
ch 
ETU 




198d 


467c 






















187d 


188c 


296d 


298c 


299c 














GLE KNOB(gle..knob_ln) 

INlT(f5l 

LIBRHRIHN 




18109d 
sold 


18118c 
802d 


18136c 
SlTd 


13152c 
819d 


18157c 


18164c 














265d 


277c 


278c 


















n68KSYS(ci) 




71d 
572d 


211d 
57Sc 


214c 
576c 


215c 


217c 


233d 


236c 


237c 


239c 


240c 


241c 301c 302c 303c 


rilNIT(qminit) 
nOREFSVStmfsi 


**« 


1058d 
























403d 


418c 


420c 


421c 


423c 


424c 


427c 


430c 


433c 


438c 


440c 443c 447c 449c 






4S3C 


456c 


461c 


463c 


467c 


469c 


471c 


475c 


477c 


478c 


482c 485c 486c 


SRMDflM(srmdartimoduIe) 




1527d 


ISSlc 


1556c 


1561c 


1568c 


1578c 


1586c 










SUVOL 




6d 


24c 


25c 


26c 
















TflPEBKUP 




966d 


968c 


1494d 


1504c 


1505c 


1507c 


1518c 


1524c 








chain 


























M68KS¥S(ci) 




72d 


lOOd 




















chairtf ile 


























ri68KSYS(ci) 




57d 


9Sc 


102c 


103c 


1038c 


1069c 












chainflag 

INITLOflD(sysglobals) 


























«»« 


208d 






















chaining 


























n68KSYS(cl) 




58d 


96c 


104c 


141c 


103SC 


1037c 


loeec 


1068c 


1071c 


1098c 


1171c 


Chan 


























F988S(f9885dVT) 




112d 


154c 


ISSc 


156c 


178c 














Chan indep cir 
CS50(C58J) 




























339d 


381d 


397c 


















CS80(C580d5r) 


*** 


897c 






















change 


























OLE HPGHgle hpgl out| 




7097d 


7102c 


''104c 


7106c 
















change state 


























GLE HPGLlgle hpgl out) 




7093d 


7125c 


7177c 


7342c 


7368c 


7408c 


7437c 


747SC 


7494 c 






changecursor 

GCRTfcrtb) 
changed 

LIFOfin(lifmodule) 

n68KSYS(ci) 




























118d 


35 Ic 


353c 


437c 


440c 


445c 


448c 


454c 


458c 


479c 


4S4c 




























389d 


417c 


424c 


432c 


439c 


4S5c 














175d 


254c 


263c 


274c 


282c 














changefname 

LIFDfln(ljfmodule) 




























1060d 


1133c 




















changeit 


























UCSD Dnn(uc5dmodule) 




437d 


640c 




















changename 

INlTLOSDlsysoilobals) 


























*** 


134d 






















LIFOFin(lifmodijle) 


*«« 


1133c 






















SRriDPM(srmdammodulel 




ie59c 


17e4c 




















UCSD DfiM(uc5dmodule) 


**« 


640c 






















changeprotectpack 
SRFlDfin(5rmdammodule) 




























492c 


1404c 




















SRn DRVtsrm) 




1021d 


1623d 




















changevolpack 


























SRM DRV(srm) 




1029d 


16S8d 




















channel is setup 


























PRINTER (prtdvT) 




71d 


212c 


229c 


248c 


281c 














channel parity error 


























CS80(C580) '" 


XK* 


133d 






















CS80(C580d5r) 
TPPEBKUP(c580tbdvr) 




654c 


ee7c 






















534c 


S47c 


762c 


779c 
















char height 

GlF SnfiRK gle smark) 


























Xt* 


5126c 






















GLE STEXT gle stext 




4041c 


4060c 


4062c 


4066c 
















GLE TYPES gle types) 


:«*« 


U22d 






















char Tust x 


























GLE STESfTjgle stext) 




4098c 


4101c 




















GLE,TYPES(9le_type5) 


*** 


1127d 






















char lust y 

GLE STE5rf (gle stext) 




4098c 


4102c 




















GLE_TYPES(gle_types) 


■*«* 


I128d 






















char rot h 


























DGt Vfli?S(dgl vans) 
LIBTdgl li6)~ 


*«* 


1075d 
























20720c 


20805c 


20809c 


2115SC 


21157c 


21438c 












char rot w 


























DGU VflfS(dgl vars) 
LIBTdgl_liB) 


:**« 


1077d 
20720c 


20804c 


2''.: 08c 


21154c 


21157c 


21437c 












char size 


























GLE GEN(gle tien) 


;««* 


2078c 






















GLE HPGL(gle hpgl out) 
GLE RGL(qle ras out) 


:*** 


7531c 






















*** 


8401c 






















GLE snflRK (gle smark) 




5131c 


5147c 




















GLE'TYPESIgle types) 


*«* 


1031d 






















char sizes 


























OLE HPGLlgle hpgl cut) 
GLE_TYPES(gle_lype5) 
char space 


*** 


7695c 






















*** 


1106s 
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GlE STexT(qle stext) 




4046c 


4074c 


1077c 


















GLElTYPESSgle.lypesl 


■*** 


1123d 




















i 



cha^ width 






















&tF : nnRK(gie sm^ -t.) 


»*» 


512SC 


















SLE ETEXT(gle 6te<t) 




4037c 


4046c 


4062c 


4065c 












GtE TVPEStgle typ^s) 


*>KH 


1121d 


















char-acter 






















CRT(crt) 




192c 


615c 
















lOLIE (aeneral 2 } 
PI?lNT£R(prtdvr) 




840d 
14Sd 


842c 
231c 


232c 














SYSDEVSJsysdevs) 


**!» 


48d 


















chardeJ 






















CRTicrt) 
CCRT ( c r t b ) 




99d 


145d 
















»** 


7ed 


















SYSDtVS(5y5dev5) 


*** 


94 d 


















ChdFDt r 

nmGCIamigodvr) 
CONV£I<T(convert 1?xt) 






















*** 


794d 




















45d 


e7c 
















CPT(t rtj 
CS8Olcs80dvr) 


*** 


406d 


















*** 


1215d 


















DC DRV(intdc) 


I*** 


498c 


















DISCHPIB bkgnd) 


X«» 


49d 


















DISCHPIB dlschpib 




196d 


198d 


202d 


263c 


287d 


3S7d 


428c 


440d 




F988S.(f988Sdvr) 




82d 


llOd 
















GCRT ( c r t b ) 


**» 


276d 


















GLE kN0B(gl5 knob in) 




18045d 


18H0d 
















INlTlisr) 




39d 


46d 


61d 


79d 












INITIOflD(bootdarm .dule) 




781d 


786c 


787c 


788c 












INITtOqDfminil 
INITI_0SD(5ysglobaLs) 


*** 


392d 




















32d 


205d 
















KEyS(key5) 


*«* 


77d 


















(168KEVS(ci) 


«x* 


311d 


















mwn (xminit) 
PRINT6R(prtdvr) 


**♦ 


1520c 




















68d 


80d 
















SRHfl^(5^marmiodule 




53d 


lOOd 
















sun DRV 


**♦ 


2104c 


















UCSD fln(uc5d am) 


*** 


44d 


















UNITTO(uio) 




28d 


30d 


53d 


74d 












char var 






















DGL t OUT(dgI con'g ojt) 




UOSld 


11069c 
















chectc 






















CTflBLE(ctr) 




374d 


657c 


670c 


671c 


672c 


679c 


680c 


681c 


690c 691c e93c 702c 703c 704c 






706c 


713c 


714c 


715c 


724c 


725c 


726c 


730c 


732c 741c 742c 743c 744c 749c 






7Slc 


764c 


765c 


766c 


767c 


783c 


784c 


78Sc 


786c e08c 815c 


ETU 




43d 


573c 
















tlOUSf (mouse) 




132d 


161c 


168c 














Ch«ck2 






















tlFDt-ndifmodulei 




739d 


753c 


760c 


780c 












check chr 






















(10RE'(S¥S(mfs) 




69d 


126c 


lS3c 


185c 


217c 


257c 


295c 


328c 


367c 


c neck OS j 






















BraGC(amigodvr) 




548d 


778c 


784d 














check 30result 






















niuT 




379d 


494c 


496c 


498c 


534c 










cficck (.rotectcode s^t array 






















SRnUfJrl(5rmdammo3u eT 




171d 


490c 


1061c 














check status 






















ttlNn (hminit) 




314d 


372c 


445c 














checkassoc 






















LIBRfiRIBN 




3308d 


3480c 


3501c 














checkcard 






















ETU 




637d 


642c 


648c 


701c 


781c 










checkcl r] 






















n68tCSVS(cl) 




315d 


349c 


368c 














checkent ry 

LIFDfln(lifmodule) 
























805d 


877c 
















checkeprom 






















ETU 




653d 


729c 


875c 


1176c 












checkftitle 






















LIFOBIllifmodule) 




220d 


670c 


969c 


1066c 


1087c 


U64c 








checkinref 






















LIBRflRIflN 




2279d 


2641c 
















checkloop 

HPHU (hphil) 
























204d 


236c 


296c 














checkloopop 
HPHU (hphil) 






















*** 


296c 


















SVSDEVS(5y5dcv5) 


*** 


306d 


















checknaTie 






















UCSD 0fln(uc5dmcdu e) 




170d 


172c 


178c 


210c 


28Sc 


303c 


430c 


446c 




checkre^ 






















INITddr) 




2438c 


2456c 
















INITLOflD(loader) 




lOSSd 


lS78d 


1623c 














SEGnENTER(a5m) 


««* 


196c 


















checkscdde 






















ETU 




646d 


659c 


759c 














checkspace 






















ETU 




487d 


494c 


S13c 


1001c 












LIFDfi-l(lifmodule) 




736d 


810c 


856c 


893c 












UCSD 3nt1(uc5dmodii e) 




190d 


228c 


233c 














checfcte^tbLif 






















LIBRAE IRN 




2241d 


2662c 


2669c 


2676c 


2682c 


2689c 


2710c 






checkvoUd 






















LIFDfi~l(lifmodule) 




307d 


393c 


501c 


563c 


592c 


670c 


968c 


1066c 


1085c 


chs 






















SRnOfi'1(srmdammodu e) 




Slid 


942c 
















ETU 


**K 


26d 


















LIBRRiilflN 


«** 


27d 


















nestcsi-s 


«*» 


1211d 


















n68K5YS(ci) 


*«=* 


30d 


















ci clr 






















CSSOlcsSO) 




390d 


394c 
















ci cmd 






















H68KS^S(ci) 




63d 


1063c 


1094c 


1100c 


1101c 


UOSc 


1107c 


1109c 


1110c 1143c 1151c 1152c 1154c 


Ci idle 






















R68KS/S(ci) 




62d 


140c 


142c 


1096c 


1173c 










c i swi t ; h 






















R68KS/S 


*** 


1214c 


















TRIE 


*** 


38c 


















cic 






















CS80( ;580) 




387d 


393c 


394c 


395c 












cindex 






















nOUSE (mouse) 




65d 


83c 


95c 


96c 


103c 


104c 








cinfo 






















INIT(nisc) 


*** 


197d 


















LIFDfi'l(lifmodule) 




S75c 


619c 
















SPMDfi'1(srmdammodu ,e ) 




41Sc 


417c 


613c 


616c 


ei8c 


620c 


621c 


62Sc 


626c 


UCSD I)fit1(ucsdmodu;e) 




526c 


558c 
















cinfoO 






















CRT(c-t) 




175d 


692c 
















cjnfol 






















CRT (c't) 


*t* 


17Sd 


















cinfo2 






















CRT(c-t) 


*** 


17Sd 


















cinfo3 






















CRT(c-t) 


**« 


175d 


















ciseoln 

I168KS'S(cl) 




409d 


413c 


482c 


4S9c 


502c 


512c 


523c 




11-24 



ck display inil 
CGL INQOgl inq) 
DGL POlV(dciT poly) 


















6043c 


6069c 












20n2c 


20132c 


20148c 


20174c 


20933c 




GENjdgl gefi) 
L18(dgl_liti) 




3040d 


3081d 












202S3C 


20382c 


2041SC 


20437c 


20453c 


20475c 20501c 20S45C 20683c 20699c 20739c 20761c 20779c 20797c 






20824c 


20859c 


21030c 








ck for graphics board 
CGL C OUT(clgl confg out) 


















11192d 


11270c 










ck locator init 
















SENIdgl gen) 
Liefdgl lit) 




3042d 


3089d 












20271c 


20860c 


20894c 


20969c 


21073c 




ck system init 
DGL INQidgJ inq) 
DGL POLY(doT poly) 


















6042c 


6068c 


6169c 










20111c 


20131c 


20147c 


20173c 


20932c 




GENTdgl ger) 
LIB(dgl_llt) 




3038d 


3073d 












20252c 


20270c 


20291c 


20326c 


20353c 


20381c 20389c 20402c 20414c 20436c 20452c 20474c 20500c 20644c 






20682c 


20698c 


20738c 


20760c 


20778c 


20796c 20823c 20858c 20893c 20968c 21029c 21072c 2109Sc 21204c 






21256c 


21305c 










ckind 
















INIT(misc) 


X»;K 


182d 












LIFDHnnifmodule) 


t** 


610c 












SRMDfin( s rmo anwodu le ) 


*** 


604c 












UC5D Dfln(ucsdmoduiei 
ci 

mNIT(C580ir) 


»»« 


S45c 














VlOd 


718c 


719c 


720c 


721c 


722c 


clastdate 
















INIT(misc) 


*** 


190d 












LIFDfin(lifmodule) 




573c 


617c 










SRHDHn(5rmaarrmodule) 




413c 


436c 


609c 








UCSD Dfin(ucsdmodule) 




524c 


5S4c 










clasttTme 
















INITImisc) 


««>K 


191d 












LIFDfid lifiriodule) 




573c 


617c 










SRMDPin srmdafnmodule) 




414c 


436c 


609c 








UCSO Oflniucsdmodule) 




525c 


555c 










cleandlr 
















LIFDflM(lifiliodule) 




3S9d 


395c 


9?2t 


983c 


1091c 


1099c 


cleanup 
















LIFDfin(lifnJodule) 




212d 


1158c 


1171c 


1174c 






TflPEBKUP 




1229d 


1274c 










UCSD Dnh(ucsdmodule) 




137d 


214c 


296c 


305c 






clear 
















CRT(crt) 




315d 


471c 


472c 


473c 






CTFIBLE 




1241d 


1253c 


1235c 


12S7C 


12S9C 


1261c 


GCRTrcrtb) 

GLE GEN(gle gen) 




224d 


342c 


343c 


344c 






**^ 


2096c 












GLE HPGL(gle hpgl out) 
GLE RGLIgle ras out) 
GLE TYPES (gTe types 


**» 


7529c 














8398c 


8480c 










**»: 


1032d 












IOLTB(hpib 2) 




1780d 


1838d 










LIBRHRIflN 




3289d 


3295c 


3335c 


3338c 


3341c 


3342c 3345c 3S20c 3528c 3574c 3582c 3587: 3591c 3593c 






3S99C 


3602c 


3608c 


3610c 






clear and escape 
















F3855(f588Sdvr) 




94 d 


132c 


188c 


202c 


209c 


22Sc 245c 


clear display 
LIBldgl lib) 


















2005Sd 


20539d 










clear hpiE 
















lOLTBfhpib 0) 




1711d 


1733d 










lOLIBihpib 2) 




1820c 


1821c 


1829c 


1874c 


1876c 




clear logs 
















MINTT(cs80ir) 




Se3d 


701d 


724c 








nlNIT(qminit) 


»**r 


1173c 












clear logs option byte 
















niNTT(qmTnit) 




897d 


1066c 


10?7c 


1173c 






clear serial 
















IOLTB(serlal_0) 




2217d 


2294d 










clear unit 
















fif1l50(amigodvr) 




490d 


582c 










CSeOfcsSOdvr) 
F988S(f9885dvr) 




999d 


1230c 


1366c 










85d 


269c 










INI TLOnD (mini) 




33Sd 


497c 










PRINTER(prtdvr) 




lOSd 


298c 










clearanychar 
KEyS(keys) 


















349d 


368c 


518c 


540c 


545c 


5S3c 


clearchars 
















GCRT(crtb) 




226d 


231c 


233c 


234c 


235c 




cleariohook 
















CTPBLE 


««* 


1436c 












HPHIL(liphil) 




369c 


370c 










INIT 


*XX 


2S44C 












INITLOHDCsysglobals) 


*** 


273d 












KERNELIgeneral 0) 
n68KSVS(cl) 


**» 


1244c 












*** 


295c 












clearline 
















CRT(crt) 

GCRTfcrtb) 

M68KSyS(ci) 


«** 


130d 












«** 


63d 














68d 


560c 


S63C 








SVSDEVsUysdevs) 


«*» 


83d 












clearlogs 
















mNIT(c580ir) 




714d 


720c 










clearscr 
















CRT(crt) 


XX* 


473c 












ETU 


*X* 


1279c 












GCRTrcrtb) 


*** 


344c 












INIT]misc) 


*** 


167d 












heSKSYSIci) 
TBPEBKUP 


«*# 


5S8C 














1293c 


1432c 


1466c 


1513c 


1S31C 




clearscreen 
















CRTfcrt) 

GCRTfcrtb) 

ri68KSYS(ci) 


*** 


129d 












**t 


62d 














67d 


183c 


S58c 


878c 


1102c 


U97c 


SYSDEVSisysdevs) 


*X* 


82d 












clearunit 
















finlGO(amigodvr) 
BueBLES(bubble) 


tX* 


S7Sc 












*** 


107c 












CRT(crti 
CS80(cs80dvr) 


**# 


416c 












*X* 


1364c 












CTfiBLE ctr) 


ItX* 


842c 












EPROMS eproms) 
F988S(f9§86dvr) 




47c 


78c 










*** 


263c 












GCRT(crtb) 


**# 


286c 












INITLOnD(miri) 
INITLOflDfsysglobals) 


*«* 


496c 












««* 


sed 












KEYSfkeysj 


««* 


84c 














667c 


963c 










niNIT(bminit) 


*** 


79c 












fllUI 


#** 


497c 












PRINTER(prtdvr) 


*X* 


297c 












SRnfiM(5rrnanmodule) 




188c 


206c 










UNITIO(uio) 


*** 


97c 












clip limits 
















GLF GENIgle gen] 


*X* 


2120c 












GLE HPGL(gle hpgl out) 
GLE RGLIgle ras out) 
GLE TYPEg(gTe,_type5;i 
clip limit s ximax 


XKcX 


7S32C 












»n* 


8400c 












*** 


1033d 
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GlF SCLIPTgle sclip) 


*** 


6018c 












GLE_TyPES(9le.2lyp.!S'l 


*x* 


1131d 













clip iimit s >^min 
&lLF_SCLIPTgle_5c 
G-LE TYPES (9le_ty 

clip limit 5 ymax 
GLE SCLIPTqle 5C 
GI.nvPES(9le^ty 

clip- limits ymin 
&LE_SCLIPTgle_sc 
GtE TYPES(9le_ty 

Clipping support 
DGi_HreL(dgl hpq 
DGL INQ(dgl_inq') 
DGLlRHSIdgl rast 
O&L VRRS(d9l_var 

cllclcar 
CtTlcrt) 
GCR1 (crtb) 
KEVsfkeys) 
SYSDEVS(sy5devs) 

clJdisplay 
CRT(crl) 
GCKtfcrtb) 
KEYS (keys) 
PRINTER (prtdvr) 
SVSEEVSfsysdevsj 

cllptit 
C»T(crt) 
GCRT(crtb) 
SYSrevsisysdevs) 

Cll5»l3ftl 

CRTicrt ) 

GCRTlcrtb) 

SYSDEVSIsysdevs) 
cllshDftr 

CRT(crt) 

6CRT (crtb) 

SYSDEVS(sysdev5) 
cloc!^ 

CtOCK 

CLOCK (clock) 
clockcats 

CLOCK(clock) 

SYSDEVS(5y5dev5) 
cSocddate 

n68kSYS(ci) 
cioc*Lcatet ime 

n68(<3YS(ci) 
clockJdnc 

CLOtK(clock) 

SYSrEVSIsysdevs) 
clockinit 

C10C< 
c Joctiotiook 

B8<MKDVR(a804>dv 

CLOCK(clock) 

SYSDEVS(5ysdeYs) 
clockiot ype 

SYS0EVS(5ysdevs) 
ciockop 

n8O«XDVR(a804>;dv 

SrSDEVS(5ysdevs) 
cloctccps 

B8O4XDVR(a804xdv 



clcckreqhook 
CLOCK(clock) 
SYSD£VS(sysdevs 

clockreqt ype 

SYSCEVS(sysdevs 

clockl ime 
n68kSYS(ci) 

closeail 
ETU 

closed share_code 
SRn_ClRV(srm) 

closed ir 
ETU 

clo&eoirectory 
ETU 

INITL0fi0(sy5glo 
LIFDflMllifmodul 
SRnDRnjsrmdammo 
UCSr_D0n(uc5dmo 

closedown 
n68KSYS(ci) 

closet 

LIFDnt1(llfmodul 

closet ile 
ETU 

INIT(mlsc) 
INnLORD(bootdai 
INITLOBD loader 
INITLOBDJsysglo 
LIFDfintlifmodul 
SRrCflM srmdammo 
UCSD^DBri(uc5dmo 

closetiles 
INlT(ldr) 
INIILOfiD(loader 
LIBRflRIRN 
SEGnENTER(asm) 

close: n 
L18R BRIAN 

closeinf ile 
ETU 

closeit 

LICSD_0fln(uc5dmo 

closeout 
LIBRBRIBN 

closepack 

SRMDBM(srmdammo 
SRM 0RV(5rm) 

closest error 
DGL •^Pr3(dgl_ra5 

closest index 
DGL_RRS(d9l_ras 

closet ype 
INIT (fs) 

clr inhibit 

DGL_HPGL(d9l_hP' 
0GL,RflS(dgl_ra5 

clr with Im 

GrE_RGr(gle_ra5 

clsize 

INIT (misc) 
LIFDPIM(lifmodul 
SRnr^nfsrmdammo 
UCSCi_Dcin(uc5dmc. 



!ip) 
3es) 


«*« 


6017c 
1130d 










IIP; 

jes J 


*** 
*** 


6020c 
1133d 










lip) 




6019c 
1132d 










1) 

^r) 
.) 


*** 
*** 


17264c 
6305c 

17595c 
1107d 












*** 
*** 


523c 

395c 

464c 

Sid 


542c 


548c 








«** 

««* 

«** 


526c 
397c 
470c 
188c 
51d 


471c 










*** 


S09c 

381c 

51d 


533c 


552c 5S6c 


560c 564c 673c 






*** 
«** 


511c 

383c 

51d 


528c 










III 


617c 

389c 

51d 


572c 










*♦* 


182d 
32d 












*** 


163d 
200d 


20Sd 


4S3d 










178d 


255c 


260c 267c 


235c 








179d 


283c 


287c 








*** 


183d 
198d 


205d 


453d 








«»« 


30d 










) 


**♦ 


393c 

S3C 

209d 

206d 


93c 
460c 

209d 


103c 117c 
610c 






-) 




**t 


239d 
199d 

239d 


206d 
393c 


456d 








*** 


177c 
208d 

20Sd 


464c 
208d 


467c 471c 


475c 609c 








177d 


256c 


271c 280c 


286c 








414d 


1131c 


1138c 1266c 








*** 


164d 
333d 


415c 








lis) 
Jle) 

aei 


*«* 


341c 

136d 

11S4C 

16S0C 

646c 

328d 

990<] 


169SC 

342c 
1130c 


358c 377c 






lodule) 

lib) 

lie) 
lie) 


*** 
#*« 
*** 

*** 
:« Ik* 


40Sc 
434c 
721c 
1391c 
13Sd 
1130c 
1658c 
641c 


1759c 










*** 
*** 


2490c 

1090d 

3007c 

214c 


1385d 
3687c 


1561c 1647c 
3703c 










29S7d 


3006c 


3031c 3079c 


3105c 3684c 3687c 3702c 








397d 


415c 








lie) 




404d 
3103d 


641c 
3637c 








lie) 
■r) 




340c 
1033d 

17084d 


927c 
1681d 

17107c 


171S8C 17160c 






■r) 




17086d 
744d 


17106c 
767d 


17161c 17164c 






,) 
■r) 




172Sld 
17555d 


17290c 
17609c 








;Llt ) 




8081d 


8228c 








lei 
le : 




185s 
670c 
407c 
51=c 


612c 
606c 
54 fc 


613c 
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cmap address 

GLf RGL(9le ras_out) 
cmap 3ef 

GLE_RGL(gle_ras_out; 
cmd 

fl804XDVR(a804xdvr) 

BST(bat) 

CLOa(ciockl 

CS80(C580) 

n68KSVS 

SYSDEVS(sysdevs) 
cmdl 

CS80(C580) 
cmdlOO 

CS80(cs80) 
cmdlOl 

CS80(C580) 
cmdlOZ 

CS80(cs80) 
cmdl03 

CS80(c:580) 
cmd 104 

CS80(C580) 
cmdlOS 

CS80(C580) 
cmdlOe 

CS80(cs80) 
cmdl07 

CS80(C580) 
cmdlOS 

CS80(cs8C) 
cmdl09 

CS80(C580) 
cmdll 

CS80(cs80) 
cmdllO 

CS80(C580) 
cmdl 11 

CS80(cs80) 
cmdll2 

CS80(C580) 
cmdl 13 

CS80(C580) 
cmdll4 

CS80(C58O) 
cmdl IS 

CS80(cs80) 
cmdl 16 

CS80(C580) 
cmdllT 

CS80(cs80) 
cmdll8 

CS80(C580| 
cmdll9 

CS80(cs80) 
cmd 12 

CS80(cs80) 
cmdl20 

CS80(cs80) 
cmdl21 

CS80(C580) 
cmdl22 

CS80(cs80) 



cmdl23 

CS80(cs80) 
cmd 124 

CSeO(C580) 
cmdl26 

CS80(C580) 
cmdl26 

CS80(C580) 
cmdl27 

CS80(cs80) 
cmdl28 

CS80(C580) 
cmdl9 

CS80(C580) 
cmd20 

C580(cs80) 
cmd21 

CS80(C580) 
cmd22 

CS80(cs80) 
cmd23 

CS80(C!8O) 
cmd25 

CS80(cs80) 
cmd26 

CS80(cs80) 
cmd27 

CS80(C580) 
cmd28 

CS80(C580) 
cmd29 

CS80(C580) 
cmd3 

CS80(cs80) 
cmd30 

cseo(c580) 

cmd31 

CS80(C580) 
cmd5 

CS80(cs80) 
cmd54 

CS80(C580) 
cmd63 

CS80(C580) 
cmd? 

CS80(C580) 
cmd75 

CS80(C580) 
cmd76 

CS80(cs80) 
cmd77 

CS80(cs80) 
cmd78 

CS80(csS0) 
cmd79 

CS80(C580) 
cmd80 

CS80(cs80) 
cmd81 

CS80(cs80) 
cmd82 

CS80(C580) 
cmd83 

CS80(cs80) 





8067d 


8343c 




















SOlSd 


8021d 




















40d 

67d 

163d 

355d 

28d 


42d 

76c 

16Sc 

401d 


138d 


139c 


146d 


147c 


169d 


171c 


181d 


197c 


t** 


40Sd 


411c 


416d 


424d 


428c 


S56d 


576d 


588c 




40d 


185d 


205d 


206d 


371d 


380d 


405d 


428d 


430c 


437d 


**^ 


240d 




















»*« 


265d 




















*»* 


265d 




















A«» 


265d 




















*** 


265d 




















*** 


266d 




















»«« 


266d 




















*** 


26ed 




















X«« 


286d 




















*** 


267d 




















««« 


267d 




















*** 


242d 




















*** 


2e7d 




















««* 


267d 




















X»« 


268d 




















*»* 


268d 




















:«»»: 


268d 




















#** 


288d 




















tmx 


269d 




















*** 


269d 




















**« 


269d 




















««« 


269d 




















*«* 


243d 




















«»« 


270d 




















«*» 


270d 




















K** 


270d 





















201c 206c 



438c 445d 



««»: 


270d 


**.* 


271d 


**# 


271d 


**M 


271d 


*** 


271d 


««# 


272d 


**X 


244d 


*X* 


245d 


XM* 


24Sd 


«»« 


245d 


*.** 


245d 


*** 


246d 


*** 


24ed 


**.* 


246d 


«»* 


247d 


.«, 


247d 


»:«« 


240d 


««« 


247d 


»:»:* 


247d 


«(** 


241d 


%** 


2S3d 


**« 


2S5d 


**« 


241d 


««« 


258d 


*** 


259d 


*X* 


259d 


*** 


259d 


*** 


259d 


*«* 


260d 


*»« 


2e0d 


#** 


260d 


... 


260d 
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onc(84 

CS8 )(cs80) 
cmdSS 

CS8)lcs80) 

cseo(c580) 

cmd87 

CS8G(C580) 
cmd»S 

CSSO(cs80) 
cmdSS 

CS8O(C580) 
cmd9 

CE8.0(C580) 
cnKj9e 

CrS83(cs80) 
cmrf9I 

CS«0(cs80) 

CSE3(C580) 
C1TX193 

CS80(C380) 

CtTKl94 

CS80(C580) 

cnid96 

CS83(C580) 
cmd96 

CS80(C580) 
cnKl97 

CS63(C580) 

CS8O(cs80) 
Crtid99 

CS83(C580) 
cmd bjffer 

RRlGO(C5amigo ) 
cmd read 1 

flg"04XD7R(a804Ka- r) 

HPH!L(hpliU) 
cmd t ype 

C580(C580) 

CS8O(C580dvr) 
niNIT(cs80ir) 

TfiPEBKUP(C580tb ) 

cradcharhook 

tWeKSYSlci) 
c«idcold_load__reaa 

CSeO(C580) 
cmdcopy_data 

CSS 5 ( c s80 ) 

TBPEBKUP(cs80tb' ) 
cmdde scribe 

CS83(C580) 
cimlinit_diagnost ir 

CSSOfcsSO] 

raMT(c580ir) 
crTtdirit_(nedia 

CS80(cs801 

mMT(c5801r) 

TBFeBKUP(C580tb ) 



261d 

26!d 

2610 

261d 

262d 

262d 

242d 

262d 

262d 

2e3d 

263d 

263d 

263d 

264d 

264d 

264d 

264d 

144d 

42d 
140c 

239d 
526d 
1097d 
578d 
831d 
43d 
195(1 

61d 

242d 

242d 
238c 



252d 
640c 

253d 

667c 

91c 



146d 
149c 

35Sd 
S42d 

579d 

859d 

44d 

221d 



175c 
167c 



389d 
S43d 



2095 
216c 



393c 
SS6d 



686c 586c 



50c 
222d 



Sic 
224d 



213c 
233c 



401d 
568d 



65c 
225d 



408d 
569d 



66c 
227d 



4 led 

S70d 



esd 

230d 



423d 
571d 



113d 
267d 



424d 
673d 



661d 
115d 



427c 
574d 



888d 

USd 



439c 
576d 



713d 
14Sd 



451c 
679c 



745d 
168d 



504d 
580c 



781d 
192d 



830d 

193d 



1064c 1100c 1174c 1175c 1176c 



cmdirtil util nem 

nlNltCcsSOir) 

CFfrdinit_ut il_rem 
CS80(C580) 
mNiT(cs86ir) 

cmdir»it_ut il_sem 
CS80(cs80) 
mN[T(cs80ir) 
TRPEBKUP(C580tb 

cmdlocate and_reai 
CS80(cs50) 
CS80(cs80dvr) 

cmdlocate and ver 
CS80(C550) "" 
TnPEBKUP(cs80tb 

cmdlocate and_wrt 
CS80(C550) 
CS80(C580dvr) 

Cfrrdno op 
CS85(cs80) 
HINn(cs86ir) 
TflP£eKUP(c580tb 

cmdprocedure 

n68<svs(ci) 

cmdprocpt r 

n68i;sys(ci) 

cmdreg 

ft804XDVR[a804)(d 
cmdrelease 

CS80(C580) 
cmdrelease denied 

CS80(C585) 
cmdrequest status 

CS80(cs85) 
cmdset address Iv 

CSSOTcsSO) 

TnPEBKUP(cs80tb 
cmdset address_3v 

CSSOTcsSO) 

mMT(cs80ir) 
cmdbet block_disp 

CSeOlcsSO) 
cmdset burst_abt 

cseoTcsso) 

cmdset burst Ibo 

CS80Tc580)~ 
cmdset lengtn 

CSSOTcsSO) 

TftPEBKUP(cs80tb 
cmdset options 

CSSOTcsSOl 
cmdset release 

cseolcsso) 

cmdset ret add mod' 
CSfOTcsSO) " 
TRPEeKUP(c580tb 

cmdset retry_time 
CS80lcs80) 

cmdset rps 
CSeOTcsSO) 

cmdset status^mas 
CSeoTcsSO) 



252d 
693c 


719c 


793c 


252d 
613c 






252d 
751c 
27Sc 


792c 




240d 
1108c 






241d 
202c 






240d 
1109c 






2S3d 
836c 
123c 


547c 
199c 


S81C 
237c 


Sid 


52d 




52d 


61d 




63d 


139c 




243d 


479c 




243d 






243d 


464c 




244d 
124c 


6S2c 
241c 


246c 


244d 
837c 






244d 






2S5d 






265d 






246d 

20Oc 


686c 
23Sc 




254d 


530c 




254d 


612c 




258d 
121c 






254d 






254(J 






25"?d 


548c 
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cmdset unit 

CSSOTcsSOT 

niNIT(c586ir) 

TflPEBKUP(C586tbr) 
cmdset unit 1 

CS80Tc580T 
cmdset unit 10 

CS80Tcs80T 
cmdset unit 11 

CSSOTcsSOT 
cmdset unit 12 

CSSOlcsSOy 
cmdset_unit 13 

CS80(cs80T 
cmdset unit 14 

CS80Tcs80T 
cmdset unit IS 

CS80Tcs80T 

TRPEBKUP(cs80tbr) 
cmdset unit 2 

CSSOTcsSOT 
cmdset unit 3 

CS80Tc580T 
cmdset unit 4 

CSSOTcsSOT 
cmdset unit 5 

CS80Tcs80T 
cmdset unit 6 

cseoTcsBoT 

cmdset unit 7 

CS80Tcs80T 

cmdset unit 8 

cseoTcssoT 

cmdset unit 9 
CS80Tcs80T 
cmdset vol 

cseoTcseJ) 

riINIT(c580ir) 

TfiPEBKUP(cs80tbr) 
cmdset vol 1 

CS80TCS8C) 
cmdset vol 2 

CS80XC58!J) 
cmdset vol 3 

CS80Tc585) 
cmdset vol 4 

CSSOTcsSJ) 
cmdset vol S 

CSSOTcsS!?) 
cmdset vol 6 

CS80Tcs8!yj 
cmdset vol 7 

CS80Tcs87) 
cmdspare_block 

CSSOrcsSO 

nlNIT(cs86ir) 
cmdunload 

CS80(cs80) 

TfiPEBKUP{c580tbr) 
cmdwrite file_mark 

CS80(cs8C) 

TflPEBKUP(cs80tbr) 
cmmd40 

CLOCK (clock) 



248d 

S8Sc 

SOc 

248d 

250d 

250d 

2Sld 

251d 

251d 

251d 
234c 

248d 

248d 

249d 

249d 

249d 

249d 

250d 

2S0d 

256d 

586c 

61c 

2S6d 

266d 

2S6d 

257d 

257d 

257d 

257d 

241d 
884c 

258d 
172c 

258d 
149c 



393c 427c 
639c 

65c 



451c 580c 
66c 



cmmd41 

CLOCK(clock) 
cmmdb? 

CLOCKCclock) 
cmmdf2 

CLOCK (clock) 
cnTndf3 

CLOCK (clock) 
cmmdf4 

CLOCK(clock) 
cmmdfS 

CLOCK(clock) 
cmmdfe 

CLOCK(clock) 
cmmdf? 

CLOCK(clock) 
cname 

ETU 

INIT(mi5C) 

LIFDfin(lifmodule) 

n68KSYS(ci) 

niui 

SRMDfin(srmdarimodulel 

UCSD Ofln(ucsdmodule) 
cnormaT 

INIT(t5) 
cnt 

DC DRV(extdc) 

DGr_C_IN(d9l confg_iri) 

DGL_C OUT(dgT conT9_out 

DGL_HPGL(d9l Fpgl) 

GLE_HPGL(gle..hpgl_out) 

GLE_HPGLI(gl<l_hpgl_in) 

GLE_HPIB(qle hpib io) 

GLE RGL(gle las out) 

LieXdgl JibJ ~ 
cntrl 

INIT(mi5C) 

KEyS(key5) 
cntrlpausekey 

KEVS(key5) 
code 

LIBRflRIflN 

SEGnENTER(asm) 

SEGnENTERisegmenter) 
code space 

SECMENTERCasm) 
codecojnt 

LIBRRRIflN 
coded addr 

HnlB0(c5amigo) 
codefid 

M6eKSVS(ci) 
codef ile 

INIT(mi5c) 

INITLOBD 

INlTLOPDIloader) 

INITLOnD(syscilobals) 

LIBRfiRIflN 

M68<SYS(ci) 
codeindex 

LIBRfiRIflN 



129d 

87d 

135s 

134d 

133d 

132d 

131d 

130d 

376c 
180d 
Sllc 
822c 
S18c 
395c 
485c 

744d 

203d 

12043d 

11158d 

17028d 

7165d 

7247c 

18096d 

181S3C 

10486d 

8377d 

21201d 

174d 
S27c 



298d 
96d 
38d 

292d 

310d 

339d 

47d 

722c 

1708c 

1141c 

48d 

2893c 

103c 

311d 



I47c 
96c 

155c 
154c 
153c 

149c 
I48c 



S19c 

404c 432c 

487c SlSc 



452c 
544c 



602c 997c 1C04C 



12049c 
11279c 
17052c 
7182c 
7246c 
18108c 
181S4C 
10493c 



12089d 12097c 

11406d 11419c 

17072d 17077c 17098c 17100c 17106c 17108c 17114c 17116c 

7183c 7184c 718Sc 7186c 7187c 7188c 7222d 7242c 



7243c 7244c 724Sc 7246c 



18109c 18110c 18111c 18112c 18113c 18114c 18134d 18148c 18149c 18150c 18151c 18152c 
18226d 18254c 18255c 182e5c 18291d 18301c 18302c 18303c 18304c 1830SC 



21217c 21218c 21253d 21264c 



1198c 1210c 1216c 
98c 



297c 304c 306c 

480c 485c 1297c 

347c 361c 352c 

631c 642c 1025c 
723c 



3082c 3148c 
eesc 996c 



481c 4e4c i297c 



387c 400c 
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coc^o* f 






















S£GflENTER(asm) 




141d 


148c 
















cod«tvpe 

SientRn(5rmdajmiodjle i 

GOI 

riO««E (mouse) 


*** 


71d 




















S4d 


115c 


118c 














color data def 






















SLE RGL(gle ras jut ) 




8314d 


8315d 
















color'data ptr 






















GXE~RGL(gle ras 3ut ) 




8323d 


8328c 


8333c 


8334c 


8335c 










color data pt r de^ 






















ELE RGLtgle ras lut 1 




8315d 


8323d 
















color list 






















DGL' ftnSfdql rastsr) 




17203d 


17215c 


17216c 


17217c 


17218c 


17250d 


17268c 


17269c 


17270c 172eic 


GLE^RGL[gle_ra5_3ut ) 




8247d 


8279c 
















color map 

Cfl.E3RGL(gle_ras Jut J 
























8318d 


8343c 


8346c 














coloff'niap def 






















SLE RGLlgle ras jut ) 




8312d 


8313d 


8319d 














color map pt r 

GLE KGLTgle ras Jut ) 
























8313d 


8318d 
















color Tiap support 
O&L P0[7(dql poly) 
DGl' RHS(dg: rast-r) 
























20068c 


20070c 


















17211c 


17228c 


17597c 














GLE HPGL(qle hpgl out) 
GLE RGLlgle ras jut ) 
GLE"IYPES(9le types) 


*** 


7700c 


















»** 


8341c 


















1KX« 


109Sd 


















color table def 






















OGL VflRS(5gl vars) 




1029d 


1030d 


13420 














color table de7 space 






















OGL RBSfdgl rast-r) 
OGC VflRSfdgT^vars) 


X** 


17623c 
1342d 


















color table ptr 






















DGL INQ(dgl inqi 
DGL POLY(dqT poly) 
DGL RflSfdgl raster) 
OGL VflRS(dgT_vars) 


*»* 


6048c 


















**« 


20074c 




















17177c 


17191c 


17221c 


17271c 


17623c 










*»* 


1118d 


















color table ptr def 






















OGL RfiSfdgl raster) 
DGL VfiRSldgl vars) 


*** 


17109c 
1030d 


lllSd 
















color table size 






















DGL HPGL (agi hpql) 
OGL INQ(dgl Tnql 


«»* 


17277c 




















6046c 


6047c 


6420c 


6430c 












DGL POLy(dgI poly) 
OGL RflSfdgl rastjr) 
DGL VflRSIdgl var i) 
lIBldglJiB)" 
colorjnfo 


«** 


20118c 


















«»* 


17622c 


















»»* 


1087d 




















20418c 


20459c 


21454c 


































CRI(crt) 




175d 


692c 
















column 






















CRT(crt) 




182d 


190c 


192c 


194c 


196c 


197c 


198c 






cofTwia 






















LIBKflRIflN 




464d 


502c 


607c 


665c 


669c 


675c 


879c 


639c 


692c S98c 703: 722c 852c 856c 






915c 


g36c 


936c 


940c 


945c 


954c 


977c 


982c 


994c 1016c 1037c 1068c 1090c 1098c 






1108c 


1113c 


1115c 


1126c 


1128c 


1130c 


1134c 


1136c 




cofmiard 






















ftrtIG0(C5amigo) 




144d 


240d 


265c 














CSSCfcsSOdvr) 




1097d 


1108c 


1109c 


lUOc 












F9«8S]f9885dvr) 

GLE Hf>IBlgle hpia io) 

HPH7L(hphil) 

INIT(.ORD(bootdaminodule) 
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lOSd 




















lOlOSd 
Sid 


10114c 
322c 


















780d 


786c 


787c 
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394d 


433d 


438c 














M68l!SVS(ciT 




969d 


1187c 
















codinar.d sec 






















CSSCfcsSO) 

mNJTtcsSOir) 

TBPeaKiJP(C580tbrl 




276d 


412c 


429c 


516c 


532c 


550c 


S89c 








616c 


643c 


670c 


695c 


722c 


754c 


800c 


341c 


866c 




67c 


94c 


127c 


ISOc 


173c 


203c 


249c 


278c 
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HnltoTcsamigo) 




260d 


265c 
















command table type 
SnlGOTcsamigo) 
























248d 


260d 
















command type 






















HmGOTamigodvr) 
ftni&0(c5amigo) 
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714d 




















46d 


144d 


240d 


248d 












commardchar 






















LlBRfiRIHN 




52d 


278c 


1452c 


14S3C 


1454c 


33S6c 


3357c 


3407c 


3408c 3S06C 3621c 3622c 36950 


cocrmardinproqress 

GLE KNOB(qle knoli in) 
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18114d 


















KEYS (keys) 

commandlevel 




7Sd 


108c 


116c 


































ETU 




32d 


1282c 
















TBPtBKUP 




U91d 


1S38C 
















compileandedit 
(168KSVS(cl) 
























lOOSd 


1022c 


1113c 














compiler 

F168KSYS(ci) 
























39d 


718c 


1010c 














complement mode 






















DGL VfiRSTdgl van) 
LIBfdgl lib) 


^X* 


1204d 
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20992c 


















complement support 






















GLE HPGLTgle hpgl out) 
GLE TVPESlgle ty.iest 


**« 


7697c 


















*** 


1092d 


















LIB7dgl_lib) 




20461c 


21283c 
















compliment 






















GLE_RGL(gle_ra5_out ) 


**# 


8080d 


















compressgvr ^ 

LIBRflRInN 
























1633d 


1910c 


1950c 


2312c 












computer id 

SRH_0RV(5rm) 






















*** 


140Sd 


















cond 






















LIBRflRIflN 




431d 


1034c 


103SC 


1042c 


1054 c 


1055c 


losec 






cortdcode 






















LIBRP1RIHN 




S59d 


103Sc 


1042c 


1056c 












condccdetype 
LIBRflRIRN 
























SSld 


S69d 
















configure 

CS80(C580dsr) 
























606d 


761c 


771d 














CS80(C530dvr) 


*** 


1006c 


















HPHIL(hphil) 
TfiPEaKUP(C580tbdvr) 




222d 


279c 


2S7c 


317c 


372c 


379c 










389c 


651c 


884c 














configure gle 

DGL C OlJT(dgl coiifg out) 
DGL <f50B(dgl Enol'J 
























11007d 


llS02d 
















*** 


18077c 


















LIBTdgl^lib) 




21221c 


21270c 
















configure input gle 






















DGL ; iFIIdgl con'g in) 




I2007d 


12131d 
















LIBTdgi lib)" ~ • 


*** 


21322c 


















configureop 
HPHlL(hphil) 






















*** 


297c 


















MOUSE (mouse) 


*»* 


195c 


















SVSDEVS(5ysdevs) 


**■* 


306d 


















confirm preeoi 
niNITTliminit) 
























306d 


473c 
















confirm timeout and reset 


card 
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DISCHPlB(discFpilT 




219d 


266c 


307c 


325c 


379c 


40Sc 


431c 


491c 


constpassarrav 

SRnD'^n ( s rmdammod. le 1 
























5?d 
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consts 

LIBRfiRIfiN 
conT 

LIBRflRIRN 
cont linestyles 

GLF HPGL(gle hpgl out) 

GLE_TYPEStg:Le_typ?s) 
contiguou5_Tir5t_e)cterit 

SRn_DRV(srm) 
control 

OGL_C OUT(ti<ll confg_out) 

DGL„HPGL(dql_Fpgl) 

DGL RPStdgl raster) 

EDRTVER edrlver) 

ETU 

KEYS(keys) 

LIB(dga lib) 

NONUSKB01 (non_us_kt>c(l) 

SVSDEVSrsysdevs) 
control bfd 

DCJRV(extdc) 

OC_DRV(intdc;) 
control cutter 

DGl_HPGL(dgl_hpgl) 
control def 

DGL_HPGL(d9i hpgl) 

DGL_RnS(dgl.7aster) 
cont rol_5pace 

DGL_C OUT(dC|l_confg out) 

DGL RffSfdgl raster) 

GLE_TYPEsfgTe_type5) 
controller fault 

CS80(cs8!y) 

CS80(cs80d5r) 

TnPEBKUP(cs80tbdvr) 
cont rollercopy 

TRPEBKUP(cs80tbdvr) 
convert dtow 

DGL_HPGLI(dgl hpgli) 

DGL KNOB (d9l_l( nob) 

GENTdgl_gen) 
convert hsl to rgb 

DGL RHS(dgl Taster) 

GENTdgl_geny 
convert intwtod 

DGL P5LY(d9l poly) 

GENTdgl_gen)" 
convert Itod 

DGL hPGLI (dgl hpgli) 

DGL KNOB(dgl Fnob) 

GENTd9l_gen)" 
convert rgb to hsl 

DGL_lNQ(d9l_Tnq) 

DGL RfiSldgl raster) 

GENTdgl_genT 
convert text 

CONVEifT(convert_text) 
convert wtod 

DGL P!JLY(dgl poly) 

GENTdgl_gen)" 

LIS(dgl_lib) 
convert wtodmm 

LIB(dgl_lib) 



298d 

751d 



7623c 
n03d 



1145c 11S4C 1242c 1461c 
765c 771c 
7630c 7639c 7655c 7674c 



499d 1767c 



convert wtolmm 

LIB(dgl_lib) 
cookkbd 

HPHIL(hphll) 
copy attempt completed 

TSPEBKUP " 
copy 5t art_addre55 

TRPE8KUP(c580tbdvr) 

TflPEBKUP(C580tbr) 
copybuf fer 

LIBRfiRIfiN 
copydat a 

TflPEBKUP(C580tbr) 
copyf ile 

LIBRfiRIfiN 
copymodule 

[iBRflRIflN 
copyon 

LIBRfiRIfiN 
copypack 

SR(1Dfiri(5rmdaitimodule) 

SRn DRVtsrm) 
copyrTqht 

ClBRfiRIfiN 
copyrightl 

ntui 

copyright2 

nlui 
copytext 

LIBRfiRinN 
copytimeout 

SRM_DRV(5rm) 
corrupt share_code 

SRhufififsrmdafnmDdule] 

SRn_DRV(5rm) 
cos angle 

0!;L_POLy( dgl. poly) 
cosx table 

GLF_STEXT(gl.;_stext) 

GLE_TYPES(gle_types) 
cosy table 

GLF STEXTIglc! stext) 

GLE_TYPES(gle_types) 
count 

fi804XDVR(a804xdvr) 

fiSCII (asciimodule) 

DC DRV(intdc) 

GLF HPGLfgle hogl out) 

GLElHPGLI(gli!_iP9T_in) 

GLE_RGL(gle_-ai out) 

OLE UTLS(gle utis) 

IOLTB (general 2) 

SRM DRVfsrm) 

SYSClEVsUysdevs) 

UCSD_fiM(ucsd_em) 
countcode 

INIT(ldr) 

INITLOnD(loader) 

SEGnENTER (asm) 
counter 

EPROMSteproms) 

GLE HPIB(gle lipib_io) 

ioLTB(hpib rr 



llieOd 

17006d 

17006d 

67d 

SSd 

214c 

20023d 

54c 

266d 

209d 
267c 



17245a 
17549d 

11091c 

17389c 
1278d 

151d 
668c 
548c 



18030c 

18145c 

303Sd 

17210c 
3043d 

20976c 
3026d 

18029c 

18142c 

3032d 

6056c 

1710SC 

3049d 



20973c 

3029d 

20874c 



247c 2S5c 2S9c 
478c 47gc 485c 507c 



11275c 11318c 11330c 11354c 11409d 11416c 11447c 11487c 

17220d 17269c 

17544d 176C8C 

176c 210c 211c 2 

78d 219d 362d 

219c 430c 444c 4 

20026d 21195d 21213c 21246d 21268c 



382c 
17126c 



172S7d 
17580d 



lUOlc 11109c 11123c 11133c 112S6c 



780c 

907c 

18102c 

3328d 



17267c 
3166d 



3274d 
18080c 18101c 
3313d 



17111c 
3190d 



20978c 
3302d 3377c 3420c 3421c 



20091d 20246d 



20092d 

eod 

1224d 

937c 
28d 

2833d 

225d 

3026d 

2829d 

2951d 

1426c 
1035d 

42d 

47d 

48d 

2125d 

996d 

626c 
166d 

20381d 20901c 20903c 



4038c 

need 

4043c 
1167d 

126d 

177d 

313d 

7066d 

18039d 

8066d 

21O08d 

821d 

1299d 

217d 

45d 

2466c 

1087d 

203c 

40d 

lOOlSd 

423d 



1352c 1353c 1364c 1366c 

256d 295c 
2850c 2867c 2868c 2873c 

238c 
36230 

3030c 3059c 3069c 3375c 3391c 3429c 
3628c 

1702d 

19640 2977c 3210c 3580c 

92c 

93c 
2994c 
1224c 124gc 1420c 



128c 267c 269c 

202c 203c 204c 

316c 317c 331d 

7074c 7076c 7083d 

18047c 18049c 1805ed 18061c 18062c 



21069d 21101c 
1070d 1081c 
1307c 1409d 1439c 
478c 
152c 214c 257c 



274c 


276c 


296c 


298c 


302c 


213d 


222c 


223c 


224c 


234d 


334c 


335c 








7088c 


7089c 









2S1C 252c 



1440c 1449c 1450c 1452c 14S4c 1460c 



1368d 1629c 



S7c sec 

10249c 10337c 
S71C 659c 
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coijm F 

nOUiB (mou5e ) 

SySCEVS(5y5dev5 
cp 

IM7L0nD(loader 

LlBiflRIflN 
cpen 

!;LE_RGL(gle_ras 
cpsize 

INn(misc) 

LIFDfiMllifmodule 

n68>:SYS(ci) 

fllUI 

SRflC AM { s rmd ammo d 

UCSC_DHn(ucsdmod 
Cptr 

EDRIVER(edriveri 

EPRDf1S(eprom5) 
cpvol 

ETU 

Cpx 

DGt VfiRS(dgl var 

GLE SrifiRI<(gle_sm 

LIBTdgLllb) 
cpy 

0&l_VflRS(dgl_var 

GLE SnnRKfgle sm 

LIBTdgi_llB) 
cpymsQ 

IMlTLOnO 

IMnL£lfiO(loade 
cr 

INncmisc) 

KEVS(keys) 
create_new 

UCSC_Dfln(uc5dmod 
create temp unitab 

CTflECE 

CTHBLEIctr) 
createdef 5 

INnLOHO(loader 
creaitef lie 

IMn(mi5C) 

lNITL0fi0(5y5glob 

LIFDnn(llfmodule 

SRfCflMisrmdammod 

UCSD Dfin(ucsdmod 
createlinkpack 

SRnD9n[srmdammod 

SRtI DRV 

SRrt;0RV(5rm) 
createpack 

SRrDanisrmdacmod 

SRri_ORV(srml 
createsysname 

INinCfID 
creation date 

SRrCRMXsrmdammod 

SRf1_0RV(5rml 
cross unit 

CS8i5tcs30) 

TRPE3KUP(C580tbo 
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crt 
CRT 
CRT(-rt 

GLE RGLigle ras 

GLElTYPE: ~ 
crt con fig 

C HOOK 

DEL_rOOLS(dgl_to 
crt reg 

c ho3k 

D5L_T00LS(dgl_tO' 
crt reg def 

C HOqI^ 

DiJL_rOOLS(d9l_tO' 
crt tmname 

CTfiBLE(ctr) 
crt wtb 

KERNEL (generai_0 
crtb 

GCRT 

GCRT(crtb) 
crtcmdy/rd 

CRTfcrt) 

GCRT(crtb) 
crtcolumn 

niui 

TBPE3KUP 
crlconvnand 

CRKcrt) 
crtcon 

CRT(.:rt) 

GCRT(crtb) 

SVSOI-:vS(5ysdev5) 
crtconfigreg 

CRTrcrt] 

rNITi.OfiDfsysglob 
crtconst type 

CRTIirt) 

GCRT(crtb) 

SYSDEVS(5y5dev5) 
crtcont roladdr 

CRTf':rt) 

GCRT(crtb) 

SYSDtVSCsysdevs) 
crtcre : 

CRT( :rt) 

GCRT(crtb) 

SYSDi;vs(5ysdev5) 
crtctr 1 

CRT( :rt) 

GCRT (crtb) 

SYSDl:VS{5y5devs) 
crtdebjg 

CRT( :rt) 

GCRT (crib) 
crtf re : 

CRT(.;rt) 

GCRT (crtb) 

SYSDl-:vS(5ysdevs) 
crtidr^;g 

CRT(.;rt) 
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159c 
320d 


160c 
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916d 
1397c 
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... 


80S3d 


















jlel 
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*** 

*** 


183s 
508c 
824c 
521c 
406c 
488c 


509c 

605c 
490c 


513c 
517c 


521c 
547c 


569c 
648c 


570c 


611c 


613c 








91d 
36d 


199c 
61c 


216c 
68c 


217c 


220c 


230c 


232c 


235c 








62d 


230c 


234c 


243c 


247c 


254c 


361c 


3e2c 363c 893c 


896c 897c 


i) 
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«** 


1251d 

5096d 

20220d 


5121c 
20228c 


5136c 
20240c 


51S8C 
20570c 


5172c 
2057ec 


20600c 


20606c 


21176c 21426c 




i) 
nirk) 


*** 
*** 

*** 


1250d 

5097d 

20221d 

1792c 
1619c 

188d 
447c 


S122C 
20229c 

524c 


5137c 
20241c 


5159c 
20571c 


5173c 
20677c 


20601c 


20607c 


21177c 21427c 
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le 


*** 


182d 

1492c 
302d 

1419d 


635c 

821d 
1560c 
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lie) 

.lie) 


XX* 
XX* 

XX* 

XXX 


450c 

13Sd 

1128c 

165SC 

635c 


1732c 
















He) 


XX* 


1202c 
1780d 
lOSSd 


1235c 


1391c 














lie) 




1007c 
1041d 

1734d 


1086c 
1728d 

1785c 


1123c 


1129c 


1134c 


1146c 


1420c 






:ile) 

T) 




435c 
282d 

149d 
775c 


608c 
738d 

294d 
867c 


1465c 














uut) 

l-es) 


xx* 
*x* 

*** 

XXX 


731d 

32d 

8390c 

1272d 


















uls) 




39d 
20017d 


143c 
20034c 
















.■Is) 




53d 
20029d 


144c 
20046c 
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XX* 
XX* 


43d 
20021d 

3S8d 

795d 

530d 
32d 

Sid 
98d 


53d 
20029d 

64Sc 

1234c 

270d 
197d 


280d 


664 d 
















224d 
lUld 


246c 

1133c 


248c 
n35c 


253c 
1140c 


255c 
1142c 


260c 

1147c 


261c 
1148c 


269c 

1156c 








263d 


275c 


276c 


287c 


288c 


681c 


682c 








XX* 
XX* 


93d 
72d 
92d 


139d 
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xx* 

XX* 
XX* 

*** 
*** 

XXX 
XXX 

*xx 
*** 

XXX 
XXX 


687c 
284d 

94d 
72d 
66d 

89d 
68d 
89d 

120d 
53d 
76d 

120d 
S3d 
107d 

544d 
413d 

llOd 
43d 
68d 

173d 


139d 
92d 
135d 

107d 

704c 
514c 

105d 
688c 


676c 

692c 
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cr tinfo 

CRT(crt) 

GCRT(crtb) 

n68KSVS(ci) 

niNIT(miilnit) 

SYSDEVS(sy5d2V5) 
crtirithook 

CRT(crt) 

GCRT(crtb) 

SYSDEVS(5ysdev5) 
crt 10 

CRT(crt) 

GCRT(crtb) 

INIT initunlts) 

KEYS keys) 

SYSDEVS(sysdevs) 
crtiohook 

CRTfcrt) 

GCRT(crtb) 

SySDEVS(5y5d(;vs) 
c r tirec 

CRT(crt) 

GCRT(crtb) 

SYSOEVSfsysdevs) 
crtkinds 

SYSDEVS(5y5d!;v5) 
crtline 

niui 

TfiPEBKUP 
crtjlhook 

CRT(crt) 

DGL C_OUT(dg:._confg out) 

GCRT(crtb) 

KEYS keys) 

PRINTER(prtdvr) 

SYSDEVSisysdevs) 
crtllops 

CRTicrt) 

GCRT rcrtb) 

SYSDEVSCsysdevs) 
cr til type 

DGL C OUT(dgl confg out) 

SYSUE7s(sy5de«) 
crtmemaddr 

CRT(crt) 

GCRT(crtb) 

niNITImminlt) 

SYSDEVS(5y5dev5) 
crtpt r 

nlNIT(iiiminit) 
crtregt ype 

CRTfcrt) 

GGRTlcrtb) 
crtscreen 

CRT(crt) 
crttype 

CRTfcrt) 

GCRTfcrtb) 

SYSDEVS(5ysdev5) 
crtword 

CRTfcrt) 

GCRTfcrtb) 

SYSDEVS(sy5dev5) 



132d 
65d 
462c 
158c 
108d 


185c 
S02c 
493c 


666c 
S05c 


720c 
1089c 


70Sc 
517c 
125d 


627c 






428c 

298c 

2147d 

94 s 

376d 


442c 

312c 

2244c 

484d 


443 c 

3i:)c 

2250c 




702c 
516c 
119d 


486c 


62ec 




86d 
66d 
87d 


132d 
108d 






113d 


130d 










crunch 

INITL0nD(5ysglobals) 

LIFDflri(lifmodule) 

SRnOFinisrmdammodule) 

UCSD^Dfin(uc5dmodulei 
crunchTt 

UCSD_Dfih(ucsdmodule) 
crunchv 

LIFDfitl(lifmodule) 
C580 

CS80(C580) 

CS80(cs80d5r) 

CS80(cs80dvr) 

CTflBLE 

CTfiBLE(br5tuff ) 

CTflBLE(ctr) 

CTflBLE(scaf>5tuf"f) 

MINITfcsSOir) 

niNIT(qmlnit 

TflPEBKUPfcsSOtbdvr) 

TftPESKUP(cs80tbrl 
cs80 devid 

CS?0(C580dvr) 
cs80 devtype 

CSFOfcsSOdvr) 
cs80 hardvols 

CS50(cs80dvr) 
C580 mp 

CSfO(cs30dvr) 
csSO tm nafne 

CTfTBLEfct r| 
csSOdav 

CTRBLE(5C3n5tuff) 
csSOdisc pp 

CTflBLETctr) 

CTfiBLE(op1lon5) 
C580d5r 

CS80fcs80dsr) 

C380]c580dvr 

niNIT (qminit 

TBPEBKlJP(C580tbdvr) 
csaOdt 

CTflBLE 

CTflBLE(scanstijff) 
C530dYr 

CS80(cs80dvr) 
csSOhardvols 

CTflBLE(5canstuff) 
csSOid 

CTflBLE(5canstuff ) 
csSOlnlt 

CS80 
csSOio 

CS80(C580dvr) 
csSOir 

t1INIT(c580ir) 

niNIT(qminit) 
csSOmp 

CTn§LE 

CTflBLEIscanstijf) 
csSOt ape msus 

CTfiBLE 



224 d 

Ulld 

703c 
11068c 
SlSc 
464c 
188c 
126d 

502d 

370d 

51d 

11023d 
52d 

88d 

e7d 

159c 

89d 

149d 

50d 
97d 



119d 

S2d 

106d 

57d 
93d 
47d 



246c 248c 256c 

1133c nSEc U42c 

lUSSc 11186c 

470c 471c 

528c 533c S42c 



378d 487d 



548c 652c 556c 560c 564c S72c 573c 582c 629c 



126d 

134d 668c 



lS9c 
263d 



136d 
1151c 
1794c 

647c 

S67d 

384d 

63d 
S98d 
972d 

1408c 
993d 
25Sd 

1137c 
616d 
878d 
305d 
14d 

994d 

993d 

995d 
996d 
3e5d 



647c 
1151c 



1564c 
1009c 
S72c 



1021c 
1020c 
1022c 
1023c 
768c 



1041d 1133d 

672c 
186d 

595d 
972d 
878d 
30Sd 

1214d 1372d 
1042d 10S4d 



1216d 
1043d 



12l5d 
1042d 



1374d 
1056d 



1373d 
1055d 



1595c 
763c 



1062 

1059' 
1067. 
1071 

787c 
1137 



1380c 
1134d 



1380t 
113Sd 



1380c 
U34C1 



1599c 
787c 



1381c 
1138c 



1383c 
1138c 



1568c 
1138c 



1S68C 
1141c 



1568c 
1143c 



1576c 
1142c 



1579c 
17465 



17625 17635 
17565 



30d 
987d 



513d 
87ed 



1375d 
1043d 


1380c 
1057d 


1383c 
113SC 


1138c 


1144c 


1206d 


13S2C 


1444c 


1594c 


1598c 



11-33 



csBOtb'ivr 

TfiPEHKUP 

™PEBKUP(cs80tbd 
CS80!t3' 

TfiPEBKUP 

T«PEBKUP(cs80tbd' 

lRPEliKUP(C580tbr 

csa 

Tf<PEBKUP(cs80tbr 

csa bytes 
THPEBKUP 
7fiPEBKUP(cs80tbd 
TBPEI!KUP(cs80tbr 

c 5 ami go 

HfllGOramigodvr) 
«f1IGO(c5amigo) 
nlNI r(hminit) 
mNlr(iramigo) 

cscrol Idown 
GCI?T(crtb) 

cscrol lup 
GCRT(crtb) 

cscrol Iwinddn 
GCRT(crtb) 

cscrol [window 
GCRT(crtb) 

cset 

CLOCK(clock) 
SYSOeVS(sysdevs) 

cset date 

CLOCK(clock) 
SYSDEVS(5ysdevs) 

cset time 

CLOCK(clcck) 
SYSDEVS(5y5dev5) 

cshift left 
GCRT (crtb) 

CShift right 

GCRT(crtb) 
cstart 

lNn(mi5c) 

LIFDlin(lifmodule 

SRnDHnisrmdammod 

UCSD_DfiM(uc5dmod 
csvp 

nlNir(hminit) 
ct 

CS80ICS80) 

mNir(qminit) 
ct type 

CS80(C580) 
cTable 

CTOBlE 
ct arec 

UCSD_DRn(ucsdmodi 



le) 
ule) 



ie) 



cteol 

CRT(.:rt) 
ETU 

GCRTIcrtb) 
INIT (misc) 
LIBRHRIHN 



n68KSYS(ci) 

THPEBKUP 
cteos 

CRT(.;rt) 

ETU 

GCRT (crtb) 

INIT (misc) 

LIBRilRIflN 
ctet 

ftnlGO(csamigo) 

ctp 

UCSD_DHn(uc5dmodile) 
ctr 

CTflBLE 

CTfiBl.Efbrstuff) 

CTnBLE(ctr) 

CTnBLE(5canstuTf : 
ct rlre 9 

HPHlL(hphil) 
cts line 

I0L18(5erial 0) 

KERNEL (iodecTarai ions) 
ctsec 

CLOCK (clock) 
cumdat a 

MOUSE (mouse) 
cupdatecursor 

GCRT(crtb) 
cur disp lim 

DCL KNilB(dgl_knot) 

OGL~VflRS(dgl_varr) 

GENTdgl_gen) 

LIB(d9l_lib) 
cur vir iTm 

DBL_inQ(dgl inq) 
DGL VflRS(dgT_var5) 
GENTiglien] 



LIB(dgl_l 
current 

GLE_FILE(gle_file_io) 
GLE_HPGL (gle_hpg:_out ) 



GLE_HPGLI(gle_hpcl_in) 



GLE_HPIB(gle_hpit_io) 
current buffer_mod* 

GLE_HPGLfgle_hpg;_out) 
GLE^rypES(gle_ty(esl 
current color_inde> 

GLE HPGL{gle hpo; out ) 
GLE_'VPES(gle_l,;e! ) 



9S3d 
302d 




953d 

30Sd 

Ud 




264d 


274c 


338d 
28d 


937c 
255d 


42Sd 

34 d 

248d 

187d 




120d 


247c 


119d 


242c 


129d 


433c 


128d 


431c 


93c 
1990 




168c 
198d 


471c 


169c 
198d 


475c 


124d 


385c 


125d 


391c 


1875 
S67c 
409c 
519c 


570c 
607c 
549c 


413d 


429c 


97d 
973c 


1063c 


78d 


97d 


36d 




4Sd 


48d 



275c 276c 



614c 

4S5c 4S6c 458c 460c 
1074c 1162c 





472c 






























105c 


112c 


125c 


132c 


200c 


230c 


244c 


297c 


300c 


560c 


720c 


732c 


733c 


901c 




933c 


1006c 


1040c 


1061c 


loeec 


1067c 


1123c 


llSlc 














* 


343c 
164d 


371c 


416c 


























93c 


100c 


102c 


2094c 


2098c 


2099c 


2928c 


3080c 


3132c 


3180c 


3196c 


3202c 


3208c 


3209c 




3216c 


3234c 


3250c 


3291c 


3337c 


3339c 


3340c 


3348c 


3353c 


3354c 


3362c 


3374c 


3392c 


3428c 




3446c 


34e4c 


3537c 


3545c 


3561c 


3562c 


3569c 


3570c 


3571c 


3579c 


3590c 


3605c 


3675c 






580c 


664c 


667c 


e74c 


683c 


689c 


711c 


712c 


714c 














1066c 


1S03C 


























* 


471c 
758c 


772c 


788c 


874c 


1030c 


1175c 


1208c 
















^ 


342c 




























* 


166d 
1443c 


1451c 


3331c 


























242d 


248d 


251d 


252d 


263d 


254d 


255d 


256d 


257d 


258d 


2S9d 


260d 


261d 


262d 




263d 






























48d 


477c 


sue 


S32c 






















, 


1186d 




























« 


928d 




























« 


229d 




























* 


103Sd 






























132d 


140c 


142c 


143c 


144c 


146c 


159d 


167c 


168c 


169c 


170c 


172c 








2398c 


2446c 




























408d 

USd 

63d 

122d 


120c 
72c 
199c 


121c 
134c 
429c 


135c 


148c 





















18092c 
1067d 

3322c 3324c 3360c 
3566c 3573c 3586c 

20277c 20278c 21361c 



626SC 
1069d 

35S2C 3S67C 
20301c 20302c 20360c 21414c 



3363c 3476c 3494c 3495c 3503c 3518c 3619c 3527c 3536c 3551c 3SS7c 



9033d 9067c 

7017a 7047c 

7186c 7188c 

7462c 7481c 



He 
7189c 
7504c 



7075c 
7213c 
7S21C 



7076c 
7242c 
7574c 



7088c 
7244c 
7583c 



7089c 
7246c 
7584c 



7131c 
7248c 
7586c 



7149c 
7249c 
7686c 



7150c 
7326c 
7592c 



7162c 
7352<: 
7596c 



18017d 18034c ie048c 18049c 18061c 18062c 18087c 18088c 18089c 18108c 18110c 

18148c 18150c 18152c 18154c 18155c 18254c 1825SC 18256c 182e5c 18266c 18301t 

18336c 18347c 18356c 18357c 18358c 183S9C 1836Sc 

10044d 10519c 10524c 10547c 



7184c 
7416c 



7182c 

739SC 

7718c 

18112c 18114c 1811SC 
18303c 18305c 18306c 



7156c 
737ec 
7605c 



7061c 
1139(1 



74 1 : c 
114c a 



7391c 7711c 
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current cur&or state 
GLE HPGL(gle"h[;gl out) 
GLE TYPES(qle types) 
LIBTdg:_lib) ~ 

current cursor j-, 

GLE TYPES (gji; types) 
LIBTd9l_ll6) 

current cursor y 

GLE T7PES(gle_type5) 
LIBTagl_li6) 

current drawing mode 
GLE TyPES(gIi!_type5) 
LIBTdgl_iib) 

current echo type 
DGL_hPGLI (3gl hpgli) 
DGL_KNOB(dgl Pnobl 
DGL VBRS{d5l'"v,irs) 
GENTdgi gen)~ 
LI8(dg],lib! 

current fill index 
GLE_TVPES(gle types) 

current linestyTe 

GLE_HPGL(9le hpgj out) 
GLE snsRK (glir smaf k ) 
GLE~TyPES(gle_types 
LIBTdgl lib) 

current linestyle mode 
GLE_HPGL(gle hpgl_out) 
GLE_SnfiRK(gle smark) 
GLE TYPES(9le_typesi 
LIBTdgl lib) 

current lTne5tyle_patte rn 
GLE_HFGL(gle_hpgI out) 
GLE snflRKTgle: smark) 
GLE TYPES(gle~types 
LIBTdgl^llb) 

current iTnewidth 
GLE TYPES (gle.types) 
LIBTdgl lib) 

current pattern length 
GLE_HPGL(gle Hpgl_out) 
GLE_SnBRK(gle smark) 
GLE TVPEsrgle types) 
LIBTdgl_lib) ~ 

current polygor blue 
GLE R5L(gii 
GLE^TYPE 

current 



_. --_out) 
(gTe_type5) 



rrent polygor color 
GLE_T7PES(gIe_types 

current polygon green 
GLE_RS[fgle ras out) 
GLE_TVPES(gTe_type5) 

current polygon_red 
GLE_R5Lf9le ras out) 
GLE_TYPES(gTe_types) 

current pos x 

GLE_HFGL(9le_hpgl out) 
GLE_S™RK(gle_smark) 
GLE TYPES (gle_type5) 
LIBTdgl_lib) 
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7499c 

113Sd 

20231c 


7709c 
20236c 
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1136d 
20232c 


20237c 


««» 


U37d 
20232c 


20238c 




1148d 
20979c 




«** 
*** 

«*« 


18061c 

180S2C 

132Sd 

3257c 

20150c 


20178c 


»«)K 


1147d 




*«* 
*** 
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7438c 

5116c 

1141d 

20976c 




*** 


7440c 

S114C 

1144d 

20978c 






7441c 

5117c 

1142d 

20974c 






I149d 
20975c 






7439c 

5115c 

1143d 

20977c 






8191c 
1154d 




*«« 


llSld 




*** 


8190c 
1153CI 






8189c 
1152d 
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734ec 

5121c 

niOd 

20228c 


7372c 



current pos y 

GLE_HreL(gle hpgl out) 

GLE SmRKtgle smark) 

GLE TYPEsJgle types) 

LieTdgl_lib) 
current record 

SRn_Dl?V(5rin) 
current timeout 

PRINTER(prtdvr) 
current vol 

CTnBLE(ctr) 
current vu 

CS80(C580) 

CS80(cs80d5r) 

TflPEBKUP(cs86tbdvr) 
currentcrt 

CRT(crt) 

C HOOK 

D5l C OUTfdgl confg out) 

GCRT(crtb) 

SYSDEVStsysdevb) 
cur rent if 

C380(cs80) 

niNlT(qminit) 
cu rsaddr 

CRTfcrt) 

GCRT(crtb) 
cursor 

GLE GEN(gle_gen) 

GLE_HPGL(gle_hpgl_out) 

OLE RGLIgle ras out) 

GLE TYPeS(gIe types) 

LIBTdgl lib) 
cursor coTor 

DGL VBRS(dgl vars) 

LIBTdgi_lib)~ 
cursor size x 

0GL_WRS(3gl_vars) 
cursor size y 

DGL_VnRS(3gl_vars) 
cursor X 

GLE_^GL(gle_ras„out) 

cu rsoraddr 

GCRT(crtb) 
cursormask 

CRTfcrt) 

GCRT(crtb) 

SYSDEVS(5ysdevs) 
cursx 

CRT(crt) 

GCRTlcrtb) 

SYSDEVS(5ysdevs) 
cu rsy 

CRT(crt) 

GCRTfcrtb) 

SYSDEVS(5y5devs) 
cvol 

ETU 
cvtdatetime 

LIFDfin(lifmodule 



cursor 

GLE_RGL(gle_ra5_out 
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S122C 

llUd 

20229c 

577d 
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142c 
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520c 
130d 
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8047d 
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429c 

60d 
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481c 482c 
153d 
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451c 466c 466c 472c 
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SVSDi:VS(5y5dev5l 
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213d 


























c yl 

fl«IGn[csamigo) 




90d 


352c 


3S7c 


372c 


373c 


















cyl De- med 

BTOGoTcsamigo) 




129d 
37Zc 


193d 


194d 


196d 


197d 


198d 


199d 


200d 


201d 


202d 


2030 


225c 351c 


352c 


nlNI ^(hminit ) 




292c 


487c 
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806c 


821c 
























flJilGOicsamigo) 
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72d 


























cylindf^r ert 
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»** 


551d 


























cyl*! 






























«INir(c580ir) 
d 

ffnlGO(c5arTiigo) 




522d 


564d 


818d 


838c 




















*** 


lOOd 


























BBT(bat) 

GLE UTLS(9ie utli) 




69d 


70c 


























2101Od 


21106d 


21113c 


21115c 
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41Sd 
lllSc 


630c 
1126c 


esse 

1130c 


668c 
1134c 


674c 


853c 


886c 


894c 


1016c 


1019c 


1036c 


1069c 1098c 


ni3c 


LIFDHrl(lifmodule) 




n3d 


120c 


121c 


122c 


123c 


124c 


125c 


126c 












niui 




ISd 


179c 


202c 


321c 


351c 


474c 
















l10»Ei-SYS(mf5) 




19d 
550c 


22d 
651c 


S53d 
6S2c 


560d 
667d 


580c 
673c 


587c 


S93c 


588c 


606c 


e34c 


635c 


636c 637c 


642c 


riOUSi;(moyse) 




41d 


71c 


83c 


89c 


90c 


91c 


101c 


132d 


134c 


141c 


146c 






SySDi:VS[sy5devs) 




470d 


471c 
























UCSO .0Hn(uc5dmodLle) 




67d 


145c 


14Sc 


149c 


159d 


160c 


309c 


310c 


316c 


317c 


360c 
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411c 






412c 


421c 


451c 


4S2c 


453c 


477c 


497c 


S38c 


539c 


590c 


591c 
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CTBBLE(br5tuff ) 


*** 


949d 


























UCSO _DPri(uc5dmodLle ) 




67d 


87c 


39c 


142c 


152c 


153c 


215c 


220c 


222c 


233c 


253c 
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394c 


467c 


468c 


511c 


536c 
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620c 
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e57c 
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949d 


1002c 
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*** 


949d 
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CT(«LE(br5tuff ) 


*** 


949d 
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CISB.Elbrstuff ) 


*** 


949d 


























dl4 






























CTflBl-E(brstuff ) 
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949d 


























dlS 
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*** 


949d 


























die 
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9S0d 
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*** 
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829d 
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950d 


























d2S 
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CTBB;.E(brstuff ) 
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950d 


























ssx 
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*** 


950d 
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CTBBLE(br5tuff ) 
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950d 
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950d 


























d3 
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949d 
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CTBBiElbrstuff ) 
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950d 
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*** 
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949d 


























dS 
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949d 
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*** 
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CTBBLE(brstuff ) 
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949d 


























#*« 
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d addr-iss 






























"TBPEIi<UP(cs80tbr) 




231d 


247c 


248c 






















d byte 

nlNlr(iramigo) 
































192d 


221d 


237c 






















d loc ';cho X 






























"DGL HPGLT(dQl hpcli) 
DGL KNOB(dgl ITnot ) 


*** 


18072c 
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1271d 
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««« 


3378c 
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201S7C 
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20203c 
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DGL vflRS(dgl var5) 


«** 
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20151c 


201S4C 
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20205c 


20206c 
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TftPEIiKUP(C580tbr ) 




230d 
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229d 
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dacces j 
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UCSD DpniucsdmodLle) 
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ASCII (ascilmodule) 
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*** 
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CTflBLE(ctr) 
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498c 


617c 
























INITLOfiD 


*** 
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1610c 
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INIT(misc) 




213d 
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INITLOftOfbootoamnodule) 
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133d 
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UCSD_0Hn(uC5dmodule) 
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INIT(initunit5) 


*** 
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140d 
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*** 
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*** 
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64 d 
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CRTIcrt) 
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l5LIB(5erial 0) 
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1189c 














12480 
14840 
14110 


1262c 
1572c 
1447c 


1264c 
1574c 
1565c 


1266c 
1577c 
1644c 


1269c 
1S78C 
1645c 


1276c 
1S79C 
1651c 


1747c 


1748c 


1754 c 


n81c 


1785c 






395c 

9580 
375c 
123c 


1014d 
1169c 


1188c 
1327c 


12S8C 
1560c 


1259c 
2019c 


1260c 
2043c 


1262c 

2114c 


1264c 
2115c 


1265c 
2116c 


1310c 


1349c 


1432c 1467c 




49d 


2114c 


2974c 


3577c 


3630c 


















1172d 
1409d 


1448c 


1651c 


1754c 


1787c 


1792c 
















1175d 


























20042d 


20899c 


20893c 






















173d 

478c 

742d 

53d 


509c 

7S0c 

63c 


751c 
124c 


752c 
151c 


753c 
183c 


754c 
215c 


265c 


293c 


326c 


365c 








217d 


226c 


665d 


674c 


684c 


e89c 


691c 


697c 












218d 


226c 


666d 


e74c 


689c 


















272c 
2130 


299c 


317c 






















216d 


281c 


340c 


344c 




















263c 
213d 


291c 
























379d 


401c 


423c 


433c 




















212d 


222c 


224c 


229c 


2S1C 


266c 


277c 


279c 












23670 


2453c 


2454c 


2494c 




















2027Sd 


20287c 


20297c 


20298c 


20307c 


20308c 
















20277d 


20290c 


20298c 


20308c 




















202790 


20283c 


20297c 


20307c 




















20276d 


20288c 


20297c 


20298c 


20307c 


20308c 
















202780 


20291c 


20298c 


20308c 




















2028Od 


20294c 


20297c 


20307c 




















2000 


284c 


415c 


869c 




















202740 


20297c 


20300c 


20301c 




















172270 
172410 

6076c 
20156c 
17662d 
17676d 

1033d 


17228d 
17242d 

20157c 
175e3d 
17577d 


17229d 

20184c 
17564d 


17230d 
17565d 


17231d 

17566d 


17232d 

17667d 


17233d 
17668d 


17234d 
17569d 


17235d 

17570d 


17236d 
17571d 


17237d 
17572d 


n238d 17239d 
17S73d 17574d 


17240d 
17575d 


613d 
2010 
534c 
860c 
94Sc 
1054c 


665c 
300c 
53Sc 
876c 
9S4c 
1076c 


668c 
413c 
697c 
91Sc 

9S6c 
1077c 


671c 
419c 
598c 
916c 
999c 
1078c 


673c 
42lc 

601c 
935c 
1002c 
1093c 


674c 
42Sc 
602c 
936c 
1009c 
1094c 


711c 
4280 

607c 
937c 
1021c 
1095c 


434c 

639c 

938c 

1023c 

1165c 


437c 
640c 
939c 

1026c 


438c 

646c 

940c 

1032c 


453c 

664c 

941c 

1038c 


457c 466c 
807c 820c 
942c 943c 
lOSOc 1052c 


466c 

85Sc 

944c 

1053c 


833d 

3108c 

7760 

98c 


3159c 
233c 


361c 


488c 


490c 


517c 


518c 














344d 
909c 
10S3C 
179d 
968c 
442c 


485d 

244c 
1267c 


4960 






















344d 

777d 
1030d 

891d 
i249c 

312d 


485d 

909c 
1053c 

908c 
1299c 

442c 


494c 
913c 

10S7C 
921c 

1316c 
481c 


968c 
1440c 
492c 


973c 
1470c 


1002c 


1016c 


1060c 


1162c 


1192c 


1267c 






920 
777d 
10300 
8910 
3120 


3440 


485d 
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delent ry 

UCSD_0Bn(uc5dmodu;e) 
delim 

SRnOP^[5rmdarmiodu:e) 
deltaZ 

LIBRfi<IfiN 
delta_>; 21 

DGL_PlLy(d9l_pcIy' 
deHa_x 31 

BGL_P7LV(dgl„poly; 
delta_x 43 

0GL_P7LY(dgl_polyl 
deJta_y 21 

DGL_PTLY(dgl_polyj 
delta_y 31 

DGL_P7LY(dgl_polyl 
della_y 43 

DGL_P5LY(dgl_poly) 
dend 

LIFDfi'1(]ifmodule) 
denom 

OGL_P!)LY(dgl poly) 
density 

DGL_H'GL(dgl_hpgl) 

DGL_IIJQ(dgl inq) 

DGL_Pi)LY(dgT_poly) 

DGL_RH3(dgl_rfl5ter) 

DGL_VilRS(dgl_var5) 
dent ry 

INITLOPD (boo t damme dule) 
LIFOHn(UfmoOule) 



deovblk 
INlTLi; 
LIBRfik 
I168KS-' 
UCSO II 

describe 
CS80(. 
CS80(i 
CS80(i 
HPHIL 
MINIT 
TOPEBt 

desc rib' 
CS80(i 
CS80(' 
CS80(i 
MINIT 
TflPEBt 
TflPEBl 

desc rib* 
CSSO(. 
CS80(' 
CS80(i 
MIMT , 
TfiPEBk 
esc r ib< 
hPMIl 



HDdoader ) 
IRN 
S(ci) 
ifiM[uc5dmodule ) 

s80) 
sSOdsr) 
sSOdvr) 
hphil) 
qminit ) 
UP(cs80tbdvr ) 

bytes 
186) 
s80dsr) 
580dvr) 
qmlniT ) 
UP 

UP(C580tbdvi ) 
_type 
sSO) 
580d5r) 
sSOdvr) 
qminit ) 
UP(C580tbdvr) 
data 
nprnl) 



descrip 

HPH:[(hphil) 

MOUSE (mouse) 

SySDEVS(5y5Clev5) 
descriprec 

SySDEVS(5ysclevs) 
dest 

LIBRHRIflN 
destaddr 

SRM DRV(srm) 
dest fid 

SRn_DRV(5rmj 
destination bik addr 

TnPEBKUP(cs80tbr) 
destination block address 

TBPEBKUP 

TnPEBKUP(C580tbdvr) 
destination block size 

TflPEBkUP 
destination file id 

SRn_DRV(5™) 
destination is a 7914 

TfiPEBKUP ~ 
destination is a tape 

TfiPEBKUP 
destination lun 

TfiPEBKUP 
destination_of f set 

SRn_DRV(srm) 
destination size 

TfiPEBKUP - 
destination uep 

TfiPEBKUP 

TflPEBKUPfcsSOtbdvr) 

TfiPEBKUPjcsaOtbr) 
destoff 

SRM_DRV(srm) 
dev 

fiMIGO(amigodvr) 

CTfiBLE(brstuffi 

niui 
dev adr 

LTB(dgl_lib) 
dev buf ptr 

GrE_TVPES[gle_types) 
dev dep stuff 

DEL_C;iNfdgl confg_ln) 

DGL_C OUT(dgI_confg out) 

DGL_lRQ(dgl_inq) 

DGL RfiS dgl raster) 

GLElGEN gle^gen) 

GLE_GENI(gie_geni) 

GLE_HPGL(9le hpgl out) 

GLE KNOB(gle'"knob_in) 

GLElRGLfgle Fas out) 

GLE„TypES(gTe_type5) 
dev name 

MTU I 
dev name type 

nTui - 
dev type 

CTfiBLE(brstuff ) 
devaddr 

HPHIL(hphil) 



101c 

88c 

331d 


103c 
92c 


104c 
93c 


107c 
159c 


109c 
160c 


110c 


114c 


115c 


116c 


118c 


311d 


331d 


















S46d 


814c 


















300d 




















1038d 


170Sd 


1718c 
















34 d 


210d 


248c 
















1240c 
334d 


1263c 
901c 


1345c 
















1221d 


1285c 


1319c 


1416c 














476d 


1718c 


















1220d 


1237c 


1253c 


1315c 


1374c 












1219d 


1231c 


1243c 


1255c 


1268c 


1280c 


1318c 


1323c 


1339c 


1371c 


I217d 


1307c 


1308c 


1310c 


1314c 












477d 


1719c 


















1222d 


1250c 


1263c 


1282c 


1284c 


1320c 


1323c 


1381c 


1382c 


141SC 


1232c 

332d 

33d 


1247c 
742c 
210d 


1243c 
901c 
244c 


1256c 
245c 


1269c 


128SC 


1308c 


1309c 


1312c 


1315c 


1039d 


I706d 


1713c 
















506d 
9S6d 
319d 


Sllc 

1002c 

321c 


513c 
lOOSc 


520c 


534c 













1379c 1413c 



1372c 1387c 1417c 



20025d 20038d 21245d 21264c 

106Sd 1068d 1215d 1218d 

12034c 12054c 

11056c 11059c 11281c 11394c 11427.- 

6198c 6214c 

17186c 17441c 17592c 

2132c 



3030c 










7045c 


7100c 


7121c 


7172c 


7229c 


8083c 


18119c 


:8186c 


18197c 


18216c 


8181c 


8231c 


8296c 


8326c 


8381c 


1072d 


1222d 









21278c 21295d 21317c 21328c 



7335c 7361c 7404c 7433c 7471c 7490c 7518c 



106d 

103d 

948d 

52d 



193c 
107d 
9S6d 
343c 



98'd 

34 9 c 



device 

flMIGO(amigodvr) 
anlG0(c5amigo) 

GLE HPIB(gle hpib_io) 
I0LTB(generaT_2) 



I0LIB(general_4) 

I0LIB(hpib_l| 

I0LIB(hpib_2| 



lOLIBIhpib 31 
niNIT hminit I 

mui 

device addr 

□GL U INrdgl confg_in) 
DGL'C-OUT (dgT confg out) 
GLE_HPlB(9le Fplb_i5) 

device address 
SRn_CRV(5rm) 

device address present 
SRn_URV(5rni)~ 

device address type 
SRn_5RV(srm)" 

device buf 

DGL C INfdgl confg in) 
DGL C OUT(dgT_confg_out) 
GLE~GrN(gle gen) 
GLE_GENI(gle geni) 
GLE_HPGL(gle~hpgl_out) 

GLE_HPGLI (9le_hpgl_ln) 

GLE_TYPES(gJe_type5) 

device ident 
finlG!J(amigodvr) 

device ident type 
finlGCjamigodvr) 

device info 

DGL_C_IN(dgl confg in) 
DGL C OUT (dgl confg out) 
DGL KROB(dgl ^nob) " 
GLElGENfgleJien) 
GLE_GENI (gle'geni) 
GLE TyPES(gl!:_types) 
LIBTdgl lib) 

device inTo char count 
DGL_!:_IN(3gl confg_in) 
DGL_C OUT(dgT conr9_out) 
DGL_KF]OB(dgl Knob) 
GLE TVPES(gli: types) 
LIBTd9l_lib) ~ 

device letter 

CTfiBtEIscanstuff) 

device maps 

HMIGiJ(csamigo) 

device maps type 
finlG!J(csamigo) 



Sllc 

137d 

31Sc 

10188d 

797d 

936d 

1071d 

1199d 

1486d 

403d 

625c 

1780d 

1897d 

1960c 

2033d 

489c 

20d 

191c 



659c 686c 689c 
160d 163c 164c 



752c 
155c 



958c 

166c 



167c 



169c 170c 171c 179c 18Sc 



10196c 10198c 10211c 10213c 10227c 10276d 10284c 10286c 10299c 10303c 10315c 



799d 

941c 

1076c 

1205d 

1494c 

406d 

637c 

1783d 

1900c 

19S3C 

2094d 



802d 
966d 

1211d 
lS29d 
408d 
696d 
1787d 
1902c 
1989d 
2098c 



806d 
972c 

1218d 
1543c 
411d 
701c 
1789d 
1905c 
1891c 



808d 
992d 



Slid 
997c 



il4d 
1012d 



817d 
1016c 



820d 
1025d 



822d 
1029c 



832d 
1038d 



853c 
1042c 



1223d 1351d 1360c 1361c 1401c 141Sc 1436d 1445c 



171c 172c 173c 
193c 197c 198c 



SlOd 

703c 

1792d 

1908c 



174c 
201c 



518c 

706c 

1793d 

19ied 



175c 
202c 



520c 

744d 

1798d 

1920c 



176c 
210c 



533c 

750c 

1838d 

1921c 



n7c 
329c 



535c 

752c 

1841c 

1935d 



178c 
347c 



549c 

756c 

1842c 

1938c 



179c 
351c 



598d 606c 



1861d 
1939c 



180c 
472c 



1864 c 
1951d 



913d 
lOSld 



1460d 
608c 



1866c 
19S4c 



920c 

10S5C 



1469c 
621c 



1870c 
1956c 



182c 183c 



12111c 
11480c 
100120 10493c 



340d 

339d 

259d 

12079c 

11393c 

2131c 

3029c 

7044c 

7387c 

18032c 

18299c 

1071d 



1500c 

1499c 

340d 

12100c 
11425c 



7047c 706CC 7072c 7086c 7122c 7144c 7147c 7171c 7180c 7228c 7240c 7336c 7362c 

7405c 7434c 7472c 7491c 7S19c 7573c 7S81c 

18034c 18045c L8059C 18083c 18085c 18102c 18106c 18139c 18146c 18249c 182S3C 18263c 1829Sc 

18332c 1S346C 18354c 

1221d 



495d S19c 
492d 496d 



12049c 


12097c 


12111c 




11279c 


11419c 


11439c 


: 1480c 


18075c 








2133c 








3031c 








1073d 


1223d 






21212c 


21266c 


2:3I9c 




12049c 


12097c 


12112c 




H279c 


11419c 


11440c 


11481c 


18076c 








10740 


1224d 






21213c 


21265c 


21318c 




UOld 


1105c 


1106c 




19Sd 


2l6c 






191d 


195d 
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device msus 


















CTfiers 




1239d 


124SC 1246c 1247c 1248c 


12S1C 










devicp name 


















LIBlSgi lib) 




200223 


21194d 21209c 21216c 21218c 












device taEle 


















flnlGC(aniigodvr] 




454d 


484c S03d 534c 












device table type 


















flmG5(amigodvr) 




446d 


454d 493d 503d 












device work area 


















DGL Z OUTXdgl confg obt) 




11157d 


11280c 11281c 11373d 11394c 


11405d 


11426c 


11427c 






devicea^dress 


















GLE_.RGL(gle„ra5_3ut 1 




8032d 


8463c 












device name 


















nlNlT(qminit) 




936d 


1010c 1011c 1014c 1018c 


1019c 


1021c 


1027c 


1029c 




MIUI 




131d 


192c 193c 195c 












THPf BKUP(cs80tbd<r) 




455d 


487c 488c 490c 494c 


495c 


497c 


502c 


504 c 




device rec 


















SYSDEVS(5ysdevs) 




329d 


346d 












devicetype 

DGL Rfl§(dgl rastsr) 
GLE RGL(gle ras out ) 




















171860 


17442c 17447c 174S2C 17457c 


17463c 


17477c 


17486c 


17512c 17517c 17522c 17532c 




*** 


8031d 














devid 


















BniGOfamigodvr) 


«»« 


686c 














flMIGO csamigo) 




209c 


318c 319c 321c 












CS80(cs80d5r) 




921c 


938c 












CS8C(cs80dvri 




984tl 


1017d 1021c 












CTflBLE(clr) 


«*« 


478c 














INIT(initunit6) 


X** 


2211c 














INHLOSO 


*** 


1684c 














INIlLOROIsysglobals) 
WNlT(hminit) 
PRlNTER(prtdvr) 
TflPfBKUP 


*** 


ISld 














*»« 


278c 














**x 


277c 
















1238c 


1315c 












devstate 


















HPH3L(hphil) 




100c 


101c 104c 105c 107c 


110c 


lUc 


114c 


115c 116c 118c 122c 193c 




MOUSE (mouse) 




81c 


84c 89c 90c 91c 


92c 


96c 


101c 


102c 104c 156c 




SYSDEVStsysdevs) 


1K»* 


330d 














devt ype 

CS8e(cs80dvr) 




















984d 


1017d 1020c 












dfirstblk 


















INIUOHDCloader ) 




8270 


1318c 












LIBFRRIflN 




2728c 


2730c 2857c 2861c 2890c 


3155c 










f188KSYS(ci) 


«»* 


774d 














UCSD Ofln(ucsdmodule) 




94c 


162c 228c 245c 343c 


362c 


aesc 


369c 


371c 418c 480c 489c 547c 


549c 






596c 


598c 599c 601c 












dtkind 


















INnLOflO(loader ) 


**» 


830d 














LIBRflRIflN 




2893c 


31S5C 












ft68KSYS(ci) 


*»« 


775d 














UCSD Ofln(uc5dmodule) 




9Sc 


247c 291c 313c 484c 


545c 


546c 


595c 






dgl autl 


















LTBIdgl.lib) 
dgl background index 


:«»« 


201020 






























DEL HPi5L(dgl hpgl) 
DGL RflSldgl raster) 
DGL'VflR3(dgT vars) 


*** 


17294c 
















17229c 


17236c 17237c 17240c 












**« 


1139d 














LIBIdgl lib) 


«*« 


20550c 














dgl ct^ar Height 
DGL INSldgl inq ) 
DGL VfiRSIdgT vai 5) 


















*»* 


6186c 














*t* 


1073d 














LIBTdgl_lib)~ 




20719c 


20831c 21150c 21152c 21435c 












dgl char width 


















OGL INSldgl inq) 
DGL'VflRSldgl vars) 


*** 


6185c 














*t* 


1071d 














LIBTdgl lib)" 
dgl ccnfg in 

DEL C IR(dgl confg in) 




20719c 


20830c 21148c 21152c 21434c 




























*** 


12002d 














LIBldglJib) 
dgl confg out 

DGL C OClT(dql coTfg out) 
DGL KROBfdgl Fno) 


*** 


20108d 






























«*« 


11002d 














**m 


18016d 














LIBTdgl liB)" 


*** 


20107d 














dgl current color 


















OGL INQ(dgl inq) 
DGL POLY(dgI poly) 


*** 


6364c 
















20212c 


20598c 20599c 












OGL VfiR3(dgl vari) 


*«« 


1089d 














LIBTdgl_lib)~ 




20426c 


20461C 20464c 21014c 21170c 


21444c 










dgl current color 'nodel 


















DEL INQldgl inqT 




6049c 


6426c 












DGL RfiSJdgl raster) 
DGL VflRS(dgT vari) 




17209c 


17286c 17619c 17620c 17645c 












««« 


llOOd 














LIBTdgl.lib) 




20405c 


21462c 












dgl current linest /le 


















DGl INQ(dgl inq) 


♦ ** 


6359c 














DGL POLV(dgT pol/) 




20213c 


20944c 20947c 












DGL VBR3(dgl vat 5) 


«kJK 


1090d 














LIB(dgl_lib) 




20482c 


21445c 












dgl current linewilth 


















DEL INQldgl inq; 
DGL POLYjdgT poi^l 


*** 


6364c 
















20214c 


2094SC 20949c 












DGL VflRS(dgl vari) 


«** 


1091d 














LIBTdgl lib) 




20441c 


21446c 












dgl current polygot angle 


















DEL POLY 3gl pol/T 
DGL VflRS dgl var sj 
LIBTdgl_ ib)" 




201580 


20889c 20992c 












«»* 


1096d 
















21168c 


214S8C 












dgl current polygoi color 


















DEL INQfdgl inq) 


**# 


63800 














DGL POLY(dgT pol/) 




20069c 


20074c 20095c 20119c 20215c 


20318d 


20599c 


20840c 


20902c 




DGL VfiRS(dgl vari) 


*** 


1093d 














LIBXdgl^lib) 




2116SC 


21456c 












dgl current polygon Crosshatch 
















DEL P0LY(3gl pol jj 
DGL VBRSIdgl vari) 




20156c 


20321d 20595c 20832c 20890c 


20989c 










**# 


1099d 














LIBTdgl^lib) 




21162c 


21460c 












dgl current polygoi density 


















DEL POLY 3gl polyT 
DGL VflRS dgl vari 




20157c 


20210c 20243c 20887c 20890c 


20891c 


2089SC 


20997c 


21000c 21004c 




*** 


1097d 














LIBTdgl lib) 




21167c 


214S7C 












dgl current polygon edge 


















DEL POLr 3gl polvT 
DGL VfiRSJdgl vat-,) 




20159c 


21059c 21104c 21135c 21166c 












%%* 


109ed 














LIB(dgl lib) 




21ieic 


21469c 












dgl current polygon linestyle 


















DGL INBCdgl inq) 


«** 


6433c 














DGL POLYIdgT pol/) 




20137c 


20216c 20319d 20902c 20947c 


20948c 


21018c 








DGL VfiRSfdgl vari) 


*%% 


1095d 














LIBTdgl_lib) 




21163c 


21466c 












dgl current polygon spacing 


















DEL P0LY(3gl pol/T 




20322d 


20596c 












dgl current polygon style 


















DEL lNQ(dgl inq) 


*:** 


e385c 
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DGL P0LY(d9l pol 1) 




20160c 


20187c 










DGL VfiRS(dgl var',) 


*** 


1094a 














LIB! igl lib) 




21164c 


-1461c 













dgl cu rrent_t irTming_mocIe 
D5L_INCI(dgl inq) 
DGL VnRS(dgT var5) 
LIBXdgl_liB)" 

dgl cu rsor 
LrB(d9l_lib) 

dgl gen 

D5t_HPGLI (dgl„hpgli) 
D8L_INQ(dgl Inq) 
DGL_KNOB(dgT_knob) 
OGL_POLY(dgl_poly) 
DGL RfiS(dgl raster) 
GENTdgl qenT 
LIB(dQl_libj 

dgl hpal 

D5l_C out (dgl ct;nfg_out) 
DGL.HPGLfdgLHpgl) 

dgl hpgl init 

Dt;L_C CIUT(dgl confg out) 
DGL HPGL(d9l TTpgl) 

dgl hpgli 

DCL_C INfdgl confg in) 
DGL_HPGLI (dgI_hpglT) 

dgl hpgli init 

DClJ lN(dgl confg in) 
DGL HPGLI (dgI„hpg:T) 

dgl iBody 
LTB(dgi_lll>) 

dgl inq 

DEL_INQ(dgl_inq) 

dgl knob 

DSL C INfdgl confg in) 
DGL_KF10B(dgi;knobr 

dgl knob init 

D5L_C TN(dgl confg in) 
DGL KflOB dgl knob) 

dgl lib 

05L POLY(dgl_poly) 
LIBTdgl_lib) 

dgl poly 

D!;L_POLY(dgl, poly) 

dgl polygon color current 
D5L_P0LY(3gl_poTy) 
DGL VnRS(dgr vans) 
LIBTdgl_llb)" 

dgl raster 

Di?L_C OUT (dgl confg out) 
DGL_RHS(dgl^ras1er) 

dgl raster inTt 

D5L_C OUT(dgLconfq_out ) 
DGL_RSS(dgl_ra5ter) 

dgl scaled draw 
LTB(dgl Tib) 

dgl scaled move 
LTB(dql_Tib) 

dgl tools 

DEL_C_IN(dgl confg in) 
DGL C OUT (dgT confg out) 
DGL TSOLS dgT'toolsT 



6369c 
1092d 
20391c 21169c 

20216d 21284c 

ISOlSd 

6031d 
ISOlSd 
20035d 
17019d 

3O06d 
20103d 

11020d 
17002d 

11447c 11487c 
17006d 17220d 

12019d 
18002d 

12117c 
18006d 18123d 



20110d 
6002d 



12018d 
18002d 



DGL TOOLS (dg 
LIBTdgl_lib) 



12058c 
18006d 18169d 



20O38d 
20012d 



20098c 20120c 2095l)c 

1146d 
20420c 21166c 

11019d 
17002d 

11354c 
17006d 17544d 

20665c 

20635c 

12015d 
llOlSd 
20003d 
20109d 



"igl types 

DSL_HPGL(dgl hpgl) 
DGL HPGLI (dgT hpgli) 
DGL INCKdgl Inq) 
DGL~KNOB(dgT knob) 
DOL_POLY(dql poly) 
DGL_RRS(dgl raster) 
DGL VfiRS(dgT vars) 
GENTdgl_gen)~ 
LIB dgljib) 
TYPeS(dgl_types) 

dgl vars 

DEL_C_IN(dgl confg_in) 
OGL_C OUT (dgT conTg_out) 
DGL_Hl'GL(dgl Kpgl) 
DGL HPGLI (dgT_hpgli) 
DGL~INa(dgl inq) 
DGL KNOB(dgT knob) 



DGL POLY (dgl' poly 
DGL RflSfdql l-i 
DGL VSRS(dgT > 



GENTdgl_Qen] 
LI8(dgl_libi 



raster) 



dl 

LIFDfifl(lifinodule) 
diaq jnit 

MIRlT(qminiti 
diagnostic release_reqL!i red 

C580(C58!J) 

CS80(C580dsr) 

TnPEBKUP(cs86tbdvr) 
diagnostic request 

CS80(C58!J) 

CS80(C580dsrl 

TnPEBKUP(cs86tbdvr) 
diagnostic result 

CS80(C58iJ) 

CS80(c580d5r) 

TflPEBKUP(C!8Citbdvr) 
diagnostic to_be_run 

nlNIT(qmTnit) 
dlqit 

GEN(dgl gen) 

OLE UTLJIgle utls) 
digitize enabled 

GLE_KNi;B(gle knob in) 
dindex " ~ 

LIPDflH(lifmodule) 



dir 

LIFDfin(lifmodule) 



SRI1 DRV(5rm) 
UCSl5_Dnl1( ucsclmodule ) 



dir is dvrtemp 

SKnDHn(5rmdaiTinodule) 
dir len 

hTUI 



17010d 
















ISOlOd 
















6004d 
















ISOlOd 
















20010d 
















noiOd 
















62d 
















3008d 
















20014d 
















1002d 
















12016d 
















11021d 
















17011d 
















18011d 
















6029d 
















ISOlld 
















20O34d 
















17011d 
















50d 
















3054d 
















20101d 
















S82d 


S94c 


624c 


625c 










1102d 


1124c 


1129c 


1136c 


1141c 








lS9d 
















710c 
















592c 


824c 














183d 


312d 


328d 












717c 
















599c 


831c 














156d 


299d 














670c 
















SSOc 


782c 














894d 


1063c 


:071c 


1072c 


1122c 








3151d 


3157c 


3162c 


3163c 










21047d 


21054c 


2105SC 


21076d 


21096c 


21097c 






18019d 


18153c 


18188c 


:3199c 


18269c 








200d 


300c 


414c 


418c 


419c 


424c 


432c 


4S9c 


723c 


730c 


731c 


767c 


768c 


789c 


790c 


812c 


890c 


932c 


94Sc 


997c 


999c 


1009c 


1020c 


1050c 


79d 


246c 


251c 


285c 


300c 


315c 


317c 


319c 


457c 


466c 


528c 


S30c 


S35c 


594c 


597c 


637c 


713c 


866c 


876c 


945c 


999c 


1009c 


1032c 


1050c 


1182c 
















1298d 


1309c 


1325c 


1346c 










53d 


60c 


74c 


87c 


14Sc 


149c 


153c 


ISSc 


260c 


272c 


276c 


277c 


288c 


293c 


309c 


317c 


389c 


390c 


394c 


411c 


421c 


451c 


453c 


468c 


S16c 


538c 


S90c 


613c 


617c 


621c 


e23c 


630c 


385d 


426c 














400d 


4 36d 















460c 637c 642c 656c 6S7c 664c 

82Sc 8S8c 865c 866c 878c 879c 

1053c 1070c 1035c 

352c 365c 367c 37Sc 407c 418c 

639c 664c 695c 698c 708c 709c 

1053c 1076c 1078c 1095c 1122c 1144c 



21Sc 221c 22Sc 226c 2S6c 257c 

333c 339c 340c 360c 362c 373c 

477c 497c 498c SOOc 503c 60«c 

657c 675c 676c 
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di'- cf tfr 


























DTSCflPIB(di5chpi:3) 


n** 


443d 






















lOLIBOeneral 41 




1201d 


1207d 


1213d 


1220d 


1225d 


13S3d 


U38d 


1462d 


1488d 


1531d 




KERNEL (iodeclarations) 




564d 


577d 




















S»H DRV(5rm) 


*** 


1298d 






















dir a 


























hTui 




397d 


432d 




















dircatentry 


























ETU 




353d 


369c 


376c 


867d 


918c 














mui 




37Sd 


516c 


528c 


















SRnDfln(srmdarmiod!jle ) 




381d 


393c 


449d 


4Slc 


4S2c 














direct control 


























DC DRV(extdc) 


*** 


207d 






















DC^DRVIintdc) 


»«« 


374c 






















direct status 


























DC DlfV(extdc) 


*»« 


205d 






















DC DRV(init dc) 


*** 


678c 






















DC I)RV(intdc) 




273c 


351c 


389c 


















direct ion 


























DC TRVfintdc) 




426c 


440c 


530c 


548c 
















0l5CHPIB(di5chpi!j) 




474c 


S17C 


528c 


538c 
















lOLlBlgeneral 4) 




1424c 


1570c 


1597c 


















KERNEL (iodeclarations) 


*** 


577d 






















SRH DRV(5rm) 
d3 reef o r V 

INnLOftDdoader ) 


*»* 


1346c 
























1030d 

1580c 

323c 


1258c 


1264c 


1283c 


1321c 


1323c 


1325c 


1332c 


1376c 


1408c 1439c 


1441c 1521c 1523c 


LIBRflRinN 




326c 


395c 


1275c 


1277c 


1383c 


1681c 


1694c 


1936c 


1938c 2339c 


2ei0c 2612c 2749c 






27S2C 






















directory password 


























SRM DRVTsrml 




467d 


16910 




















directory records 


























SRrt)flM(srmdammodjle] 




1008c 


1130c 




















SRn DRV(5rm) 


x*« 


159d 






















directorysize 

INnLOHDIloader ) 




























946d 


1326c 


1328c 


1330c 


1332c 














LIBRBRIflN 




352c 


1965c 


1980c 


















direct size 


























INIT LORD (loader) 




1137d 


1146c 


l!47c 


1148c 


1149c 


1154c 


115SC 










dirent ry 

INniOflD(bootdar)Tinodule) 




























557d 


558d 




















INULOBDdoader) 




826d 


1033d 


1146c 


















LJBRHRIflN 


«»« 


2722d 






















LIFtflMtlifmodule) 
n68KSYS(ci) 




59d 


77d 


201d 


362d 


68Sd 














««* 


773d 






















UCSC Dfintucsdmodjlel 




SOd 


67d 


102c 


159d 


187d 


381d 


483c 










dirent ryp 

INnLOflD(bootdaminodule) 




























SS7d 


S85d 


613d 


















dirfile 


























LIFDfin(lifmodule) 




77d 


79d 




















UCSD Dfin(uc5dmod'jle) 




SOd 


53d 




















dirfiJecode 


























SRnDflN{srnidammodjle) 




991d 


1008c 


1016d 


1130c 
















dirid 


























SRn)Bt1(5rmdammodijle) 




382d 


419c 


421c 


427c 
















dirname 


























CTHBLE 




1229d 


1234c 




















INn(fs) 
diropen 
ETU 


«»« 


760d 
























S8d 


337c 


342c 


371c 


372c 


379c 


886c 


919c 


1228c 






dirrange 

INITtOfiDCloader ) 




























822d 


834d 




















UCSD_Dnn(ucsdmodijle) 




138d 


264d 


26Sd 


284d 


302d 


323d 


325d 


353d 


379d 


380d 398d 


405d 429d 438d 






569d 






















djrstart 


























UCSD_Dnn(uc5dmodiJle) 




39d 


80c 


lOOc 


330c 


482c 














dirstatus 


























ETU 




64d 


65d 




















dirty 

HEiSpT(hpm) 




























81d 


124d 


189c 


201c 


265c 














disable 


























ft8<»XDVR(a804xdv-) 




163d 


165c 




















disable auto release 


























CS80rcs80) 


*i*ii: 


235d 






















CS8C(cs30dsr) 


*** 


882c 






















disable report chaiiges 


























TfiPEBlJUP 




1031d 


1393c 




















disableuserisrs 


























n68KSYS(ci) 




292d 


896c 


119ec 


















disassemble 


























LIBRfiRIflN 




1412d 


1460c 


1461c 


1462c 


1463c 














dischpib 

nniGO(amigodvr) 


























««* 


42Sd 






















flniGOicsamigo) 


«** 


37d 






















CS80(cs80) 


%** 


66d 






















CS8C csSOdvr) 


«*« 


972d 






















OlSCHPie(dischpib) 


«** 


186d 






















niNlT cs80ir) 


*** 


516d 






















fllNIT hminit) 


«*# 


248d 






















nlNIT iramigo) 


»:«» 


187d 






















MINIT qminit) 
TnPEBKflp(cs86tbdvr) 


«** 


878d 






















*«* 


305d 






















TBPEBKUPics80tbr| 


«*# 


14d 






















discid 


























LIFDflH(lifmodulel 




43d 


253c 


497c 


















discint drivers 


























DI DRV(init discint ) 




192d 


217c 


218c 


245c 
















discTrt initialize 


























DI DR7 


««* 


128d 






















disc unit 


























niNIT(xminit) 




1366d 


1585c 


1628c 


1722c 


1733c 


1757c 


1798c 










disp dev adr 

DGt INUldgl^inq) 
DGL VfiRS(dgT vars) 


























*** 


64S6C 






















«*» 


n09d 






















LIBTdgl lib) 




21036c 


2U37C 


2U38C 


21231c 


21278c 


21349c 


21350c 


21409c 








disp eq loc 

DCr HPGLKdgl tipjll) 
DGL'vnRS(dgI vars) 


























#** 


18087c 






















*** 


1114d 






















GENTdgl gen) 
LIBidQl lib) 
disp file name 
dEU INQTdgl inq) 
DGL VfiRS(dgT vari) 
LIBTdgl lib) 


*** 


3581c 
























20899c 


21043c 


21046c 


21078c 


21137c 


21348c 


21360c 


21408c 










64470 


6449c 


64S0C 


64510 
















*** 


1110s 
























21035c 


21232c 


21279c 


21410c 
















disp init 


























DGi: HPGLKdgl hpjll) 


*** 


18051c 






















DGL_INO(dgl_inq) 




61960 


6211c 


63180 


6324c 


6330c 


6336c 


6342c 


6348c 


6374c 


6390c 6396c 


6402c 6408c 6414c 






6420c 


6437c 


6498c 


















DGL KNOBIdgl knob) 


*** 


18052c 






















DGL VBRSfdgl vars) 


*n* 


1241d 






















GENTdgl gen) 
LIB(dg]_Iib) 




3086c 


341SC 


3S35C 




















20392c 


20562c 


20S92C 


20e21c 


20662c 


20714c 


20942c 


20970c 


20998c 


21034c 21078c 


21098c 211360 21207c 






21259c 


21312c 


21348c 


21382c 
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disp jusl 

D3r_HPGL(dgl l-pgl) 
DGL^INGKdgl InQ) 
DGL RfiS(dgrraster) 
DEL VfiRS(dgT vars) 
GENTdgLgen) 
LIB(dgl_lib) 

dlspl 

LIBRfiRISN 

display 

CTflBLE(5canstuff ) 

display_draw 
LIB(dgl_lib) 

display echo„mult 
DGL_HPGL(dgl hpgl) 
DGL_KNOB(dgl knob) 
DGL_RflS dgl Taster) 
DGL vnRS(dgT_vars} 
LIBTdgl lib) 

display fTnit 
LIB(dgl_lib) 

display handler_char_count 
G[E_6EN(gle_gen) 
GLE_HPGU(qle_hpgl_out) 
GLE RGLfgle ra5„0U1 ) 
GLE_TyPES(qTe._type5| 

display haadler name 
G[E_HPGL(gle Hpgl out) 
GLE RGLIgle "as out) 
GLE_TVPES(gTe_typesi 

di5play_init 
LIB(dgl lib) 

display limits 
GEN(dgl_gen) 
LIB(dglIlibi 

display max x 

0GL_KR0B(3gl_knol>) 

DGL_POLy(dgl_poly) 

DGL_RflS(dgl_raster) 

GLE_HPGL(gle_hpgl_out) 

GLE_RGL(gie ra5_out) 

GLE TYPES (gTe_type5) 

LIBTdgl_lib) 

display max y 

DGL_(<fJ0B(3gl knob) 
DGL_POLV(dgl~poly) 
DGL_RflS(dgl raster) 
GLE_HPGL(gle hpgl_out) 
GLE_RGL(gle ■ras_out) 
GLE TVPES(gTe_types) 
LIBTdgl lib) 

display mTn_x 

OGL_RSS(dgl_raster) 
GLE_HPGL(gle hpgl_out) 
GLE RGL(gle "ras out) 
GLE TYPES (gTe types 
LIBTdgl^lib) ~ 

display mTn_y 

DGL_RHS(dgl_ra5ter) 
GLE_HPGL(gle hpgl_out) 
GLE RGLIgle Fas out) 
GLE~TYPES(gTe_typesi 
LIBTdgl lib) 



display move 

LIB(dgl_llb) 
display name 

DGL_HPGL(dgl._hpgl) 

DGL INQfdgl inq) 
DGLlRflSidgll^raster) 
GI.E_HPGL(gle hpgl_ou1:) 



GLE RGLIgle ras out) 
GLE''TYPES(gTf!_type5i 
LIBTdgl_lib) 
display name char count 
DGL IRQ (dgl inqT 
GLE;iGEN(glejen) 
GLE_HPGL(gle„hpgl_out) 

GLE RGLfgle ras_out) 

OLE TYPES(gTe_type5) 

LIBTdgl_lib) 
display res x 

DGL IRCl(dgl_:inq) 

DGL~RftS(dgl_r3ster) 

GLE_HPGL(gle hpgl_out) 

GLE RGLfgle ras out ) 

GLE TYPES (gTe types 

LIBTdgl_lib) ~ 
display re5_y 

DGLjFJQrdgl i 

DGL_RfiS(dgl r 

GLE HPGL(gle 

GLE RGLIgle r 

GLE~TYPES(gTe 

LIBTdgl_llb) 
display_term 

LIB(dgl_lib) 
disptime 

ri68KSYS|ci) 
dither pattern 

GLE_^GHgle_ras_out) 
dither support 



nq) 

aster) 
hpgl out) 
a s_ou 1 ) 
-types) 



DGL POLVVdql 
GLE2HPGL(gle'; 



poly) 
,hpgl_out) 



GLE_TYPES(gIe_types) 
dither type 

GLE IfGLIgle ras out) 
division code" " 

SRI1_DRV|5rm) 
dkvid 

CTSBLE 

ETU 

INITIldr) 

INITLOfiO(sysqlobal5) 

M68KSYS(ci) 
dl 

INirLOPD(bootdammodule) 
dlast 

LIFDfin(lifmodule) 



17263c 
6311c 

17594c 
;079d 
3488c 

21449c 

432d 



10S8C 1062c 1068c 
1125c 





20134d 


20166c 20163c 20186c 


«ss 


17287c 




*** 


18100c 




«** 


176S7C 




*** 


1326d 




«*# 


214S0C 






20021d 


21193d 


iK«x: 


2123c 




*«* 


7689c 




«** 


8501c 




*** 


lOSld 




*** 


7S83C 




t** 


8500c 




**« 


lOSOd 






2002Sd 


2124Sd 




3023d 


3603d 




20S22C 


21041c 21144c 21420c 


*** 


18082c 




*«* 


20620c 




«** 


17331c 






7206c 


7681c 




8505c 


8509c 


*** 


1087d 




t** 


21124c 




x»* 


18084c 






20613c 


20628c 


«»« 


17335c 






7208c 


7682c 




8506c 


SSlOc 


*«« 


1088d 




*«« 


21126c 




*»* 


17331c 






720SC 


7679c 


*MM 


8503c 




*** 


1085d 




**# 


21123c 




«ik>i 


17335c 






7207c 


7680c 


**t 


8504c 




KlKX 


1086d 




XIKIK 


21125c 







20123d 


20165c 




17035c 


170360 




nisic 


17157c 


x»» 


6514c 






17S86C 


17590c 




7232c 


7233c 




7616c 


7618c 




7650c 


7651c 




8433c 


8440c 


««* 


1078d 






21215c 


21218c 




65Uc 


6513c 


*** 


2128c 






7586c 


7S91C 




7649c 


7650c 




8434c 


8441c 


*** 


1079d 






21216c 


21217c 




6200c 


6216c 


*«» 


174e9c 




»«« 


7691c 






8435c 


8442c 


*)K* 


1083d 






20258c 


20511c 




6201c 


6217c 


»X* 


17470c 




*!K« 


7692c 






843ec 


8443c 


«X» 


1084d 






20259c 


20514c 




20O28d 


21024d 




108d 


258c 




8046d 


8206c 


«»S 


20067c 




««* 


7705c 




t*t 


llOOd 






8014d 


8046d 


«** 


218d 




*** 


1847c 






877c 


880c 


«*« 


2318c 




«*« 


286d 






195c 


679c 


K»;« 


586d 






200d 


283c 



20168c 20185c 20187c 20189c 20195c 20202c 

17037c 17038c 17039c 17040c 17123c 17137c 17138c 171460 17147c 17148c 17149c 171S0C 
17158c 

7234c 72S3C 72S4c 7271c 7272c 7280c 7281c 7289c 7297c 7583c 7584c 7590c 

7620c 7627c 7634c 7635c 7636c 76430 7644c 7645c 7646c 7647c 7648c 7649c 

76S2C 7660c 7661c 7662c 7663c 7666c 7667c 

3447c 8454c 8461c 8469c 



76190 7620c 7e27c 7634c 7635c 7636c 7643c 7644c 7645c 7646c 
7651c 7652c 7660c 7661c 7662c 7663c 7666c 7667c 
8448c 845SC 8462c 8470c 



8449c 8456c 8464c 8471c 

20512c 21181c 

8450c 8457c 846Sc 8472c 

2051SC 

21098c 21207c 21259c 
269c 1097c 
8206c 8214c 



688c 707c 
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*** 


774d 














UCSlJ_DBt1(uc5dmo^ ule) 




93c 
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*** 
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778d 
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dlastbyte 
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*«» 
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LIBMRIBN 


*«* 
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*** 
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169d 
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129c 


242c 












dloadtime 


















INITLOfiD(loaderj 


*x« 


83Sd 
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*** 
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*** 
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209c 
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«»* 
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240c 
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235c 
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**« 
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*** 
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266c 










dma i'r 1 
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*** 
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*** 
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dma Dr iority 

DTSCHPIB(dischpii) 
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*** 
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dmachenneltype 
F988S(f9885dvr) 

dn 

CS8C cs30) 
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268c 
















393c 


461c 


579c 












622c 
















1191d 


1243d 


1247c 


1274c 


1278c 


1318c 


1319c 


1345c 


1S40C 


1554c 


1S74C 


1S96C 


1800c 


1623c 






934d 


lOllc 


1016c 












325d 


329d 


330d 


331d 


332d 


333d 


334d 


335d 


657c 


658c 


668d 


e72c 


673c 


686d 


691c 


694c 


720d 


726c 


733c 


737d 


743c 


7S2c 


756d 


76Sc 


795c 


796c 


797c 


798c 


882c 








IMd 


118d 


121d 


123d 


125d 


127d 






1116c 
















126c 


131c 


148c 


164c 


201c 








2208c 
















1681c 
















489c 


492c 














148d 
















585c 
















11 24c 
















36c 


201c 


350c 


3Slc 










417c 
















1S02C 
















lOIOc 


1092c 














740c 


742c 














50c 


240c 


245c 













1348c 1349c 1360c 13e2c 1469c 1S05C 



337d 


41Sc 


475c 


497c 


8S6d 


704c 


707c 


711d 


715c 


716c 


772d 


78Sc 


787c 


791d 


794c 



1125d 1193c 1217c 1304c 1310c 
1389c 1390c 1392c 1428c 1429c 



1312c 
1430c 



1321c 1322c 1329c 1331c 1337c 1339c 1351c 1388c 
1431c 14S6C 1457c 1458c 1459c 



CRT (crt) 


*^* 


222d 


















DGL C OUT(dgI confg out) 




11087d 


11097c 


11099c 


11120c 


11121c 










DI URV(init dlscintT 


**t 


209d 


















OMH DRV(inlt ditia) 




215d 


234c 
















EDRTVER(edriver) 




9ed 


leec 


177c 














GCRT(crtb) 




493d 


518c 


519c 


S31d 


541c 


542c 








GLE HPGL{gle hpgl out) 




7052d 


7542c 


754 3c 


7549c 


7SS0C 


75S1C 


7552c 


7553c 7554c 7555c 7556c 


75S7C 7S58C 


G DRVlinit gpio) 
H DRv(init Fipib) 


«** 


227d 


















*«« 


225d 


















ffllT(misc)" 




301d 


359c 
















I0LIB(5erial_0) 




2234d 
2361d 


2253c 
24nc 


22S4C 
2412c 


2255c 
2459c 


2274c 
2460c 


2275c 


2276c 


2297d 2316c 2317c 2318c 


2337c 2338c 2339c 


I0LIB(5erial_31 




2S31d 


2563c 


2564c 


256SC 


2566c 


2575c 


2576c 


2577c 2601d 2663c 2664c 


26e5c 2685d 271Sc 






2716c 


2717c 


2739d 


2781c 


2782c 


2783c 








KERNEL(genera:_0) 




814d 
1138c 


819d 
1146c 


824d 
1147c 


829d 


834d 


839d 


844 d 


967d 1032c 1033c 103Sc 


1073c 1075c 1122c 


LIBRRRIRN 




437d 


453d 


822c 














niui 




399d 


434d 
















nOREFSVS(mfs) 




670d 


673c 
















durmyl 

DGL C 0UT(dgl confg out) 
LIFCflH(litmodule) 
























11167d 


11277c 


















46d 


254c 


498c 














dummy2 

LIFDf)n(lifmodule) 
























47d 


2S4c 


498c 














durTny3 

LIFDfln(lifmocluIe) 
























50d 


254c 


498c 














dummy4 

LIFDfttl(lifmodule) 
























57d 


524c 
















dummy byte 

MINTT(iramigD) 
























211d 


217c 


218c 














dummy char 

DlSCHPIB(dlschpib) 
























272d 


283c 


33 Id 


342c 












durmy driver 

KERNEL(general_0) 
























809d 


816c 


821c 


826c 


831c 


83ac 


841c 


846c 1179c 1180c 1281c 




dummy driver a 
KElSf]El.jgenerai_0) 
























819d 


1181c 


1183c 


1187c 


1188c 


1190c 








durnmy driver b 

KERNEL(genfrsl 0) 
























839d 


1191c 


1192c 














dummy driver ba 
KERREL genera:_0) 
























844d 


1193c 
















dummy dr ver c 
KERREL generai_0) 
























814d 


n82c 


1189c 














dummy driver dw 
KERREL general_0) 

dummy driver w 
KERNEL general 0) 
























829d 


usee 






































824d 


n84c 
















dummy dr ver wa 

KERfJEL genfral_0) 
dummy drivers 
























834d 


U85c 




































DC tJRV init dc) 


»«IK 


613c 


















DI~DRV lnit~dl5clnt) 


««« 


218c 


















G PRVtinit g|3io) 
H"DRV(init"hpib) 


««* 


236c 


















««* 


234c 


















KERNEL general 0) 




743d 


1178c 


1202c 


1231c 












RS_DRV init_psy 


»»* 


229c 


















dummy ds 

fit1IiJO[amlgodvr) 
























508d 


521c 
















dummy isc 






















DC CRV(lntdc| 




265d 


zasc 


274c 


282c 


284c 


285c 


290c 


293c 




dummy on off 

DGL Rfl5(dgi raster) 
























17286d 


17587c 
















dummy pr 

DC CRVIintdc) 
OnH DRV (init dma) 






















m** 


S36c 




















185c 


202c 


222c 


225c 












IOLTB (general 4) 
KERNEL!gener,iT 6) 


*** 


1277c 




















1214c 


1269c 
















KERNEL(iodec:iarations) 


*** 


468d 


















SRM_DRV(5rm) 


«»« 


1203c 


















durtmy si 

DW DRV(init dma) 
























223c 


226c 
















IDLTB (general 4] 
KERNELTgeneraT 0) 


**» 


1276c 




















1213c 


1268c 
















KERNEL lodecla-ations) 


*** 


469d 


















SRn_DRV(srm) 


t** 


1202c 


















dumrny tfr 1 

KERREL(Todecla rat ions) 


**t 


S49d 


















dunmy tfr 2 

KERNEL (Todeclarat ion:,) 






















*** 


553d 


















dummy xxx 

GLE~TYPES(gle_type5) 
























10e2d 


1212d 
















dummyEatcmd 

SYSDEVS(sy5dev5) 
























445d 


e07c 
















dummybatread 

SVSDEVS(5y5di!v5) 
























447d 


606c 
















dumrriyboolproc 
SYSDEVS(5y5d<;vs) 
























410d 


619c 
















dummyc 

PRlNTER(prtdvr) 
























153d 


158c 
















durrmycleario 
INiT 
























2530c 


2544c 
















dummyclocKio 

SVSDEVS(6ysdev5) 
























455d 


610c 
















dummyclockreq 

SYSDEVS(sy5dev5) 
























4S3d 


609c 
















dummyclocksys 
SYS0EVS(5y5devs) 


.»» 


461d 
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durrvnycmdchar 
I168KSYS(C1J 
























145d 


1176c 

















dijmmycr 1 11 

OGl C OUT(d9l_confg_out) 

SysnE7S(sy5<Jav5) 
d'uMTjydat aproc 

HPHIL (hphil) 
ctuTfi^ydb :rt 

SYSDEVS(5y5<)ev5) 
dutTvnydebug 

INtT 



dmwnyhphilcmd 
dunrnvkbd 



Svsbevsisysdevs) 



SVSDEVS(5ysdev5) 
durrmykbiwait 

KEyS(key5) 
durrmykey 

KEVS(keys) 
dumnyopsproc 

HPHIL(hphll) 
duiwnyout2 

SYSDEv'S(sy5dev5) 
durmiyproc 

SYSDEVS(sy5devb) 
dummyreql 

SVSDei^S(sy5devs) 
durfnys1atu556 

S864XOVR(a804xdvr; 
dummytimerio 

SVSDEVS(5ysdevs) 
dunrnytm 

SYSDEVS(sy5dev5) 
dunmyword 

BC_ORVrinit_dc) 

DC_ORV intdc) 

RS_DRV(inlt_r5) 
dump c 

C„HOO< 
dump graphics 

DGr_RflS(dgl_rastei ) 
dumpa 

CRT(crt) 

dumpaip^a 

KEVSfKsys) 
dimvpalplianook 

CRTjcrt) 

GCRT ( ■: r t b ) 

KEVSikeys) 

SvSDEVS(5y5dev5) 
dumped 

LIBRflRISN 
dumpg 

CRT(crt) 

GCRT(crtb) 
dumpgat 

DGt_RRS(dgl_raster ) 
dumpgraphics 

KEVE(key5) 
dwRpgraphic shook 

CRT(c-t) 

C HOOK 

DGl RHS(dgl raster) 

GCRTfcrtbj 

KEYSfkeys) 

SYSDEVSlsysdevs) 



11186c 
373d 


487d 


629c 




71d 


195c 


200c 


286c 


489d 


630c 






2529c 


2543c 






593d 


653c 






402d 


604c 


612c 


615c 


574d 


579c 






407(J 


411c 


412c 




73d 


194c 






AOOd 


600c 


601c 




398d 


622c 


623c 


624c 


405d 


603c 


614c 




71d 


405c 


406c 




477d 


611c 






4070 


618c 


628c 




603d 
264d 
220d 


678c 
273c 


679c 
276c 


680c 
277c 


eod 


137c 






17306d 


17449c 


17514c 




180d 


e97c 






394d 


446c 


496c 


510c 


697c 
511c 
39Sc 
I22a 


624c 






304d 


322c 


402c 


1440c 


216d 
134d 


698c 
sue 


512c 





17364d 17454c 17519c 

398d 445c 497c 

698c 
137c 
17444c 
512c 
399c 
123d 625c 



e2Sc e26c 627c 



703c 704c 

358d 389c 391c 



dumpmod 

lIBRnRIflN 
dumpref 5 

LIBRfiRIfiN 
dunptext 

LIBRflRIRN 
djmw/indow 

ETU 
dup 

UCSD_Dfin(ucsdmodu 
dupindex 

UCSO_Dfiri(ucsdmodu 
dupinx 

UCSD_DRn(uc5dmodu 
dup3 icatelink 

INITLDflD(sysgloba 

SRI10flrl{5rmdammodu 
duration 

fl804XDVR(a304xdvr 

SYS0£VS(sy5devs) 
dutch kbd 

R80fXDVR(a804xdvr 

NONUSKB02 

SYSDE^SCsysdevs) 
dv 

fitllGO(csamigo) 



le) 
le) 



CS80( 

CS80( 

CTflBLE 

ClfiBLl 



s80) 
sSOdsr) 



[brstuff ) 



CTHBLi;(ctr 

CTflBLK [options) 
CTRBLi: scanstuff) 
EPROMSieproms) 
INIT( mitunits) 
INITLOfID 

INITL0nD(5y59lobal5) 
nlNIT.:c580ir) 
nlNIT(qminit) 

mui 

TBPE8KUP 

TPIPEBKJP(cs80tbdvr) 
TflPE8tUP(C580tbr) 
dvid 

INITLOPDdoader) 
LIBRflPISN 
n68KSvS(ci) 
UCSD_Dfln(uc5dmodu]e) 



31Sd 
2266d 
2227d 

864d 



137d 
1660c 

157d 
3e7d 

188d 
198c 
147d 

351c 
451c 
936c 

1191d 
934d 
334d 
786c 
H4d 

1117c 
820 

2209c 

1682c 
149d 
5860 

1017c 
36c 

1010c 

493c 

51c 

832d 

3157c 

776d 

96c 



402c 

2294c 2327c 

2254c 2548c 2599c 

888c 923c 

357c 39ed 400c 

328c 3^2c 344c 

408c 423c 

1766c 

160c 

416d 417c 



372c 
580c 

1243d 

1012c 

336d 

787c 

U8d 



1248c 

1017c 

337d 

882c 

121d 



202c 



178c 
1092c 
740c 742c 
239c 244c 



3168c 

107c HOC 



1334c 
416c 
123d 



1363c 

476c 
125d 



1470c 
497c 
127d 



1S54C 
737d 



1580c 
744c 



1561c 

747c 



1574c 
752c 



1578c 
756d 



1579c 

767c 



1S96C 1600c 
768c 772d 
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dvrtemp 

fltllGOlamigodvr) 

CS80(c580dvr) 

CTnBLE(ctr) 

CIISCHPIB(bkgn(l) 

DISCHPlB(dis:hpib) 

INIT(initunits) 

INITLOflD 

INITL0flD(sy59lobal5) 

niNITfcseoir) 

MINIT hminit 

niNITiqminiti 

PRINTER(prtdvr) 

SRMDfln(srmdainnodule) 

TflPEBKUP(c580tbdvr) 

TSPEBKUP(C580ttir) 

dv rtemp2 

CS80(cs80dsr) 

CS80(c5eOdvr) 

CTBBLErctr) 

INITLOnO 

INITL0nD(5ys.3lobal5) 

dwanted 
ETU 

dx 

DGL_HPGLI (dgl hpgli) 

DGL KNOB(dgl ITnob) 

DGL POLy(dgl~po:y) 

GENldgl qenl" 

GLE snnlfK(gle smark) 

GLE~STEXT(gl<; stext) 

LIBTdgl_lib) 

dxmax 

GEN(dgl gen) 

LIB(dgl_libJ 
dxmin 

GENtdgl gen) 

LIB(dglJib) 
dxunits 

DGL vaRS(dgl vars) 

GENTdgl_9en)" 
dy 

CLOCK(clock) 

DGL_HPGLI (dgl hpgli) 

DGL KNOB (dgl ITnbb) 

DGL POLY(dgl"poly) 

GENldgl gen)' 

GLE_snnl?K(glc smark) 

GLE STEXT(gl(rstexti 

LIBTdgl_lib) 

dyes 

DGL_vnRS(dgl_.v8rs) 
dynax 

GEN(dgl gen) 

LIB(dgl_lib) 
dymln 

GEN(dgl_gen) 

LIB(dgl_Iibi 
dyunits 

DGL VflRS(d9l vars) 

GENTdgl_gen)~ 



S98c 


634c 


646 c 


648c 


1090c 


1101c 


n34c 


1231c 


480c 








115c 


129c 


130c 


133c 


447c 


497c 


508c 


526c 


2213c 








1686c 








lS3d 








759c 


806c 






308c 


500c 


SOlc 




984c 


996c 


1133c 


1276c 


276c 








337c 


451c 


744c 


8e7c 


357c 


3S8c 


735c 




284c 








627c 


925c 


929c 


933c 


1192c 


1228c 


1236c 




481c 








1687c 








154d 








54 d 


258c 


896c 





675c 
1342c 



702c 
1367c 



720c 766c 
1368c 1382c 



777c 799c 
1387c 



18023d 18029c 18030c 18045d 18080c 18083c 1803Sc 18090c 18101c 18102c 

18045d 18112c ISllSc 18U7c 18122c 18135c 18140c 18142c 18145c 

20417d 20452c 20457c 20614c 20e20c 20621c 20629c 2074ec 

3027d 3030d 3033d 3035d 327Sd 328ec 3296c 3303d 3308c 3314d 3321c 3328d 3336c 

5098d S158C S160C 

4027d 4037c 4038c 4039c 4046c 4047c 4048c 

20070d 20145d 20152c 20154c 20157c 20172d 20180c 20187c 20188c 20189c 20194c 20196c 20197c 20204c 

20205c 20207c 20249d 20254c 202S8c 2026ed 20272c 20277c 20785d 20799c 20803c 20804c 

3023d 3603d 3616c 3623c 
20052d 20488d 2050SC 20512c 

3023d 3603d 3eiSc 3623c 
20052d 20488d 20505c ZOSlIc 

1081d 

3493c 3S04C 3517c 3623c 3628c 



lOld 106c 109c 
18023d 18029c 13030c 18045d 18080c 



16083c 18086c 18091c 18101c 18102c 



18045d lenSc ISlISc ISlISc 18123c iei36c 18141c 18142c 18145c 



20417d 20452c 20457c 20613c 20621( 

3027d 3030d 3033d 3036d 327Sd 

5099d 5159c 5161c 

4027d 4041c 4042c 4043c 4050c 



20628c 20629c 20746c 
3287c 3297c 3303d 



4051c 4052c 



3309c 3314d 3323c 3328d 3336c 



20070d 20145d 201Slc 20154c 20155c 20172d 20180c 20185c 20186c 20189c 20194c 20196c 20197c 20203c 
20204c 20207c 20249d 2025SC 20259c 20266d 20273c 20278c 2078Sd 20799c 20803c 2080SC 



3024d 3603d 3618c 3624c 
20053d 20488d 20505c 2051Sc 



3024d 3603d 3617c 3624c 
20063d 20488d 20S06c 20514c 



1082d 
3493c 



3517c 3S2ec 3624c 3628c 



finiG0(ami90dvr 
flnlGO csamigo) 
ri68KSVS(ci) 

e_rcrd 

flMIGO(amigodvr 

eamode 

LIBRflRIRN 

ea reg 

LISRftRIRN 



ebO 

CS80(cs80) 

CS80(C580d5r) 

TfiPEBKUP(c5eCtbdvr) 
ebl 

CS80(cs80) 
ebll 

CS80(C58O) 
ebl3 

CS80(cs80) 
ebl4 

CS80(C580) 
ebl5 

CS80(cs80) 
ebl6 

CS80(cs80) 
ebl8 

CS80(cs80) 
eb20 

CS80(cs80) 
eb21 

CS80(cs80) 
eb23 

CS80(cs80) 
eb2S 

CS80(cs80) 
eb29 

CS80(C580) 
eb3 

C380(cs80) 
eb38 

CS80(C580) 
eb39 

:S80(C580) 
eb4 

CS80(C580) 
eb42 

CS80(cs80) 
eb45 

CS80(C580) 
eb46 

CS80(cs80) 
eb47 

CS80(cs80) 
eb53 

CS80(C580) 

CS80(C580d5rj 

TnPEBKUP(C580tbdvr) 



889c 
Hid 

656d 


914c 
701c 


702c 


703c 
















796d 


8I8c 


819c 


827c 


830c 


839c 


852c 


86ec 


917c 


918c 


921c 


435d 
943c 


629c 
961c 


669c 
963c 


696c 
lOUc 


724c 
1013c 


725c 
1031c 


840c 
1101c 


885c 
UOSc 


891c 
1125c 


900c 
1133c 


929c 


436d 
842c 
019c 


607c 

886c 

1036c 


630c 
894c 
1108c 


631c 

932c 

112ec 


632c 

933c 

1128c 


633c 

933c 

1130c 


634c 
943c 
U34c 


635c 

9S4c 

U36c 


637c 

957c 


664c 
962c 


669c 
966c 


131d 
657c 
S37c 


284d 
765c 




















132d 


2Ka 




















142d 


2f:8d 




















144d 


2!i9d 




















145d 


290d 




















146d 


291d 




















148d 


293d 




















150d 


295d 




















152d 


296d 




















153d 


297d 




















ISSd 


298d 




















157d 


30Od 




















161d 


301d 




















134d 


286d 




















nid 


303d 




















172d 


304d 




















135d 


287d 




















175d 


306d 




















178d 


307d 




















179d 


308d 




















180d 


309d 




















187d 
724c 
606c 


314d 
838c 





















832c 933c 



724c 725c 
975c 980c 
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et!S4 




























CS80!C580) 




188d 


315d 






















CSSClcsSOdsrJ 
i:ftPEEKUP(C580tbdv ) 


*** 


72Sc 


























607c 


839c 






















ebSe 




























CS8O(C530) 




190d 


316d 






















CSSOfcsSOdsr) 
TftPEBKUP(cs86tbdvO 


*** 


727c 


























609c 


841c 






















eb60 




























CS8O(C580) 




194d 


319d 






















CSSOIcsSOdsr) 
TnPEBKUP(cs86tbdv ) 


*** 


731c 


























613c 


84Sc 






















ebW 




























CS8O(C580) 




196d 


320d 






















CSSOIcsSOdsr) 
TfiPEEKUPIcsSOtbdv-) 


*** 


733c 


























615c 


847c 






















ecej. 




























CS8O(cs80) 




197d 


321d 






















CS80lC580dsrl 
TftPEeKUP(C586tbdv-) 




657c 


734c 
























S37c 


616c 


765c 


848c 


















cb scar 




























rssOKsSOdsr] 
TBPefcKUP(cs86tbdv-) 




641d 


6S7c 


e58c 


661c 


662c 


664 c 
















521d 


537c 


538c 


541c 


542c 


544c 


701d 


765c 


766c 


769c 


770c 


772c 


ebddarqs 




























ED«lVER(edriver) 




34d 


116c 






















eblanic 




























EDIHVER(edriver) 




33d 


319c 






















ebrate 




























ED»IVER(edriver) 




47d 


334d 


340c 




















ETU 




591c 


1071c 






















ecc&de 




























EDI!IVER(edriver) 




105d 


107c 






















ecfail 




























EDRIVERledriver ) 




34d 


291c 






















ETU 




582c 


595c 






















echeck 




























EDRIV£R(edriver ) 




33d 


320c 






















ETU 


#«♦ 


572c 
























ecr>o 




























DGL HPGLI (dql hpq'A 
OGL KNOBIdgl TTnoto 




18017d 


18031c 


18036d 


18049c 


18051c 


18054c 


18061c 


18069c 


18087c 


18105c 


18112c 


18114c 




18024d 


18032c 


18036d 


18050c 


18052c 


18055c 


18062c 


18064c 


18070c 


18119c 


18133c 


181S1C 181S8C 18160c 


DGL VfiRS(dgl vam 




1141d 


1144d 






















KE¥5(keys! 




456c 


467c 






















LI8(oql lib) 

PRINTERTprtdvr) 

SYSDtVS(5ysdev5) 




20076d 


20080d 


20934d 


20943c 


20951d 


20996c 


21017c 














157c 


181c 


184c 






















238d 


528c 


533c 


542c 


S46c 


seoc 


564 c 


569c 


638c 








echo ci^rsor 




























LlBlOgl lib) 




20172d 


20232c 


20234c 




















echo_qcb 

DGL l<NOB(dgl_knot)> 






























18047d 


18068c 


18091c 


18120c 


1812SC 


18152c 


18155c 












echo mult 




























GLE_l<N0B(3le_knob^in) 


18017d 


isnic 


18189c 




















echo rate 




























GLC kNOBOle knob in) 


18016d 


18137c 


18138c 


18139c 


18140c 


18171c 


18270c 












echoerror 




























OGL hPGLKdgl hpgli 
OGL l;NOB(dgI Fnofc ) 




18044d 


18053c 


18057c 


18119c 




















18044d 


18054c 


18058c 


18165c 


















ecode 




























EDRIVER(edriver ) 




79d 


107c 


128c 


313d 


322c 


329d 


331c 


337d 


340c 


346d 


348c 




ETU 




639d 


641c 


642c 




















INITIldr) 




2408d 


2489c 


2491c 


2492c 


2504c 
















INITlOHDIbootdammod 


jle) 


616d 


620c 


621c 


622c 


















ect tyce 

lRlT[0fiD(mini) 






























337d 


34 Id 






















ecwrite 




























EDRIVER(edriver) 




33d 


318c 






















ETU 




578c 


S93c 






















edefs 




























INIILOflD(loader ) 
edqe 

BGL_hPGHd9l_hpgl l 




1067d 


1127c 


1133c 






















17227d 


17228d 


17229d 


17230d 


17231d 


17232d 


17233d 


17234d 


17235d 


17236d 


17237d 


17238d 17239d 17240d 






17241d 


17242d 






















DGL INQ(dgl inq) 
OGL POLV(dgT poly) 
DGL_RflS(dgl_ra5ter) 


*M* 


6078c 


























20159c 


20186c 
























17562d 


17563d 


175e4d 


17565d 


17566d 


17567d 


17568d 


17569d 


17570d 


17571d 


17572d 


17573d 17574d 17S75d 






17576d 


17577d 






















DGL_VflRS(dgl_var5l 


*«* 


1035d 
























e^ge a 

DGE POLy(dgl polyl 






























20513d 


20532c 






















edge B 

DGr,POLV(dgl_polyi 






























20614d 


20526c 






















edge irdex 

OGr_POLy(dgl_polyl 






























20390d 


20484c 


20485c 


20503c 


20504c 


20535c 


20539c 


20542c 


20673c 


20680c 


20684c 


20726c 20736c 


edge polygon 

DGr POLV(dgl polyi 




20192d 


21060c 


21105c 


21136c 


21167c 
















edge verteK 

Dor POLVldgl polyl 






























20388d 


20484c 


20485c 


20536c 


20673c 


20680c 


20684c 












edhea3er 




























ETU 




865d 


1076c 


1076c 


1077c 


1078c 


1079c 


1080c 


1081c 


1082c 








edi clr 




























DT DPV(extdi) 


«*# 


168d 
























DI DPV(init_disciit 


*** 


232c 
























edi end 




























DT DRV(extdi) 


«** 


172d 
























DI DRV(lnit disci'it 


««* 


227c 
























edi Tnit 




























DT DRV(extdi) 


*»* 


ISSd 
























DI^RV (init_disci(it 


»*» 


219c 
























edi Tsr 




























DT DRV (extdi) 


*** 


156d 
























DI DRVflnit discint 


«** 


220c 
























edi ppoll 

DT DRV(extdl) 




























*** 


167d 
























DI~DRV(inlt discint 


*«* 


230c 
























edi rdb 




























DT DRV(extdi) 


*** 


lS7d 
























DI DRV(lnit discvit 


#** 


221c 
























edi rds 




























DT DRV(extdi) 


*** 


161d 
























DI DPV(init discint 


*** 


225c 
























edi rd» 




























DT DP^fextdi] 


*** 


lS9d 
























onRvJinit discint 


*«* 


223c 
























edi send 




























DT DPV(extdi) 


*** 


lesd 
























DI_DPV (init_disclnt 


*** 


229c 
























edi set 




























DT DRV(extdi) 


*«* 


169d 
























DnRVJinlt discint 


««* 


231c 
























edi test 




























DT DRV fextdi) 


*«* 


170d 
























DI~DPV(init discint 


«** 


233c 
























edi tfr 




























OT DRV(extdi) 


*** 


lesd 
























DI DRV(init discint 


*** 


22ec 
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edi wtb 




























DT DPy (extdil 


*** 


ised 
























01 Pf^(init discint 


*** 


222c 

























edi wtc 










DT DRV(extdl) 


**« 


163d 






DI ORV(init discint) 


«** 


226c 






edi wtw 










DT DRV(extdi) 


X** 


160d 






DI DRV(init discint) 


*** 


224c 






edit 










m8KSYS(ci) 




66Id 


716c 7r'c 718c 720c 721c 722c 




editor 










lie8KSYS(ci) 




39d 


720c lOlEc 1118c 




edriver 










EDRIVER(edriver) 


^XJK 


23d 






ETU 


**M 


26d 






efttable 










fiSCII 


***i 


321c 






ETU 




320c 


903c 




INIT(mi5c) 




707c 


710c 716c 718c 723c 727c 




INITLOBD 




1706c 


1707c 1708c 




INI T LOAD ( boo tdammodule) 




670c 


709c 




INITLOflDisys'Jlobals) 


X** 


264d 






LIFDflMflifmoduIe) 




421c 


543c 544c 960c 1004c 




SRMDfln[srmdarnmodule) 


X** 


92c 






UCSD fin(uC5d am) 


**# 


272c 






UCSD DftM(uc53module) 




212c 


291c 546c 




ef ttabTept rtype 










INITL0flD(5y59lobals) 




nsd 


264d 




ef ttabletype 

INITL0flD(5y5<3iobals) 












170d 


175d 




eg clr 










C ORV(extg) 


*** 


183d 






G DRV(init gpio) 


*»* 


247c 






eg Tnit 










C_ORV{extg) 


«** 


n2d 






G ORVJinit gpio) 


*** 


237c 






eg 15 r 










5 DRVfextg) 


**» 


173d 






G DRV(init_gplo) 


x*« 


238c 






eg rdb 










5 DRVIextg) 


*** 


174d 






G_DRV{inlt_gpio) 


«*« 


239c 






eg rds ~ 










5 DRVIextg) 


*** 


178d 






G DRVfinit gpio) 


*** 


243c 






eg rdw 










ffJRVjextg) 


%** 


176d 






G DRVJinit gpio) 


#** 


241c 






eg_5et 










C DRV(extg) 


*** 


184d 






GJRV(init_gpio) 


*** 


246c 






eg test 










C DRVIextg) 


%** 


185d 






G DRV{init gpio) 


**x 


248c 






eg Tfr 










C DRVIextg) 


#*« 


182d 






G_DRV(init_gpio) 


«*x 


245c 






eg wtb 










5 ORV(extg) 


**x 


175d 






G_DRV(init_9pio) 


*** 


240c 






eg wtc 










5 DRV(ext3) 


*** 


180d 






G_DRV(init_gpio) 


**« 


244c 






eg wtw 










5 DRVIextg) 


**« 


177d 






G_DRV(init_gpio) 


*** 


242c 






egetinfo 










EDRIVERIedriver) 




42d 


325d 331c 




ETU 


XNCIK 


660c 






eglobal 










INITLOnD(loader) 




I070d 


1127c 113;:c 




M68KSyS(ci) 




190c 


ig2c 




eh clr 










FT ORVIexth) 


«*« 


183d 






H DRV(init hpib) 


**# 


248c 






eh end 










H DRVIexth) 


«K(« 


187d 






H'DRVlinit hpib) 


*»:% 


243c 






eh Init 










Ff DRVIexth) 


*** 


170d 






H DRV(ihit_ripib) 


*«* 


235c 






eh Isr 










R DRVIexth) 


*** 


171d 






H_DRV init_hpib) 


««« 


236c 






eh ppo 1 1 

R DRVIexth) 


*** 


182d 






H DRV(init hpib) 


*** 


246c 






eh rdb 










R DRVIexth) 


««« 


172d 






HlDRViinit^hpib) 


«1KX 


237c 






eh rds 










H DRVIexth) 


«*« 


176d 






H ORVfinit hpib) 


«*« 


241c 






eh Tdw 










R DRVIexth) 


**« 


174d 






H DRV(init_hpib) 


*•** 


239c 






eh sehd 










R DRVIexth) 


«** 


181d 






H-ORVfinit hpib) 


»** 


245c 






eh set 










R ORVIexth) 


«»» 


184d 






H DRv(init hpib) 


««« 


247c 






eh test 










R DRVIexth) 


M** 


185d 






H DRV(init hpib) 


«»« 


249c 






eh tfr 










R DRVIexth) 


*** 


180d 






H~DRV(init hpib) 


*** 


244c 






eh wtb 










R ORVIexth) 


K»« 


173d 






H DRVfinit hpib) 


*M* 


238c 






eh wtc 










R DRVIexth) 


»** 


178d 






H~DRv(inlt hpib) 


*«# 


242c 






eh wtw 










R DRVIexth) 


t** 


175d 






H_DRV(init_hpib) 


#** 


240c 






cheap 

INITLOnDlloader) 












1066d 


1126c 1132c 




M68KSVS(ci) 




192c 


S07c 




eight diget epsilon 
DGL vfiSSl3gi vars] 










*** 


1150s 






LIBIdgl lib) 




20519c 


20520c 20915c 20917c 




eirit 










EDRIVERIedriver) 




45d 


343d 34ec 




ETU 


«»» 


641c 






eirbyte 

KERNELtgeneral 0) 
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1207c 


1265c 


KERNELIiodeclaraticns) 




439d 


513d 527d 





niNII (csSOir) 
emitart ef 

LIBRt RIRN 
em3 1 arr isp 

1.IBRI RIHN 
emitdii 

LIBRfRinN 



emitea 

LIBRf-RIflN 



emit inri 

emit incx 

LIBRBRISN 
emit inl 

LIBRfiRIBN 
efnitpo;.tinc r 

LIBRFiRIRN 
emit predecr 

LIBRfiRIflN 
emit rei. list 

LIBRinRIflN 
emit s re g 

LIBRf<RinN 
emitunop 

LIBRPRIfiN 
empt ydJ a 

HEflPl(tipnl) 
enab 

EDRIVER(edriver) 
enable 

fl804)'DVR(a804xdvrl 
enable auto release 

CS80(C580T 
enable byte 

F988F(f988Sdvr) 
enable report^changjs 

TBPEEKUP 
end error link 

KFRNEL(general_0) 
end mode 

DC DfV(irtdc) 

DiSCHPIBfdischpit i 

I0lIE:(genersl_4) 

KERNEL(iodeclarat ions) 

SRn CRVfsrm) 
end oT cylinder 

finiGr(amigodvr) 

fihlGCiicsamigo) 
end of file 

C580TC580) 

CSSOlcsSOdsr j 

TfiPEf KUP(c580tbdv-) 
end of volume 

CS80'(C580) 



CS80(cs80d5r) 
TfiPEf KUP(c580t 
end set 

lSLIfc(hpib_l) 



bdv-) 





607d 


618c 


619c 


























580d 


588c 


5a2c 


598c 


632c 






















S86d 


635c 


664c 


689c 
























571d 
894c 
n26c 


582c 

954c 

1128c 


607c 

957c 

1130c 


608c 

982c 

1134c 


630c 
977c 


631c 
982c 


665c 
1015c 


668c 
1019c 


674c 
1036c 


689c 
1069c 


692c 
1090c 


853c 

1098c 


857c 
1113c 


886c 
1115c 




626d 
877c 
ni3c 


675c 

883c 

UlSc 


680c 
889c 


689c 
902c 


692c 
907c 


703c 
915c 


722c 
921c 


726c 
92ec 


814c 
1007c 


852c 
1043c 


856c 
1051c 


862c 
1084c 


866c 
108BC 


871c 
1098c 




614d 


932c 


947c 


992c 


993c 


1068c 




















601d 


636c 


641c 


























458d 


499c 


502c 


616c 


950c 






















591d 


633c 


1108c 


























S96d 


634c 


1136c 


























739d 


900c 


914c 


























818d 


977c 


S82c 


























810d 


864c 


868c 


874c 


880c 


909c 




















121d 


129c 




























58d 


211c 


255c 


2S9c 
























163d 


166c 


























*«» 


236d 




























**» 


108d 
1021d 
958d 


1296c 
977c 


1309c 


1405c 


143SC 


1469c 


















#*# 
*** 


450c 
517c 

1423c 
576d 

1349c 


478c 

1546c 


513c 
























»** 


809c 
7Sd 






























176a 
692c 
572c 


804c 


























*** 


177d 
679c 
559c 

413d 


791c 
496d 


S04c 

























end X 

DGL_f0LY(d9l_polyl 

GLE hPGLigle_hpg] out) 

GLE_SnnRK(g:e_5ms"k) 

GLE lYPES(gle;_type5) 

LIBTcgl_lib) 
end y 

DGL_l-OLY(dql_polyl 

Gl.E_hPGL(gle_lipg) out ) 

GLE_fnHRK(gIe sma 'k 

GLE TYPES (gle^typ.-s) 

LiaTogl_lib) 
endbytes 

INITlmisc) 
endcmdproc 

HPHU (hphil) 
enddef s 

INITLORD(loader) 
ending 

DGL_POLY(dgl_pol>) 
endioer rs 

lNITL0fiD(5ysglob3 Is) 
endisrhook 

INITLOfiDIsysglobals) 
endline 

CONVERT(convert t.:xt) 

UCSD_BM(ucsd_amy 
endmod 

INIT(ldr) 

INT*! ORDlloader) 

SEu(ltNTER(a5m) 
endofproc 

USRPRinN 
endp 

INITLOnD(loader) 
endref? 

LIBRfiRIflN 
endtcar 

EDRI\ER(edriver) 

ETU 
endsysva rs 

INITLOflO(sysgloba Is) 
endtexi 

LIBRBRIPIN 
enoeprcTi 

EDRIV£R(edriver) 

ETU 
enoerrc ■" 

EDRIViRCedriver) 

ETU 
enotblenk 

EDRr.',-:R(edriver) 
e^iot proq 

EDKlV!-.R(edriver ) 
enter tjx chain 

DIsrhPI?(di5chpib 
enter data 

OC_UF^(extdc) 

DC_DI.»'(lntdc) 
enter t r ansfer^chai n 

r,nlEO(amigodvr) 
e ■! 1 1" ie s 

neeKsrsici) 



20227c 
7343c 
5136c 
ni2d 

20128c 



20235c 20822c 
7346c 7369c 7372c 
S160C 5172c 

20139c 20240c 20S76c 2060ec 20633c 20663c; 



20228c 
7345c 
5137c 
1113d 

20129c 


20236c 
7347c 
S161C 

20140c 


20823c 
7371c 
5173c 

20241c 


7373c 
20S77C 


538d 


638c 


639c 


640c 


282d 


332c 






1422d 


1432c 


14S3C 




20547d 


20Se9c 






196d 








253d 








47d 
149d 


S9c 
163c 


62c 
2S2C 


76c 
259c 


2389c 

1073d 

191c 


2432c 
1380c 


1361c 


1374c 


298d 


1214c 


1238c 




1568d 


1S70C 


1571c 




2736d 


2772c 


2774c 




lOOd 
lieid 


llSc 
1191c 


llSc 
1216c 


200c 


294s 








2194d 


2605c 


2712c 




34d 
642c 


114c 


190c 




34 d 
673c 


128c 

579c 


E94C 


642c 


34d 


276c 






34d 


131c 


135c 


139c 


436d 


487c 


495d 


535c 


200d 
317c 


33Sc 


464c 


494c 


S44d 


693c 


700d 


961c 


78ii 


803c 


823c 





1406c 1429c 1482c 1521c 1600c 



225c 228c 273c 
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entry 

INITLOfiDlbootdanimoduls) 


















»*« 


SSSd 














LIBRBRIRN 




2722d 


2724c 












riINIT(cs80ir) 


*** 


S47d 














nlN!T(qminit) 




U87c 


1203c 












ent rypoint 
INIT(ldn) 




















2327c 


2332c 


2354c 


2364c 


2482c 






INITLOSD 




171SC 


1717c 


1758c 


1787c 








INITLOnD(Joader) 




1069d 


1126c 


1132c 


1426c 


1444c 


1445c 


1485c 


n68KSVS(cll 
SEGnENTERCasm) 




880c 


885c 


928c 


929c 


938c 


1011c 


1136c 




ISOc 


165c 


261c 










TAIL 


t*x 


86c 














entrysize 
LIBRflRIBN 




















32d 


3189c 


3190c 










LIFDfln(lifmodule) 




33d 


S04c 












environ 


















CRTIcrt) 

GCRT(crtb) 
SYSDEVS(sysdey5) 


n%^ 


llOd 














»10K 


43d 
















104d 


llld 












environc 


















CRTIcrt) 
GCRT(crtb) 




llOd 


719c 














43d 


568c 












environptr 


















SYSDEVStsysdeys) 




llld 


116d 












eod 


















LIFDfll1(lifmodulel 




716d 


720c 


736d 


747c 


759c 


763c 


783c 73Sc 1016d 1020c 102Sc 1029c 1033c 1042c 


eoi line 


















DTSCHPIB(di5Chpib) 




302c 


319c 












KERNEL (lodeclarat ions 1 


»«» 


391d 














eoi set 


















DTSCHPIB(dischpib) 




360d 


370c 


371c 


391d 


399c 


400c 




eoi 


















CONVERT (convert text) 




67c 


78c 


Ulc 










CRTtcrt) 
GCRTrcrtb) 




442c 


474c 














312c 


345c 












INITimisc) 




168d 


525c 


526c 


581c 


598c 


684c 




KEYS(keys) 
LIBRfiRIflN 


««* 


122c 
















1376c 


1404c 












nOREFSYS(mf5) 


#«* 


9Sc 














UCSD fln(uc6d am) 




80c 


179c 


199c 


201c 


2Slc 






eop 


















EDRIVER(edriver) 




312d 


316c 


317c 


318c 


319c 


320c 


322c 


eoptype 

EDftlVER(edriver) 




33d 


37d 


307d 










eor 


















flnlGO(annigodvr) 


*** 


848c 














eot 


















GLE KNOB(gle knob in) 




18031c 


18040c 












UNlTlO(ulo) 




3ec 


47c 












eot parm 


















DC DRVfintdc) 


*** 


639c 














DI5CHPiB(dischpib) 


*x» 


482c 














IOLIB(general 4) 


x«« 


127ec 














KERNEL(iodeclaration5l 


*** 


SSSd 














SRfl DRV(5rm) 


*** 


1204c 














eot proc 


















DC DRVfintdc) 
Dl5CHPIB(di5Chpib) 


*** 


538c 
481c 


S39c 












IOLIB(general 4) 




1276c 


1277c 












KERNELdodeclarations) 


*** 


584d 














SRn DRV(srm) 




1202c 


1203c 












eotproc 

DISCHPIB(bkgnd) 


















*** 


42d 














INITLOPDisysglobals) 




70d 


118d 












ep 

SEGnENTER(asm) 




54d 


132c 


267c 










epart 


















ETU 


X** 


853d 














epblank 


















EORIVER(edriver) 




52d 


266c 


319c 










epbrate 


















EORIVER(edriver) 




52d 


294c 


34 0c 










epcheck 


















EDRIVER(edriyer) 




52d 


279c 


320c 










epcwrite 


















EDRIVER(edriver) 




52d 


203c 


219c 


234c 


248c 


318c 




epend 


















EDRIVER(edriver) 
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CRT(crt) 
GCRTfcrtb) 




105d 


ISld 


440c 


475c 
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INlTLORD(loader) 
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1109d 1176d I216d 



430d 
1349d 
S55d 557d 

56d 



346c 350c 



1303c 1304c 1313c 

2375c 2376c 2380c 

1136d J 153c 11S4C 1158c 1159c 1164c 1165c lS90d ie02c 1603c 1613 



410c 44Sc 4S2c 
77c 336c 34fc 



500c 501c 

352c 368c 402c 



1285c 1286c 1287c 1288c 1291c 
373c 398c 399c 557d 623c IK! 



557d 

331c 33Sc 336c 343c 368c 369c 



1689c 1983c 2751c 
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flhlGOUmigodtf r ] 




664c 


e87c 


900c 
























nMIGOicsamigj) 


*«* 


112d 




























CTnBLE(ctr) 




346d 
768c 


e33c 
787c 


e39c 
803c 


64Sc 
816c 


esic 

834d 


6S8c 
837c 


664c 
842c 


673c 


682c 


694c 


707c 


716c 


733c 


7S2c 


GLE KN0B(9Je knob in] 
GLE_RGL(gle_ra5_out) 




18033d 


18036c 


1804;c 


18046d 


180S0O 


18054c 


18060d 


18064c 


18067c 


18068c 












8161d 


8162d 


8163d 


8164d 


8165d 


8166d 


8167d 


8168d 


8169d 


8170d 


8171d 


8172d 


8173d 


8174d 






817Sd 


8176d 


8177d 
























HEfiPT(hpm) 




I35d 

176c 


147c 
179c 


148c 

181c 


152c 
184c 


lS8c 
185c 


159c 
186c 


161c 
187c 


162c 


164c 


1650 


166c 


167c 


159c 


170c 


INIT(f5) 




763d 


764d 


765d 


766d 


767d 


768d 


769d 


770d 


772d 


773d 


774d 


776d 


777d 


778d 






779d 


780d 


78 Id 


783d 


784d 


786d 


787d 


789d 


793d 


797d 


79Sd 








INIT(initunits) 




2141d 


2160d 


216Sd 


2232d 


22S6d 




















INITlmisc) 




213d 


263d 


267c 


2680 


269c 


272c 


426d 


431c 


446c 


447c 


458c 








INITLOflD(bootdammodu.le) 




S43d 
713c 


544d 
714c 


607d 
747d 


692c 

752c 


696c 
773c 


697c 


699c 


700c 


70Sc 


707c 


709c 


710o 


711c 


7120 


INITLOBD(losder) 




1118d 


1120c 


























INITL0B0(5y59lobal5) 


#** 


140d 




























LIBRfiRIHN 




106d 


116c 


118c 


119c 


121c 


131d 


133c 


137d 


139c 


221d 


224c 


231c 


232c 


233c 






235c 


236c 


237c 


238c 


2336d 


2340c 


2740d 


2742c 














LIFDHn(lifmodule) 




28d 


196d 


222c 


223c 


309c 


394c 


488c 


593c 


595c 


606c 


607c 


6360 


$46c 


915c 






916c 


917c 


918c 


9I9c 


920c 


922c 


923c 


931c 


935c 


9360 


937c 


9S4C 


958c 


959c 






960c 


961c 


9690 


970c 


973c 


975c 


980c 


99Sc 


1001c 


1O04O 


1005c 


1006c 


1022c 


1054c 






lOBSc 


1072c 


107-'c 


1086c 


1088c 


1092c 


1108c 


lUOc 


1127c 


1128c 


1130c 


1133c 


1136c 


1141c 






1149c 


1150c 


n5:!c 


1153c 


1155c 


llS9c 


1162c 


11640 


11650 












LOCKMOO(lockmodiile) 




30d 


31d 


32d 


37d 


40c 


49c 


62d 


65c 


72c 


78d 


81c 


900 






nesKSvsfci) 




396d 


413c 


4140 


439c 


461c 


502c 


614c 


523c 


537c 


551c 


586d 


691d 


695c 


5960 






598c 


602c 


603c 


619c 


620c 


6S7d 


661d 


664c 


eesc 


667c 


699c 


702o 


703c 


790d 






818c 


82Sc 


9S4d 


956c 


962c 


963c 


















nlNIT(hminit) 


x«* 


480c 




























niNIT iramiqo) 




226d 


234c 


























niui 




15d 


177c 


198c 


334c 


350c 


475c 


















nOREFSYS(mfs) 




4Sd 


e7c 


78c 


102c 


104c 




















SRrifin(srmammodule) 
SRMDfin(5rmdarimodule) 




SOd 


60c 


9''d 


107c 


144d 


149c 




















43d 


119d 


122c 


133d 


140c 


142c 


445d 


452c 


456d 


4760 


478c 


499d 


S19c 


5210 






562d 


582c 


64';d 


670c 


711c 


875d 


880c 


S82c 


901d 


9170 


9S6d 


9730 


975c 


9800 






986d 


996c 


1013d 


1038c 


1079c 


1119c 


1159c 


1164c 


1170d 


1183c 


1185c 


1187c 


1210d 


12220 






1224c 


1226c 


1245d 


1251c 


1263c 


1263d 


1271c 


1286c 


1310d 


1316c 


1329d 


1342c 


1355c 


1359c 






1360c 


1372c 


1384c 


1394c 


1424c 


1430c 


1438d 


1464c 


1472d 


147SC 


1496d 


1499c 


1503c 


1519d 






1539c 


1624d 


1643c 


1690c 


1700c 


1703c 


1706c 


1712c 


1715c 


1723c 


1726c 


17380 


1741c 


17S0c 






1753c 


1760c 


1762c 


1764c 


1766c 


1770c 


1773c 


1779c 


1781c 


1783c 


1785c 


17870 


1789c 


1791c 






1796c 




























UCSD_Dfin(uc5dmodule) 




32d 


e6d 


130c 


160c 


173c 


210c 


212c 


217c 


243c 


268c 


288c 


3100 


329c 


363c 






406c 


409c 


439c 


460c 


476c 


477c 


511c 


S32c 


S76c 


631c 


6500 


6540 


657c 


661c 


UNITIO(uio) 




40d 


43c 


48c 


55d 


59c 


e5c 


67c 


76d 


80c 


86c 


93d 


960 


97c 


102d 


fO 

CTSBLEIbrstuff ) 
fl 

CTSBLEIbrstuff ) 
f2 

CTf)BLE(br5turf) 
f3 

CTHBLE(br5tuff ) 
f4 

CTflBLE(br5tiiff) 

CTBBLE(br5turf) 

CTBBLEIbrsturf ) 
f7 

CTHBLElbrstuff ) 




106c 


109c 


110c 


Ulc 






















*M* 


946d 




























«** 


946d 




























t*» 


946d 




























«*« 


946d 




























««« 


946d 




























... 


946d 




























««* 


946d 






























946d 


lOOlc 


























f9885 tm name 
































CTBffLETctr) 




363d 


694c 


























f9385dvr 
































F988S(f9885lJvr) 


t:X* 


34d 




























f9885init 
































F988S 


*!** 


31d 




























f9885io 
































F988S(f9885dvr) 




40d 


45d 


























f pwr on 

INlTLOFID(mini) 




398c 


459c 


























nlNITlmminit 1 


*** 


171c 




























f access 
































INIT(fs) 
failcode 




745d 


764d 


76Sd 






















































ETU 




532d 


546c 


























fakeaddr 
































HEfiPT(hpm) 




135d 


141c 


I49c 
























f akeone 
































HEfiPT(hp<n) 




78d 


122d 


14ic 


142c 


143c 


161c 


















fanonct r 
































INnL0flD(5ys<!lobals) 


««» 


104d 




























SR(1DBrl(srmdamniodiile) 




1630 


1043c 


























fanonfile 
































INIT(fs) 


*** 


770d 




























fanonymous 
































ETU 


*7K* 


323c 




























INITL0nD(sys<)lobal5) 


XIK» 


81d 




























LIFDHMflifmodule) 




636c 


646c 


935c 


969c 


973c 


1065c 


1086c 
















SRnDflMfsrmdarnmodule) 




144c 


1077c 


1283c 


1304O 


1364c 


1454c 


1737c 


1743c 


1759c 












UCSD Dflniucsdmodule 




76c 


210c 


























fast - 
































EDRIVER(edrlver) 




56d 


157c 


210c 
























fastburn 
































ETU 




71d 


559c 


580c 


587c 


591c 


793c 


1071c 


1232c 














fastmove 
































INITLOflD(:oader) 




1273c 


1456c 


1490c 


1563c 


1618c 




















LIBRfiRIfiN 




1644c 


1784c 


1903c 


2075c 


2237c 


2274c 


2297c 


2328c 


2582c 


2840c 


3095c 








l168<S¥S(ciJ 
fatal ioresult 




738c 


740c 
























































MIUT 




23d 


214c 


363c 


382c 






















TBPEBKUP 




987d 


UOlc 


1205c 


1402c 






















fatal message 
































TflPfSKUP 




986d 


1089c 


1311c 


1313c 


1360c 


1471c 


















faultlog 
































CS80(C580) 


*«* 


216d 




























fbO 
































INITUOSDIsysglobals) 
fbl 

INITL0nD(5y5gldbal5) 


«IK« 


108d 




























«X« 


108d 




























fb Dtr 

CLE_RGL(gle_ras_out) 




8101d 


8236c 


8386c 
























cfE^lfGKgle^i-es^out) 




8102d 


838SC 


8336c 
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fbjks.ze 

flSC I (asciimodu -.i) 
INIi (mnsc) 

IWrLOOD 

INIl LOBDdoader i 

INIl L0nD(5ysgiol:al5) 

LIBKlRIflN 

H68>SYS(ci) 

UCSt_fin{ucsd_am, 

UCSL_DflM(ucsdmoiiule) 



UNniO(uio) 
fblocHo 
INIl (fs) 

fbp 

INI' (Idr) 

INI!LOflD(loader ) 

LIBt'fiRinN 
fbufcf^anged 

flSCIKasclimodu le) 

ETU 

INIl (misc) 

INIlL0SD(5y5glooalsl 

LlFCfln(lifmodule) 

UCSr BM(uc5d ami 

UCSlCDfiM(uC53module) 
fbufff r 

nscil (asciimodu le) 

INIl (misc) 

INr L0flD(sysgloi;3ls; 

UCS['_fln(ucsd am 

UCSn_DRn(uc53mo.!iile) 
fbuf ff-red 

ETU 

INI! (misc) 

INI iLORD(bootd.,;.iinodu]e) 

INIUOflD(loader i 

INIUOflO(sysglobals! 

LIFt Bn(lifmodu]'0 

SRrH'Hnfsrmdamniodjle) 

UCSr_OfiM(ucsdmo.Jjle) 
fbuf fprref 

INIl (fs) 
fbufvaiid 

INULOfiD(sysglohas) 

LIF[fln(lifmodu:i!) 

UCSC:_Dnf1(uc5dmoojle ) 
fbusy 

fiMIfOtamigodvr ) 

BUBtLES (bubble) 

CS8C-(c580dvr) 

F98ES(f9885dvr) 

GLE KNOB(gle knoT in) 

INlTLORD(minT) 

INnL0fiD(5y5gloi ils) 

key; (keys) 

n68kSYS(ci) 

UNniO(uio) 
fclost 

INIT (fs) 



lOd 
























547c 


559c 


S63c 


567c 


589c 


592c 


595c 


e26c 


627c 


629c 


631c 


636c 


649c 


659c 


663c 


664c 


667c 


668c 














1697c 
























813d 


839d 


1120c 




















21d 


129d 






















133c 


139c 






















816c 
























43d 


e2c 


S3c 


7c- 


76c 


78c 


79c 


82c 


84c 


92c 


94c 


109c 


142c 


144c 


162c 


166c 


184c 


205c 


221c 


241c 


247c 








39d 


100c 


162c 


163c 


218c 


335c 


365c 


368c 


370c 


371c 


4I6c 


417c 


483c 


488c 


49Sc 


SOlc 


503c 


504c 


517c 


518c 


519c 


521c 


547c 


S49c 


584c 


604c 


606c 




















65c 


86c 






















789d 
























2378c 
























912d 


1141c 


1390c 


1391c 


1437c 


1438c 


1605c 


1610c 










1296c 


1299c 


1393c 


22S8C 


2299c 


2771c 


2817c 


2867c 


3018c 








39c 


48c 


69c 


94 c 


117c 


136c 


253c 


265c 


271c 


298c 






324c 
























544c 


550c 


632c 


6S0c 


665c 


678c 














89d 
























298c 
























64c 


100c 


UOc 




















84c 
























37c 


50c 


74 c 


94c 


116c 


116c 


lS9c 


203c 


223c 


251c 






269c 


S48c 


564c 


S67C 


598c 


600c 


623c 


631c 


646c 


649c 


659c 


664c 


129d 
























63c 


76c 


80c 


83c 


84c 


92c 


98c 


117c 


165c 


203c 


234c 


245c 


SCOc 


SOlc 


503c 


S04c 


















321c 


902c 






















471c 
























713c 
























1607c 
























80d 
























298c 


920c 






















948c 
























84c 


164c 






















776d 
























85d 
























289c 
























78c 
























587c 
























115c 


116c 






















1373c 
























272c 
























8068c 
























600c 
























116d 
























83c 
























120c 


HOC 


141c 


382c 


















UOc 


Ulc 























418c 419c 
550c S82c 



fcloseit 

INIl (fs) 
fd 

F9885(f9885dvr) 
fdate 

INIl LCHD (boo tdanrnodule) 
LIFDflN(Iifmodul"l 

fdirec tory 
INIT (Idr) 
INnLOfiO(loader 
LIBRfiRIBN 



SEGIlENTER(a5m) 
fdp 

INnLORD(loader) 

LIBRflRIRN 
feft 

ETU 

INnLOnD(sysglobils) 

LIFnfin(lifmodulp| 

SRnCfinjsrmdanmodJle) 

UCSD DHn(uc5dmodile) 
feof 

ETU 

lNIT(f5) 

INITL0HID(sy5globil5) 

LIFlifin(lifmodule) 

UCSD_DBn(uc5dmodjle) 
feoln 

ftSCl I (asciimodul!) 

ETU 

INIT(f5) 

INIIfmisc) 

INnL0flD(sysg:obil5) 

KEYS(key5) 

M68k3YS(ci) 

UCSD_flM(uc5d_am) 
feot 

HMIGO(ami90dvr) 

CRT(crt) 

:S80(cs80dvr) 

DISc4PIB(bkgnd) 

F9885(f988Sdvri 

GCRT (crtb) 

GLE <NOB(gle knct.^in) 

INlT^OHD(minT) 

INIT_0fiD(sy5glob:ils) 

KEYS(key5) 

UNITIOluio) 
fetchbuffer 

INIT (misc) 
fetchdir 

UCSD_Dfll1(uc5dmociile' 
f etchvolume 

UCSD_DBn(uc5dmoaiile) 
fextra 

INITL0fl0(5ysg]ob.il5) 
fextra2 

INITiOHDlsysglot.ils) 



Hid USd 



*** 


563d 




























64d 


372c 


548d 


SSOc 


551c 


552c 


55Sc 


S56c 


557c 


602c 


617c 


651c 6S2C 


940c 




941c 


1008c 


1093c 


1094c 






















2436c 


2437c 


2446c 


2447c 


2452c 




















1053d 


1144c 


1145c 


114$c 


1162c 


1161c 


1163c 


1318c 


1621c 


1622c 










1286c 


1324c 


13S2C 


1386c 


2854c 


2865c 


2959c 


29670 


3020c 


3022c 


3029c 


3036c 3039c 


3064c 




3065c 


3068c 


3087c 


3097c 


325SC 


32S6C 


3279c 


3280c 


3312c 


3326c 


3328c 


3348c 3361c 


3372c 




3374c 


3428c 


3433c 


3438c 


3452c 


3465c 


3471c 


3490c 


3586c 


3605c 


3623c 


3631c 3632c 


3642c 




3652c 


3735c 


























194c 


195c 


























9I0d 


1144c 


1152c 


11S9C 


1161c 




















2854c 


2859c 


2888c 


3106c 


3112c 


3153c 


















320c 


903c 
























*** 


77d 
937c 


959c 


1110c 
























934c 


938c 


939c 


940c 


1046c 


1047c 


1090c 


1387c 


1418c 


1452c 










212c 


291c 


























327c 


468c 


472c 


481c 


1034c 


1045c 
















«*# 


779d 


























**# 


87d 


























*** 


290c 


























*** 


79c 

207c 
327c 


208c 
4S9c 


461c 


1034c 




















**# 


780d 
525c 


506c 


684c 


685c 




















*** 


86d 


























«»« 


127c 
348c 
152c 


351c 
230c 


2S3c 


2S4c 




















*** 


600c 
446c 


496c 
























*** 


1340c 
42d 


139c 
























*** 


298c 
316c 


364 c 
























**« 


18040c 


























**lf 


526c 


























*%* 


118d 


























*Y« 


136c 


























•JI.X*- 


47c 
554d 


593c 


644c 


6S8c 


673c 




















70d 


121c 


128c 


463c 


654c 


655c 


6 50c 
















124d 


127c 


133c 


211c 


269c 


331c 


479c 


512c 


633c 


578c 








*«« 


123d 


























*** 


124d 
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ff 
































INITrmisc) 


x*« 


167d 




























KEVSikeys 




479c 


508c 


























ftib 
































ETU 
ffpw 

INITL0flD(5y5g:obal5! 




418d 


434c 


436c 


458c 


479c 




















t** 


lOld 




























SRMDfiM(srmdammoduIe) 
fget 

INIT(f5) 




128c 


719c 


860c 


1671c 


1672c 


1680c 


1807c 
















XXX 


777d 




























fgetxy 
































ETU 




S88c 


1179c 


























lNIT(f5) 


*«* 


798d 




























M88KSyS(ci) 


*«* 


128c 




























HINIT(rmiinit) 


**« 


lS7c 




























niui 




246c 


260c 


























TBPEBKUP 




1133c 


1147c 


























fgotoxy 
































ETU 




297c 
1174c 


300c 
1208c 


658c 
1240c 


590c 
1280c 


719c 


727c 


743c 


758c 


772c 


873c 


913c 


932c 


1029c 


1160c 


INIKtsl 
LIBRflRlAN 


*** 


797d 






























93c 


100c 


102c 


1424c 


1442c 


2097c 


2928c 


2983c 


3080c 


3132c 


3180c 


3196c 


3202c 


3208c 






3209c 


3216c 


3234c 


32S0C 


3331c 


3333c 


3343c 


3362c 


3367c 


3374c 


3392c 


3427c 


3446c 


3484 c 






3520c 


354SC 


3584c 


3597c 


3716c 


3718c 


















t168KSYS(ci) 




129c 


134c 


137c 


664c 


667c 


674c 


682c 


687c 


714c 












niui 




248c 


255c 


251c 


270c 






















TflPEBKUP 




1135c 


1142c 


1148c 


1157c 






















f himask 
































fl804X0VR(a804xdvr) 


*** 


38Sc 




























nlNIT(mminit) 




154c 


163c 


167c 
























SVSDEVS(sy5aevs) 


**« 


166d 




























fhpopen 
INlT(fs) 


XX* 


764d 




























fhpreset 
INIT(fs) 
































XXX 


76Sd 




























fhs tfr 
































KfRNEL(iodeclarations) 
fib 

CTfiBLE(ctr) 


XXX 


563d 




























XXX 


834d 




























ETU 




56d 


306d 


























GLE KNOBfgle knob in) 

INlT(f5) 


XXX 


18033d 
7S3d 


7e4d 


76Sd 


766d 


767d 


768d 


789d 


770d 


772d 


773d 
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GLE RGLIgle ras out) 


8i4ed 


8481c 


























qatorcrtinit 






























GCRT(crtb) 


497d 


S17c 


569c 
























gatorcrttype 

OGL C OUT(dgl confg out) 






























U079d 


11268c 


























GCRT " - =- 


«»» 583c 




























GCRT(crtb) 


36d 


S27d 


565c 
























galorid 






























DGL C OUTIdgl confg out) 


U084d 


U098C 


11121c 
























GCRT(crtb) ~ 


S28d 


542c 


























abase 






























CRT(crt) 


207d 


211c 


212c 


213c 






















OGL C OUT(dgl confg out) 
obuffer 
CRT(crt) 
C HOOK 


11216d 


11221c 


11224c 


11225c 


11226c 




















230d 


234c 


235c 


236c 


237c 


240c 


241c 


246c 


247c 


254c 


25Sc 


256c 






78d 


88c 


89c 


90c 


91c 


92c 


93c 


107c 


109c 












DEL_RflS(dgl_ra5ter) 


17316d 
17399c 


17322c 
17400c 


17323c 
17401c 


17324c 

17415c 


17325c 
17417c 


17326c 


17327c 


17332c 


17339c 


17379d 


17395c 


17396c 


17397c 


17398c 


GCRT(crtb) 


ISld 


163c 


164c 


166c 


166c 


167c 


168c 


169c 


183c 


185c 










gbuffersize 






























CRT(crt) 


220d 


230d 


























C HOCK 


69d 


78d 


























DCL RflSldgl raste-) 
GCRT(crtb) " 


17313d 


17316d 


17370d 


173790 






















142d 


ISld 


























gbyte 
C HOOK 






























72d 


73d 


























OCL HPGLfdgl hpgl) 
DGL RPSldgl raster) 
GCRT(cr1bj ' 


»«» 17189d 




























170S0d 


17373d 


17374d 
























14Sd 


146d 


























GENfagl gen) 
TYrtsTdgl_types) 


«** 31Sld 
««» 1007d 




























gbytes 

LIBRf^RIPN 






























125d 


398c 


1295c 


1298c 


1382c 


1513c 


1S92C 


1599c 


1688c 


1736c 


1746c 


1749c 


1783c 


1894 c 




1896c 


1902c 


1920c 


1922c 


1329c 


1945c 


2022c 


2032c 


2074c 


2382c 


238Sc 


2410c 


2479c 


2S22C 


gcb 

OGL_C_OUT(dgl_confg_out) 


2S24C 


2581c 


2770c 


2800c 


2813c 


2816c 


2850c 


3152c 


3221c 


3240c 










11007d 


110S9C 


U153d 


11174c 


11218c 


11231c 


11250c 


1126SC 


11351c 


11399d 


11414c 


11444c 


11486c 


llS02d 




11508c 


11510c 


USllc 
























OGL HPGLjdgl hpgl i 
OGL HPGLi(dgT hpgli) 


»»* 17261c 




























180S9C 


18126c 


























OGL INQ(dgl inq) 


e044c 


6071c 


6131c 


$18Sc 


6186c 


6198c 


6214c 
















OGL KNOB dgT knob'. 


18060c 


18172c 


























DGL_POLY(dgl_poly 


20062c 
21ie6c 


20114c 


20134c 


20150c 


20176c 


20208c 


20592c 


2088SC 


20942c 


20987c 


21016c 


21059c 


21104c 


2113SC 


DGL RflSldgl raster) 
DGL V(lRS(dgT vars. 


17175c 


17207c 


17258c 


17286d 


17291d 


17297c 


17592c 
















»»* 1246d 




























GENldal gen) 
GLE_GeNTgle_gen) 


3319c 


3347c 


3413c 


3473c 


3610c 




















2008d 


2009d 


2010d 


201 Id 


2012d 


2013d 


2014d 


2015d 


2016d 


2017d 


2018d 


2019d 


2020d 


2021d 




2022d 


2023d 


2024d 


2025d 


2026d 


2027d 


2028d 


2029d 


2030d 


2031d 


2032d 


2033d 


2034d 


203Sd 




2036d 


2037d 


2038d 


2039d 


2040d 


2041d 


2045d 


2048c 


20Sld 


20S4C 


2057d 


2060c 


2063d 


2066c 




2069d 


2072c 


207Sd 


2078c 


2081d 


2084c 


2087d 


2090c 


2093d 


2096c 


2099d 


2102c 


2105d 


2108c 




2111d 


2114c 


2117d 


2120c 


2123d 


2126c 


2139d 


2142c 


2145d 


2148c 


2151d 


2154c 


2167d 


2160c 




2163d 


2166c 


2167c 


2170d 


2n3c 


2177d 


2180c 


2183d 


2186c 


2189d 


2192c 


219Sd 


2198c 


2201d 




2204c 


2207d 


2210c 


2213d 


2216c 


2219d 


2222c 


222Sd 


2228c 


2231d 


2234c 


2237d 


2240c 


2243d 




2246c 


2249d 


2252c 


2255d 


22S8C 




















GLE_HPGL(gJe_hpgl__out) 


7029d 


7040d 


7043c 


7052d 


7057d 


7060c 


7062c 


70eSd 


7072c 


7080d 


7oeec 


7093d 


7100c 


7105c 




7110c 


7111c 


7n8d 


7121c 


7122c 


712Sc 


7126c 


7127c 


7137d 


7144c 


7162d 


7170c 


7171c 


7177c 




7178c 


7179c 


7219d 


7227c 


7228c 


7238c 


7239c 


7306c 


7309c 


7310c 


7311c 


7313c 


7314c 


731SC 




7316c 


7317c 


7318c 


7318c 


7320c 


7321c 


7332d 


7335c 


7340c 


7342c 


7343c 


7344c 


7345c 


7348c 




7358d 


7361c 


7366c 


7368c 


7369c 


7370c 


7371c 


7374c 


7384d 


7387c 


7390c 


740ld 


7404 c 


740SC 




7408c 


7409c 


7410c 


7411c 


7430d 


7433c 


7434 c 


7437c 


7442c 


7448c 


7452c 


7454c 


7455c 


7456c 




7458c 


74e8d 


7471c 


7472c 


7475c 


7476c 


7477c 


7487d 


7490c 


7491c 


7494c 


7495c 


7496c 


7497c 




7498c 


7500c 


7S10d 


7517c 


7571c 


7572c 


7579c 


7580c 


7614c 


761SC 


7678c 


7684c 






GLE_RGL(gle_ras_out ) 


8008d 


8009d 


8l46d 


8181c 


8208c 


821SC 


8223d 


8228c 


8231c 


S244d 


8258c 


827SC 


8280c 


8290d 




8296c 


8301d 


8304c 


8309d 


8326c 


8344c 


8374d 


8381c 


8394c 


8479c 


8511c 


8517c 






GLE SCLIPIgle sclip) 
GLE_SnBRK(gIe_5mart) 


6008d 


6012d 


60ISC 
























SOOSd 


5009d 


5010d 


S016d 


5112c 


S120C 


5131c 


5 134c 


5138c 


S141C 


S147C 


51S0C 


5163c 


5165c 




5171c 


S174C 


5178d 


5181c 


5185d 


S188C 


















GLE_STEXT(gle_ste>t) 


4010d 
4097c 


4011d 


4012d 


4013d 


4014d 


4018d 


4030c 


4058d 


4061c 


4070d 


4073c 


4082d 


4086c 


4094d 


GLE_TVPESCgle_types) 


1029d 


1030d 


1031d 


1032d 


1033d 


1034d 


1035d 


1036d 


1037d 


1038d 


1039d 


1040d 


1041d 


1042d 




1043d 


1044d 


104Sd 


1046d 


1047d 


1048d 


1049d 


105Od 


1051d 


10520 


10S3d 


1054d 


1056d 


1056d 




1057d 


lOSSd 


1058d 


loeod 


1062d 


1172d 


llSOd 


llSld 


1204d 


1205d 


1206d 


1207d 


1208d 


1209d 




1210d 


12l2d 


























LI8(d5l_lib) 


20183c 


20256c 


20274c 


20297c 


20332c 


20358c 


20391c 


20405c 


20416c 


20441c 


2045SC 


20477c 


20506c 


20550c 




20717c 


20764c 


20782c 


20801c 


20828c 


20862c 


20398c 


20943c 


20971c 


20996c 


21000c 


21032c 


21049c 


21076c 




21119c 


21229c 


21276c 


21314c 


21330c 


21340c 


21358c 


21387c 


21405c 












gcb space 






























DCL V«RS(dgl vars) 
LIBTdgl lib) 


«»« 1338d 




























««* 21387c 




























gcbi 






























DGL C IN(dgl confg in) 
GLE_GFN1 !gle_genl) 


12007d 


12039d 


12047c 


1205ec 


12084d 


12083c 


12116c 


12131d 


12134c 


12135c 










3008d 


3009d 


3010d 


30Ud 


3012d 


3013d 


3014d 


301Sd 


3016d 


3020d 


3023c 


3036d 


3039c 


3042d 




3045c 


3049d 


3052c 


3055d 


3058c 


3061d 


3054c 


3067d 


3070c 


3073d 


3076c 


3079d 


3082c 




GLE_HPGLI (gle_hpgl_in) 


18021d 


18028d 


18031c 


18038d 


18045c 


18053d 


18059c 


18066d 


180690 


18071c 


18072c 


18076d 


18083c 


18093d 




18101c 


18102c 


18104c 


18105c 


18131d 


18138c 


18139c 


18144c 


1814SC 


18201c 


18204c 


18205c 


18207c 


18208c 




18209c 


18210c 


18211c 


18212c 


18213c 


18214c 


18215c 


18220d 


18248c 


18249c 


18251c 


18252c 


18261c 


18262c 




18278d 


18281c 


18283c 


18284c 


18288d 


18294c 


1829SC 


18297c 


18298c 


18307c 


18308c 


18312d 


18315c 


183190 




18320c 


1832Sd 


18332c 


18344c 


18345c 


18352c 


18353c 


18384c 














GLE_KNOB(g]e_knob_in) 


18024d 
18263c 


1807Sd 


18030d 


18083c 


18106d 


18119c 


18183d 


18186c 


18194d 


18197c 


18207d 


18210c 


18213d 


18216c 


gcnar l;st 

DGL INQ(dgl inq) 


6012d 


6088d 
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TVPFS dgl tjpcs 


•*» 1014d 





























9cp 




















CTflBLE(scanstuff) 




1065d 


1138c 














gdata 




















HOUSE (mouse) 




64d 
171c 


71c 


83c 


84 c 


89c 


90c 91c 96c 101c 104c 


107c 161c 164c 


168c 


gdotrow 




















CRT(crt) 




224d 


225d 














general 




















INITLOfiDUoader) 


»«« 


858d 
















LIBRflRIflN 




182c 


lS67c 


1832c 


2380c 


2389c 


2791c 






general 




















DC DRV inlt dc) 


**M 


S96d 
















DC"DRV Intdc) 


*t* 


260d 
















DI DRV init discint) 


«»« 


202d 
















DtlfJ DRVfiniT dma) 
GLE~HPIB(gle hpib io) 


»«« 


178d 
















*«« 


lOOOSd 
















G DRV init gpio) 
H DRV init lip:ib) 


*«* 


220d 
















**« 


218d 
















lUL B general 1) 
lOL B hpib 1) 


**W. 


252d 
















»«w 


420d 
















lOL B hpib 3) 


**M 


2054d 
















lOL B serial 0) 


*** 


2227d 
















lOL B serial 3 


V** 


2S2Sd 
















KERNEL 


**« 


1323d 
















KERNEUIaeneral 0) 


**« 


726d 
















RS ORvJfnit rsT 


*«* 


214d 
















general 1 




















lOLIBTgeneral 1) 


t** 


220d 
















lOLIB general..?) 
I0LI6 hpib_3) 


*«]« 


828d 
















**M 


205Sd 
















general 2 




















lOLIBTgeneral 2) 
general 5 


**» 


783d 


































lOLIBTgeneral 3) 
general 4 


«♦« 


1092d 


































I0LIBTgeneral..4) 


««» 


1181d 
















generaltrans 




















KEYSlkeys) 
generalvalue 




18Sd 


260c 
































INITLOSD(loader) 




871d 


920d 


1458c 












LIBRfiRIflN 




170c 


172c 


1178c 


1543c 


1544c 


1592c 1S98C 1638c 1639c 1922c 


2186c 2318c 2S56c 


25S7C 






2647c 


2652c 


2759c 


2778c 


2781c 


2806c 






german kbd 




















B804i?OVR(a804>;dvr) 




188d 


193d 














NONUSKBDl (non us kbdl) 




176c 


181c 














N0NUSKBD2 




179c 


184c 














SVSDEVS(sysdev5) 


*** 


149d 
















geUchar 




















nOREFSYS(mfs) 




86d 


116c 


142c 


168c 


200c 


234c 272c 311c 344c 






get amigo letter proc 
CTBBLE(5canstuTf) 






















1076d 


1124c 


iieic 












get auto delay 




















S7SDEV5(5ysdevs) 


*** 


141d 
















get auto repeat 




















SVSDEV5(5y5dev5] 


«:«« 


141d 
















get bootdevice msus 




















CTBBLE 


«*« 


1484c 
















CTflBLE(brstuff) 




937d 


985d 














get color map 




















GUE GENTgle gen) 


«** 


225ZC 
















GLE-HPGLTgle hpgl out) 


**« 


7S57C 
















OLE TYPES (gle. types) 


«*» 


1040d 
















get csSO letter proc 




















CTSBLETscanstuff) 




1077d 


1123c 


1162c 












get cs80 parms 




















CTflBLE" 




1380c 


1568c 














CTflBLEIScanstuff) 




1041d 


1133d 














get csSO parms proc 




















CTRBLETscanstuff) 




1078d 


1137c 


1138c 


1163c 










get cs80 parms type 




















CTflBLETscansTuff) 




1054d 


1065d 














get digitize 

GCE GENirgle qeni) 
GLE~HPGLj(gle hpgl in) 
GLE KNOB (gle Tfnob In) 
GLE TYPEStgle types) 




















«** 


3082c 
















*** 


18372c 
18223c 
















*** 


1204d 
















get letter 




















fiHlGO(amigodvr) 




428d 


439d 














CS80(cs80dvr) 




982d 


1027d 














get letter proc 




















CTflBLE(5can5tuff) 




1099d 


1103c 


UOSc 












get letter type 




















CTflBLE(scanstuff) 




10S3d 


1064d 














get map 




















RmG0(c5ariigol 




140d 


189d 


223c 


344c 


sesc 








niNIT(hminit) 




288c 


485c 














get message 




















l!JLIB(hpib 2) 
KERNEL(iodecl<irations) 


*** 


1991c 
















X«« 


303d 
















get parms 




















C580(cs80dvr) 
get polygon info 
GtE GER(gTe_gen) 
GLE HPGLtgle_hpgl_out) 
GLE RGLfgle ra5_out) 
GLE TYPES (gle types) 




984d 


1017d 














*** 


2142c 
















**» 


7S42C 
















««» 


8413c 
















*«» 


1042d 
















get raster 




















GFE GEN(gle gen) 
GLE'HPGLtgle hpgl out) 
GLE RGL(gle ras out) 
GLE_TYPES(gTe..types) 


*«* 


2246c 
















*K« 


7566c 
















*** 


842SC 
















**X 


1041d 
















get rpq rate 

SVSDEVS(sy5devs; 




















#** 


178d 
















getbounds 




















LIBRflRISN 




1421d 


1462c 


1463c 












getbuf fer 




















UCSD fln(uc5d_am) 




158d 


233c 


244c 












getbytes 

IN T(ldr) 






















2376c 


2377c 














IN TLOnotloader) 




1084d 
1542c 


mid 

1602c 


123SC 
1604c 


12S9C 


1262c 


1286c 1320c 1322c 1328c 1433c 


1456c 14S8C 1464c 


1515c 


getc 




















M68<SYS(ci) 




411d 


444c 


449c 


477c 


481c 


488c 






getchar 




















n68KSY5(ci) 




70d 


571d 


576c 


713c 


902c 


UOOc 






qetcodeblocks 




















LIBRHRIfIN 




I2e9d 


1416c 














getcommand 




















LIBRfiRIflN 




3615d 


3738c 














getcommandchar 




















LIBRfiRIflN 




98d 


1452c 


3356c 


3407c 


3621c 








getcursor 




















CRTicrt) 
GCRT(crtb) 


*** 


413c 
















*»« 


283c 
















INITL0BD(sy5global5) 


«** 


67d 
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getdeftable 




















INITLOflD(loader) 




12460 


1333c 















qete-^T table 

INr LOfiO( loader ; 
getin'o 

EDRIVER(edriver;, 
get in; t rbytes 

LIBtfiRIfiN 
get inst ruction 

LIBRflRIBN 
getio^rrmsg 

£TU 

INr (Idr) 

INI- (misc) 

LlBFflRIfiN 

nest SYS (ci) 
mui 

TBPtBKUP 

TfiPtBKUP(C580tbi]vr) 
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LIFDflh(lifmodul.?) 
get sire 
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gfiles 
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C HOOK 
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DGL_tNQ(dgl Tnq] 
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DGL_RflS(dgl raster) 
DGL VHRSIdql vars) 



LIBTdgl liB)' 
TYPe3(dgl_ty 
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pes) 



CTRBLE(5can5tuff 
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GrEJJTLS(gle_utl!) 
gle aras out 

GrE_RGr(gle_ra5_(iUt ) 
gle asclip 

GrE_HPG[(gle_hpg;_out) 

GLE_RGL(gle_ra5_out ) 
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GLE_<GL{gle_ra5_cut ) 
gie autl 

DGL_RfiS(dgl_raster) 

GLE_RGL(gle ra5_( ut ) 

GLE_iHBRK(gTe_5mtrk) 
gle await blanking 

DEL_RBSTdQl raster) 

GLE <JEN(qle gen) 

LIBTdgi libT 
gle buffer_mode 

GCE i}EN(gle gen) 

LIBTdgl_!ibT 
gle byre 

GEE rYPES(gle_type5) 
gle cliire 

GUE ■YPES(gle_tyce5) 
gle cHir size 

GK i'.ER(gle gen) 

LIBTdglJibT 
Sle cJr-ar 

DGLJIPGL (d9l_hP9l) 

DGL_PfiS(d9l_ra5ier) 

GLE 'tEN(gle gen) 

LIBT'lgl libT 
gle clip limit s 

GCNtdgl gen) 

GLE_i;ENTgle_gen) 
gle copy to_strinq 

GeE^i lUE (gle_file^io) 

GLEJiTLS(9le_utls) 



1281d 


134SC 






122d 


296c 






478d 


491c 


528c 


687c 


488d 


1195c 


1211c 


1239c 


104c 
2414c 

2C9d 
3663c 

682c 
26c 

990c 

746c 


300d 

144c 
1074c 


389c 




664d 


727c 


770c 


778c 


396d 


528c 


548c 




164d 


195c 
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324d 


1149c 






99d 


106c 


166c 


171c 


676d 


931c 






314c 
214d 


480c 






217d 


250c 


265c 


275c 


745d 


768c 


797c 


800c 


133d 
1149c 

160c 
1791c 

654c 








446c 

692c 

133d 

1134c 

615c 

249c 

1789c 

1136c 

eS9c 


529c 






293d 
202d 


413c 
283c 







780c 945c 974c 



803c 846c 



198c 256c 259c 
109c 113c 
17339c 17343c 17393c 17417c 17421c 



161c 


185c 


189c 










2523c 


2524c 


2525c 


2S26C 


2545c 






2290c 


2291c 


2304c 


2305c 


230ec 


2308c 


2309c 


2S7d 














117c 


119c 


547c 


548c 


567c 


568c 




22c 


24c 












218d 


22Sd 


248c 










218d 


226d 


242c 











17019d 17064d 

6013d 6089d 

20045d 20193d 20317d 20844d 

17350d 17429d 

1124d 1129d 

200S9d 20066d 20753d 20771d 

1012d 



1105c 



1064d 

21008d 

8004d 

7035d 
8089d 

7034d 
8087d 

17017d 
8091d 
5014d 

174S9C 

204 Id 

20230c 

2033d 
20395c 

1006d 

1012d 

20nd 
20836c 



17295c 

17528c 17614c 
2017d 2093d 
20SS1C 

3S45C 

2018d 2117d 

9057c 
21010a 21106a 



2255d 
2219d 



1078d 
207Sd 



lOSOd 1227d 1229d 
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gle cursor 

DSL_HPGLI (dql hpgli) 

DGL_<N08(dgl Fnob) 

GLE_GEN(gae gen) 
gle define coTor_map 

D5L RnS(3gl raster) 

GLE_GEN(9le_9en) 
gle define drawing_mode 

0SL_RnS(3ql_ra5ter) 

GLE GEN(gle cen) 

lIBldg]_libT 
gle draw 

D!;L_POLY(dgl poly) 

GLE GENjgleJien) 
gle file lo 

DEL_C {5UT(dgl confq_ou 

GLE FTLE(gle_Tile_io) 
gle fTll index color 

D5L_P0rY(dgl~poly) 

GLE GEN(gle cen) 
gle flush bufTer 

DCL_HPGr(dgl hpgl) 

GLE GEN(gle gen) 

LIBTdglJibT 
gle gcb 

dSL C 



„ __,,dgl confg_out] 

DGL_HPGL(dgl_.F ■■ 



_Hpgl)' 



DGL_HPGLl(dgl_hpgH) 
DGL INQldgl ino) 
DGL KNOerdgT krob) 
DGL^POLYidgllpcly) 

DGL_RnS(d9l_rasterl 

DGL VSRS(dgl vars) 

GENTdgl_gen)~ 

LIB(dgl_lib) 



ars ) 



gle gcb space 
DBL vHRS(d3l 
LIBTdgl_lib) 

gle_gcbi 

D5t_C IN(dgl confi 
DGL_HPGLI(dgT_hpg 
DGL_lNa(dgl inq) 
DGL_KNOB(dgT knob 
DGL VPRSidgTvars 
LIBTdglJib)"' 

gle_gcbi space 
D5L VBlfsrdgl vars 
LIBTdgl_lib) 

gle gen 

D5t„HPGL(dgl hpgl 
DGL_HPGLI (doT hpg 
DGL_KNOB(dgi_irnob 
DGL_POLY(dgl_poly 
DGL RflS(dgl raste 
GENTagl genT 
GLE GENtgle gen) 
LIBTdglJibT 



g^in) 
ll) 

) 
) 



ll) 



1807SC 18093c 18109c 
18125c 18156c 
2026d 2177d 

17219c 17282c 
2029d 2195d 

17507c 

2030d 2201d 
20993c 21012c 

20237c 
2009d 2063d 

11013d 
9002d 

20082c 20089c 20096c 
2028d 2189d 

17048c 

2024d 2163d 
20383c 21050c 



U054C 
17032c 
17291c 
18070c 
6181c 
18091c 
200e2c 
20987c 
170S5C 
17S07C 
1333d 
3536c 
20126c 
20443c 
20745c 
21012c 
21284c 

1339d 
21389c 

12032c 
18026c 

6234c 
18032c 

1334d 
20274c 

1340d 
21392c 

17012d 
18013d 
18013d 
20037d 
17016d 
30553 
2002d 
20105d 



11377c 
17047c 
1729SC 
18075c 
63iec 

20082c 
21043c 
17061c 
17S28C 

3545c 
20130c 
20456c 
20746c 
21050c 
21389c 



17048c 
18088c 



20089c 
21048c 
17108c 
17S86C 



20137c 
20509c 
20806c 
21051s 
21390c 



l^OSOc 17089c 17107c 17115c 17120c 17179c 17194c 17201c 17208c 17209c 17268c 

13093c 18106c 18109c 

20096c 20114c 20208c 20229c 20237c 20238c 20601c 20824c 20e2Sc 20892c 20895c 

21053c 21038c 21093c 21098c 

17175c 17193c 17207c 17219c 17258c 17282c 17329c 17338c 17441c 17459c 17482c 

17S87C 17590c 17591c 17592c 17610c 17614c 17647c 17648c 

20141c 20216d 20224c 20230c 20242c 20256c 20383c 20394c 2039SC 20416c 20438c 

20547c 20551c 20574c 20578c 20604c 20608c 20631c 20661c 20723c 20728c 20742c 

20811c 20832c 20836c 20840c 20971c 20985c 20988c 20993c 21000c 21006c 21009c 

21053c 21121c 2U28C 21179c 21185c 21188c 21210c 21221c 21261c 21270c 21283c 

21401c 21402c 



12074c 

18028c 18032c 18059c 18064c 18079c 18098c 18115c 

6247c 6539c 6546c 

18033c leoeOc 18104c 18110c 18111c 18130c 18161c 

20903c 21086c 21314c 21322c 21330c 21338c 21340c 21392c 21393c 



gle geni 

D5L_HPGLI (dgl hpgli) 
DGL_KNOB(dgl_irnob) 
GLE GENI (gle geni) 
LIBTdgl_lib) 

gle gel color_maD 
GrE_GEN(gle^gen) 

gle get digitize 

CSL.hPGLl (dgl Hpgli' 
DGL k:N08(dqI_Iinob) 
OLE_GENI(gle_geni) 

gle get input_pip2 
GUE GFNI(gle geni) 
LIBjdgl lib) 

gle get pTp2 

GCE GEN(gle gen) 
LIBTdglJibT 

gle get polygon info 
D5C_P5[Y(dgi_poly) 
GLE_GEN(gle gen) 

gle get raste? 

DEL_R?TS(d9l raster) 
GLE GEN(gleZgen) 

gle qXoad 

GrE_GEN(gle_gen) 

gle graphics on_OTf 
D5L_RHS(d9T_raster) 
GLE GENigle gen) 
LIBTdglJibT 

gle gstore 

GCE_GEN[gle_gen) 

gle hpgl in 

DEL C TNJdgl confg 
GLEjPGLngle^hpgl, 

gle hpgl out 

DEL C iJUT(dgl confg 
GLE_HPGL(3le_Kpgl_o 

gle hpib io 

DSL C_TN(dgl confq_ 
DGlIC OUT(dgT confg 
GLE_HPlB(gle_Kpib_i 

gle index_color 

DCL_HPGL(dql_hpgl) 

DGL_RnS(dgI_raster) 

GLE_GEN(gle_gen) 

gle init gcb 

GUE GEH(gle gen) 
LIBTdgl libT 

gle init ITpgl input 
DGL_C TNfdgl confg_ 
GLE_Hi'GLl (ole_hpgl_ 

gle init hpgl_output 
DEL C Jut (dgl confg 
GLE~H?GL (gle_Hpg]_o 

gle init input_gc£ 
GUE GEHI(gle_geni) 
LIBTdgl lib) 

gle init Tnob input 
DEL_C TN(dgT_confg 
GLE_kROB(gle_knob_T 

gle init raster outpu 
05L_C CrUT(dgl_confg 
0LE_REL(gle_ra5_out 



18014d 

18014d 

3O02d 

20106d 

2038d 2249d 





*** 


18130c 
3016d 


3079d 




K«l« 


3009d 
21338c 


3036d 






2020d 
210S1S 


2145d 
21128c 






21048c 
2021d 


21093c 
2139d 




««:« 


17338c 
2037d 


2243d 






2035d 


2231d 






17482c 

2034d 

2U88C 


222Sd 






2036d 


2237d 


in) 
in) 




1 20 1 1 d 
13O02d 




out) 
ut) 


*** 
*** 


llOlld 
7O02d 




in) 
out) 

0) 


*** 


12012d 
H014d 
10O02d 






*X* 


17209c 
17193c 

2016d 


17648c 
2111d 






2019d 
21390c 


2123d 
21397c 


in) 
in) 


*** 


12115c 
18021d 


1832Sd 


_out) 
ut) 




11444c 
7029d 


11486c 
7510d 




*«« 


3008d 
21393c 


3020d 


in) 
n) 


#*« 


120S6C 
18024d 


18213d 


out ) 


**# 


113SIC 
800ed 


83740 
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gie 3nput echo 

D5L_HPGri(dgI hjgli) 

BGl_KN0B(dgl_lfn36) 

GLt^GBNI (9le_9e'ii) 
gle input escapei 

Grt_GENTlgle_ge u) 
ale input escapee 

GrE_GENT(gle_9eiii) 
gle input term 

GUE GENT(gle_geni) 

LIF irdgl_lib) 
3le_i5hift 

GL£_SnnRK(gle_5inark) 
gle IcnoD echo gcb 

DCL_KN5B(dgT_knob) 

DGl vnRS(clgl_va-s) 

tIETdgl_Ub) 
gle knob echo gcb ^5pace 

D5l VnlfS(dgT vars) 

LIBTdgl^lib) 
gle knob Tn 

0!Jl_C TNIdgl confg in) 

GLE^KROB (gle_knob_Tn ) 
gle iTnestyle 

DGl_HPGL(dql_hp.)l) 

DGL_RSS(dgl_ra5ter) 

GLE GEN(gle gen I 

LIETdgl^libT 
gle JinewTdth 

GEE GEN(gle gen i 

Lierdgl_liby 
gle marker 

GEE GEN(gle_gen 

LlBrdgl_llbr 
gle_marker_5ize 

GLE GENIgle gen 

LIBrdgl_liby 
gle match 

D5l_HPGL(dgl_hp;)l) 

GLE_HPGL(gle_hpijl_out) 



GLE^HPGLI(gle_bpgl_in) 

GLE_UTLS(gle_ut .5) 
gle move 

DEL POLY(dgl_po;.y) 

GLE"GEN(gle gen 

LIBrdglJlbT 
gle output escape 

OCL HPGLTdgl_hpql) 

GLErGEN(gle_genl 
gje output escapee 

DEL HPGLTdgl_hptil) 

GLE;GEN(gle_gen' 
gle polygon 

oa POLY(dgl_po ly) 

GLElGEN(gIe_gen: 
gle ra5_out 

DGt C OUT(dgJ_cc.nfg_out 

OGLriflQ(dglJnq 

DGL_RflS dgl_ra5ter) 

GLE RGL(gle_ras out ) 



18032c 

18033c 

3011d 

3012d 

3013d 

3010d 
210S6C 



18115c 
18161c 
3049d 



3042d 



18068c 

13355 

2139SC 

1341d 
21395c 

12013d 
18002d 

17201c 

17061c 

2031d 

20985c 

2032d 
20443c 

2015d 
20746c 

2023d 
21185c 

17035c 

17151c 

7232c 

7627c 

7660c 

18140c 

21011d 

20229c 

2008d 

20242c 

17050c 
2039d 

17047c 
2040d 

21053c 
2027d 

11012d 
6030d 

17018d 
8002d 



S1S9C 
18072c 18077c 
21397c 



2207d 
21006c 



2213d 
20988c 21009c 



17036c 

17157c 

7233c 

7634c 

7661c 

18141c 

21118d 

20238c 
2057d 



17179c 
2045d 



21098c 
2183d 



17037c 17038c 17039c 17040c 17123c 17137c 17138c 17146c 17147c 17148c 17149c 17150c 

ni58c 
7234c 7253c 7254c 7271c 7272c 7280c 7281c 7289c 7297c 761BC 7619c 7620c 
7635c 7636c 7643c 7e44c 764Sc 7646c 7647c 7648c 7e49c 76S0c 7651c 76S2c 
7662c 7663c 766ec 7667c 

18142c 18158c 18159c 18167c 18168c 18176c 18184c 18192c 

21131c 21133c 



gle read integer 

DCL C TNIdgl corifg in) 
DGL"C~0UT(dgT ccnTg^out) 
GLE"HFGL(gle_Fpol out) 
GLE_HPGLI(gle hpgT in) 
GLE HPIB(gle Fpib To) 
GLE;uTL3{gle_ut]5y 

gle sample 

BEL HPGLI (dgl hpgli) 
DGL "KNOB (dgl Fnc6) 
GLE'GENliglejeri) 

gle sclip 

GCE HPGL(gle_hpcl out) 
GLE RGLIgle ras out) 
GLE5CLlP(gTe_5clip) 

gle set marker 
GtE GFN(gle gen) 
LlBfdgl_IibT 

gle sh 

GlE UTLS(gle_utls) 

gle sHortint 

DEL C_IN(dgl corfg_in) 
DGL "C OUT(dgT cenfg out) 
DGL ■p5LY(dqi_poly) 
DOL RSSIdgl_ra5lerl 
GLE FILE(g)e_flle_10) 
GLE HPGL(gle hpcl out) 
GLE "HPGLKgle hfgT in) 
GLE HPlB(9le_Hpi5_Io) 
GLE "KNOB!gIe_kncl)_lnl 
GLE RGL(gIe_ra5_out ) 



GLE St1fiRK(gIe„5n-ark) 
GLE "STEXTigle.stext 
GLE TYPES igle_types) 



GLE _UTLS(gle_ut Is) 

gle shortint max 

GCE KNOB(gTe_knob i 
GLE\UTLS(gle^utl5T 

gle si;ortint mTn 

GUE KNOBIgTe knob i 
GLE;;uTLS(gle_ut]sy 

gle Sfnark 

GUE HPGL(9le_hp9l_o 
GLE RGL(gle ras out 
GLE'"SnFlRK(gTe smark 

gle soft char size 
GtE HP5L(gle_hpgl_o 
GLE RGLIgle ra5_out 
GLE""STExT(gIe_st5xt 

gle soft clip_draw 
GtE HPSL(gle hpgl_o 

gle_soft clip_Timit5 
GLE HPCL(qle_hpal_o 
GLE RGLjgle ras out 
GLE_SCLlP(gIe_5.:lip 

gle sf'ft clip_move 
GUE, HP5L(gIe_hpcil_o 



12049c 12097c 
11279c 11419c 

7182c 7184c 7186c 7188c 7242c 7244c 7246c 7248c 
18108c 18110c 18112c 18114c 18148c 18150c 18152c 181S4c 18254c 18255c 18266c 18301c 18303c 1830Sc 
10493c 
21008d 21069d 2U03c 

18028c 18079c 
18110c 
3014d 3067d 

7036d 
8088d 
6002d 

2022d 2151d 
2074SC 

21069d 

12043d 
11168d 
20562d 
17203d 

9012d 

7066d 
18039d 
10013d 
ISOlld 

8016d 

8047d 

8247C1 

5096d 

4008d 

1007d 

1099d 

1146d 

1224d 
21008d 
21069d 



12089d 
11406d 
20553d 
17250d 
9014d 
7069d 
18042d 
10486d 
18016d 
8017d 
8048d 
8293d 
5097d 

1074d 
llOOd 
1147d 
122Sd 
21009d 
21074d 



7081d 7083d 7140d 7165d 7166d 7222d 7223d 7514d 
18054d 180S6d 18079d 18096d 18097d 18134d 18135d 18226d 18227d 18230d 18291d 

18017d 
8018d 



8042d 8043d 8044d 8045d 
806Sd 8066d 8094d 809Sd 



8030d 6031d 8033d 3038d 8039d 8040d 8041d 

8049d SOSOd 8061d 80S2d 80S3d 8054d 80e0d SOeid 
8312d 8314d 8320d 8377d 
5098d 6099d 5100d 5101d 

107Sd 1076d 1079d 1081d 1091d 1092d 1093d 1094d 109Sd 

1103d 1104d llOSd 11065 lUSd 1119d 1135d 1139d 1141d 

1148d 1149d 1151d 1152d 1153d llS4d 1166d 1167d 1168d 

1228d 1230d 1249d 1268d 1269d 1270s 1274d 1275d 1276d 

21010d 21011d 21012d 21013d 21014d 21019d 21028d 21037d 21038d 21045d 21046d 21047d 

21076d 21077d 21078d 21106d 21110d 21118d 211I9d 21123d 



1096d 1097d 1098d 
1142d 1143d 1144d 
1169d 1171d 1187d 



18174c 1817SC 

21014d 21028d 21033c 21034c 



18174c 18175c 

21013d 21019d 21024c 21026c 



ut) 

) 


*** 


70370 
8090d 
5002d 




ut) 

! 


*** 


7S31C 
8401c 
401Od 


4058d 


ut) 


**« 


7S28C 




Ut) 

! 




7532c 
8400c 
6008d 


7684c 
8S11C 
6012d 
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GrE_HPi;L(gle hpgl_out) 
GLE RGL(gle 7as out ) 
GLE""STEXT(9Te 



gle soft marker 

GUE HPlKgle hpgl_out) 
GLE_RGL(gle i-as_out) 
GLE^SnSRK (qT(!_5marfc) 

gle soft marfcer size 
GrE_HPjL(qle Iipgl_out) 
GLE_RGL(gle ra5_out) 
GLE_SmRK(gTe_5markl 

gle soft set marker 

GrE_HPi;L(qTe hpg]_out) 
GLE_RGL(gIe ras_out) 
GLE_SnnRK(gTe_smark) 

gle soft text 

GlE HPEKgle hpgl out) 
GLE_RGL(gle_ras_out) 

gle soft text di 
GtE Hp- 
GLE RGL( 
GLElSTEXT(gIe_5tex 

gle soft text_1u5t 

GUE_HP5L(gle hpgl_out) 
GLE RGL(gle l'as_out ) 
GLE_STEXT(gTe_5tcxt) 

gle soft text_spacing 
GrE_HPBL(q]e_hpgl_outJ 
GLE RGL(gle ra5_out) 
GLE_STEXT(gTe^stext) 

gle start digitize 
D5L„HPGri((igl hpgll) 
DGL_KNOa(dgl Enob) 
GLE_GENI (gle'geni) 

gle stext 

GrE_HPGL(qle_hpgl_out) 
GLE RGL(gle ras out ) 
GLE_STEXT(gTe_stexti 

gle terrr 

GlE GENCgle qen) 
LIBTdgl_liby 

gle text 

GtE GENtgle qen) 
LIBTdgl lipy 

gle text 3i r 

GlE GER(gle qen) 
LIBTdgl^libT" 

gle text Tust 
GrE_GER(gle^gen) 

gle text spacTng 



7S37C 
8405c 
5008d 

7S38C 
8406c 

SOlOd 

7539c 
6407c 
5009d 



GUE GER(gle cien) 
LIBTdgl_libT 



gle text xform 

GUE HPjL(gle hp9l_out) 
GLE~RGL(gle 7a5_out) 
GLE_STEXTlgTe_stext) 



:" 


7536c 
8403c 
4012d 


4082d 


*** 


7S36C 
8404c 
4013d 


4094d 


:" 


7533c 
8402c 
40Ud 


4070d 


«»* 


18064c 

18104c 

3015d 


3073d 


*** 


7033d 
8086d 
4002d 




«»« 


2026d 
21053c 


2170d 


«** 


2010d 
20728c 


2069d 


««« 


2013d 
20811c 


2087d 




2014d 


2099d 


**# 


2012d 
20840c 


2081d 




7S4SC 
8414c 
4014d 


4018d 



gle types 

DijL C_IN(dgl confq_in) 
DGL~C OUT(dgT confg out) 
DGL_HPGLI (dgl hpglij 
OGL_k:NOB(dgI Fnob) 
DGL_POLY(dgl'poly) 
DGL RflS(dgl Faster) 
DGL_TOOLS(dgl_tools) 
DGL VfiRS(dgl_vsr5) 



GENXdgl gen 

gle^fIlETsi 



f ile_io) 

eni) 

pgl out! 

hpgl^ln) 
npib_io J 
krob_in) 
ras out) 



GLE_GEN(gle_ge 
GLE GENI(gle_g 
GLE HPGLjgle R 
GLE'HPGLI (gle 
GLE HPIB(gie H 
GLE_KNOB(gle k 
GLE_RGL(gIe Ta____ ., 
GLE_SCLIP(gTe sclip 
GLE_SnBRK gle~smark 
GLE_STEXT gle_stext 
GLE TYPES (gle types) 
GLE UTLS(9le utls) 
LIBTdgl_llb)~ 

gle utls 

D!;L_C_IN(dgl confg_in) 
DGL_C OUT (dgl confg_out) 
DGL Hl'GL(dql Kpgl) 
GLE_FILE glerfile io) 
GLE HPGL(9le_hpql out) 
GLE_HPIB gle ■hpib_io) 
GLE_KNOB gle knob in) 
GLE_UTLS(gle'utlsy 

gle write integer 

GUE.HPGtfgle hpgl out) 
GLE_HPGLi (qle_hpgT_in) 
GLE_UTLS(gle_utls) 

gload 

GLE_GEN(gle gen) 
GLE_HPGL(gle hpgl_out) 
GLE TYPES (gli_types) 

global 

INITLOBD(loader) 
LI8RRRIHN 
SEGUE NTER (asm) 
SEGnENTERJsegmenter) 

globalbase 

INITLOflD(loader) 
LIBRRRIHN 

globaldelta 

INITLOBD(loader) 
LIBRRRIflN 

globalsize 

INITLOnD(loader) 
LIBRflRIHN 

globase 

INITLOHD(loader) 
LIBRPlRIfirvi 

gmaxheight 
C HOOK 

DSL RBS(dgl_raster ) 
GCRT(crtb) 

gmem 

c:RT(crt) 



*«« 


12004d 






a;** 


11004d 






*** 


18012d 






*«* 


18012d 






%M* 


20036d 






*XX 


1701Sd 






XX* 


200nd 






**# 


52d 






*X* 


3056d 






*** 


9004d 






*** 


2004d 






«** 


3004d 






*X* 


7004d 






XM(» 


18004d 






*!*[# 


10004d 






**« 


18O04d 






*** 


8O04d 






Htlk* 


6004d 






*** 


5004d 






XX* 


4004d 






XXX 


1002d 






XX* 


21004d 






XXX 


201040 






X*X 


120140 






XX* 


llOlSd 






XX* 


17013d 






XX* 


9025d 






xx* 


7038d 






X** 


10036d 






XXX 


18028d 






XX* 


21002d 






XX* 


7088c 






XX* 


18061= 








21009d 


21037d 




XX* 


2234c 






XX* 


7SS4C 






XXX 


1043d 






XX* 


858d 








181c 


1566c 


1617c 




86d 


99c 




XXX 


38d 








9S3d 


1412c 






370c 


1685c 


1971c 




1027d 


1412c 






149SC 


1496c 


1685c 




9S2d 


1379c 


1413c 




371c 


1686c 


1970c 




1025d 


1412c 






168SC 


2617c 




XX* 


6Bd 






XXX 


173e9d 






XX* 


141d 







n-75 



227d 255c 



3.v.5rrit 


































CRT (crt) 






228d 


254c 


























gmemt type 


































CRT (crt) 






226d 


228d 


























gmem ype 


































CRT (crt) 
go 

INIf(Idr) 






22Sd 


227d 






























2280d 


2321d 


























INITLOflD 






1711d 


1793c 


























TBIL 






75c 


88c 


























go pr oq 


































fte8<sys(cii 






869d 


930c 


938c 


1136c 






















Soff 


































CRTicrt) 






206d 


212c 


























OGL C OUTIdg] confg 


_out) 




11214d 


11225c 


























gon 

CRT (crt) 






205d 


211c 


























DGL_C_OUT(dgl_confg_ 


_out) 




11213d 


11224c 


























goodio 


































ETb 






nsd 


153c 


437c 


439c 


470c 


631c 


878c 


907c 


929c 


1046c 


1054c 








LIF3fin(lifnl0dul.!) 






82d 


301c 


353c 


445c 


448c 


528c 


1111c 


1145c 














got code 


































n6SicSYS(ci) 






46d 


641c 


642c 


1019c 


1022c 


1023c 


















gote^pcsign 
nOREFSYg(mf5) 






































136d 


179c 


























qotmant i55asign 


































nOR£FSYS(mfs) 






305d 


3S5c 


























golnu^n 


































n68<SYS(ci) 






211d 


212c 


216c 


221c 


224c 




















gotoxy 


































CRT (crt) 






308d 


412c 


4S0c 


696c 






















GCRr(crtb) 






217d 


282c 


320c 


510c 






















got&vn 

n68KSY3(ci) 






46d 


63Sc 


e3$c 


1019c 






















^^F989S(f988Sdvr| 




*«« 


37d 




























gpio 


































F9835(fg885dvr) 




!*«»( 


107d 




























qpio card 


































KERfCL (general d) 




X«^' 


1052c 




























KERrJELIlodeclar.itions) 


*«S! 


327d 




























gpio drivers 


































G_Ci^V(init__gpio 






209d 


235c 


236c 


260c 






















gpio enable 


































F9g.36(f9885dvr) 






72d 


178c 


























gpio enable^type 


































F9585(f98jSdvr) 






66d 


73d 


























gpio initialize 


































g_Drv 




««I4: 


144d 




























gpio r3 type 

F953SlfS885dvr) 






































66d 


74d 


7ed 


108d 






















gpioc lea r 


































F98il5(f9885dvr) 






90c 


97c 


























gpiodma proc 


































F98>J5Tf9885dvr) 






107d 


I70c 


175c 


178c 






















gpiodr-iain 


































F98l!5 1f9885dvr) 




*«»: 


170c 




























gpiodnaout 


































F98HS(f983Sdvr) 




*M* 


17Sc 




























gpiot/pe 

F98(!S(f988Sdvr) 






80d 


107d 


























qpiowordin 


































F988S(f9885dvr) 






129c 


196c 


























qpiowordout 


































F988S(f988Sdvr) 






124c 


127c 


128c 


146c 


151c 


163c 


















gptr 


































F98«5(f9885dvr) 






80d 
183c 


87c 
191c 


90c 
196c 


97c 
263c 


121c 


122c 


124c 


127c 


128c 


129c 


14ec 


ISlc 


163c 


1780 


LIBMRinN 






1480d 


1592c 


1593c 


1594c 


1607c 


1628c 


















graph 


































C HOOK 




*«* 


45d 




























DGL TOOLS(dgl tcols) 




««!tt 


20023d 




























graphics base 


































C HDOK 






58d 


86c 


135c 
























D5L C_OUT(dgl_ccnfg^ 


out) 




11166d 


11236c 


























graphics bd 


































OGL C i5UT(dgl ccnfg 


out) 




11164d 


11195c 


11203c 


11287c 


11289c 


11300c 


11305c 


11336c 


11347c 












graphTcs card 

KERNELTgenersl C) 
KERNELilodeclaratlon 






































1079c 


1091c 


























5) 


*M* 


329d 




























qraph-cs control block 
DGL VfllfsTdgl vars) 
GLE^'TYPES(gle types) 






































1339d 


1341d 






























1014d 


1019d 


























graphics control blockl 
































DGL_VflR"S(dgl_var5) 






104Sd 


1246d 


1338d 
























graphics control block 


ptr 
































OGL C UUTldgl confg 
OGL <ROB(dql tnob) 
DGL R(1S(dgl raster) 
DGL""VflRS(dgI vars) 


out) 




11007d 


11153d 


11399d 


llS02d 
























*X* 


18047d 
































1728ed 


17291d 






























1333d 


13355 


























GLE::GEN(gle_gen) 






2008d 


2009d 


2010d 


2011d 


2012d 


2013d 


2014d 


2015d 


2016d 


2017d 


2018d 


2019d 


2020d 


2021d 








2022d 


2023d 


2024d 


202Sd 


2026d 


2027d 


2028d 


2029d 


2030d 


2031d 


2032d 


2033d 


2034d 


2035d 








2036d 


2037d 


2038d 


2039d 


2040d 


204 Id 


2045d 


20Sld 


20S7d 


2063d 


2069d 


2075d 


2031d 


2087d 








2093d 


2093d 


2105d 


2111d 


2117d 


2123d 


2139d 


2145d 


2151d 


2157d 


2163d 


2170d 


2177d 


2183d 








2188d 


2195d 


2201d 


2207d 


2213d 


2219d 


2225d 


2231d 


2237d 


2243d 


2249d 


2255d 






GLE_.HPGL(9le_hpg]_ou 


t) 




7029d 
7401d 


7040d 
7430d 


7052d 
7468d 


70S7d 
7487d 


7065d 
7510d 


7080d 


7093d 


7118d 


7137d 


7162d 


7219d 


7332d 


7358d 


7384d 


GLE RGL(qle ras out 
GLE SCLIP(gTe sclip 
GLE SMSRK (gle smark 






8008d 


8009d 


8146d 


8223d 


8244d 


8290d 


8301d 


8309d 


8374d 
















6008d 


e012d 






























S008d 


5009d 


SOlOd 


SOlSd 


5178d 


S185d 


















GLE" STEXT(gle~stext 






4010d 


4011d 


4012d 


4013d 


4014d 


4018d 


4053d 


4070d 


4082d 


4094d 










GLE::TYPES(gle_type5 






1014d 


1029d 


1030d 


1031d 


1032d 


1033d 


1034d 


1035d 


1036d 


1037d 


1038d 


1039d 


1040d 


1041d 








1042d 


1043d 


1044d 


1045d 


1046d 


1047d 


1043d 


1049d 


lOSOd 


lOSld 


1052d 


10S3d 


1054d 


1055d 








1056d 


1057d 


1058d 


1059d 


loeod 


1062d 


1172d 


llSOd 


llSld 












LIBldgl lib) 




««» 


20216d 




























graphics error 

OGL VfllfS(dgl vars) 
GEN7dgl qen) 
LIB(dgl_lib) 




































*** 


1244d 
3069c 
































20120c 


21451c 


























graphics error number 
DGL VflFS(dgl~var5) 




































X»« 


1209d 




























GEN(dgljen) 




*** 


3070c 




























graphics init 
LIB(dgT^llb) 






































20017d 


21372d 


























graphics input control 


^block 
































DGL VfllfS(dgl vars) 
GLE TYPES(gle types] 




*** 


1340d 
































1015d 


1195d 


























graphics input control 


block 


.P'r 






























DGL C TN(dgl confg in) 




12007d 


2039d 


12084d 


12131d 






















DGL"V(5RS dql vars) 
GLE^GENI (gle_geni) 




*«« 


1334d 
































3008d 


3009d 


3010d 


3011d 


3012d 


3013d 


3014d 


30I5d 


3016d 


3020d 


3036d 


3042d 


3049d 


30SSd 








3061d 


3067d 


3073d 


3079d 






















GLE HPGLI(qle hpjl in) 




18021d 


18028d 


18038d 


18053d 


18066d 


18076d 


18093d 


18131d 


18220d 


I8278d 


ie288d 


18312d 


18325d 




GLE KNOB (gle TTnob Tn 
GLE:TYPES(gle_tyD?s) 






18024d 


8075d 


18080d 


18106d 


18183d 


18194d 


18207d 


18213d 


















lOISd 


1204d 


1205d 


1206d 


1207d 


1208d 


1209d 


1210d 


1212d 






II-Vo 





graphics on off 

DSL Rfl5(dgl raster) 
OLE GENfgle gen) 
































17291d 


17587c 


17591c 






















*«* 


2228c 


























CLE HPGLlgle hpgl out) 
GLE RGLIgle ras out ) 
SLE TYPES (gTe types) 


«** 


7S43C 


























«** 


8416c 


























*«* 


1044d 


























graphics rev 

DGL^VfllfStdgl.vars) 






























tx* 


1003d 


























graphics term 
LIB(dgT_lib) 
































2003ld 


21090d 


21378c 






















graphicsbase 
CRT(crt) 
































229d 


254c 


255c 






















graphicserror 
LIB(dgl lib) 
































20041d 


20nSd 


20120c 






















graphicstate 
CRTJcrt) 
C HIJOK 
































210c 


211c 


























120c 


121c 
























DEL C OUT(dgl confg out) 
DGL RffS(dgl raster) 
KEVS(keys) " 
SVSDEVS(5y5devs) 




iiiesd 


11196c 


11219c 


11224c 


11233c 




















nsooc 

384c 


17301c 
390c 
























XX* 


118d 


























gread 






























INI TLOftD( boot dammodule) 




581d 


6320 


6S5c 


686c 


710c 


740c 


741c 


743c 


7S0c 


799c 








qreal list 






























DGL HPGL(d3i hpgl) 
DGL INQldgl rnql 




17020d 


1706Sd 


























6014d 


6O90d 
























DGL POLY(dgT poly) 
DGL RflSfdgl raster) 
DGL VflRS(dgT vars) 




2002Sd 


20O30d 


209 Kd 


21072d 


21148d 




















17247d 


17351d 


17430d 
























n25d 


1130d 
























LIBTdgl lib)' 
TYPES(dgl tyses) 
green 

DGL INQ(dgl inq) 
DGL POLVCdgT poly) 
DGL_RnS(dgl_ra5tcr) 




20048d 


20060d 


2006-'d 


20693d 


20754d 


20772d 
















*** 


1013d 




























6052c 
20079c 


6056c 
20087c 


























17026d 


17027d 


17028d 


17029d 


170300 


17031d 


17032d 


17033d 


17034d 


17035d 


nosed 


17037d 17038d 


17039d 






17040d 


17041d 


17H1C 


17181c 


17187c 


17191c 


17224c 


17235c 


17240c 


17274c 


17629c 






DGL_VflRS{dgl vars) 


*** 


1025d 


























grn intensity 






























GrE_RGL(gle_ra5_out) 




8044d 


8198c 
























growbyte 






























CRT(crt) 
^^n68KS¥S(ci) 




222d 


255c 


























174d 


213c 


214c 


222c 


235c 


236c 


245c 


259c 


260c 


270c 


271c 






gshortint 






























OGL HPGL(dgl hpgl) 
DGL INQ(dgl fnq) 




17246d 


17247d 
























x«« 


6164d 


























DGL RBsidgl raster) 
DGL_VflRS(dgT..vars) 




17255d 


nssod 


17S51d 
























1084d 


1085d 


1086d 


1087d 


lC89d 


1090d 


1091d 


1092d 


1093d 


1094d 


1095d 


llOOd 1102d 


1253d 






1254d 


1294d 


1295d 


1296d 


1297d 


1298d 


1299d 


1303d 












GEN(dgl_gen) 
LIBJdglTib 




3026d 


3152d 


327<d 


3281d 


3402d 


3403d 


3404d 


340Sd 














20O49d 


20050d 


20616d 


20646d 




















TYPES (dgl types) 




1008d 


lOUd 
























gshortint list 






























OGL_POLY(dgl._poly) 




20022d 
21117d 


20023d 
2U49d 


20026d 


20027d 


20028d 


2003Id 


20046d 


20194d 


20910d 


20912d 


21026d 


21027d 21073d 


21116d 


LIBtdgl lib) 
TYPES (dgl types) 




20O46d 


20677d 
























*** 


lOlld 


























gsize 






























HERPT(hpm) 




136d 


171c 


n2c 






















gspacing 

GLE_Ri5L(gle_ras_out) 






























*** 


8039d 


























gstore 






























GLE GEN(gle gen) 


«*« 


2240c 


























GLE~HPGLTgle hpgl out) 
GLE TYPES(gle types) 


#** 


7555c 


























*** 


1045d 


























gstring255 






























DGL VflRSJdgl vans) 


«»« 


UlOs 


























LIBTdgl lib)" 
TYPES(dgl_types) 




20021d 


20022d 


20072d 


20709d 


21193d 


21194d 
















*** 


1009d 


























gsxmax 






























GEN(dgl_gen) 




3403d 


3426c 


3442c 






















gaxmin 






























GEN(dgl gen) 




3402d 


3424c 


3442c 


344SC 




















gsymax 

GEN(d9l_gen) 




340Sd 


3427c 


3446c 






















gsymin 

GEN(dgl gen) 
gtext 

LIB(dgl_lib) 




3404d 


3426c 


3446c 


3449c 






















20072d 


20709d 
























gtl message 






























IiJLIB(hpib 2) 




1867c 


1880c 
























KERNEL (iodecla rat ions) 


**M 


300d 


























gunitbusy 

GLE_KN6B(gle..knob_in) 
































18059d 


isoesc 


18068c 


13123c 




















gunitread 






























GLE KNOB(gle knob in) 




18045d 


18132c 
























gvalue 






























INITLOflO(loader) 


*** 


1104d 


























gvaluestring 






























LIBRflRIHN 




41d 


158c 


159c 


163c 


181c 


191c 


19Sc 


196c 


209c 


213c 


216c 


361c 540c 


1064c 






1306c 


1335c 


2221c 


2S00C 


2501c 


2664c 


25$Sc 


2S7SC 


2S76C 










gvp 

CTPBLEjctr) 
INITLOHD(loader) 


««* 


403c 




























898d 


1459c 


1526c 






















LIBRHRIHN 




143d 


166c 


204c 


360c 


365c 


408c 


409c 


411c 


524c 


S35c 


1280c 


1293c 1294c 


1334c 






1541c 


1593c 


1594c 


1807c 


16360 


1811c 


1812c 


1923c 


1941c 


2102c 


2182c 


2184c 2217c 


2313c 






2374c 


2440c 


2451c 


247SC 


2486c 


2488c 


2498c 


2531c 


2545c 


2S51C 


2621c 


2643c 26S7c 


2715c 






27S4C 


2774c 


2802c 






















SEGnENTER(a5m) 


*** 


135c 


























^"fNITLOPDdoader) 


XKCIK 


1104d 


























LIBRRRIRN 




1633d 


ie36c 


1638c 


ie39c 




















gv rbase 






























LIBRRRIRN 




1166d 


1174c 


1175c 


1178c 




















gvrequal 






























LIBRRRIRN 




ISOSd 


1810c 


1841c 


1843c 


1877c 


2434c 
















^"LfsRflRIRN 




2130d 


2498c 


2499c 


25S1C 


2552c 


















gvrptr 






























INITLOnD(loader) 




871d 


898d 


1272c 






















LIBRRRIRN 




87d 


143d 


153d 


170c 


172c 


17Sc 


199c 


303d 


1175c 


1808d 


2052c 


2130d 




gvrst ring 
LIBRRRIRN 
































143d 


360c 


S24c 


S35c 


539c 


1063c 


1294c 


1334c 


2217c 


2499c 


2552c 






gwidth 






























CRT(crt) 




219d 


224d 


249c 


255c 




















gwidthb 






























CRT(crt) 




219d 


220d 


226d 


243c 


2S4c 


















C HOOK 




e7d 


69d 


109c 






















DEL RnS(dgl raster) 
GCRT(crtb) 




173e8d 


17370d 


17417c 
























140d 


142d 


185c 






















gword 






























CRT(crt) 




221d 


224d 




















11-77 





DGL POLV(dql_po y) 
DGt.RfiS(dgl ra'3 er! 
GEN. dgl^geny 

mu: 

SRtl_DRV(srm) 
fiaJITwijrd 

SRn DRV(5rml 

WEBi'Tlhpm) 
hdndlf bad 5tat!i3 
£S8i)Tc585d5r) 
CSeoicbSOdvr 
nlN!T(qminiti 

inPt;BKUP(c580tb vr) 
handi*' copydata__s 1 atus 

TfiPi:5KUP(C580tb vr) 
handle' uee pending. 

TftPi;gKUPTc580tb. vr) 
tiandl'' verify status 

TRPl Bi;UP(cs50tb vr) 
hard >imax 

GlE RGL(gle_ra'i out ) 
ixarti vmax 

DGt C OUT(dgl_c nfg o 

GLE ^RCMgle^ras outT 
hardd =5c_msus 

CTBKLE 
hardvi.ls 

CS8r.(cs80dvr) 
hardw.irest atus 

INI LOfiD(sysglo ais) 
has ci'lor 

D5L C OUT(dgl c nfq o 
hascl'xF 

CRT. crt ) 

GCR' (crtb) 

SySiiEVS( 

tl3£C0;0r 

CRT crt) 
hasjct rt 

CRTicrt) 

GCRT (crtb) 

SySiiEVS(5ysdevs; 
haspriimpts 

WPHiL(hphU) 

S¥S[iEVS(5y5devb 
haSAVf rt 

CRTcrt) 

GCR; (crtb) 

SVS['EVS(5y5devs i 
hatch 

DGL..POLY(dgl_poiy) 
havedi t a 

B8O«X0vR(a804xd. r) 
head 

ftrlI(-0(csamigoj 

niN:T csSOir) 

hIN) T(qminit ) 

hINJT()^fnjnit ) 



[sysdev 



head ; ector_conipa 3_er"ror 

finT(.0( amigodvr ) 

flMIt-Otcsamigo) 

tllNIT(hminit) 
header 

EPRCM3(eproms) 
headei size 

EPRf nS(eprom5) 
headnim 

tllNlTlasmr) 
headp 

ETU 
fteadrr c 

ETU 
heap 

f168l<SYS(ci) 
heapb< se 

HEBfT hpm) 

HEOf Tjsysglobals) 

INHLlifiDtsysglobiJs) 
heapir use 

ETU 
heapmark 

LIFC(^M(lifriodul<) 

UCS[:_DHn(uc5dmodile) 
heapmax 

HEflPT(hpm) 

HEniTJsvsglobal: i 

INITLORDIsysglobilsj 
heapof f 

SEGnENTER(asm) 
height 

CRT(crt) 

GCRT(crtb) 

LIB(dgI lib) 

SYSCEVsTsysdevs) 
here 

LIFDfintUfmodble 

hestat listi 

HEBFT(hpni) 
hexout 

LIBRElRIfiN 
hi rorr 

EORIYER(edriver ) 

EPRC'IS(eproms) 
high 

C miK 

DGL rOOLS(d9l_tc-ls) 

nesfjYsici) 
highby te 

HEfiFr(h 
highco i 

SEGn-:NTER(asm) 
hiQhcc ie 

SEGn-;NTER(a5m) 

SEGn-:NTER(5egmer 
hiqhgj :b 

SEGn;NTER(a5m) 

highgl >bal 

SEGneNTERfasm) 
SEGn'£NTER(5egmer 



pm) 



20059d 

ni72d 

3169d 

15d 


20108d 

3173c 
176c 


3174c 
333c 


3175c 
349c 


474 c 












261d 


lS03c 


















ISd 




















21 Od 


298c 
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#** 


12024d 
U036d 
lOOlOd 


lOOlld 






n) 
out) 




12O70d 
H371d 


12087d 
11403d 







$440 713c 



lOOlOd 10470c 10479c 1C489C 10514c 10S35C 



12024d 12101c 
lt036d 11471c 
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tjpib l:ne 






















I0riE(hpib 0) 




1713d 


1744d 


1754c 














roLit(npib 3) 


«** 


2068c 


















hpib read 






















DGt C INfdgl confq in) 
DGL C OUT(dgT confg out) 
GLE_HPlB[9ie_fipibJo) 


*** 


12105c 


















*** 


11474c 
10027d 


10528d 
















lipib set timeout 






















DGC r TNfdgl confg in) 
DGL C OUT(dgI confg out) 


*** 


12108c 


















*** 


11477c 


















GLE HPlBlgle Wpib lo) 




1002Sd 


10476d 
















hpib term 






















OGt C IN(dgl confg in) 
DGL C OUT(dgI confg out) 
GLE HPlB(gle WpiB !o) 


*«* 


12076c 


















*«* 


11389c 
10028d 


10552d 
















hpib write 






















DGU t INIdgl confg in) 
DGL C OUT(dgI confg out) 


»«» 


12104c 


















*** 


11473c 


















GLE HFlB(9le TTpib 10) 
hp3ba3dr 




10026d 


10S07d 
















niNIl (xminit) 




136Sd 


158SC 


1628c 


1722c 


1733c 


1757c 


1798c 






hpibamigo clear 






















ftniGrTamigodvr) 
DISChPIB(di5Chpib) 




474c 


524c 


















197d 


310d 
















hpibam~>go identify 






















finlGr(atnigodvr) 




512c 


ei4c 
















CS3Oic580dvr) 




1004c 


1103c 
















DISCHPIB(di5chpib) 




199d 


383d 


406c 


412c 












HINIT(qminit) 
TflPEeKUP(C586tbdvr) 


*** 


957c 


















*«* 


350c 


















tipibcheck sc 






















SMIGO(amigodvr) 




581c 


613c 
















CS80(cs80dvr) 


*** 


1003c 


















DISCHPIB(di5Chpjb) 




194d 


244d 
















hpibcheck sc proc 






















CTfl8IE(5can5tuff ) 




1073d 


1119c 


1158c 


1168c 












hpibqer amigo idem 
DlSCHPlB(di5Chpib) 
























200d 


410d 
















hpibger amigo ident proc 
CTBBlF(5can5tuff ) 
























1074d 


1120c 


1159c 


1169c 












hpibqel amigo ident type 

CTSBlE'(5canstuff ) 
hpibrer 

GLE HPIB(gle hpib io) 

I0LTB(hpi6_iy 
hpibsdr 

PRINTER(prtdvr) 
























10S2d 


1063d 


















10192d 


10248c 


10249c 


102S1C 


10280d 


10338c 


10337c 


10339c 






514d 


570c 


571c 


573c 


602d 


esse 


e59c 


661c 






109d 


123c 


128c 














hpibshcTt msge in 






















flf1IGC(C5amigo) 




235c 


312c 


335c 


414c 












CS80[C580) 




376c 


466c 


494c 














DISCHPIB(dl5chpib) 




198d 


3S7d 
















niNIT(c580ir 
TSPE6KUP(C580tDr) 




757c 


804c 
















*** 


281c 


















hpibshort msge out 






















flHIGli(c:amigo) 




269c 


292c 
















CS80,C580) 




39Sc 


412c 


429c 


S16c 


S32c 


SSOc 


S89c 






DISCHPIB (dischpib) 




196d 


287d 
















niNIl (cs80ir) 




616c 


619c 


643c 


670c 


695c 


722c 


754c 


800c 


841c 866c 


IIINITiiramigo) 


*** 


218c 


















TRPEBKUP(C580tbr) 




67c 


94 c 


127c 


ISOc 


173c 


203c 


249c 


278c 




hpibupon dxfr comp 






















fitilGOfamigo^vr) 


*** 


768c 


















CS80c580dvr) 


*«* 


U16c 


















DISCHPIB(dischpib) 




202d 


440d 
















hpibupon ppol reap 






















nnlGOfamigodvr) 
DISChPIB(di5chpib) 




693c 


755c 


778c 


961c 














201d 


416d 
















hpibwait for ppol 






















BMlGO(amigoavr) 




475c 


525c 


682c 


825c 












BniO(>(C5amigo) 




311c 


413c 
















CS80(C580) 




396c 


440c 


4S2c 


465c 


468c 


480c 


493c 


49Sc 


517c 533c 5S1C 


CS80(C580dvr) 




1114c 


1124c 
















DISCHPIB(dischpib) 




195d 


25Sd 
















MINIl (csSOir) 




617c 


620c 


644c 


671c 


696c 


723c 


755c 


76Sc 


803c 813c 842c 867c 


niNIl (hminit) 




360c 


365c 


367c 


392c 


394c 


399c 


402c 


404c 


425c 438c 440c 448c 


mNIT(ira:TiiQ0) 
TBPEBKUPlcsSOtbr) 
hpm 

HEfiPT(hcm) 


**jf 


2l6c 




















68c 


95c 


128c 


151c 


174c 


204c 


250= 


279c 


291c 


*»* 


37d 


















hptr 






















EPROnSfeproms) 
hr 

CLOO (clock) 




30d 


34d 


















llSd 


120c 


121c 














hrecord 






















EPROMS(eproms) 




24d 


30d 
















hreturn 






















HEflPT(hpm) 




193d 


237c 


25Sc 


313c 












hs successfully initiated 






















PRINTER(prtdvr) 




148a 


244c 


258c 


260c 












htoc 






















LIBRBRIBN 




300d 


474c 


576c 














htoctyp 
LIBRfiRIBN 
























297d 


300d 
















hue 






















GEN(dgl gen) 




3048d 


3049d 


3166d 


3173c 


3190d 


3216c 


3233c 


3234c 


3239c 3240c 3244c 3245c 3247c 


hzSO 






















GLE_lYPES(gle_types) 




1246d 
















11-82 



fl804XDVR(a80'lx!jvr) 
nSCII (asciimodiiie) 



CONVERT(convert_text ) 
CRT(crt) 



C HOOK 

D5l_C OUT(dg:l confq out) 
DGL_HFGL(dgl Fpgll" 
DSL POLY(dgl"pCily) 



DGL_RnS(dgl_ra5ter) 

EORIVER(edriv/er) 

ETU 

GCRT(crtb) 

GEN(dgl gen) 

GLE HPorrgle hpgl out) 

GLE_HPGLI(gli' hpgl in) 

GLE_HPIB(gle Fpibjo) 

GLE_RGL(gleJ"as_out) 



GLE_SnnRK(gle smark) 
GLE_STEXT(gle !,tex1) 
GLE_UTLS(gle_uIls) 

HEnPT(lipm) 

HPHIL(hphil) 

I NIT 

INIT(fs) 

INITiinitunlts) 

INIT(ldr) 

]NIT(misc) 

INITLOfiD 

INITLOBD(bootdammodule) 

INITLORD(loader) 

INITLOflD(mini) 
I0LIB(general_2) 



I0LIB(generai_4) 
KEVSIkeys) 



LIBCdgl lib) 
LIBRflRIffN 



LIFDRn(lifmod ule) 



152d 

177d 

225c 

46d 

103c 

231d 

530c 

632c 

1212d 

1660s 

1694s 

17265 

79d 

l!086d 

17258d 

20202d 

20781c 

20954c 

1708Sd 

17628c 

lOld 

261c 

149d 

677c 

806c 

1127c 

152d 

4S5c 

31S2d 

7069d 

18042d 

lOSlOd 

8152d 

8329c 

8362c 

5094d 

4026d 

21045d 

21087c 

126d 

185d 

2519d 

748d 

2172d 

2314d 

247d 

1728d 

614d 

887d 

159Id 

373d 

S35d 

815d 

980c 

1615d 

253d 

324c 

20679d 

109d 

1354c 

1772c 

2079c 

3279c 

91d 



lS4c 

181c 

226c 

59c 

105c 

251c 

531c 

633c 

1529c 

16615 

16965 

1727 5 

97c 

11116c 

17284c 

20223c 

20783c 

209e0c 

17108c 

17629c 

212c 

283c 

162c 

679c 

861d 

1128c 

173c 

457c 

3156c 

7074c 

18047c 

10519c 

8201c 

8330c 

8363c 

5153c 

4033c 

210S1C 

21093c 

136d 

196c 

803d 

2174c 

2316c 

250c 

1730c 

652d 

1224d 

leiSc 

378c 

863c 

926c 

981c 

1629c 

280c 

325c 

20688c 

118c 

1356c 

1774c 

2080c 

3280c 

93c 



23'!d 

190c 

23'a 

6(.c 

lOf.c 

25ic 

532c 

64 ; c 

153JC 

166;5 

1699s 

17285 

100c 

UUVc 

1728EC 

20237c 

20786c 

20962c 

17109c 

1763EC 

216c 

28Sc 

163 c 

68CC 

98Cc 

need 
i"ec 

465c 

3157c 

707Er 

18048c 

10520c 

8202c 

8332c 

837ed 

5 1 54 c 

4036c 

21063c 

21094c 

144c 

228a 

eo4d 

2176c 

2317c 

252c 

1731c 

661c 

1230c 

1616c 

378c 

867c 

927c 

982c 

1631c 

2S2c 

329: 

20689c 

154d 

13691 

1785: 

2081: 

3283: 

94: 



23Sc 

194c 

244c 

64c 

107c 

255c 

SSld 

642c 

1538c 

1664s 

17005 

17305 

107c 

11118c 

20411d 

23787c 

2 0969c 

17161c 

17637c 

217c 

286c 

164c 

714d 

988c 

1181c 

183c 

464c 



236c 
195c 
245c 

esc 

110c 

329d 

583c 

643c 

1S41C 

1670s 

17015 

17375 

128d 

11129c 

20646c 

20789c 

20973c 

172S4d 

17638c 

220c 

288c 

176d 

741d 

1001c 

1182c 

372d 

498d 



202c 

248c 

73c 

117c 

334c 

S87c 

644c 

1543c 

16715 

17035 

17385 

133c 



203c 

251c 

74c 

120c 

335c 

588c 

645c 

1552c 

16725 

1710s 

1739s 

134c 



204c 

252c 

78c 

121c 

339d 

602c 

664d 

ISSBc 

1674s 

1711s 

17415 



213d 215c 



222c 223c 



82c 

344c 
614c 
67Sc 
lS57c 
16805 
17125 
17635 



90d 

504d 
61Sc 
713d 
1S72C 
1681s 
1714s 
1754s 



94c 

513c 
622c 
718c 
1575c 
16825 
17155 
17555 



S19c 
624 c 

1S77C 
1684s 
1716s 
1757s 



524c 
627c 

16535 
18925 
1717s 
17635 



629c 
628c 

1654s 
16935 
17195 
1764s 



20647c 

20792c 

20976c 

17260c 

17642c 

222c 

290c 

182c 

746c 

1003c 

1190c 

400c 

530d 



20662c 

20793c 

20978c 

17262c 

17643c 

226c 

291c 

195d 

748c 

1006c 

1218c 

401c 



20712c 

20301c 

20980c 

17271c 

17654c 

228c 

328d 

204c 

749c 

1013c 



20714c 20759c 
20806c 20807c 



17380d 17405c 
176S5C 



20760c 20773c 20775c 20778c 
20820c 20822c 20823c 20923d 



17408c 17415c 17581d 17627c 



230c 
331c 
205c 
750c 
1015c 



402c 403c 



232c 

336d 
536d 

751c 
1075c 

419d 



235c 
339c 
S41c 
800c 
1093c 



237c 
340c 
542c 
801c 
1098c 



242c 

3450 

543c 

802c 

1099c 



243c 
348c 
655d 
803c 
1128c 



438c 439c 446c 447c 



7140d 7150c 7161c 7514d 7S83c 7584c 

lS079d 18088c 18329d 183S6c 18357c 

10531d 10540c 10542c 10543c 10544c 10S45c 10S46c 10547c 

8203c e206c 8213c 8214c 8225d 8233c 8236c 8248d 8268c 8293d 8320d 

83360 834SC 8346c 8349c 8350c 8352c 83S3c 8356c 8357c 8359c 83e0c 

4037c 4038c 4039c 4041c 4042c 4043c 

21055c 21060c 21061c 21064c 21065c 21066c 21077d 21081c 21082c 21083c 21085c 

21096c 21098c 21100c 21101c 21110d 21114c 21115c 21123d 21128c 21130c 21131c 

14Sc 147c 148c 182c 183c 185c 186c 

241c 243c 249c 251c 



805d 
2177c 
2386d 

2530 
:737d 

662c 
:235c 
16170 



80ed 811d 

2236d 2239c 

2392c 2393c 

S17d 526c 

1741c 1742c 

696c 700c 

1236c 1238c 



812d 820d 822d 833d 835d 
2241c 2255d 
2395c 



938d 

983c 

1642d 

284c 

330c 

,0695d 

216c 

;389c 

:786c 

2103c 



947c 

984c 

1650c 

285c 

335c 

20704c 

242d 

1391c 

1792c 

2107c 



870c 
949c 
994d 
1652c 
289c 
343c 



538d 
1743c 

783d 
1239c 



874c 

950c 

1002c 

2910 
377d 



SSSd 
1746c 

790o 
1251d 12S7C 



S67c 
1749c 



597c 
1750c 



598c 
1752c 



1269c 1401d 14430 1465o 1531c 



875c 

9Slc 

1003c 

301c 
4640 



876c 

9520 

1072d 



877c 

953c 

1081c 



303c 304o 



207O5O 21114d 21302d 21317c 



lOOd lOSc 



285d 
1394c 
1796c 
3119d 

162d 



288 
1656d 
2004d 
3247d 

181c 



290c 
1689c 
2033c 
3254c 

229d 



389d 
1723d 
2046O 
32S5c 

233c 



399c 

1747c 
20S6C 
3256c 

2350 



878c 
954c 



400c 
1761c 
2058c 
3259c 

237c 



879c 
955c 



320c 321c 



459d 
1768c 
2059c 
3260c 



461c 
1770c 
20e0c 
3271d 



n68KSYS(cl) 



niNIT(bininit) 
fllNIT(qminit) 
mNIT(xminit) 

mui 

flOREFSVSfmfs) 

nOUSE(mou5e) 

NONUSKBDl (non U3_kbdl) 

N0NUSKBD2 

SRMDfiM ( s rmdarmiod u le ) 



SRM DRV 
SRh-DRVfsrm) 
SYSCEVS sysdevs) 
UCSD_RI1(uc5d am) 
UCSD_DBM(ucs3mcdule) 



UCS0_DBn(uc5dmcdule) 
12 

UCSD_Dnn(uc5dmodule) 
iand 

n804XDVR(a804xdvr) 
ia rray 

CRT(crt) 

GCRT(crtb) 
ibadclose 

INIT(mi5C) 

INITL0fi0(sy5globalsl 
ibadf iletype 

INIT(mi5c) 

INITL0nD(5ysqlobal5| 

SRM DRV(s™) 

UCSC_Dnn(ucsdrncdiile| 
ibadformat 

fISCn (asciimodule) 

INIT(mi5c) 

INITL0FlD(sy5gU.|jal5) 

lOLIBtgenerai 2) 

neSKSYSfci) ' 

nOREFSYS(mfs) 
ibadpass 

INlT(mi5c) 

INITLOnotsysglobals) 

SRnOfitl(srmdanrnodule) 

SRn_DRV(srm) 



349c 

176d 

2S0c 

369c 

754c 

66d 

1037d 

1411d 

54d 

61d 

68d 

113d 

125d 

lOOd 

S08d 

655d 

1600c 

1772c 

206d 

494d 

49d 

138d 

232c 

307o 

4S3c 

6130 

670d 

670d 

165c 

S46d 
416d 

333c 
190d 

3400 

192d 

1184c 

213c 

250o 
318c 
136d 
893c 
766c 
386c 



484d 

211d 

261c 

371c 

755c 

83c 

1046c 

1668c 

77c 

66c 

70c 

136c 

144c 

102c 

S13d 

9100 

1601c 

1817c 

214d 

499c 

63c 

141c 

264c 

3170 

474d 

617c 

5980 

600c 



547d 
417d 



516: 

212: 

264: 

374: 

757; 

84: 

1047: 

1669: 

79: 

67: 

71: 

138: 

145: 

103: 

533: 

944: 

1602: 

1855: 

1499: 

500: 

71d 

142: 

256: 

380d 

501c 

621c 



604: 6090 

601c 606c 610c 



522c 
217c 
265c 
375c 
788d 
86c 

1708c 

80c 

68c 

72c 

139c 

147c 

104c 

5360 

960d 

1603c 

1874c 

1693c 

598d 

84c 

144c 

257c 

387c 

S31d 



529c 
218c 
2660 
37ec 
813c 



17:2c 

82c 

•'Tc 

132d 

147c 

148c 

106o 

539c 

991d 

1608c 

1894c 

1694c 

6t4c 

145c 
265d 
389c 
S35c 



224c 
272c 
378c 
842d 



1717c 

83c 

78c 

134c 

149c 

I53c 

185d 

543c 

1016d 

16100 

1953c 

1767c 

648c 

149c 
272c 
390c 
536c 



2009c 2034c 2036c 2056c 209Sc 2102c 2103c 



508c 



350o 
194d 

190c 68Sc 
1160c 



699c 1107c 1545c lS94c 



883c 
978c 



1346d 
1771c 
2062c 
3278c 



244d 265c 341d 



225c 
27Sc 
379c 
848c 


233d 
2760 
394d 
983d 


2340 

278c 

659d 

1033d 


238c 

293d 

671d 

1085c 


241c 
313d 
679c 


244c 
366c 
7020 


248c 
367c 
748d 


249c 
368c 
752c 


1720c 


1736c 














86c 

79c 
13Sc 
ISOc 


87c 
400d 
138c 
171c 


291d 
415c 
148c 


309c 
564d 


310c 
631c 


458d 
632c 


466c 
645c 


467c 
846c 


188c 

S45c 

1019d 


189c 

550c 

1033d 


466d 

574d 

104SC 


471d 

S94c 

1049c 


4810 

597c 

1070c 


482c 
600c 
1072c 


485c 

629c 

1418c 


487c 

e34c 

1626d 



lS3c 


184d 


195c 


199c 


2040 


220c 


222c 


224c 


273c 


275c 


279c 


284d 


287c 


2880 


302d 


3060 


429d 


432c 


4330 


438d 


444c 


445c 


4480 


449c 


542c 


5600 


S63c 


S69d 


581c 


587c 


589c 


590c 
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ib^drequest 






















BMIGd amigodvr) 


**w 


639c 


















flSCi: asciimodule) 


*«* 


309c 


















BUBBIES (bubble) 


**« 


118c 


















CS8OiC580dvr) 


*»>< 


488c 


















**x 


1399c 


















ETU 


*** 


629c 


















F98«S(f9885dvr) 


««:k 


290c 


















GCRT(crtb) 


«#¥ 


366c 


















INITrmisc) 




343c 


476c 


506c 


687c 












INITI OfiDfbooTdanmodule] 


**»: 


726c 


















INITl.OfiDimini] 
INITL0nD(sy5globaU) 


««>K 


518c 


















*** 


193d 


















KEVSikeys) 

LIFOfiNrlifmodulel 

n68ICSYS(ci) 


*** 


138c 




















488c 


1065c 


1086c 


1168c 












*«>; 


741c 


















SRHRM ( s rmammod u 1 e ) 


*«;« 


212c 


















SRrCRfl ( s rmd ammo d u 1 e ) 


♦ ** 


1798c 


















UCSD firi(ucsd am) 


««* 


263c 


















UCSD"'Dfin(ucs3module) 




476c 


673c 
















ibadtifle 






















ETU 


*** 


329c 


















INIT(mi5c) 




311c 


439c 
















INITLOflDlbootdanTBodule) 


**x 


621c 


















INIT._0fiD(5y59lobal5) 


**W: 


185d 


















LlFDHMflifmodule) 




103c 


171c 


177c 


189c 


222c 


394c 


1071c 1162c 






SRH3nn(srmdafmiddule) 




124c 


145c 


694c 


753c 


764c 


783c 


998c 1197c 1273c 1287c 1581c 1592c 1604c 




SRn nRV(srm) 


*«« 


1142c 


















UCSD 0fin(uc5dmodyle) 




175c 


441c 


462c 


486c 


S77c 


653c 


666c 
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20981c 


20987c 


20992c 


21002c 


21008c 




21011c 


21130c 


21183c 


2H87C 


21219c 


21268c 


21320c 


21342c 














info2 






























DGL C OLIT(dgl confg 
DGL HFGL(dgl Fpgll 


out) 11240c 


11256c 


11276c 


11322c 


11323c 




















17197c 


17294c 


























DGL Hl'GLI(dqT hpgii 
DGL <riOB(dgl Fnobl 


18029c 


18063c 


18073c 


18080c 


18091c 


18101c 


















18074c 


18087c 


18100c 


18113c 


18123c 


18136c 


iei42c 
















DGL P(iLY(dgl poly) 
DGL RhS(dgl raster) 


20079c 


20086c 


20095c 


20998c 


21001c 


21004c 


21005c 
















170SSC 


17214c 


17280c 


17337c 


175270 


17613c 


















GENTdql genj 
GLE_Hf'Gngle_hpgl^o 


»** 3542c 




























Jt) 7186c 


7190c 


7193c 


7194c 


7206c 


72460 


7257c 


7264c 


7275c 


7284c 


7292c 


7300c 


7307c 


74390 




7456c 


7498c 


7681c 
























GLE_HPGLI (gle_hpgl_ 


n) 18112c 
18386c 


18116c 


18119c 


18120c 


18152c 


18162c 


18171c 


18179c 


18187c 


18195c 


18202c 


18255c 


18269c 


18303c 


GLE KNOB (gle knob i 
GLE Rl'Kgle ras out 
GLE SC L'f (gTe sclip 


] 18087c 


18093c 


18099c 


18128c 


18178c 


18189c 


18201c 


18258c 


18260c 


18265c 










8185c 


8214c 


8228c 


8278c 


8305c 


8329c 


8345c 


8387c 


8388c 


8389c 


8390c 


8463c 


8S09C 




»»« 6018c 




























GLE SriflRk gle smark 


5118c 


51 30c 


5133c 


5146c 


S149C 


5168c 


5191c 
















GLE S1EXT gle~stext 


4062c 


4C66C 


4074c 


4078c 


4086c 


4090c 


4098c 


4102c 














GLE T'.PESigle types 


10220 


1198d 


























LIBTdQl lib) 


20227c 


20550c 


20809c 


20835c 


20839c 


20982c 


21003c 


21131c 


21184c 


21220c 


21269c 


21321c 


21343c 




info3 






























DGL C 0UT(d9l confg 
DGL HPGL(dgl Kpgll 


out) 11176c 


11180c 


11241c 


11257c 


11318c 


11319c 


















17198c 


17199c 


























DGL HFGLI (dgT hpg) i 
OGL KNOB(dgl l^nob) 


18074c 


18081c 


18092c 


18099c 


18108c 




















18111c 


18124c 


18131c 


18154c 






















DGL PrLY(dql poly) 
DGL RI^S(dqi raster ) 


20080c 


20087c 


20994c 
























«•* 17059c 




























GENTdjl genj 


«»« 3E43C 




























GLE_HFGC(gle_hpgl__i)L 


t) 7184c 


7196c 


7198c 


7199c 


7207c 


7244c 


7258c 


726Sc 


7276c 


7285c 


7293c 


7301c 


7308c 


7440c 




7451c 


7499c 


7680c 
























GLE_HFGLI (gle_hpgl _] 


n! 18110c 


18122c 


18124c 


18125c 


18150c 


18163c 


18172c 


1S180C 


18188c 


18196c 


18203c 


13269c 


18272c 


18274c 




18305c 


18387c 


























GLE KNOB(gle knob ir 
GLE RGL(gle ras ou- ) 
GLE SCLIP(9Te sclij 


) 18088c 


18094c 


18100c 


18121c 


18122c 


18158c 


18164c 


18202c 


18266c 












8186c 


8473c 


8510c 
























*»* 6019c 
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GLE SrnRK(gle smari ) 


51190 


5169c 






















j-v 




GLE T\PES(gle type } 


102 30 


1199d 


























LIB(dol lib) 


20233c 


20236c 


209? < 


21004c 


21132c 


21344c 



















info4 














DGL HPGLtdgl hpgl) 
DGL POLyidgl poly) 
DGL RnS(dgl raster) 


*** 


17200c 
20081c 


20088c 2099SC 








»** 


nosoc 










GENldgl genj 
GLE_HPGrTgle_hpgl_out) 


*x« 


3544c 












7188c 


7196c 71S9C 


7200c 7208c 7248c 7259c 7266c 7277c 7286c 7294c 7302c 7308c 


7441c 






7682c 










GLE HPGLI (gle hpgl in) 
GLE KNOBIgle FnoB Tn) 
GLE~RGL(gle ras out) 
GLE SCLIPIgTe 5clip 
GLE SnfiRKJgle smark 




18U4c 


18122c 18125c 


181260 18154c 18164c 18173c 18181c 18189c 18197c 18203c 18388c 






isoegc 


18095c 18101c 


18267c 








8187c 


SSlOc 








X** 


8020c 












5119c 


5170c 








GLE TYPES(gle types) 
LIBTdgl_li6) 




1024d 


1200d 










20984c 


21O0SC 21133c 


21345c 






info ptrl 














DGI C OUT(dgl confg out) 
DGL HPGL(dgl Hpgl) 
DGL POLVIdg] poly) 
DGL RnS(dgl raster) 




11236c 


11258c U324C 










17045c 


17049c 17177c 










21051c 


21096c 










17218c 


17281c 17332c 








GLE HPGLIgle hpgl out) 
GLE HPGLlfgle hpgl in) 




7126c 


7148c 










18071c 


18086c 








GLE RGLjgle ras out) 
GLE SnnRRfgle smark 




8279c 


8328c 838SC 








**« 


5139c 










GLE TVPESigle types) 




102Sd 


1202d 








LIBldgl lib) 


*** 


20725c 










info ptr2 














DGr C OUT(dgl confg out) 
DGL PSLYMgl poly) 
GLE_TVPES(gle_types) 




11237c 


11259c 11325c 










21052c 


21097c 








*«* 


1027d 










infopt r 

BUBBLES (bubble) 
















S7d 


127u 145d 








EDRIVER(edriver) 




71d 


103a 








inforec 














M68KS¥S(ci) 




44 d 


50 d 








inforecptr 














n68KSYS(cl) 




50d 


59d 








inform operator 
PRINTER(prtdvr) 
















165d 


249c 








infost 














LIBRHRIRN 




S6d 


393c 1340c 


1362c 1409c 1418c 






infostart 














LIBRRRIRN 




83d 


2737d 2747c 


2825c 2953c 2975c 3008c 3124c 






ininfo 














ETU 




78d 


335c 388c 


389c 391c 399c 88Sc 890c 918c 1023c 1228c 




init 














GLE HPGLI (gle_hpgl_in) 


«** 


18240d 










init 5l3x abc 














MiRlTjhminit) 
init gesS 913x Chinook 




409d 


491c 




















nlfJIT(hminit7 




332d 


490c 








init aspect 

DGI vfiRSJdgl vars) 
LIBTdgl lib) 














*** 


1182d 










xxx 


21413c 










init bkgnd 
DIJCHPIB 














!K** 


26d 










init c 














c rrooK 




125d 


146c 








init char height 
DGU VfiRS(d9l vars) 














*«* 


1160d 










LIBTdgl_lib) ■ 


«** 


21435c 










init char height factor 
DGU VfiR5(dgl vars) 














*** 


U62d 










LIBTdgl_lib)"' 


**# 


21150c 










init char rot h 














DGU VflRS(dgT vars) 


;r** 


1164d 










LIBTdgl_lib)" 




21155c 


21438c 








init char rot w 














DGU vflR5(dgT vars) 


*»* 


iiesd 










LIBTdgl_lib) 




21154c 


21437c 








init char width 














DGr VflRS(dgl vars) 


*«* 


1159d 










LIBldgl lib) 


*)«« 


21434c 










init char width factor 














DGt VflRSjdgl vars) 
LIBTdgl lib) 


:):*« 


lieid 










««IK 


21148c 










init cmd Buf 














niFIITjiramigo) 
init color 




210d 


21Sc 




















DGr VflRS(dgl vars) 


*** 


1156d 










LIBTdgl lib)" 
init color table 




2116SC 


21171c 21444c 


21448c 


















DGU RSS(3gl raster) 




17025d 


17187c 17240c 


17628c 






init color table_def 














DGr_Rns(3gl_raster) 




17022d 


17026d 








init cpx 














DGr VHRSfdgl vars) 
LIBTdgl lib)"" 


*** 


nSTd 












21176c 


21426c 21429c 








init cpy 

DGl VflRS(dgl vars) 














:(*« 


llSSd 










LIBTdgl lib)" 




21177c 


21427c 21430c 








init d cmd 














flMTGU(csamigo) 


:«** 


56d 










niNIT(iramigo) 


:«»« 


215c 










init dc 














DC DRV 


*** 


718d 










DC_DRV(init_dc) 


#»« 


S69d 










init~dev adr 














DGr VfiRSIdgl vars) 


H** 


1170d 










LIBTdgl lib)" 




21409c 


21411c 








init discint 














DI~DRV 


«»* 


292d 










DIJRVdnit discint) 


«*« 


178d 










init display Tim 
DGU Vfi^S(dgl vars) 
LIBTd9l_lib) 














»»* 


U87d 












21040c 


21419c 








init dma 














DMR DRV 


#»# 


285d 










Dnfl"DRV(init_dma) 


*** 


152d 










init gpio 
G CSV 














«JK* 


304d 










G DRVjinit gpio) 


««* 


192d 










init hpib 














H CRV 


X*» 


315d 










H ORV(init hpib) 


*«* 


193d 










init linestyle 














DGF vnRS{d9l vars) 
LIBTdgl llbl" 
init linewidth 


*** 


llS7d 












21163c 


2U72C 2144SC 




















DCr VflRS(dgl vars) 


*** 


llSSd 










LIBTdgLlibj 
init locator l;lm 




21173c 


21446c 




















DGU VflRS(dgl vars) 
LIBTdgI_lib)" 


*«x 


I192d 












21083c 


21421c 








init root password 
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SRR_DRVT5rm) 


«** 


6ied 








i 



RS_D<V(init rs) 
imt s lanstufT 

CTflB.Elscanstuf f : 

init 5 ;gmenter 
SEGMiENTERIasm) 
SEGni-:NTER(segmenier) 

init S'm 

init t jpebuf 

cs5o 

CS80(tapebuf) 
init t imming_mode 

DGt vfiRS(dgJ_var;) 

UBI^igl^iib) 
inil u:sd am 

UCSD nn 

UCSD nM(ucs(]_am) 
init u.:5d dam 

UC5D om 

UCSD,;DRn(uc5dmodi.Ie) 
init viewport 

act VftRS(dgl_var;) 

LlBT'lgl lib) 
init vir Tim 

DGU VflfS(dgl vars) 

L]BT'igl_iiB) 
init window 

OGL ■'nRS(dgl var-) 

LIB7dgl_lib) 
init with_d_bits 

mNl ' (hminit) 

MINI ^ { iramigo) 
inita8'>4x 

n804>:DVR 

«8O4:-:DVR(a804xdv') 
initba 

BflT 
in jtbo'tdam 

INIT initunits) 

INITI OBD 

INIT! OflD(bootdarmodLile) 
initcli'ck 

CLOCt 

CLOO (clock) 
initcn 

CRT 
initcrtb 

GCRT 
initda- e 

nesKs YS(ci) 
initdi-ig 

niNIl (csSOir) 
initdunibuf 

sun [ RV(5rm) 
initfi ! ekinds 

INIT 

INITimisc) 
init fa) 65 

INIT 
init fkj nds 

INITtOHD 



291d 
189d 



t43Sc 
103;9d 



75d 
240 



1414c 
49d 



1166d 
21447c 



281c 
32d 



687c 
34 d 



1177d 
21415c 



1184d 
21414c 



11720 
21412c 



268d 
58d 



393c 
191d 



4 I 6c 

44d 



2162d 
1674c 
542d 

18Sc 

34d 

3Cd 

29d 

148d 

634d 

1191d 

25S0c 
214d 

2621d 

1702d 



447c 
208d 



730d 
173d 



e49c 

640c 

1221c 

694d 

2570c 
1781c 



1377c 1413c 



init f niimes 

H68KsYS(ci) 
initheap 

M68KtYS(ci) 
initial pattern 

DGL_VHRS(dgl_vsrs i 
initial seek 

flmGC[afnigodvr) 
initialize bkgnd 

DlSChPIB 

DISCtiPIB(bkgnd) 

niui 
initialize media 

niNlTlcsJOir) 

IIINITjqminit 

TSPEBK0P(c586tbdv -) 

TBPEBKUP(cs80tbr) 
initialize medium 

MIUI 
initialize opt ions_t'yte 

ni NIT ( qmln i t ) 

THPEBKUP 

TflPE8<UP(c580tbdvi ) 
init iate__data trans"'er 

ftt1IG0(amigo3vr) 
initiate diagnostic 

niNIT(cs80ir) 

niNITfqminit) 
initiate transfer 

DISCHPTB(disctipib- 
initisnb 

niNIl (xminit) 
init keys 

KEYS 

KEYS(neys) 
init lanj 

KEYSfKeys) 

N0NUS<BD1 

N0NUS<BD1 (non_u5_tbdl) 
initlin< 

LIBRfKIPN 
init loa i 

iNin jfiD 

init loa Jer 

INITL )fiD 

INITL )BD(loader) 
init lood 

HPHIL 

HPHIL hphil) 
inllmed ^ a 

ftlNIT cseOir) 

TRPEBi UP(c586tbr) 
initmou ^e 

MOUSE 

HOUSE mouse) 
initpag'- 

UCSD_ilt1(uC5d_am) 



578d 

94 Id 

1218d 

543d 

556c 

61d 

544c 

S61d 

115SC 

419c 

25d 

283d 

89Sd 
1246c 
328d 



6S0c 
1167c 

627c 

82d 

649d 

73d 

549c 

1064 c 
1477c 
419c 



672c 
96c 



1073c 
1478c 



108SC 1158c 



inlf sy 

INIT[ .nitunits) 
init sySiinit 

CTRBLl (ctr) 

INIT 

INIT( ,dr) 



S46d 


755c 


756c 


762d 


560d 
1129c 


625d 


64Sc 




437d 


SOOc 


S04d 




1375d 


1S20C 


1830c 




698c 
35d 


577d 






231d 

212c 

33d 


586c 

74d 


122c 


204c 


2972d 


3641c 






2d 








1782c 
1094d 


1653d 






389c 

33d 


353d 


360c 


373c 


eeid 

85d 


6670 
91c 






206c 
33d 


179d 


196c 


198c 


48d 


97c 


108c 


109c 


2 1 7 ; d 


2258c 






862c 
256SC 
2276d 


2313d 
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initt ime 
































CLOCK(clock) 




126d 


17Sc 


























initunitable 
































INIT(initunits) 




2235d 


2261c 


























initunitent ry 
































INIT(inHunit5) 




2181d 


2240c 


224 Jc 


2245c 


2247c 


2249c 


















initunils 
































INIT 


*** 


2514d 




























INIT(initunits) 
neSKSYStci) 


«** 


2133d 






























951d 


1126c 


























MINIT xminit) 
initutil 


*;** 


1359d 


























































nlNIT(cs80irl 
TflPEBKUP(C530tl)r) 




603d 


613c 


683d 


693c 


713d 


719c 


745d 


751c 


781d 


792c 


793c 










2$7d 


275c 


























initvects 
































INIT 


«(«* 


2536c 




























initworkfile 
































n68KSVS(ci) 




624d 


651c 


1173c 
























inmount 
































ETU 




386d 


898c 


























inoaccess 
































INIT(mi5c) 


**« 


349c 




























INITLOflDlsysglobals) 


*«* 


194d 




























SRfl DRV(srni) 


*** 


l!e2c 




























inodirectory 
































ETU 


*** 


252c 




























INIT(ml5c) 


»»:* 


339c 




























INITLOflDCsysglobals) 


t** 


192d 




























LIFDfln(Iifmotiule) 




273c 


494c 


























niui 


X«)K 


121d 




























SRMDftMfsrmdai-nmodule) 


««« 


835c 




























TPPEBKUP 


*** 


1052d 




























UCSD_Dfln ( ucsdmodule ) 




117c 


479c 


























inoer ror 
































SniGOramlgodvr) 
BUBBLES(bubble) 




S71c 


579c 


595c 


6340 


648c 


777c 




















40c 


60c 


UOc 
























CONVERTIcotlvert text I 




51c 


53c 


























CRT(crtl 
CS80(cs80d5r) 




199c 


257c 


408c 


























646c 


653c 


75!C 


7850 






















CS80(cs80dvri 




1119c 


1135c 


1232c 


1333c 


1342c 


13S60 


1368c 


1382c 


13870 












CTPBLE 


*** 


123SC 




























C HOOK 


»ti* 


110c 




























05L RfiS(d9l raster) 




17340c 


17418c 


























OISrHPIS(bkgid) 


«** 


118c 




























EPROnS(eprom=) 


««« 


4Sc 




























ETU 




102c 
823c 


116c 
905c 


12BC 
927c 


133c 
1004c 


1390 
1230c 


203c 
12680 


236c 


268c 


314c 


358c 


3710 


467c 


SS2c 


S99c 


F988S(f9886dvr) 




IBOc 


186c 


IS-'c 


293c 






















GCRT(crtb) 




186c 


278c 


























GLE KNOB(gle knob in i 
INlT(miscT ■ 




18051c 


18065c 




























304c 


S22c 


S49c 


565c 


E73c 




















INIT LOAD ( boo tdarrmodule) 




690c 


7S4C 


























INITLOflD( loader) 


**« 


1121c 




























INITLOSD(mini) 
INITL0fiD(5ys.3lobals) 




377c 


400c 


455c 


S21c 






















««« 


184d 




























KEYS(kev5) 
LIBRflRIHN 


*** 


79c 






























134c 


140c 


289c 


2910 






















LIFDfimiifmodule) 
LOCKMOOdockmoduie) 




83c 


253c 


273c 


493c 


495c 


1123c 




















39c 


51c 


84 c 


73c 


80c 


92c 


















neSKSYStci) 




161c 


340c 


422c 


538c 


600c 


6350 


641c 


680c 


763c 


7610 


829c 


850c 


1181c 




MINIT bminit 




80c 


87c 


























nlNIT csSOir 




763c 


810c 


























niNIT hminit 




310c 


SOlc 


























niN T irminlt 


>;«:« 


leec 




























MIN T qminit 




8S2c 


988c 


997c 


lOOlc 


1140c 


1277c 


















mu 




120d 


381c 


























nOREFSYS(mfs) 




105c 


385c 


522c 


527c 


S40c 


54So 


S67c 


674c 














PRINTER(prtdvr) 


XIK:K 


270c 




























SRnfln(srmaitimodJle) 
SRnDfin(5rmdammodule) 




73c 


82c 


88c 


91c 


120c 


1290 


135c 


1380 


155c 


158c 


183c 










81c 


24Sc 


283c 


4790 


491c 


522o 


527c 


531c 


5900 


7330 


756c 


7590 


772c 


790c 






798c 


803c 


809c 


813c 


828c 


841c 


864c 


883c 


923c 


9770 


1042c 


1062c 


1077c 


1084c 






1089c 


1099c 


1111c 


1117c 


1120c 


1128c 


1131c 


11410 


11440 


11530 


1186c 


U88c 


1199c 


1225c 






1227c 


1229c 


1231c 


1254c 


1320c 


13S4C 


1361c 


13700 


1371c 


1386c 


1390O 


1393c 


1423c 


1425c 






1460c 


14630 


1478c 


1484c 


1501c 


15050 


1509c 


ISllc 


1546c 


1548c 


1697c 


16380 


1691c 


1704c 






1713c 


1724c 


172-c 


1739c 


17420 


17S1C 


1771c 


1801c 














SRn DRVrsrm) 
TflPFBKUP 




1133c 


1147c 


1540c 


1542c 






















*M* 


lOSld 




























TBPEBKUP(C580tbdvr) 




348c 
888c 


3S8c 


47-c 


480c 


6260 


S33c 


632c 


655c 


736c 


738c 


748c 


7540 


761c 


863c 


TfiPEBKUP(cs80tbr) 


*** 


289c 




























UCSD PM(uc5d am) 




93c 


166c 


























UCSD DBn(ijcs3module) 




91c 


117c 


605c 


607c 


630c 


675c 


















UNITTO(uio) 




60c 


81c 


9"c 


107c 


122c 




















inofile 
































IN T(mi5c) 


*** 


314c 
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fi804XDVR(a804xdvr) 


*** 


117c 






















HPHIL(hphll) 




138c 


165c 


187c 


214c 
















INIT(i5r) 


*** 


142c 






















KEVSfkeys) 
PRINtER(prtdvr) 




8Sc 


109c 






















177c 


194c 




















intlve 


























nlNIT(hminit) 




254d 


299d 


398c 


424c 
















nlNIT(iramigo) 




192d 


221d 


236c 


















Intr tfr 


























KERNEL (iodecla rat ions) 


***: 


seod 






















intra block offset 


























CS8j(cs805vr) 




1220d 


1246c 


1249c 


1257c 


1265c 


1268c 


1291c 


12SSC 








intreq 


























BUBBLES(bubtile) 




136d 


167c 




















intregaddr 

DC DRVrinit dc) 


























*«* 


648c 






















DI DRVfinit discint) 


X«« 


253c 






















DMB DRV(init dma) 




2S2c 


256c 




















G DRVfinit gpio) 
H DRV init tipib) 


**« 


268c 






















*** 


276c 






















iNlTdsr) 




69c 


100c 




















INITLOnD(sysglobals) 


*** 


20Sd 






















KERNELIgeneral 0) 




1216c 


1220c 


1221c 


















RS_DRV(lnit_rsT 


*** 


256c 






















int regmask 
INITtisr) 




























70c 


101c 




















INITL0PID(5ysglobal5) 


*** 


206d 






















intregvalue 
INIT(isr) 




























71c 


102c 




















INITL0flD(5ysglobal5) 


*** 


207d 






















inttabletype 

INITL0nD(5ysglobal5) 




























213d 


252d 


27i5d 


















invalid 


























LIBRflRIFIN 




417d 
1005c 


567c 
1029c 


62 ic 
1076c 


856c 


861c 


865c 


869c 


875c 


889c 


902c 906c 91SC 921c 


926c 


invalidate stateinfo 


























CS80rcs8Cd5r) 




602d 


Slid 


70 :c 


















niNIT(qminit) 


*** 


11S4C 






















ic bit 


























CI DRV(extdi) 




168d 


ie9d 


170d 


















G URVfextg) 
H DRVfextfi) 




183d 


184d 


ISSd 




















183d 


184d 


185d 


















KFRNELIgeneral 0) 




839d 


844d 




















KERNEL(iodeclaration5l 




370d 


434d 


436d 


















io byte 


























CC DRV init dc) 


«*« 


604d 






















DI~[)RV init~discint) 


xx« 


210d 






















G !iRV{ nit gpio) 
H DRV(lnit hpib) 


*** 


228d 






















#** 


226d 






















KfRNEL (general 0) 




755d 


7S8d 


892d 


911d 
















KERNEL(lodeclarations) 




371d 


SOOd 


514d 


528d 


572d 


696d 


S98d 


657d 


672d 






RS_DRV(init_rs) 


*** 


221d 






















io carriage rtn 


























5L6 HPlB(gle hpib io I 




10521c 


10S46C 




















IOlTB (general 2) 
KERNELIgeneraT 0) 




954c 


1031c 


1044c 


















#** 


786c 






















KERNEL (lodecla rat ions) 


*** 


247d 






















io drv_ptr 


























K Dl?V(init dc) 




642c 


esse 




















DlJCHPiB(dischpib) 




224c 


261c 


274c 


294c 


317c 


333c 


352c 


3eSc 


396c 


426c S18c 626c 




DI DRV(init discint) 




245c 


247c 


283c 


















GLF HPIS(gle hpib io 1 




100B7C 


10076c 


10112c 


10517c 


10S38C 














G DSV init gpio 
H"DRV init hpio 




260c 


262c 


29Sc 




















262c 


2640 


306c 


















liJLIB general 1 




277c 


286c 


297c 


309c 


323c 














lOLIB general 2 




857c 


922c 


943c 


974c 


999c 


10S7c 


1078c 










lOLIB general 4 
OLIB fiplb_0 




1337c 


1450c 


147SC 


1S21C 


1649c 
















1726c 


1737c 


1750c 


















OLIB hpib 1 




436c 


SOlc 




















OLIB hpib 3 


#** 


2086c 






















lOLIB serial 0) 




2280c 


2343c 


246SC 


















KERNEL(Qeneral 0) 




935c 


951c 


1202c 


1239c 


1240c 


1281c 


1283c 










KERNELjiodeclarations) 


*** 


539d 






















PRINTER(prtdvr) 




96 c 


lUc 


137c 


208c 
















RS ORVIinit rs 




250c 


263c 


281c 


















SRR ORV(srmT 




1231c 


1351c 




















io error link 


























T0LI8(general 3) 
KERNELIgeneraT 0) 


**M 


1173c 






















**« 


977c 






















KERNEL(iodecUrations) 


««* 


641d 






















io error number 


























CGL_vnlfS(dgl_var5) 


»*X 


1208d 






















io escape 

Be ORV(intdc) 




























284c 


398c 


429c 


















GLf HPiB(gle hpib io) 




10087c 


10092c 


10131c 


10136c 


10212c 


10219c 


10262c 


10300c 


10307c 


103S0C 




IOLTB(generar 1) 




336c 


341c 




















I0LIB(general_4) 




1307c 
1620c 


1364c 
1626c 


1374c 
1647c 


1381c 


1394c 


1399c 


1408c 


1413c 


1499c 


1S14C 1564c 1573c lS9Ic 


1600c 


lOLIB hpib_l 




455c 


4e0c 


534c 


S41c 


S84c 


e22c 


629c 


672c 


718c 


768c 




lOLIB hpib 2 




1924c 


1958c 


1965c 


















lOLIB hpib"3 




2072c 


2124c 


2128c 


















lOLIB serial 01 




2238c 


22S0C 


2270c 


2301c 


2313c 


2333c 


2367c 


2408 c 


2456c 






lOLIB seriar_3i 




2SS8C 

2777c 


2S64C 
2788c 


2576c 
2808c 


2584c 
2826c 


2605c 
2843c 


2625c 
2860c 


2647c 


2656c 


2669c 


2689c 2698c 2722c 2743c 


27S6C 


KERNEL (qeneral 0) 




811c 


861c 


880c 


900c 


919c 














KERNEL lodeclarations) 




655d 


663d 




















SRM DRV(5rm) 




1276c 


1315c 


1317c 


1319c 


1328c 


1330c 


1336c 


1338c 








io find isc 


























K DRV(intdc) 




2e9c 


390c 


398c 


















KEfNEL(generaU) 


«*« 


811c 






















KERNEL(iodeclarations) 




657d 


672d 


67-c 


681c 
















io funny proc 

l^ERNELTlodeclarations) 




























4e3d 


494d 


S08d 


S22d 


584d 


595d 


597d 










io init dc 


























Be DRV 


««» 


723c 


















11-93 




DC;DRtf(init_dc) 




587d 


600d 



















lo iinit discim 
































cri DRV 


**;K 


297c 




























DI_ORV (iniT_di5<:int ) 




19Sd 


206d 


























io init dma 
































Bt* DUV 


**iK 


290c 




























Drtfl DRV(init dmi) 




171d 


214d 


























io inlt gpio 
































5 DRV" 


*«)K 


309c 




























G DRV(init gpiol 




211d 


224d 


























io init hpib 
































R DRV 


*«)K 


320c 




























H^t>RV(init_hpib 




211d 


222d 


























io Tnit rs 
































RS DR7 


**)< 


296c 




























RS ORV(inlt rs) 




20Sd 


217d 


























■ io inq t imeout 
































CGL Z INIdgl confg in) 
DGl C OUT(dgT confg out) 


*** 


12107c 
11435c 


11476c 


























GLE HPGLfqle Hpgl out) 
SLE"HPGLi(9le hpgT in) 


**J< 


75e6c 




























*** 


18339c 




























GLE_TYPES(9le types) 




10640 


1214d 


























io i5.c 
































0C DRVIinit dc) 




802d 


628c 


628c 


647c 


669c 


670c 


683c 


e97c 


707c 












DC DRV(intdc) 




410d 


418c 


429c 


434c 


473c 


505c 


















DI ORVjinit discint ) 
GLE_HPIB(gle_hpib_io) 




208d 


239c 


240c 


248c 


279c 


280c 




















10190d 


10198c 


10200c 


10212c 


10213c 


10214c 


1021SC 


10219c 


10227c 


10229c 


10236c 


10243c 


102S2C 


102S9C 






10261c 


10262c 


102e9c 


10278d 


10286c 


10288c 


103C0C 


10301c 


10302c 


10303c 


10307c 


1031SC 


10317c 


10324c 






10331c 


10340c 


10347c 


10349c 


10350c 


10367c 


10511d 


10516c 


10517c 


10521c 


10522c 


10532d 


10537c 


10538c 


G ORV(init gpio 5 
H ORV(init hpibl 




226d 


254c 


25Sc 


267c 


291c 


292c 




















224d 


255c 


256c 


265c 


270c 


302c 


303c 
















I0LtB(general_2i 




837d 


853c 


8S7c 


858c 


917d 


920c 


922c 


923c 


939d 


941c 


843c 


944c 


869d 


g72c 






974c 


975c 


99Sd 


887c 


999c 


1000c 


1014d 


lOiec 


1017c 


1019c 


1027d 


1023c 


1030c 


1031c 






1032c 


1040d 


1042c 


1043c 


1044c 


1045c 


1053d 


1055c 


1057c 


1058c 


1073d 


1076c 


1078c 


1079c 


10LIB(gereral_4) 




1357d 


1360c 


1361c 


1363c 


1364c 


1391c 


1394c 


1399c 


1401c 


1402c 


140SC 


1408c 


1413c 


141SC 






1416c 


1419c 


1430c 


1441d 


1445c 


1449c 


14S1C 


146Sd 


1469c 


1474c 


1476c 


1490d 


1494c 


1499c 






1S14C 


1520c 


1522c 


1533d 


1543c 


1548c 


1550c 
















IOLIB(hpib_l) 




512d 


520c 


522c 


534c 


535c 


536c 


S37c 


541c 


549c 


551c 


558c 


sesc 


S''4c 


581c 






583c 


584c 


591c 


600d 


608c 


610c 


622c 


623c 


624c 


625c 


629c 


637c 


tj9c 


646c 






653c 


662c 


6690 


671c 


e72c 


679c 


e98d 


703c 


706c 


708c 


715c 


718c 


725c 


746d 






752c 


756c 


7580 


765c 


768c 


775c 


















I0LIB(hpib_2) 




1839d 


1841c 


1844c 


1847c 


1862d 


1866c 


1867c 


1870c 


1871c 


1874c 


1876c 


1876c 


1880c 


1898d 






1902c 


1903c 


1904c 


1908c 


1910c 


1918d 


1920c 


1921c 


1824c 


1927c 


192ec 


1936d 


1938c 


1941c 






1942c 


1945c 


1952d 


1956c 


1957c 


1958c 


1959c 


1960c 


1863c 


1964c 


1965c 


1966c 






IOLie(hplb 3) 




2096d 


2099c 


2100c 


2101c 


2102c 


2103c 


















KERNEL (gener3l_0) 




965d 
1208c 


984c 
1253d 


987c 
1258c 


991c 
12S9C 


1015c 
126ec 


1030c 
1278c 


1032c 
1279c 


1124c 


1127c 


1199c 


1202c 


1204c 


1205c 


1206c 


RS ORV(init rs) 
io iToe feed 




219d 


244c 


245c 


255c 


276c 


277c 
















































5LE HPlB(gle hpib io) 




10S22C 


10544c 


10545c 
























IOLTB(generaT 2) 




952c 


953c 


1018c 


1019c 


1032c 


1045c 


















KERNEL(iodeclaration5) 
io ]vl 

PC l)RV(init dc) 


**» 


246d 






























604(1 


647c 


651c 


659c 






















Dl l)RV(init discint) 




210d 


248c 


256c 


264c 






















G DRV init gpio) 
H DRV init hpib) 




228d 


267c 


271c 


279c 
























226d 


267c 


270c 


279c 


287c 




















R5 DRV (init rs) 




221d 


255c 


259c 


267c 






















io proc 

iJiSCHPIBlbkgnd) 
































*** 


65d 




























DISCHPIB(d3schpib) 




201d 


202d 


416d 


440d 






















KERNEL (iodeclarations) 




418d 


444d 


466d 
























io proc c 

l?ERNEr(iodeclarations) 


































419d 


447d 


454d 
























io proc I 

KERNEr{iodecla rations) 


































433d 


456d 


457d 
























io proc ptr 

KRNErigeneral 0) 


*** 


uesc 




























KERNEL (lodeclarations) 




440d 


453d 


























io proc 5 

UERNEri lodeclarations) 


































427d 


4Sld 


























io proc^type 

rERNEUl lodeclarations) 


X»« 


374d 




























io pr<ic vb 
ITERHErtgeneral 0) 
































**« 


1187c 




























KERNEL (lodeclarations) 




438d 


4S2d 


























io proc vc 

^ERNEU (general 0) 


































1181c 


1190c 


























KERNEL (lodeclarations) 




421d 


446d 


465d 
























io proc vl 

KERNer( lodeclarations) 


































43Sd 


458d 


























io proc vs 

KERNEUlgeneral 0) 
































«*» 


1185c 




























KERNEL (lodeclarations) 




430d 


450d 


























io proc vw 

RERNEr(general 0) 
































*** 


1183c 




























KERNEL(lodeclarations) 




42Sd 


448d 


























io proc w 

l?ERNEr(iodeclaration5) 


































423d 


449d 


























io program error 
ffHIC.0(c5amigo) 
































«»» 


74 d 




























io read 
































CGL C IN(dgl confg in) 
DGL C OUT(dgI confg out) 


*^* 


1210SC 




























X** 


11474c 




























GLE HPGLIgle Hpgl out) 
GLE HPGLIIgle hpgT in) 




7147c 


7180c 


7240c 


7573c 


7581c 






















18085c 


18106c 


18146c 


182S3C 


18263c 


18299c 


18346c 


183S4C 














GLE TYPES gle types) 




1065d 


1215d 


























io reiid 
































UC DRV (Init dc) 


*** 


608c 




























DI DRVjlnit discint) 
OMff DRV(init dma) 


*** 


213c 
218c 




























G ORVf init gpio) 
H ORVfinit lipib 


*t* 


231c 




























%** 


229c 




























KERNEL qenSral 6) 


*t* 


975c 




























KERNEL lodeclarations) 


*** 


619s 




























RS_CRV lnit_rs) 


*** 


224c 




























io set timeout 
































DGL C INIdgl confg in) 
DGL C OUT(dgT confg out) 


**« 


12108c 






























11436c 


1477c 


























GLE HPGL(gle Kpgl out) 
GLE HPGLl gle hpgT in) 




7667c 


7610c 




























18340c 


8398c 


























GLE TYPES gle types) 




1066d 


1216d 


























lo_5tring 
































TOLIB(general 2 




809d 


818d 


993d 


1039d 






















lOLIBigeneral 3 




1107d 


Ulld 


lll2d 
























IOLIB(general 4 
KERNEL(generaT 01 




1245d 


164 Id 


























«*« 


9S9d 




























KERNEL(lodeclarations) 




373d 


377d 


























io system reset 
TOLIB(general 1) 
KERNEL (generaT_01 


































259c 


268c 




























766d 


1244c 


1252d 
























io temp type 

I?ERNEr(iodeclarations) 


































482cl 


535d 


























io_temp_type2 

^ERNEUrgeneral 0) 
































*^* 


969d 






















T1.Q1 




KERNEL(iodeclarations) 




506d 






















11-7 


-r 





10 temp typej 

KRNEr(general_0) 
KERNEL (lodecla rat ions) 

io term 

CGL C IN(dgl confg in) 
DGL C OUt(dgT_confg_out) 
GLE GENIgle gen) 
GLE GENltgle geni) 
GLE~TYPESt9le_type5) 

io tmp pt r 
SuBBUESfbubble) 
DC DRV(init dc) 
Dl5CHPI8(di5Chpib) 



DI DRV(inlt_discint) 
DnR DRV(init_dma) 
EDRTVER(edrlver) 
F988S(f9885dvr) 
OLE_HPIB(gle_hpib_io) 

G_ORV(init_gpio) 
H DRV(init_fipib 
IffLIB general 1 
lOLIB general 2) 
I0LIB(general~4) 
IOLIB(hpib_0) 
lOLIB hplb 1 
I0LIB(hpib~3i 
IOLIB(serial_0) 
KERNEL(general_0) 

KERNELIiodeclarations) 
PRINTER(prtdvr) 
RS DRV(lnit rs) 
SRH_DRV ( 5 rmj 
io wo~d 
CCJRVIextdc) 
DC DRV init dc) 
DC_ORV(intdc) 

DI DRV(extdi) 
DmH DRV(ini1 dma) 
G Difvtextg) 
H DRV(extR) 
liJLIBlgeneral 1) 
KERNE L(generaT_0) 

KERNEL (iodeclarat ions) 

RS_0RV(init_r5) 

RS_DRV(r5) 
io work char 

T0LIBTgeneral_2) 

I0LIB(hpib_3! 

KERNEL (iodecla rat ions) 
io work str 

T0LIBTgeneral_2) 

io work word 

!!m_DlfV(init_diT\a) 



970d 
520d 

12052c 12106c 
11278c 11434c 11475c 

2174c 

3046c 

1067d 1217d 



64 c 

648c 

224c 

320c 

338c 

247c 

192c 

142c 

264c 

100e8c 

10520c 

262c 

264c 

278c 

867c 

1338c 

1727c 

437c 

2086c 

2281c 

936c 

1114c 

540d 

96c 

256c 

1231c 

205d 
603d 
238d 
358d 
159d 
183d 
176d 
174d 
306d 
748d 
854d 
372d 
220d 
176d 

883c 

2097d 

605d 

834d 
92Sc 



652c 
250c 
321c 
399c 
283c 
209c 



10077c 
10S43C 
285c 
306c 
287c 
869c 
1363c 
1738c 
446c 

2344c 
9S2C 
1135c 

Ulc 

260c 
1259c 



248d 

160d 
200d 
177d 
175d 
319d 
749d 
856d 
381d 

177d 

970d 
2101c 



862c 
927c 



161c 
660c 
2630 
322c 
401c 



162c 

676c 678c 

276c 277c 278c 

335c 336c 337c 

402c 428c 466c 



279c 


282c 


283c 


298c 


302c 


303c 


304 c 


319c 


338c 


341c 


342c 


352c 


3690 


370c 


37Sc 


376c 


S18c 


S31c 


S41c 













lOlOOc 10113c 10122c 10124c 10202c 10206c 10208c 10232c 10290c 10294c 10296c 10320c 



298c 

87Sc 

1391c 

17S1C 

448c 

24660 

990c 

1143c 

113c 

263c 

1260c 

207d 

249d 

161d 

178d 
176d 

75 Id 
872d 
382d 



1018c 
2104c 



86^c 
200d 



310c 324c 349c 

877c 827c 9S0c 

1402c 1405c 1416c 



1017c 
llSOc 

115c 
281c 

1314c 

208d 

250d 

162d 

179d 
n7d 

762d 
873d 
424d 

179d 

1052d 



981c 
1419c 



1003c 
1451c 



B24c S28c 530c 5S4c 



1061c 10e2c 

1476c 1S22C ISSOc 1670c 



642c 



1040c 
1204c 

116c 

1324c 

209d 

2Sld 

163d 

180d 
178d 

754d 
874d 
426d 

180d 

1061c 



1048c 
1205c 

137c 

1342c 

210d 

2S2d 

164d 

181d 
179d 

7S7d 
891d 
428d 

181d 

1062c 



1054c 
1263c 



208c 
13S1C 



1061c 
1264c 



loesc 

1284c 



1080c 
1296c 



1086c 
1301c 



1093c 
231c 



1100c 1108c 



236c 288c 



2S3d 264d 330d 340d 



760d 
910d 
429d 



761d 
930d 
431d 



763d 
931d 
432d 



764d 
932d 
502d 



824d 
945d 
516d 



829d 
946d 
530d 



834d 
947d 



1074d 1082c 



868c 869c 870c 87Sc 876c 877c 878c 882c 883c 887c 918d 
205c 



in) 
out) 



in) 
) 



in) 
out) 



in) 
put) 



io write 

CGL C_IN(dgl confg_ 
DGL C 0UT(d9T confg 
GLElHFGLrgle^Hpgl o 
GLE_HPGLI (glE_npgT 
GLE TYPES (gle_types 

iobufTer 

I0LIB(general_4) 

locb 

DGL C INfdgl confg 
DGL;c"OUT fagl confg 
GLE_GfN(gle_9en) 
GLE GENI(gle_geni) 
GLE_HPGL(gle_Fipgl o 
GLE HPGLI (gle hpgT 
0LE_TYPES(9le_type5 

iocb ptr 

DGr C INfdgl confg 
OGL~C"OUT(dgT conTg 
GLE FTLEfgle Tileji 
GLE HPIB(gle_hpib ii 



GLE_TYPES(gla_type5) 
iocb ptr file 

DGr_C_i5UT (dgl_conf g_out ) 
iocb ptr hpib 

DGU C TNMgl confg_ln) 

DGL_CZOUT (dgI_confg_out ) 
iocheck 

CONVERT(convert_text ) 
iocode 

ETU 
iocomasm 

F988S(f9885dvr) 

GLE HPIB(9le hpib_io) 



lOLIB hpi 

lOLIB serial 0) 

lOLIBlserial 3) 

KERNEL general 0) 

KERNELjiOComasm) 
iocont roi 

lOLIBIhpib 3) 

lOLIB serial^O) 

lOLIBJserial.s) 

KERNELlgeneral.O) 
iod clr 

DT DRV(init_di5clnt) 

G URVfinit gpio) 

H'DRV init'hpib) 

I0LI8(hpib 0) 

I0LIB(s5rial_0) 

KERNEL(general_0) 

KERNEL(iodeclarations) 
iod end 

DTSCHPIB(dischpib) 

DI DRV(init discint) 

H CRVfinit Kpib) 

ItiLIBthpib 1) 

KERNEL(9ener3l 0) 

KERNE L(iodeclar at ions) 



I0LTB(hpi5_lT 
•-■ •-'■ pib_3) 



12104c 

11277c 11433c 11473c 

7047c 
18034c 

1068d 1218d 

1228d 1257d 

12077c 12102c 

11384c 11390c 11432c 11472c 

2130c 2174c 

3028c 3046c 

7047c 7147c 7180c 7240c 7566c 7567c 7573c 7581c 76100 

18034c 1808SC 18106c 18146c 182S3c 18263c 18299c 18339c 18340c 18346c 18354c 18398c 

1070d 1220d 

12026d 12067d 12076c 

11047d lU67d 11367d 11382c 11389c 

9017d 9018d 9019d 9020d 9021d 9037d 9043d 9049d 9055c 9062d 9065c 9072d 9075c 

10023d 10024d 1002Sd 10026d 10027d 10028d 10467d 10470c 10476d 10479c 10483d 10489c 10S07d 10614c 

10528d 10535c 10SS2d 

1064d 1065d I066d 1067d 1068d 1214d 1215d 1216d 1217d 1218d 

U370d 11384c 11402d 11431c 11432c 11437c 11443c U453c 

12070d 12077c 12087d 12101c 12102c 12109c 12113c 12119c 

11371d 11390c 11403d 11471c 11472c 11478c 11483c 11484c 11489c 



*3K» 


37d 


«IK« 


10006d 


*** 


419d 


*** 


20S3d 


*** 


2226d 


«»« 


2S24d 


**i* 


772d 


*** 


687d 


*X* 


2123c 




2255c 




2S65c 




762d 


«X# 


232c 


«»« 


247c 


*»* 


248c 


«!«» 


1737c 


**# 


2343c 


*** 


1192c 


*** 


457d 




370c 


*** 


227c 


#** 


243c 


*«* 


sole 


*^* 


1187c 


*M* 


4S2d 



2276c 2318c 2339c 
25660 2S77C 26320 
944d 



5c 2706c 2717c 27e0c 2783c 2813c 2820c 2848c 28S5C 
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ioti it it 
BC I.Rvrinit_dL) 
DiSt HPiB(dischp I 
01 i:RV(init_di5' 
GLE HPIB(gJe_hpi 
G_Di;v(i"i'_9PHi 
H WV(init_hpab ■ 
lBLJB(general_l 
lOLlBigeneral 4 ■• 
KERMEL(generaT_fi 
KERNEL (lodeclar I 
PRlrJTER(prtdvr) 
RS CRVtinit rs) 
SRH DRVlsrmJ 

iocJ i:. r 

Dtr_CRV(init_dc| 
DI DRV(init_di5i 
G_URV(init_gpao * 
H Bfk'(init_Fipib , 
KrRN£L(general_(i 
KERrCL lodeclar,! 
RS_rRV(init_rs) 

jod pt-oli 

0TStHPIB(di5Chp. 
D3 tRV(init dis- 
H l55V(init_Hpit 
Ii5tI8(hpib_3) 
KERNEL (qeneral_(' 
KERNEL (lodeclar,. 

lod rcb 

or rRV(inlt_dc) 
0lSlHPIB{di5chp, 
01 CRV(init_di5i 
GLE HPIB(gle_hpi 
G DPV(injt_9pio 
H Of V(iiiit_lipib'i 
IIfLlB(general_l 
lOLIBJgeneral 2 : 
KERNEL (generaTJ) 
KERNEL (lodeclarn 
RSJRV(init_r5) 

iod res 

DC_DRV(init_dc) 
DI DRV init disc 
G_UPV(init_gpio; 
H DtVdnitJpibi 
KERNEL (general_f 
KERNEL (lodeclard 
RS_rRV(init_rs) 

jod rc« 

DC DRVfinit dc) 
Dn)RV(i"i'_<Ji5i 
G__!5RV(init_gpio) 
H DRV(init hpib) 
l!SLI8(general 1 ■: 
KERNEL (gene raT_t 
KERNELdodeclard 
RS_DRV(init_r5) 



iod send 

DrSCHPIB(dl5ChpV)) 



DI DRV(init_di5c 
GLE HPIB(gle_hpi 
H DSv(lnit hpib) 
IijLia(hpib_l) 
KERNEL [generalj 
KERNEL (lodeclara 
PRIMTER(prtdvr) 

iod set 
0TSCHPIB(di5chpii 
DI DRV(init_di5c 
GjjRVrinitgpio) 
H ORi/ initjpib) 
l5LI3(hpib_0) 
I0LIB(5erial_0) 
KERNEL (qeneral_C 
KERNEL (lodeclara 

iod temp 

KERNEL(general_C 
KERNEL (lodeclara 

iod test 

DT DRV(init_disc 
G_[5RV(init_gploi 
H DRVfinit hpib) 
lijLIB hpib3) 
IOLla(serial_0) 
KERNEL (general_C 
KERNELJlodeclara 

Iod tfr 

Df ORV(init_dc) 
DI5CHPIB(dischpi! 
DI ORV(init_disc 
G_DRV(init_gpio' 
H DRV init hpib 
ItfLI6(gene?al 4 
KERNEL (generaT_ 
KERNEL lodeclara 
RS DRV irit rs) 
SRn_0RV(5rmy 

iod wtD 

Dtr Di«V(init_dc) 
DlSCHPIB(dl5Chpil 
DI O^vrinit disc 

GLE HPIB(gle_hpit 
G_OPv(init_qpio) 
H OR^ init_hpib 
IffLI'^fqeneral I) 
lOLIMgeneral 2 
KERN^ILtgeneraTj 
KERN!;L (lodeclara' 
PR!NrER(prtdvrl 
RS_D9V(inlt_r5) 
iod wt : 

DC__DRV(init_dc) 
DI 0«V(init_di5c 
G iJR/(init qpio) 
H DR/(init_hpib 
KERNEL general_C 
KERNiafiodeclara 
PRlNrER(prtdvr) 
RS DRVfinit rsl 





*** 


614c 




















0) 


*»* 


224c 




















int 1 




219c 


283c 


















i^io'i 


*»* 


1006-'c 




















] 


::: 


257c 
235c 
277c 
1337c 
1179c 


295c 
306c 

1235c 


1281c 


1283c 














lions) 


*»* 


444d 

96c 

230c 

1231c 

6)5c 


137c 
281c 

655c 


















mt ) 
1 


Kit* 


220c 
238c 
236c 
1180c 


260c 
275c 
283c 


















tions) 

3) 


«** 


44Sd 
231c 

263c 


263c 
283c 


342c 


428c 














int ) 
) 


)K»* 


230c 

246c 

2085c 

1190c 




















tions) 
3) 




45Sd 

616c 
369c 


375c 


398c 


401c 














int ) 


*** 


221c 




















J_io) 


«** 


10S43C 






















*** 
*** 


239c 
237c 
286c 
























867c 


869c 


875c 


877c 


950c 


981c 


1061c 


1082c 






J 




1181c 


1233c 


















fions) 


«»* 


446d 
232c 

620c 




















int ) 


*** 


225c 
243c 
241c 
935c 


1185c 


















f ions) 


«** 
*** 


450d 
236c 

618c 




















.nt) 


*** 


223c 
241c 
239c 

309c 
1183c 




















iions] 




448d 
234c 




















)) 




276c 


278c 


279c 


282c 


304c 


321c 


322c 


33Sc 337c 338c 341i: 3S2c 376c 


402c 






541c 




















.nt) 


*** 


229c 




















._io) 


*** 


10112c 






















*** 


245c 
436c 
1189c 




















ions) 


*** 


4S4d 
























113c 


115c 


116c 


217c 


220c 


221c 


23e>c 








') 




302c 


319c 


















.nt) 


*»* 
*«* 
*** 
*** 
X1C* 


231c 

246c 

247c 

1726c 

2280c 

1191c 




















ions) 


*** 


456d 
780d 


795d 


















ions) 




657d 


672d 


67Sc 


esoc 














nt) 


«*« 

*«* 
*** 
*** 
«** 
♦ ** 


233c 

248c 

249c 

17S0C 

2465c 

1193c 




















ions) 
) 


*«* 


4S8d 

622c 
518c 




















nt) 


*** 
«** 


228c 
245c 
244c 
1450c 
1188c 


1475c 


1521c 


1549c 














ions) 
) 


*** 
*«* 


453d 
238c 
1351c 

617c 
298c 


303c 


320c 
















nt) 


*x* 


222c 




















_io) 




10076c 


10520c 






















240c 
238c 
297c 
927c 
1182c 


1003c 
1234c 


















ions) 


*** 
#*« 
**« 


447d 
231c 
233c 

621c 




















nt) 




226c 
244c 
242c 
951c 


1186c 


















ions) 


*** 
*** 


451d 
226c 
237c 
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iod wtw 

DC_DRV(lnit_dc) 

DI DRV init discint) 

G_URV(init_gpio) 

H DRV(init_hpib) 

l5LIB(9eneral 1 

KERNEL(9eneraT_0) 

KERNEL lodecla rat ions) 

RS_DRV(init_i-b) 
iodeclarations 

BUBBLES (bubble) 

DC_DRV(extdcl 

DC_DRV(init_dc) 

DC DRVjintdcl 

DGI C OUT(dgl confg out) 

DIS!:HPlB(bkgn3) 

DISCHPIB(di5(;hpibl 

DI ORV(extdii 

DI DRV(init_<ilscint) 

DflH DRVtinit dma) 

EDRTVER(edriver) 

F9885(f9885dvr) 

GLE HPIBOle lipib io] 

G_DPV(eKtg) 

G_ORV(init gpio) 

H_DRV(exthT 

H DRVIlnlt hpib) 

IULIB geneFal 1 

I0LIB(genera;i_2 

lOLIB genera:i_3) 

lOLIB general 4) 

lOLIB hpib 0) 

lOLIB hpib 1 

lOLIB hpib 2i 

lOLIB hpib"3l 

lOLIB serial 0) 

lOLIBJserial "3) 

KERNEL(generaI_0) 

KERNEL[locomasm) 

KERNEL(iodec:.aration5) 

LIB(dgl_lib) 

tllUI 

PRINTER (prtdvr) 

RS_DRV(init_r5! 

RS DRV(rs) 

3RflftI-l(srmammodule) 

SRnOfinjsrmdanmoduie) 

SRn_DRV(5rm) 
ioe bad cnt 

ItJLIBTgeneral 3) 

IOLIB(general~l) 

KERNELIiodeclarations) 

SRn_DRV(5rm) 
ioe bad set 

ItjLIBTgeneral 3) 

lOLIBiserial 5] 

KERNEL (iodecla rations) 
ioe bad tfr 

DC DR7(intdcl 

loriBfgeneral 3) 

I0LIB(general_4) 

KERNELfiodecIa rat ions) 



*** 


619c 


x«x 


224c 


*** 


242c 


K1K« 


240c 


^M^ 


323c 


XX* 


1184c 


*** 


449d 


*** 


235c 


*** 


26d 


«»» 


194d 


*** 


579d 


*X* 


233d 


X** 


UOlSd 


«** 


31d 


*«« 


189d 


K** 


ISld 


*** 


187d 


««* 


164d 


**« 


24 d 


K«» 


37d 


W*« 


10033d 


**x 


168d 


*** 


203d 


x*x 


166d 


*x* 


203d 


*«« 


231d 


«*« 


793d 


*xx 


U03d 


XX* 


I192d 


XXX 


1703d 


XXX 


388d 


XXX 


1773d 


XXX 


2023d 


XXX 


2208d 


XXX 


2497d 


XXX 


736d 


XXX 


697d 


XXX 


222d 


XXX 


20111d 


XXX 


lid 


XXX 


36d 


XXX 


197d 


XXX 


167d 


XXX 


34d 


XXX 


3$d 


XXX 


29d 


XXX 


1131c 


XXX 


1374c 


XXX 


26Sd 


XXX 


1317c 


XXX 


1141c 




2238c 


XXX 


Z75d 


XXX 


429c 


XXX 


1128c 




1499c 


XXX 


262d 



22S0C 2270c 2301c 2313c 2333c 2367c 2408c 2456c 



ioe bad tmo 
GCE HPlB(gle 
lOlTB (general 
lOLIBlgeneral 
KERNELfiodecl 

ioe buf busy 
iSLIBlgeneral 
IOLIB(general 
KERNELTiodecJ 
SRM_0RV(5rm) 

ioe crd dwn 
I5LIBTgenera] 
KERNELjlodecl 

ioe dc act 
IULlE(general 
KERNEL(iodecl 

ioe dc car 
Ii!Ll5(genera] 
KERNELfiodecl 

ioe dc elk 
I5Ll5(general 
KERNELliodecl 

ioe dc conf 
lOLIB(genera) 
KERNELliodecl 

ioe dc conn 
Ii!LI5(general 
KERNELUodecJ 

ioe dc cts 
I?JLI&(general 
KERNELliodecl 

ioe dc fail 
l!JLlE(general 
KERNELjiodecl 

ioe dc ovfl 
IiJLIB(general 
KERNELliodecl 

ioe dc reg 
l5LIB(general 
KERNELfiodecl 

ioe dc rval 
IffLlB(generaI 
KERNELfiodecl 

ioe dc usart 
l5LIB(general 
KERNELliodecl 

ioe eod seen 
or 0R7(intdc) 
IoriB(general 
KERNEL(iodecl 

ioe isc 

DC DRV(init d 
DC~DRV intdc) 
Dl5CHPiB(disc 
KERNEL(iodecl 
PRINTER(prtdv 

ioe isc busy 
IITLIBTgeneral 
lOLIBtgeneral 
KERNEL(iodecl 
SRn DRV(srm) 



.hpib_io) 
arations) 


*** 


iooe7c 

336c 
U32c 
26ed 


10092c 
341c 


-5) 
-I) 
arations) 




1130c 
1307c 
264d 
1276c 


1381c 
1319c 


_3) 
arations) 




1142c 
276d 




_3) 
arations) 




1161c 
288d 




-3} 
arations) 




iieoc 

287d 




_3) 
arations) 


*** 


llSSc 
285d 




-3) 
arations) 


*** 
*** 


ll$3c 
290d 




-3) 
arations) 


*** 


1162c 
289d 




-3) 
arations) 


ifcHc* 


1159c 
286d 




arations) 


#*« 


1148c 
282d 


llSSc 


_3) 
arations) 


*** 


11S7C 
284d 




_3) 
arations) 


*** 


1164c 
291d 




_3) 
arations) 


XXX 


1149c 
292d 


uesc 


_3) 

arations) 


XXX 
XXX 


1166c 
283d 




_3) 

arations] 


XXX 
XX* 


472c 
1143c 
Z77d 


504c 


c) 

hpib) 

arations) 
r) 


xx* 

XX* 


697c 
473c 
221c 
611s 
92c 


505c 

666c 
98c 


arations) 


XXX 


1129c 
1394c 
263d 
1328c 


1408c 
1336c 



1573c 1600c 



102c 139c 
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3oe mi ic 














or DRV jintdc) 


t** 


398c 










GlF riPIB(gle hpit io) 
IOlTB(generaT 3) 




10212c 


10300c 










inec 


1144c 








lOLIBIgeneral 4) 
IOLIB(fipib 1) 


**« 


1620c 












534c 


622c 








10LIB(hpJb 3 


x*^ 


2124c 










I0LIB(serial_3) 




25S8C 


2S64C 


2576c 


2S84C 2605c 2625c 2647c 26560 2669c 26890 2698c 2722c 2743c 2756c | 






2777c 


2788c 


2808c 


2825c 2843c 2860c 




KERNEL (iodec la rat ions) 


*«« 


278d 










ioe no card 














ir>LIff(general 3) 
KERNEL (general 0) 


«»:« 


1122c 












861c 


880c 


900c 


919c 




KERNE L(iodec la rat ions) 


SXXt 


256d 










ioe no data 














Ii3LlB(general 3) 


*** 


n27c 










lOLlBJgeneral 4) 




1413c 


1564c 


1626c 






KERNEL(iodeclarations) 


*** 


261d 










SRn_DRV(5rm) 


«5«» 


1338c 










ioe no dma 














IiTLl5(general 3) 
KERNELliodecla rat ions) 


««:*: 


1134c 










#«* 


268d 










ioe no driver 














liJllBlgeneral 3) 


KCKcK 


1133c 










lOLIBjgeneral 4 


«** 


1364c 










KERNEL (general 6) 


*** 


811c 










KERNELiiodeclarations) 


**:« 


267d 










SRn_DRV(5rm) 


*«* 


1315c 










ioe no error 














l5LI5(general 3) 




1117c 


1121c 








KERNEL(iodeclara;ions) 


**!* 


255d 










ioe no space 














Ii3LIB(generaa 3) 


*** 


1126c 










lOLIBjgeneral 4) 




1399c 


1591c 


1647c 






KERNELdodeclarations) 


*** 


260d 










SRM_DRV(srm) 


*«* 


1330c 










ioe no word 














I5LII?(general 3) 


n*». 


113SC 










KERNELdodeclaralions) 


n*w^ 


269d 










ioe not act 














iCLleTgeneral 3) 
IOLIB(hpib 1) 


^** 


1124c 












718c 


768c 








IOLIB(hpib 3) 

KERNEL (iodeciarations) 


**« 


2072c 










*** 


258d 










ioe not dvc 














iDLIBTgeneral 3) 

lOLIBihpib 2) 

KERNEL (iodeciarations) 


*»H( 


112SC 
1924c 










*** 


259d 










ioe not tipib 

GFE HPlB(gle hpib io) 
10LTB(general 3) 
lOLIBihpib 1) 














«*« 


10131c 
U23c 


10136c 


10219c 


10307c 






46Sc 


460c 


541c 


629c 




I0LIB(hpib~3) 

KERNEL (iodeciarations) 


**« 


2128c 










**« 


2S7d 










ioe not Istn 














iDLIBlgeneral 3) 


«** 


1137c 










KERNEL (iodeciarations) 


»** 


271d 










ioe not sctl 














ICLIHTgeneral 3) 
lOLIBihpib 2) 


*«* 


1139c 
1958c 


1965c 








KERNEKiodeclarations) 


*«* 


273d 










ioe not talk 














lOLIBlgeneral 3' 


««* 


1136c 










KERNEL(iodeclaralions) 


#** 


270d 










ioe rds wtc 














ICLIBTgeneral 3) 


*** 


1140c 










KERNEL iodeciarations) 


*M* 


274CI 










ioe result 














DC OtV(init dc) 


#** 


707c 










OC~DKV(intdc) 




472c 


5C4C 








DlSCHPtB(di5chpib) 


*X* 


222c 










10LIB(9eneral 3) 


*«* 


1169c 










KERNEL(iodeclarations) 




610d 


667c 








LIB(dgl lib) 
PRINTERTprtdvr) 


*x* 


21056c 












93c 


101c 


104c 






SRn tlRV(5rm) 


*«* 


1365c 










ioe sr fail 














It5LlB(general 3) 
KERNELiiodeclarations) 


*** 


1169c 










*»* 


293d 










ioe sr toomany 














Ii5LlF(general 3) 


*«* 


1153c 










KERNtL(iodeclaration5) 


*«* 


281d 










ioe timeout 














DTSCHPIB(dischpib) 


*x* 


222c 










GLE HPIB gle hpib io) 
IOLTB (general 3) 
lOLIBihpib n 
KERNEL (iodeciarations) 
PRINTER(prtdvr) 




10262c 


103SOC 








*** 


1138c 












684c 


672c 








*** 


272d 










*«* 


104c 










SRH DRvisrm) 


#** 


1365c 










ioerror 














IOLIB(general 3) 
LIBRfiRIFlN 




1107d 


mid 


1116c 


1117c 1119c 1148c 1149c 1151c 1173c 






95d 


3090c 


3172c 






ioerror message 














lOLICTgeneral 3) 




1107d 


llUd 


1175c 






ioescapecode 
DC OPV init dc) 














*** 


S96c 










DC DFV intdc) 




471c 


6C3c 








Dl5CHPIB(dischpib) 


i^z» 


221c 










KERNI:L(iodeclarations) 




2S3d 


688c 








PRIN'ERIprtdvr] 




98c 


102c 


139c 






SRnftri(srmammodule) 


*1fW 


219c 










SRMOf*M(srindarmiodule) 


*«» 


1818c 










SRH DRV(srm) 


ifX* 


13S9C 










ioinit lalire 














IOLIB(general 1) 




235d 


2S6d 








iolibrary kernel 














KERNEL ~ 


*x* 


202d 










iomaxis.c 














BJBBLES(bubble) 


#** 


149c 










DC OCVfinit dc) 




628c 


669c 








DI Dtviinit discint) 




239c 


279c 








EDS'IVER(edrTver) 


:«:*« 


131c 










GLE BPIB(gle hpib io) 




10196c 


10284c 








G OSV(init gpio) 
H DRV(init hpib 




254c 


291c 










255c 


302c 








I(5Lle general 4) 
lOLIB hpib 1)~ 


***- 


1360c 












518c 


606c 


701c 


750c 




10LIBihpib"2) 




1842c 


1864c 


1900c 


1939c 1954c 




KERNEL(general 0) 




984c 


1199c 


1258c 


1278c 




KERNEL(iodeclarat ions) 




242d 


368d 


369d 






RS DPV(init rs) 




244c 


276c 
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lomlnisc 

BUBBLES(bubble) 

DC_ORV(init cic! 

DI DRV(init~cliscint ) 

EDlflVER(edrTver) 

G_DRV{init_9Plo 

H DRV(init_ti()ib) 

KRNEL(generiil_0) 

KERNEL (lodecJarat ions) 

RS_DRV(init_r5) 
io r 

n804XOVR(a804x(lvr) 

DISCHPIB(bkgrid) 

E0RIVER(edr5ver) 

INITLOflD(loader) 

INITLOnD(minl) 
ioread byte 

DC_OfV(init_cc) 

DC_DRV irrtdc) 

DI DRV(init_<]i5cint) 

G_IJRV(init 9Pio) 

H ORV(init_Fipib 

KERNEHgeneral 6) 

RS_0RV(init_r5T 
ioread word 

Dnn [)RV(init dma) 

KERSlEL(geners'l_0) 
lores 

fiNIGO(amlgodvrl 

CS80(C580dvr) 

DISCHPIB(Dkgiidl 

nlNITfcsSOlr) 

MINITJhminit 

niNITJqminitJ 

MIUI 

TflPEBKUP 

TnPEBKUP(cs80tbdvr ) 

TBPEBKUP(c580tbr) 
lores value 

F98j5(f9885dvr) 
ioresc 

:S80(c580dvr) 

F988S(f9886dvr) 

INITLOflO(niiiil) 
MINIT(nminit) 
PRINT ER(prtdtfr) 
ioresc bkgnd 
flnlGC(amigodvr) 



firllGO(csamigo) 

CS80(C580a5r) 

:S80(C580dvr) 

OISCHPIB(bkgnd) 

OISCHPIBidiscbplb) 

niNITIhminit) 

MINIT(qminit) 
TnPEBKUP(C586tbdvr) 
TPPEBKUP(C580tbr) 
ioreset 

GLE HPIB{gle hpib^io) 
IOLTB(generaT_l) 



149c 




628c 


6690 


239c 


279c 


131c 




254c 


291c 


255c 


302c 


984c 


1199c 


241d 


368d 


244c 


276c 



16Sc 

6Sd 

285c 

1591d 

414d 

647c 
290c 
248c 
2670 
270c 
7530 
25Sc 

188c 
747d 

777c 
1119c 

39d 
761c 
309c 
986c 

23d 
987d 
736c 
286c 

94d 

1238c 
89c 
280c 
Slid 
168c 
105c 

470c 
668c 
903c 
172c 
6S1C 
lOOSc 
65d 
222c 
325c 
482c 
9S8c 
351 ■ 
29'! 

10O64d 
237d 



16460 
454c 



118c 
7e3c 
310c 
988c 
260 
990c 
739c 
289c 

100c 

1242c 
119c 
283c 
322d 

132c 

477c 
6710 
906c 
2120 
756c 

1104c 
lS6d 
225c 
327c 
492c 

1137c 
5310 



104980 
274d 



1258c 1278c 
3690 



16490 
455c 



890d 9030 1032c 1124c 1127c 



205o 234c 
852d 86So 



133c 
808c 



1249c 
138c 
285c 
401o 

140c 

4780 
8C2c 
810c 

7660 
1129c 

249c 
361c 

1254c 
6460 



158c 
810c 



1134c 1140O 



lS6c 
290c 
4580 



4830 
8280 
9140 



180c 
293c 
472c 



5iec 
873c 
922c 



217c 

4900 

312c 

S19c 
874c 
923c 



220c 
493c 



S28c 
880c 
925c 



224c 
SOSc 



529c 
882c 
931c 



2280 

Sllc 



S33c 
889c 
943c 



235c 
S13c 



535c 
891c 



236c 
518c 



6050 
8920 



237c 
521c 



607c 
893c 



242c 262c 



609c 
897c 



3530 

3790 395c 400c 40Sc 426c 449o 460c 474c 475c 480c 481c 



656c 684c 759c 879c 889c 



ioresult value 

INITLOHD(mini) 
iorsltwd 

CS80(C580d5r) 

DISCHPIB(bkgnd) 

ETU 

INITLOnDtbootdammodule) 

INITLOflD mini) 

INITLOPDisysglobals) 

LIFOfin(Ufmodule) 

Tf(PEBKUP(cs80tbdvr) 
iorval 

INlTLOBD(mini) 

IIINIT(miinit) 
iorval to report 

CSSOTcsffOdsr) 

TfiPEBKUP(C586tbdvr) 
ios access to file_not allowed 

SlfM_DRV ( s rmj 
ios attach table_full 

SPn_DRV(5rm) 
ios bad file^nane 

Slft1_DfVtsrm) 
ios bad select code 

SlfM_Dl?V(srm)~ 
ios conflicting_5hare_rTiodes 

Sirn_DRV(5rm) 
ios corrupt directory 

SR'M_DRV(5~(n) 
ios deadlock detected 

SI?M_DRV(5riSl 
ios device drivers_dont match 

Sfn^DRVfsrm) 
ios directory format5_dont mat 

S?n,DRV(5rmT 
ios directory not_empty 

SKn_DRV(5rmT 
ios ds rom missing 

SSM_CrRV(i"rm) 
ios duplicate filenames 

SI?M_DRV(5rniT 
ios duplicate passwords 

SRd..DRV(5rmT 
ios eof encountered 

Slfn_D^«(srm) 
ios error base 

Sfn_DRVT5rin) 
ios error top 

SR'n DRVTsrm) 
ios file in use 

Si?M DRV(5rm) 
ios file iocked_please_ret ry 

Slfn_DRV(srm) 
ios file not director/ 

Slfn^DR7(sriii) 
ios file not^found 

SIfn DRV(5rm) 
ios file p3thna.'ne_missing 

Slfn^DR7(srm) 
ios file unopened 

SIfM DRV(srm) 
ios iTlegal_byte_numbe r 

SF- DRVCsrm) 



3110 322d 324c 



638d 
39d 
H9d 
S94d 
Slid 
178d 
86d 
518d 

313d 
168c 

638d 
518d 

9S9d 

943d 

962d 

937d 

961d 

952d 

977d 

941d 

945d 

971d 

939d 

g65d 

976d 

931d 

93Sd 

987d 

963d 

983d 

970d 

968d 

9S0d 

9SSd 

951d 



639d 
65d 15Sd 

313d 322d 329d 335d 414d 

519d 698d 699d 

329d 377- 380c 400c 401c 4S4c 

846c 751c 752c 765c 766c 

526c 632c 633c 6SSc 656c 698d 738c 739c 754c 863c 864c 

1162c 

11370 

1141c 

1136c 

U68c 



U75C 
1160c 
1178c 



1171c 
1169c 
1182c 
1180c 
U42c 
1154c 
11 44 c 
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ios 2mt)roper_mass. ■ t o rage_device 

SFnjjRVIsrm) ' *-*■* 

ios in 3uf f icient_d: sk_space 

Slfnj)RV[5rm) 
ios invalid_f ile_ccde 

Sl?nj)RV(srm) 
ios invalid_f ile_3c 

Sl?n_nRV(srm) 
ios invalid_f ile_size 

SR"HJ)RV(srm) 
ios invalid ios request 

Sl?R_nRV(srm) " *** 

ios 3nv'alid_proteci_code 

Sirnj)RV(srm) 
ios iTfik t o_di rectc ry_no1 _al lowed 

Sl?nj]RV{5rml 
ios no capabilit y^^or^f ile 

Sl?«_nRVEsrm) 
ios no reply 

Sl?n_lTRV(5rm) 
ios pa')5word_not_al lowed 

SR:n_!3RV(srm) 
ios pa-iSword not_fcund 

SPn nRV(srrn) 
ios pTi/s eof^encour tereo 

Sf?n_nRV(srm) 
ios purge on open 

S!fnj)ftvXsrm} 
ios reiiame_across_volume5 

SRnj!RV(srf7i) *** 

ios so rtwa re_bu9 

SPM_nRV(srml *** 

IDS su':ces5ful_comclet ion 

Slfn_!)RV(5rm) 
ios syitem down 

SJ?h_r)RV(srm) 
ios un inocated_e^ien 1 

Sf?nj)RV(srm] *** 

ios un.upported dan- 

S!?MJ)RV(srm] " *»* 

ios un'.uppor ted_di rectoryoperation 

SRnjiRV(srm) 
IOS volume_down 

S(?n_HRV(5rm) 
ios vo :ume_in use 

SRn_nRV(5rmT 
ios voiume_io erroi 

S[^riJiRV(5rmy **^' 

io5 vo iume_labels_dont_n'at ch 

s;?MJiRV(srm) *«* 

ios vo iume not foun j 

SPM_DRV(5rm) 
ios vo i.time_off line 

Sl?n_nRV(5rm) 
ios vo I ume_recove raole error 

SRn_nRV(5rm) **>" 

ios vo ,ume_unrecoverable_e rror 

S(?njiRV(5rm) *** 



944cl 




964d 


1174c 


982d 


1184c 


947d 


1139c 


946d 


1138c 


942d 




973d 


1158c 


978d 


1166c 


967a 


11S7C 


984d 


H47c 


958d 


1156c 


97Sd 


1159c 


966d 


1177c 


98Sd 


1172c 


979d 




936d 




953d 


1146c 


964d 


1149c 


938a 




940d 




960d 


1164c 


980d 


1152c 


969d 


1181c 


949d 




957d 




972d 


1151c 


956d 


1150c 



lost atiis 

GLE HPIB(gle hpib iol 

IOLTfi(hpib_lT 

I0LIij(hpib_3) 

IOl.Ii((serlal_0) 

I0LIi-:(serial_3) 

KERNt L(general_0) 
iotemp 

SEGMf NTER(a5m) 
iounin .tialize 

IOLIB(general_l ) 
iounit 

niNI I (asmr) 
iowritf- byte 

KERNt r(generai_0) 
iowrit*- word 

KERNS r(general_0[ 
ip 

H68t;SYS(ci) 

SRn_CiRV(5rm) 
ipart 

CLOCt (clock) 
ipointer 

INITlOBD(5ysglobJls) 

n68K;;YS(ci) 
ipt r 

CRTf< rt) 

UCRTicrtb) 

LIBRfiRIfiN 
iramigo 

niNII (hminit) 

fllNIl (iramigo) 
irate 

SVS0[VS(5y5dev5) 
i res 

LIBRf.RIHN 
isc 

I0LI6(general_4) 
isc bu^y 

IClLIE:(general_4) 



10148c 

472c 

2138c 

2253c 

2646c 

759d 

180d 

236d 

1331d 

756d 

760d 

787d 
1373d 



31d 
39Sd 

546d 
416d 
1487d 

248d 
184d 

422d 

58d 

1249d 

1249d 



10243c 10252c 102S9c 10261c 10331c 10340c 10347c 10349c 

487c SeSc S74c S81c 583c 663c 662c 669c 

2148c 2157c 2187c 

2274c 2316c 2337c 2411c 2459c 

2663c 2715c 2781c 

928d 939c 

213c 215c 

265d 

133Sd 134211 1346a 

909d 

87la 



1383c 1384c 1391c 1392c 
94c 95c 148c 150c 



162c 156c 



738c 740c 787d 
643c 645c 
1501c 



633c 
471c 
1498c 1499c 



1502c lS06c ISlSc 1521c 1528c 1629c 1531c lS32c lS33c 



424c 

93c 96c 36e3c 3669c 3679c 

1667d 1670c 

1667d 1672c 1673c 
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i=iC table 

BDBBLES(bubble) 

DC_DRV(init_ac) 

DC DRV(intdc) 

Dl5CHPIB(dischpibl 

DI DRV(init discint) 

Dn5 DRV(init_dma) 

EDRTVER(edriver) 

F9885(f9885dvr) 

GLE HPIB(gle hpib io) 

G_D^V (init_gpio) 

H DRv(inlt_hpib) 

l!JLIB(general_l) 

lOLIB general""2) 

l:LIB(generalI4) 

IOLIB(hpib 0) 
lOLIBIhpib 1) 
I0LIB(hpibl3) 
I0LIB(5erlaI_0) 
I0LIB(5erial_3i 

KERNEL(general_0) 

KERNEL(iodeclarations) 

niui 

PRINTER(prtdvr) 
RS DRV(lnit_r5) 
SRRfintsrmamiiodule) 
SRM_DRV(5rm) 
isc table type 

DTSCHPlff(di5chpib) 
KERNE Lliodec la rat ions) 
PRINTER(prtdvr) 

DTSCHPIBfdischpib) 
isc te pt r 

DrsCHPIB(di5cnpib) 

isize 

DGL_HPGL(dgl hpgll 

DGL_INQ(dgl_Tiiq) 

DGL_RnS(dgl raster) 

DGL vnRS(dgI_var5) 

LIBTdgl_lib) 
isr 

fi804XDVR(a804x()vr) 

BUBBLES(bubble) 

DC_DRV(init_dc) 

DC_DRV intdc) 

DI DRV(init_discint) 

DMH DRV(init_dma) 

G_D^V [init qpio) 

H DRV(init hpib) 

iRlTfisr) 

fllNIT(xminit) 

RS 0RV(init_r5) 
isrcKange 

INIT(i5r) 



63c 


64 c 


67c 


629c 


670c 




274c 


293c 


393c 


223c 


232c 


233c 


240c 


280c 




192c 


209c 


23Sc 


132c 


I47c 




260c 






10066c 


10075c 


10095c 


25Sc 


292c 




2S6c 


303c 




276c 


285c 


295c 


857c 


858c 


922c 


133$c 


1363c 


1391c 


15S0C 


1670c 




172SC 


1736c 


1749c 


435c 


446c 


443c 


2084c 


2120c 




2236c 


2240c 


2299c 


2556c 


25eOc 


2571c 


276SC 


2766c 


2806c 


857c 


876c 


896c 


1279c 


1296c 


1301c 


616d 






3S0C 






274c 






245c 


277c 




149c 






1230c 


12S6C 


ISOIc 


270d 


289d 


312d 


538d 


617d 




87d 






270d 


27ac 


329d 


289d 


292c 


293c 


39Sc 


396c 


442d 



246c 261c 292c 315c 3Slc 363c 394c 426c 446c 608c 526c 
264c 

:0111c 10122c 10124c 10146c 10200c 1C229C 10288c 10317c 10472c 10617c 10538c 

308c 322c 344c 

923c 943c 944c 974c 975c 999c 1000c 10S7C 10S8C 1078i> 1079c 

1402c 1405c 1416c 1419c 1449c 1451c 1474c 1476c 1520c 1S22C 1548c 

470c 485c SOOc 522c 551c 610c 639c 708c 758c 

2303c 2365c 2369c 

2572c 2603c 2607c 2636c 2637c 2687c 2703c 2711c 2712c 2741c 2745c 

2810c 2841c 2845c 

915c 934c 950c 984c 1202c 1204c 120SC 1206c 1239c 1240c 1259c 



329d 359d 38Sd 442d 



294c 312d 315c 316c 317c 359d 363c 364c 365c 385d 394c 
446c 452c 457c 464c 



17017d 170e2d 

eOlOd 6086d 6171c 

17348d 17427d 

1123d 1128d 

20057d 200e4d 20751d 

31d 

26d 
595d 
259d 
201d 
177d 
219d 
217d 

32d 
1360d 
213d 

55d 136d 



20763c 20764c 20769d 20731c 20782c 



le) 



is rib 

B804XDVR(a804xdvr) 
BUBBLES(bubble) 
INITL0fiD(sy5global5) 
KERNE L(io declarations 
niNIT(xminit) 

isrlbp 
INIT(isr) 

isribpt r 

fi804XDVR(a804xdvr) 

INn(initunits) 

INITL0fiD(sy5globals) 
isrirfo 

BUBBLES(bubble) 
isrlink 

INITfisr) 

niNIT(xminit) 
isrmcatchall 

INIT(nii5c) 

INITLOflDCsysglobals) 

SRhfln(5rmamn-todule ) 

SRriDPn(srmdammodule 

SRMJRV(5rm) 
is rproct vpe 

INn(i5r) 

INITL0BD(syEg]obal5) 

KERNEL(general_0) 

KERNEHiodeclarations) 
isr rec 

R804XDVR(a8C4>;dvr) 
is runlink 

DC_DRV(init dc) 

DI DRV(init discint) 

DrS DRV(init_dma) 

G D^V(init opio) 

H-DRV init'Fipib) 

iNnrisr) ' 

hlNIT(xminit) 

RS_DRV(init_rs) 
issue cmd 

ftMIbO(amigodvi ) 

nnlGO csamigol 

hINIT (irarnicio ) 
issue t ransfer^request 

OMIGO (amigodvr) 
istrovfl 

INIT(misc) 

INITLOnOlsysglobals) 

I0LIB(gener<iI_2) 

M0REFS?3 1mfs) 
Italian kbd 

fl804xtiVR(a804xdvr) 

N0NUSKBD2 

SVSDEVS(5y5dev5) 
itet 

BhlGO [amigodvr ) 






64d 

32d 

201d 

493d 

1375d 

43d 
144c 

89d 

2142d 

202d 



38d 
1520c 

354c 

19Sd 

214c 

1812c 

1186c 

38d 
202d 
1180c 
445d 

64d 

651c 
256c 
2S3c 
271c 
279c 
52d 
1830c 
259c 

753c 
144d 
205c 



124d 129c 

203d 

507d 621d 599d 800d 

50d 53d 56d 65d 67c 75c 83d 98c 107c 108c 112d 121c 137d 

llSd 122c 
2167d 

leic 170c 
60d 



220c 
1819c 
1358c 

45d 
209d 



:22c 386c 

267c 
Hid 



240d 300c 310c 334c 388c 401c 412c 
215c 239c 



545d 705c 710d 

332c 
190d 
894c 
542c 



187d 
155c 
148d 



164c 

452d 4S7d 4S8d 4S9d 460d 461d 462d 463d 
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itfkbd 

P«O4^]VR(a804xdvr 

HPhll(hphil) 

KEVS(Keys) 

nouSf (mouse) 

M)NUE<BDl(non ys I bdl ) 

NONlJ5f;BD2 

SVSDEVS(5ysdevs) 
i t coma nyo pen 

INIT(mlsc) 

INITL0flD(sy5gaoba,E) 

SRf1_D«V(srm) 
iu 

CS80(cs80) 

n68KSt'S(ci) 
iv3ioe 

SVSDE/S(5ysdevs) 
ix 

DGL POLV(dgl_poly) 

L!BTajl_lib) 

iy 

DGL POLY(dgl_pcly) 
LIBTdglJib) 
3 

B804Xl)VR(a804xdvr) 
ASCII [asciimodule) 
CONVE<T(convert text) 
CRT(C't) 

C HOC' 

D5L_P')l,Y(dql_poly) 

DGL Ri)S(dgl raster ) 

ETO" 

GCRI(;rtb) 

GENfdiJ gen) 

GLE Ri.LTgle_ra5_oi,t) 

HEnPT'hpm) 

INITIOS) 

INITLOfiD 

INITLnHD(bootdarrmcdule) 

LIBRflHIfiN 

nlNITixminit) 

mui 

nOREF:iVS(mf5) 
SRnDfin(srmdarrmodule ) 
UCSDjm(ucsd am) 
UCSD_(iRn(uc53moduJe) 

impstatts 

LlBRflkinN 
jptr 

LIBRfiURN 
junkint 

LIBRBflflN 
k 

fi80'»X[iVR(a804xdvr) 
CLOCK, clock) 
CRT (CI t) 
LIBRfiFIflN 
LIFDfln{lifmodule) 
MINITixminit) 
nOUSE (mouse) 
UCSD_['fln ( ucsdmodule ) 



214c 


224c 


364c 




310c 




181c 




S4C 


154c 


127c 




145d 




348c 




194d 




137c 




95d 




856d 


864c 


429d 


430c 



20268d 20300c 20310c 20445d 20451c 20456c 20462c 20464c 20488c 20490c 2049Sc 20497c 2050SC 20507c 

20049d 20050d 20616d 20628c 20B33c 20638c 20646d 20659c 20663c 20689c 

202e8d 20301c 20311c 20445d 204S1C 2045ec 20463c 2046Sc 20489c 20491c 20496c 20498c 20S06C 20S08c 

20049d 20050d 206I6d 20629c 20634c 20638c 20646d 20660c 20664c 20669c 



594c S96c 



233d 


236c 


















lOld 


112c 


114c 


115c 


116c 












46d 


66c 


68c 


90d 


110c 


113c 


114c 


115c 


117c 


120c 


231d 


2S4c 


255c 


551d 


S75c 


579c 


582c 


684c 


58Sc 


588c 


607c 


608c 


623c 


624c 


714d 


718c 










79d 


95c 


100c 
















20411d 


20775c 


20776c 


20779c 


20780c 


20784c 


2078ec 


20787c 


20730c 


20792c 


17380d 


17403c 


17403c 
















852d 


995c 


938c 


999c 


1001c 


1006c 


1104c 








152d 


171c 


176c 


372d 


377c 


409c 


4';0d 


470c 


471c 




3170d 


3174c 


3175c 


3180c 














8153d 


8206c 


8206c 
















217d 




















747d 




















1737d 


1747c 


1751c 


1753c 














614d 


695c 


696c 


697c 


699c 


700c 










109d 


117c 


118c 


7S2d 


787c 


7-50c 


7rj6c 


799c 


1369d 


3119d 


1444d 


1447c 


1448c 


1464d 


1480c 


1481c 










377d 


619c 


















S64d 


600c 


610c 


611c 


612c 


615c 


b.iSc 


619c 


620c 


621c 


467d 


509d 


575d 
















71d 


78c 


79c 


80c 


82c 


33c 


S4c 


87c 






138d 


141c 


148c 


149c 


lS2c 


lS3c 


S31d 


53S> 


S36c 


538c 


617c 


620c 


621c 
















838d 


920c 


925c 
















1487d 


1513c 


ISiSc 


1517c 


1518c 


15i9c 










317d 


3S4C 


355c 


3S9c 


360c 


12 -vo 




1 ;"■ '. 9 






329o 


330c 


333d 


334c 














SOd 


54c 


55c 
















551d 


584c 


585c 


597c 


600c 


eoS'.- 


■•; Oc 




643c 


644c 


471d 


473c 


474c 


752d 


789c 


790- 


■yc 








lOOo 


104c 


lOSc 


361d 


365c 


36S'. 


Sc 




379c 




14530 


1467c 


















770 


1140 


115c 


116c 


118c 












sec 





















581c S94c 



kl 

CLOCKIcJock) 
kl28 

EPR0n.Meprom3) 
kl6 

EPROnS(eproms) 

ETU 
k2 

CLOCK(clock) 

NONUStBDl (non us kbdl) 
k266 

EPROns (eproms) 
kanaalpt'abet 

N0NUS»BD1 (non_u5_kbdl) 
kanatocr tlookup 

CRT(cr t) 
kanatocr tlookuptype 

CRT(crt) 
k append 

KEYSlkeys) 

SVSDEVS(5y5devs) 
kata 

OLE TVPES(gle types) 

LISTdgl lib) 
katakana ^bd 

n804XD7R(a804xdvr) 

CRT(crt) 

GCRT(crtb) 

LIB(dol lib) 

NONUSKBUl (non us kbdl) 

N0NUSKBD2 

SYSDEV3(5y5dev5) 
kstakanat fans 

NONUSkBDl (non us^kt.dl) 
kbd 

C HOOK 

DEL_T00LStd9l_tool!. ) 
kbd crt drivers 

KrRNEr(general_0) 
kbd disable 

SV3DEV3(sy5dev3) 
kbd enable 

STSDEV3(5y5dev5) 
kbd rdb 

KE'RNEL(general_01 
kbd tm n ame 

CTfiB[:E(ctr) 
kbdaltlock 

H804XD.'R(a804xdvr) 

KEYStk.-ys) 

NONUSKiiDl (nonius ktdl) 

N0NUSK:^D2 

SVSDEV ;(5ysdev5) 
kbdcapsl')Ck 

9804X0 -'R(a804xdvr) 

kEYSrk'iys) 

NONUSKHDl (non us kbdl) 

N0NUSKHD2 

SYSDEV Jlsysdevs) 
kbdconf i'^ 

fl804XDVR(a804xdvr) 

SYSDEV:;(5ysdevs) 
kbddata 

»EVS(k'>y5) 



SOd 

20d 

22d 
3Sd 

SOd 
lOOd 

210 

lOSd 

620 

47d 

368c 
232c 

11190 
21401c 

192d 
396c 
266c 
21401c 
77d 
200c 
ISOd 

37d 

40d 
200180 



58c 
959c 



66c 
9''oc 



81c 999c 1013c 109C 



58c 59c 60c 
lOld 106d 109d 



107c 

149c 150c 
390c 
62d 

sesc 

531c 534c 

21402c 
194d 

116c 130c 143c 200c 



7420 


1231c 


1232c 


1239c 


1240c 


139d 










139d 










780d 


1233c 








359d 


651c 








401c 
263c 
49c 
204c 
289d 


52c 
650c 


56c 


58c 


200c 


401c 
216c 
20Oc 
204c 
289d 


262c 

esoc 


480c 






213c 
158d 


214c 


216c 


218c 
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kbdhooktype 

R804XDVR(a801)«)vr) 

HPHIL(hphii) 

KEVStkeys) 

SYS0EVS(5ysdcv5) 
kbdio 

CRTJcn) 

GCRT(crtb) 

INITfinltunits) 

SVSDEVS(5ysdev5) 
kbdiohook 

KEYS (keys) 

SVSDEVSCsysdevs) 
kbdisrhook 

fl804XDVR(a80«xdvr) 

KEYStkeys) 

MOUSE (mouse) 

SYSDEVS(sysdcvs) 
kbdlang 

B804X[)VR(a804xdvr) 

CRT(crt) 

GCRT(crtb) 

LIB(dgl lib) 

NONUSKBUl (nori_us_kbdl ) 

N0NUSKBD2 

SYSDEVS(5ysdcv5) 
kbdmask 

fl804XDVR(ae0txdvr) 

HPHIL(hphil) 

SYS0EVS(5ysde!v5) 

TfilL 
kbdpollhook 

fl804XDVR(a80*xdvr) 

HPHIL(hptiil) 

SYSDEVS(5y5d<!V5) 
kbdreleasehook 

KEYS(keys) 

SYSDEVS(5ysdev5) 
kbdreqhook 

fi804XDVR(a80ixdvr) 

SYSDEVS(sysdev5) 
kbdset jp 

KEYSfkeys) 

SVSDEVS(sysd<!V5) 
kbdstat Lis 

fl804XDVR(3804xdYr) 

KEYS(key5) 
kbdsysmode 

fl864XDVR(a804xdvr) 

KEYS(keys) 

SYSDEVS(5y5devs) 
kbdtranshook 

fl804X0VR(a804xdvr) 

SYSDEVS(5y5dev5) 
kbdtype 

fi864XOVR{a804xdvr) 

HPHIL(hphil) 

KEYSfkeys) 

MOUSE (mouse) 

NONUSKBDl (nori_us_kbdl ) 

N0NUSKBD2 

SYSDEVS(sysdevs) 





37d 
68d 
S5d 
37d 

415c 

285c 

21Sld 

372d 


38d 

15Sd 

423c 

293c 

2246c 

432d 


181d 

439c 
309c 


224d 


287d 


333d 


340d 








*x* 


S82c 
154d 


434c 


618c 
















»:«iK 


106c 
352c 

lUc 
155d 


501c 
119c 
815c 


502c 


580c 
















223c 

396c 

266c 

21401c 

ll5c 
128c 
214c 
lS9d 


224c 

117c 
137c 
216c 
617c 


225c 

128c 
139c 
218c 


130c 
140c 
221c 


138c 
141c 


139c 
142c 


143c 
)47c 


17Sc 
148c 


181c 
151c 


200c 
164c 


«*» 


n2c 

234c 

166d 

87c 


173c 
272s 

92c 


198c 


199c 


385c 













206c 208c 211c 



369c 
247d 


S68c 
646c 












391c 
153d 


430c 


614c 










S88c 
371d 


S89c 
42ed 












114d 
356d 


119c 
358c 


120c 
373d 


121c 
426c 


132d 
428c 


134c 
429c 


135c 
430c 


355c 
450c 
289d 


398c 
462c 
650c 












105c 
287d 


403c 
651c 












214c 
364c 
310c 
181c 
S4c 
127c 
157d 


216c 
442c 
116c 
616c 


217c 
154c 


222c 
165c 


341c 


399c 





kbdwait hook 

KEYStkeys) 

n68KSYSIci) 

SYSDEVSisysdevs) 
kbufpt r 

SYSDEVS(5ysdevs) 
kbuf rec 

SYSDEVS(sysdev5) 
kbuf recpt r 

SYSDEVS(sy5devs) 
kbuf type 

SYSDEVS(sy5di!V5) 
kclear 

KEYStkeys) 

SYSDEVS(5y5di!v5) 
kcodes 

MOUSE(mouse) 
kdisplay 

DGL C OUT(dgl_confg_out) 

KEYSlIeys) 

PRINTER(prtdvr) 

SYSDEVSisysdevs) 
keep protected directories 

SRPI DRV 

SRM_DRVjsrm) 
keepworkdl rs 

SRMflMfsrmammodule) 
kernel initialize 

KERNEL 

KERNEL(general_0) 

^A804XDVR(a804xdvr) 
KEYS(keys) 



NONUSKBDl (non i]5_kbdl) 

SYSDEVS(5ysdev5) 
keyboard 

ETU 

INIT 

LIBRfiRIflN 

MeSKSYS 

MINIT(mideC5) 

TflPESkUP 
keyboardtype 

SYSDEVS(sy5devs) 
keybuf fer 

CRT(crt) 

GCRt(crtb) 

KEYS(keys) 

PRINTER(prtdvr) 

SYSDEVS(sysdevs) 
keybuf f eraddr 

CRTIcrt) 

GCRTIcrtb] 

SYSDEVS(5y5devs) 
keybuf fersize 

CRT(crt) 

GCRTIcrtb) 

SYSDEVStsysdevs) 



*1li* 


112c 
140c 
246d 

235d 

236d 

236d 

234d 

87c 
232d 

43d 


S79C 

645c 

241d 

237d 

246d 

23Sd 

411c 
540c 

107c 










*** 


11069c 
457c 
lS8c 
232d 


469c 
545c 










*«* 


1874c 
S89d 














147d 


162c 


164c 


170c 


171c 




««« 


1329c 
7e5d 


964d 










*** 


326d 
162c 
177c 
45Ic 
S08c 
69c 
2e4d 


346c 
ia4c 
178c 
452c 
S09c 


348c 
165c 
193c 
478c 
524c 


350c 
166c 
217c 
479c 
527c 


352c 
167c 
219c 
481c 
S28C 


356c 
168c 
3Sed 
482c 
S29c 


*** 
**# 


24d 
30d 
24d 
28d 
47c 
8d 

145d 


29d 

2S16d 

37d 

956d 

157d 


202c 
101c 

979c 


298c 

277c 

1S04C 


2095c 






707c 
521c 
83c 
157c 
245d 


HOC 
181c 
517c 


118c 
184c 
S20c 


159c 
524c 


181c 
634c 


366c 

esse 


*** 


90d 
69d 
90d 


136d 


706c 








*** 


92d 
71d 
91d 


138d 











3S7c 
169c 
360c 
483c 
544 c 



358c 
170c 
362c 
48Sc 
S48c 



359c 
171c 

3e4c 



360c 
172c 
36ec 
488c 

ssec 



361c 
173c 
368c 
490c 
S68c 



362c 383c 36Sc 

174c 175c 176c 

433c 447c 449c 

493c 494c 495c 



409c 456c 
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DGL : OUT(dgl_ccr fg_out ) 

reiN'ER(prtdvr) 

SVSDi:vS(sysdev5) 
keycJa -5 

KEys;key5) 

NONUiSkBDI (non us kbd! ) 

N0NUSKBD2 

SYSDi:VS(5y5dev5 I 
keylookup 

NONUSKBDl lnon_u5 kbdl ) 
keys ~ 

KEYS 

KEYS : keys) 

NONUSKBDl (non_u5_kbdl ) 

N0NU:iKBD2 

SYSDi:VS(sy5dev5) 
keyservice 

KEYSIkeys) 
keysin tt 

KEYS 
keysta^e 

flOUSr (mouse) 
keyslr-'sm 

n68K:;YS(ci) 

keytab :e 
KEYS keys) 

NONU!iKBDl(non_u5 kbdl) 

N0NU;iKBD2 



SYSDI 
keyt rai' 

fl804> 
keyt rat 

SYSDI 

kgelch.. 
KEYS 
SYSDt 

kqetla- 
KEYS I 
SVSDt 

killch,! 
INITi 
nOREF 

kind 
INITi 

neoKf 

kmaxbu^ 

SYSDt 

kmt ype 

noust 

knob av- 
DGt k 

knob 3f 
DGt_C 
GLE k 



VS(5ys0ev5) 

5 

DVR(a804xdv-| 

stype 

VS(sysdevs) 

VS{5ysdevs I 

r 

keys) 

VS(5y5dev5) 

t 

keys) 

VS(5ysdevs) 

SYSCmfs] 

fs) 

YS(ci) 
size 
VSCsysdevs) 

{mouse) 
ait_locato r 
NOB(dgl_knol 
ice rec 

IN(5ql_cor! ] 
Rob die knob T 



knob device rec_ptr 

DGr_C INfJgi^conti in) 

GLE kSiOB(9le_knot Tn) 
knob (fevice rec spa' e 

DGU C_IN(3gl_con).i_in) 
knob Summy 

GLF_KNOB(gJe_knot in) 
knob echo gcb 

DGU_C_0(JT(dgl_coi. g_out 
knob get digitize 

GLElkN!JB(gle_knob inj 
knob get input_pl p2 

GLF^i<N5B(9le_knob in) 
knob Tnput echo 

GLF__KNOBTgle_knob in) 
knob re: 

DGr_C_INldg]_conf!i_in) 
knob sanple 

GLF_l<NOB(gie_knob in) 
knob sanpie locator 

DGr_KN0B(3gl knob 
knob start digitize 

GLF_kM0BT9le_knob in) 
knob type 

DGr_C IN(dgi_conf', in) 

GLE kUOB(gle_knob^Tn) 
knona3v jnce 

KEYS(^eys) 

SYSDE/Slsysdevs) 
koptype 

SYS0EVS(5ysdevs) 
kpass e^tc 

fi80Tx;)VR(a804xdvr) 

NONUSKBDl (non us_kbdl ) 

SYS0E/S(5y5dev3) 
kpasst h-u 

n804XlVR(a804xdvr> 

SYSDE/S(5ysdevs) 
kput fir it 

SYSDE^S(5ysdevs) 
k rec 

KEYS(Key5) 

kshift '!xtc 

fl804Xi')VR(a804xdvr) 

KEYStieys) 

N0NUSrBD2 

SYSDE-'S(5y5devs) 
kunit 

INIT('s) 
kvid 

CTSBL! 

INITCs) 



fl804X(iVRIa804xdvr 
DGL PliLY(dgl_poly 
DGL RHS(dgl_raste 
INlTH'HDdoader 1 
LIFDniljlifmodulel 
ri68KS^S(ci) 
flag 

niul 



11069c 

S^c 

158c 

389d 


125c 
512d 


368c 


411c 


412c 


457c 


469c 


566c 


568c 












203c 

48c 

171C 

273d 


270c 
152c 
177c 


295c 
194c 
196c 


296c 
196c 
207c 


298c 
210c 


336c 
213c 


338c 
215c 


339c 
217c 


340c 
220c 


222c 










80a 


138c 


139c 
























595d 
32d 

eac 

lesc 

139c 
274d 


217c 
138c 
169c 
140c 


272c 
139c 
184c 

141c 


274c 
141c 

142c 


27ec 
149c 

147c 


285c 
150c 

148c 


289c 
156c 

l$Oc 


303c 
157c 

182c 


307c 
158c 

167c 


317c 
159c 

187c 


324c 
160c 

194c 


325c 
161c 


329c 
162c 


330c 
163c 


373d 


602c 


580c 
























30d 




























62d 


70c 


use 
























64d 


319c 


330c 


438c 


540c 


541c 


542c 


545c 


862c 


1054c 










201c 

33ec 

46c 

lesc 

139c 
175c 

213c 
28Cd 


273c 
339c 
138c 
168c 
140c 
176c 
215c 


275c 
340c 
139c 
169c 
141c 
177c 
217c 


277c 
343c 
141c 
171c 
142c 
181c 
220c 


278c 

149c 
178c 
145c 
182c 
222c 


291c 

150c 
179c 
153c 
183c 


295c 

152c 
180c 
157c 
186: 


296c 

156c 
183c 
lS8c 
187c 


304c 

157c 
184c 
160c 
193c 


307c 

158c 
188c 
leic 
194c 


317c 

159c 
189c 
lS2c 
196c 


320c 

180c 
193c 
166c 
199c 


321c 

161c 
194c 
187c 
207c 


33Sc 

1620 
196c 
171c 
210c 


32ed 


403c 


























257d 


288d 


























2SSd 


265d 


273d 
























125c 
232d 


S26c 


























412c 
233d 


558c 


























793d 
67c 


78c 


























754d 
914d 


770d 
918c 


























229d 


234d 


639c 
























57d 


59d 


























18036d 


18174c 


























12023d 
18009d 


IBOlOd 





























12029d 
18009d 


12042d 
18083c 


181 19c 


18186c 


18197c 


18216c 






12023O 


12053c 














18075d 


1822SC 


18226c 












ni61d 


11276c 


11354c 












18194d 


18223c 














18080d 


18227c 


18263c 












18207d 


18224c 














12029d 


12034c 


12042d 


12053c 


12054c 


12055c 


12060c 




iei06d 


18221c 














18024d 


18175c 














18183d 


18222c 












*«* 


1205SC 
ISOlld 


18084c 


18229c 










*** 


566c 
232d 

232d 


531c 
389d 


S12d 










*x* 


330c 
127c 
257d 

34 3c 
257d 

233d 


335c 

400c 
651c 

se7c 














254d 
289c 


2650 
291c 


266c 
298c 


267c 
299c 


268c 

300c 


270c 
303c 


272c 
304c 


*** 

*** 


sesc 

264c 
136c 
257d 














#** 


760d 














*»!* 


1232d 
760d 


1234c 












... 


232d 

20059d 

17172d 

1224d 

900 

592d 


235c 
2O108d 

1230c 

93c 

S99c 


236c 

12J2C 

98d 

604c 


1240c 
103c 


105c 







276c 277c 



11-104 



label included flag 




























SRM DRV 


«** 


1772c 
























SRn DRV(5rm) 


*«* 


504d 
























ladd cmd buf 




























RMTGO(Cbamigo) 




407d 


412c 






















lag base 

6TSCHPIB(di5cl-pib) 






























2nd 


279c 


337c 




















lagbase 

PRINTER(prtdvr ) 






























57d 


115c 


221c 




















iangcode 
KEYS(keys) 
NONUSKBDl (non us kbdl) 






























259c 


316c 
























120c 


128c 






















N0NUSKB02 




131c 


137c 






















SYSDEVS(5y5devs) 


*** 


278d 
























langcom 
KEVS(key5) 






























I62c 


164c 


1B5C 


166c 


167c 


168c 


169c 


170c 


171c 


172c 


173c 


174c 17Sc 176c 






177c 


nsc 


191c 


193c 


194c 


196c 


199c 


201c 


419c 


423c 


S68c 




NONUSKBDl (non us kbdl) 




42c 


44c 


46c 




















SySDEVS(5y5devs) 


*** 


284d 
























langcomrec 




























SYSDEVS(5y5dev5) 




261d 


284d 






















langindex 
KEYS(key5) 
NONUSKBDl (non us kbdl) 






























160c 


201c 


203c 


209c 


210c 


434c 


487c 


555c 












60c 


61c 


62c 


199c 


















N0NUSKBD2 


#** 


203c 
























SYSDEVS(5ysdev5) 




286d 


649c 






















langitf 




























RS04XOVR(a804xdvr) 




183d 


186d 






















langkeyrec 

KEVSlkeys) 

SYSDEVSfsysdevs) 
lanqnonit f 




























»«)« 


254d 


























268d 


280d 
















































fl804XDVR(a804xdvr) 




184d 


193d 






















iangpt r 

SYSDEVStsysdevs) 




282d 


285d 






















langrecord 




























SVSOEVSlsysdevb) 




276d 


28£d 






















langtable 




























KEYS (keys) 

NDNUSKBOl (non us kbdl) 




160c 


201c 


203c 


256c 


2S7c 


312c 


313c 


314c 


434c 


487c 


555c 






4ec 


61c 


113c 


120c 


123c 


132c 


133c 


166c 










N0NUSKB02 




129c 


131C 


133c 




















SYSDEVSCsysdevs) 




285d 


64ec 






















langtype 




























HB04XDVR(ae04xdvr) 




183d 


184d 






















SYSDEVSCsysdevs) 




146d 


lS9d 


273d 




















la rqekbd 




























fl804XDVR(a804xdvr) 




217c 


223c 






















NONUSKBDl (non us kbdl) 




116c 


165c 






















SYSDEVS(5y5dev5) 


««« 


145d 
























last 




























INITL0nD(lO3der) 


XM(X 


866d 
























LIBRflRIflN 




198c 
2909c 


1522c 
2913c 


1582c 


1625c 


1836c 


2384c 


2388c 


2396c 


2413c 


2793c 


2903d 


290SC 2906c 2908c 


SRMDRM(srmdammodule) 




6S9d 


707c 


749c 


756c 


793c 


805c 


3Hc 


830c 










UCSD„Dfin(ucsdmodule) 




185d 


195c 


200c 


205c 


220c 


228c 


229c 


233c 


570d 


586c 


596c 


600c 616c 


last access date 




























SRflDBt1(5rmd3rtmodule) 




436c 


609c 






















SRM DRV(5™) 


««» 


283d 
























last Eut 




























GLF KNaB(gle_knob in) 




ISOlSd 


18121c 


1815'3c 


18157c 


18190c 


18202c 


18203c 


18261c 










last char 




























PRINTER (prtdvr) 




145d 


234c 






















last harddisc lun 




























cthble 




1225c 


1814c 


1819c 




















CTflBl.E(option5) 


*** 


72d 
























last index 




























DGU POLY(dgl_poly) 




20421d 


20648c 


20649c 


20650c 


20861c 


20671c 


206750 












last knob dx 




























DGI KNOE(dgl knob) 




18021d 


18066c 


18140c 


18178c 


















last Inob dy 




























Dor KN05(dgl knob) 




18022d 


18067c 


18141c 


18179c 


















last ¥nob rx 




























DGr KN05(dgl knob) 




18019d 


18030c 


18143c 


181760 


















last l^nob ry 




























DGU KN05(dga_knob) 




18020d 


18031c 


18149c 


18177c 


















last Tun 




























CTRBLE(ct r) 




308d 


887d 


893c 


898c 


















last subpoly 




























DGU POLY(dgl poly) 




20916d 


20957c 


20969c 




















last subpolygon 
DGU P0[Y(dgl poly) 






























21035d 


21041c 


21061c 


21081d 


21087c 


21106c 


21126d 


21131c 


21137c 


211S7d 


21162c 


21168c 


last X 




























DGU HPGLI(dgl hpgli) 
DGL KNOB(dQl ITnob) 
GLE KNOB(gle knob in) 




18046d 


18066c 


18033c 


1808SC 




















18046d 


18106c 


18115c 


18117c 




















18020d 


18159c 


18200c 


18259c 


















last y 




























Dcr HPGLI (dgl hpgli) 
DGL KNOBIdgl IJnob) 
GLE KNOB(sle knob in) 




18046d 


18067c 


18083c 


18086c 




















18046d 


18107c 


1811SC 


18118c 




















18021d 


18160c 


18201c 


182600 


















iastbTock 




























INIT(mi5c) 




S37d 


556c 


5S9c 


589c 


625c 


626c 


628c 


663c 










lastblocks 




























LIBRSRIfiN 




2195d 


220ec 


2207c 


2211c 


2212c 
















lastfkind 




























INIT(misc) 


««« 


703c 
























INITLOfiD 


#** 


1707c 
























INITLOPD bootdammodule) 




669c 


708c 






















INITLOfiD loader) 


*** 


837d 
























INITLOfiD sysglobals) 


«:«« 


55d 
























LIFDfitHlifmodule) 




145c 


S43c 






















SRnDHn(5rmdanmodule) 


*** 


91c 
























lastior 




























INIT(mj5C) 
n68KSYS(ci) 




209d 


210d 


300d 


303c 


359c 


365d 


389c 














394d 


424c 


426c 




















lastioresult 




























INITf Idr) 
n68KSYS(cl) 




2322d 


2340c 


234 2c 






















871d 


888c 


800c 




















lastline 




























LIBRflRIPlN 




307d 


946c 


947 c 


950c 


1201c 


12S2c 


1423c 












lastmodule 




























INIT(ldr) 


*** 


2334c 
























INITLOfiD 


*** 


1721c 
























INITLOfiD(loader) 




1019d 


1444c 


144SC 




















nSSKSYSlci) 
SEGnENTER(asm) 


**« 


882c 
























%** 


270c 
























lastopening 

LIFDHn(lifmodule) 






























679d 


722c 


72SC 


730c 


732c 


765c 


767c 


769c 


770c 


776c 


787c 


789c 791c 792c 






798c 


812c 


814c 


816c 


825c 


829c 


8310 


834c 


842c 


844c 


847c 


858c 869c 882c 


lastpatchpt r 
LIBRHRIRN 






























2364d 


2443c 


24S9C 


2468c 


















.lastptr 

INITLOflD(loader) 






























13S8d 


1360c 


1362c 


1363c 


1365c 
















LIBRflRIfiN 




1477d 


1498c 


1514c 


1S29C 


153SC 


15360 


ieo4c 


1609c 


1618c 


1619c 


1624c 


1628c 1652d leSSc 






1661c 


1662c 


1664c 


1678c 


1679c 


1867d 


1875c 


1877c 










lasttextrec 
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LIBRRRIBN 




ISSld 


1875 


is7';c 


1877c 


1883c 


1838c 


1913c 











iastii-ed 
































LIFtfindifmodulel 




679d 


719c 


774c 


796c 


809c 


817c 


85Sc 


860c 


869c 


887c 










lastvcl 
































INnLOfiD(bootdamnoclule) 


*** 


664d 




























LIFLflndifmodulel 




6Sd 


619c 


942c 
























latency induced 
































CS«C(cs80) 


««« 


186d 




























CS8o]cs80dsr] 
TnPEBKUP(c580tbdir) 


«** 


723c 






























60Sc 


837c 


























lavaiJblk 
































UCSD Dfin(uc5dmodule ) 
lb 

LlBRflRIHN 
Ic 

LIBSflRISN 




354d 


361c 


362c 


365c 
























442d 


502c 


50Sc 


























3304d 


334gc 


3350c 


3351c 


3353c 


3518d 


3S48C 


3652c 


3556c 


3593c 


3607c 








Icocnnand 
































HPHlL(hphil) 




TSd 


198c 


298c 
























Icommandop 
































HPHiL(hphil) 


*** 


298c 




























SVSDEVS(sysdevs) 


*** 


306d 




























Icounl 
































SRn 0RV(5rm) 




1302d 


1307c 


1310c 


1312c 


1316c 


1329c 


1337c 


1348c 














Icursaddr 
































CRT(crl) 




280d 


284c 


285c 


286c 


287c 


283c 


















Idr 
































CTHfcLE 


*»* 


1186d 




























CTftBLE(ctr) 


«** 


239d 




























INIl 


«»« 


2514d 




























INIT(ldr) 
LIBRfiRIflN 


1K»»: 


2268d 




























»:*t: 


27d 




























nesKsvsfci) 

SEGMENTERIsegmenter 1 


*** 


33d 




























*** 


18d 




























Tftit 


*** 


32d 




























le configured 
BPHlL(hphil) 
































*** 


314c 




























SYSDevs(5ysaev5) 


«** 


294d 




























le error 
































5VSDEVS(5y5dev5) 


»«« 


295d 




























le loopddwn 
































HPH]L(hphil) 


«** 


311c 




























SYSDEVS(sy5dev5j 


*** 


297d 




























le timeout 
































SYSDEVStsysdevs) 
left 

CRT(crt) 


*** 


296d 






























96d 


142d 


























GCRT(crtb) 

SYSDEVS(5ysdev5) 


**^ 


75d 




























*** 


93d 




























leflchar 
































CRT(crt) 


«:«iK 


46)c 




























GCRT(crtb) 


X*i^ 


332c 




























INIT(mi5C) 


*** 


163d 




























leftiribuf 
































ETU 




424d 


432c 


448c 


454c 


472c 


481c 


















leftover 
































INlILORD(loader) 




1209d 


1320c 


1322c 


1328c 


1330c 




















lefttoxfer 
































ETU 




85d 


440c 


441c 


443c 


444c 


464c 


1032c 


1045c 


1050c 


1055c 


1102c 


1114c 






len 
































CRT(crt) 
CS8C(cs§0) 

GLE KNOB(gle knob in) 




5S2d 


S73c 


585c 


593c 


605c 


e07c 




















355d 


556d 


587c 


























18045d 


180S4C 


























INnUClfiOlioader) 




217d 


220c 


221c 


223c 


226c 


230c 


237c 


245c 


254c 


255c 












122Sd 


1236c 


1237c 


1238c 


1239c 


1240c 


1251d 


1270c 


1271c 


1272c 


1273c 


1274c 


1400d 


1423d 






145SC 


1456c 


1457c 
























LIBRflRIfiN 




U65d 


1172c 


1173c 


1174c 


1181c 


1317d 


1330c 


1331c 


1332c 


1655d 


1722d 


1782c 


1783c 


1784c 






1797c 


1852d 


1901c 


1902c 


1903c 


2O03d 


20S1C 


2052c 


2053c 


2073c 


2074c 


2075c 


2076c 




TfiPE8KUP(C580tbrj 




194d 


201c 


























UNITIO[uio) 




28d 


30d 


53d 


6Sc 


74d 


86c 


















len hibyTe 
Slfn DRV(srm) 
































*** 


303d 




























len lobyte 
Slfn ORVIsrm) 
































*** 


302d 




























lenqtTi 

ftnlGO(amiqodvr) 


































431d 


610c 


617c 


626c 






















CRT(crt) 
CS8C(C530) 




403d 


415c 


421c 


424c 


427c 


437c 


440c 


441c 


455c 


457c 


475c 


529c 


S31c 






57Sd 


S87c 


























CS80(c530dvr) 




988d 
1302c 


1095d 
1311c 


1110c 
1314c 


1112c 

1318c 


1116c 
1392c 


1215d 
1395c 


1250c 


1258c 


1272c 


1275c 


1278c 


1280c 


1283c 


1299c 


F9885(f9885dvr) 




41d 


llOd 


284c 


28ec 






















GCRT (crtb) 




273d 


2e5c 


291c 


294c 


297c 


307c 


310c 


311c 


326c 


328c 


346c 








INITLOfiO(bootdamrnodule) 




588d 


648d 


6S5c 


673c 


674c 




















IMTLOfiD(loader) 




1219d 


1230c 


























INinORD(mlni) 




310d 


38Sd 


421c 


433c 


436c 


441c 


445c 


512c 














KEYSIkeys) 
n68K3YS(ci) 




73d 


94 5 


106c 


120c 


121c 


122c 




















732d 


737c 


738c 


739c 


740c 




















PRlNrERjprtdvr) 




41d 


48d 


305c 


307c 


309c 




















TfiPE8KUP(cs80tbr) 




30d 


179d 


201c 


223d 


236c 




















lentitle 
































SRMDflM(5rnidarmiodiile) 




651d 


673c 


682c 


714c 


721c 


734c 


74ec 


752c 


759c 


773c 


780c 


732c 


791c 




lerror 
































HPHIL(hptiil) 




48d 


307c 


























letter 
































HMIGO(aniigodvr) 




428d 
480c 


438d 
484c 


450d 


457d 


458d 


4S9d 


460d 


4eid 


4e2d 


463d 


466c 


469c 


470c 


472c 


flmG0(c5amigo) 


#** 


lS2c 




























CS80(C580d5rl 


»X« 


619c 




























CSSOfcsSOdvr 




982d 


1027d 


1080c 
























CTBBlE 




n93d 
1SS6C 


119Sd 
15S8C 


1251c 
1566c 


1274c 
1S95C 


1278c 
1599c 


1364c 
1820c 


1394 c 


1471c 


1526c 


1535c 


1536c 


1542c 


1548c 


1549c 


CTfiBLErbrstuff ) 




933d 


1003c 


1004c 


1006c 


1009c 




















CTfiBLE(ctr) 




280d 
883c 


309d 


310d 


312d 


412c 


482c 


49ec 


525d 


542c 


S60d 


564c 


595d 


599c 


838c 


CTflBLE [scanstuf f i 


XX* 


1053d 




























INIT(initunits) 


*X* 


2214c 




























INIT(misc) 




282c 


288c 


























INITLOPD 


*** 


1688c 




























INITL0flD(sy5globils) 


*** 


155d 




























hlUI 




37c 


170c 


319d 


323c 


351c 




















TfiPEBKUP 




1011c 


1088c 


























letter table 
































crflBLE(br5tuff) 




989d 


1006c 


























letter table type 
































CTfiBCE(brstuff) 
level 

SRM aRV(5rm) 




987d 


990d 


























*«* 


304d 




























leveltype 
































INITLOnDlsysglobsls) 


*»X 


200d 




























If 

INIT(misc) 


*** 


165d 
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KEYSi'keys) 




360c 


482c 



























Ifb 

CS80(cs80) 

CSSOJcbSOdsr) 

CS80(C580<Jvr) 

nlNIT(qminit ) 

TBPEBKUP 

TSPEBKUPlcseOtbdvr) 

TflPEBKlJP(cseOlbr) 
Ifib 

ETU 
Ifrag 

HEflPT(hpn) 
Iheap 

ETU 
libfound 

INIT(ldr) 

INITLOflD(loader) 
librarian 

n68KSYS(ci) 
library 

n68KSyS(ci) 
llf 

CTfieLE(ctr) 

CTfiBLE(optlCins,) 
lif dam 

CTHBLE 

CTfl6LE(ctr) 
lif dam name 

CTBBLF(ctr) 
lif dir_ent ry 

MTUI 
lif directo ry 

nTui 

lif vol label 

MTUI 
lif vol_type 

MlUI 
li fdam 

LIFDHMdifmcdule) 
lifmodule 

LIFDRn 

LIFDfiM(lifmcdule) 
lif name 

INITLORD(bootoammodule) 

LIFDRn(lifmodule) 
lif name tost r 

LIFDFltl(lifmodule) 
liftofkind 

LIFDHtl(lifmcdule) 
lifvol 

LIFDFin(iifmodLle) 
lim 

lIBRflRlRN 
limit 

IIOUSE(mouse) 



89d 
939c 

1075c 
927c 

1240c 
637c 
126c 


S84c 

1250c 
639c 
243c 


1303c 
248c 


1320c 


306d 


315c 






217d 


230c 


231c 


24Sc 


82d 


887c 


1130c 


1135c 


2451c 

10740 


2459c 
1338c 






39d 


722c 


1130c 




39d 


59Sc 


610c 


619c 


510c 
60d 


S14c 
63d 






1596c 
294d 


1600c 
517c 


17745 




351d 


498c 


511c 


516c 


407d 


422d 


442d 




422d 


481c 






421d 


469c 


471c 




393d 


421d 


42Sd 




28d 


195d 






1185d 
25d 








553d 
36d 


559d 
60d 


585d 
90d 


651d 
99d 


131d 


183c 


609c 




540d 


610c 


954c 




242d 


260c 


281c 


326c 


1318d 


1327c 


1328c 




128d 


135c 


159c 


160c 



343c 491c 1136c 1139c 



line 

CRT(crt) 

DI DRV(extdi) 

G_URV(extgJ 

H DRV(extfi) 

Ii3LIB(hpib_0) 

IOLIB(serial_C) 

KERNELIiodeclarations) 

LIBIdgl lib) 

MIUI ~ 

THPEBKUP 
line line intersection 

DGr_POLy(dgl_poly) 
line needs restoring 

PRINTER (prtdvr) 
line space 

GLE STEXTIgle stext) 

GLE^TYPESigie^types) 
Unedel 

CRTrcrt) 

GCRT (crtb) 

SYS0EVS(5ysdev5) 
linefeed 

PRINTER(prtdvr) 
linenum 

LIBRHRIfiN 
lineops 

CRT(crl) 

GCRT(crtb) 
linepat tern 

GLE_RGl(gle_ras_out) 
linerange 

LIBRftRIPN 
lines 

ETU 
linesize 

UCS0_nM(uC5d_am) 
linest art 

LIBRflRIfIN 
linest yle 

GLE_GEN(gle gen) 

GlE HPGL(9le hpgl o 

GLE_RGL(gIe ras_out 

GLE SmRKtgle^smark 

GLE TYPES (gle_type5 
linewTdth 

GLE GEN(gle gen) 

GLEi;HPGL(gle_hpgl_c 

GLE_RGL(gle ras^out 

GLE^TYPES(gle_type5 
linewTdths 

DGL INQ(dgl inq) 

GLE~HPGL(gle hpgl ou 

GLE TYPES(gle_type5) 

LIBTdgl lib) 



ut) 



ut) 

) 

) 



184d 


187c 


194c 


197c 


198c 




168d 


169d 


170d 








183d 


184d 


185d 








lS3d 


184d 


185d 








1710d 


1712d 


ni4d 


1723d 


1728c 


1734d 


22I6d 


2218d 


2220d 


Z232d 


2242c 


2262c 


2467c 












434d 


436d 










20044d 


20S87d 


20669c 


20705c 






223d 


243c 


257c 


258c 


262c 




mod 


1130c 


1144c 


1145c 


1149c 




20266d 


20746c 










79d 


1S5C 


159c 


174c 


180c 


285c 


40S0C 


4074c 


4078c 








1124d 












103d 


149d 










82d 












96 d 












60d 


302c 










46d 


244c 


245c 


250c 


251c 


2SSc 


S02d 


703c 










370d 


S15c 











1739c 1745d 1752c 

2282c 2295d 2305c 2325c 2345c 2358d 2371c 2419c 



1371d 

2210c 
7534c 
S409c 
5120c 
1049d 

2216c 
7S53C 
8411c 
1048d 

6342c 

7694c 

UOSd 

20440c 



261c 2938c 2942c 3704c 3714c 



1201c 1252c 1463c 

1179c 1205c 1207c 1210c 

72d 79c 

1376c 1375c 1377c 139Sc 1404c 
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CTfil LE (cl r ) 
HESI T(h[m) 

IN3' (isr ) 
INI' (Idr) 

inn LORD 

INIILOnDlloader 

INni.0nD(sy5gIol ilb 

LlBSflRISN 

n68>SVS(ci) 

SEWENTER(asm) 
linkef 

LIBUlRIfiN 
linkej date 

ISBfARinN 
linker rs 

SRO 0RV(5rm) 
linfcfl Her 

SRn^DRV(srm) 
lir>kfi llertype 

SRfl DRV(5rm) 
lintirg 

LIBRflRIflN 

1 mkm dname 

iwn (Idr) 

INIlLOflDdoader 
lint Jevel 

iWn (isr) 

lint regaddr 

INn (i5r) 
lim rf gmask 

INll (isr) 
liriT regvaJue 

INH (isr) 
linx 

DCSt JRn(uc5dmoi. ile) 

list 

DGL Rfi3(dgl rast 'r) 

HEfifT(hpm) 
INI]LOnD(loader ' 
LIBRflRIPlN 



listaddr 

INIl (Idr) 

INniOflOdoader 

lIBRflRIfiN 
lisldef 5 

i.iBi;ciRinN 

lister 

I0lIB(hpib,^2) 

lister constant 
GLE i1PIB(gle hpil 
I0Ll8(hpib IT 
lOLISdipibT) 
KERNEL (iodeclar,- 

listefier 

I0LI3(hpib_3) 



listej< ts 

LIERIRIflN 
listf i lename 

IIBRIRIHN 
list in 3 

INIl 

LIBR IRIAN 



tllUl 
list in it ruct ion 

LlBRIRIfiN 
listlei 

LlBRIRIfiN 

list le iqth 

INIT .iSflD (loader) 
listln 

LIBRIRISN 
listpt - 

INIl .ORD(loader) 
list si :e 

INII(ldr) 

INIT _OfiD(loader) 

LIBR1RIHN 
list1e<t 

LIBRlRIflN 
lite 

GEN( Jgijen) 

Ikeyty 56 

nous :(mouse) 
Ikind 

ETU 
llimlt 

n68K ;Y3(ci) 
Ho me isage 

l5LIit(hpib_2) 

KERNi:L [iodeclara' io 
Imaxde 'ices 

SVSOl VS(5y5dev5) 
Ims dafi type 

CTflS: r(options) 
1ms t r 

PRINER(prtdvr) 
Iname 

INITi OfiD(bootdacT.-3d 
lo rom 

Fori ER(edriver i 

EPR0nS(eprom5) 
load 

INIT Idr) 

n68K:;vs(ci) 

TAIL 
load h'^ap segment 

sec™ NTFR(a5m) 

SEGMt NTER(5egmen'er 
load S'-g 

SECni NTEROsm) 



4C5c 








T.i 


122d 


142c 


146c 


2CGc 


226c 


236c 


246c 


1 •■: 


94c 


95c 


104c 


2346c 


2367c 


2398c 




1722c 








1003d 


1182c 


1189c 


1202c 


210d 








1558c 


1559c 


1560c 


1661c 


907c 


933c 






13"c 


270c 






24 d 








39d 


231c 


1961c 


3710c 


1404d 








321d 


329d 


1426c 




295d 


32Id 


329d 




47d 


2837c 


2954c 


2974c 


3640c 


3643c 


3648c 


3649c 


2496c 








1056d 


1523c 


1524c 


1525c 


42d 


49d 


S2d 


64d 


129c 


130c 






39d 


46d 


61d 


69c 


4ad 


47d 


62d 


70c 


41 d 


48d 


63d 


71c 



150c 156c 158c 

252c 253c 

123c 124c 130c 



1313c 1339c 1362c 1381c 1415c 1450c 1469c 1487c 1488c lSS7c 
1705c 1743c 1955c 2029c 2718c 2880d 3225c 3639c 



3009c 3124c 3125c 3350c 
3653c 3688c 3732c 



3543c 3550c 3565: 3527c 3629c 3633c 



334c 
405d 

17263c 

204c 

202c 

1252d 

327c 

1184c 

2350c 

2395c 
1188c 
1354c 

1465c 

1853d 

10303c 
625c 



336c 
408c 

17264c 
205c 
203c 
1265c 
332c 
1254c 
2497c 



32:.d 

401c 

1724 71 

191d 

194d 

1214d 

248d 

aesc 

2220c 

2393c 

1021d 
40cc 

1 3 1 :' d 

178 Id 

10213C 
S37c 
1856c 
317d 



2039d 2135d 2138c 



338c 
409c 

1726- : 

205c 
1269c 

348c 
128SC 
2541c 



79d 

80d 

81d 

342c 
411c 



75c 

100c 

101c 

102c 

344c 
421c 



1291c 
1356c 



1293c 
1764c 



3Slc 352c 353c 361c 366c 
1287c 1289c 1306c 1323c 1331c 
2550c 2616c 2727c 2987c 2988c 



1294c 1310c 1348c 
1767c 1790c 



368c 370c 
1351c 1357c 
2999c 3000c 



373c 375c 377c 
1375c 1385c 2086c 
3018c 



134 3d 

43d 

30d 

44d 

351c 

1134c 

1335c 

2615c 

370'5c 

3d 

414d 1308c 



2934c 3627c 3725c 3726c 



2517d 
244 c 
3S2c 
1188c 
1351c 
2727c 
3706c 



17180 
2021c 

1174d 

260d 

122 Id 

2392c 
1022d 
400c 



1729c 
2032c 

1215d 

384c 

1229c 



118ec 
1354c 



136!;d 1464c 



3048d 
3221c 

50d 

30'3d 

209d 

189;c 
3050 

299d 

59d 

166d 

586 d 

81d 
IS.d 

2274d 

936c 

68c 

3U.d 
28d 



254c 

353c 
1189c 
1357c 
2729c 
3726c 



1735c 
2033c 

1222d 

1183c 

1243c 



1292c 
1758c 



3166d 
3227c 



261c 

361c 

12S5C 

1377c 

2730c 



327c 

36ec 

1257c 

1385c 

2939c 



328c 

368c 

1261c 

2086c 

2940c 



329c 

370c 

1263c 

2220c 

2941c 



330c 

373c 

1264c 



331c 

375c 

1285c 



2351c 2352c 
2987c 2988c 



332c 

379c 

1287c 

2497c 

2999c 



333> 

382i 

1283i 

2S00i 

3001i 



3049d 
3223c 

77d 

316c 

224c 



346d 347d 



1746c 1747c 1748c 17S2c 1760c 1761c 1770c 1779c 

2034c 2037c 2045c 2046c 2058c 2068c 2081c 

1242c 

1307c 1309c 1325c 1338c 1353c 1360c 1387c 1407c 



1310c 1349c 



3176c 3177c 3178c 3181c 3182c 3183c 3184c 3185c 
3228c 3229c 3231c 3237c 



334c 348c 349c 

383c 472c 474c 

1306c 1323c 1331c 

2541c 2664c 2S7Sc 

3002c 3003c 3018c 



1792c 1999d 201SC 



3004c 3019c 3023c 



3186c 3190d 3219c 



161c 
80c 



2406d 
75c 
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load segment 




















3ECt1ENIER(astn) 


*** 


289d 
















SEGttENTERisegmenter) 
load tapebur 


*** 


27d 


































CS?0(cs80dvr) 




1168d 


1267c 


1232c 


1293c 


1316c 








loadaddr 




















LIBRflRIflN 




2128d 


2190c 


2236c 


2341c 


2371c 


2S02C 


2585c 2568c 2576c 2595c 2627c 




loadaddrO 




















LIBRRRIHN 




2128d 


2187c 


2189c 


2190c 


2341c 


2627c 






Joadarrdgo 
l168KSfS(ci) 






















912d 


1001c 


1010c 


1012c 


1026c 


1069c 


1112c 1118c 1120c 1130c 




loadbuf fer 




















ftSCII (asciimodule) 




43d 


59c 


114c 


119c 


158c 








loaddelta 




















INI TLOflO( loader) 




lS06d 


1516c 


1518c 


1536c 










loader 




















fi804K0VR 


XIK* 


414d 
















sniGO 


*** 


880d 
















ASCII 


*** 


317d 
















BBT 


««» 


99d 
















BUBBLES 


*** 


n9d 
















CLOCK 


M** 


182d 
















CRT 


**« 


731d 
















CS80 


**» 


1411d 
















CTfiBLEJct r) 


**« 


239d 
















DC DRV 


*** 


719d 
















DI5CHPIB 


#** 


5S3d 
















DI DRV 


*** 


293d 
















DtlR DRV 


«»« 


286d 
















EPRCMS 


*** 


I17d 
















F988S 


*»* 


309d 
















GCRT 


*** 


580d 
















G DRV 


WXX 


305d 
















HPHIL 


*«« 


386d 
















H ORV 


*»* 


316d 
















IRIT 


««« 


2514d 
















INIT(ldr) 


mx* 


2270d 
















INITLOflD 


*** 


1664d 
















INITLOfiO(ioader) 


«** 


807d 
















KERNEL 


*** 


1324d 
















KEYS 


*** 


595d 
















LIBRftRIBN 


*** 


27d 
















LIFDfm 


«*« 


1185d 
















ri68KSVS(cl) 


*«« 


33d 
















MOUSE 


tMM 


203d 
















NONUSKBDl 


t** 


209d 
















RS DRV 


«*« 


292d 
















SEGnENTERJseqmenter) 


X«:K 


18d 
















SRM DRV(srm) 


«»iK 


31d 
















Tflir 


**« 


32d 
















UCSO DBH 


*** 


684d 
















UCSO Dnn(ucsdmodule) 


*** 


29d 
















loadf il3 




















INIT(ldr) 




2376c 


2377c 


2378c 


2379c 


2427c 








INITLOflO(ioader) 




1054d 


1141c 


1145c 


1154c 


11640 


1263c 


1288c 132Sc 1329c 1342c 1387c 1390c 1391c 


1392c 






1393c 


1595c 


1603c 


1604c 


1605c 


1610c 






LIBRflRIfiN 




2838c 


2843c 


2867c 


2961c 


2963c 


2964c 


2965c 3018c 3096c 3736c 




SEGtlENTERtasm) 


*«« 


184c 
















loadgvr 
LIBRRRIRN 






















87d 


185c 


U76c 


1293c 










loadinfo 




















INIT(ldr) 




2438c 


2455c 














INITLOnDCloader) 




1082d 


1206d 


1623c 












LISRfiRIPN 




394c 


2748c 


2846c 












SEGnENTER(asm) 


**# 


196c 
















loading 

INITCoBD(loader) 






















lS87d 


1618c 














loadproc 

SEGHENTERCasm) 






















233d 


251c 


302d 


313c 


319d 


330c 






loadq 

INITLOflD 






















1766c 


1772c 


179CC 












INI TLOBD( loader) 




1093d 


1583d 














loadrom 




















INIT(ldr) 




2281d 


2351d 














TAIL 


*X* 


8Sc 
















loadtext 




















INIT(ldr) 


*** 


2474c 
















INITLOnD(loader) 




1088d 


1494d 


1637c 












SEGMENTERtasm) 




239c 


30Sc 


321c 












loc dev adr 




















DUl iFJQfdgl inq) 
OGL VflRS(dgT vars) 
LIBldgl lib)"" 


««X 


6483c 
















«*« 


1112d 


















21079c 


21137c 


2U3SC 


21328c 


21349c 


213S1C 


21411c 




loc init 




















DEL INQMgl inq) 
DGL VflRS(dgT vars) 


»** 


6233c 
1242d 


6246c 


6471c 


6525c 










GENTdgl gen) 
LIB dgl lib 


*** 


3094c 


















20940c 


21046c 


21075c 


>1099c 


21308c 


21327c 


21383c 




local 




















IOLIB(hpib 2) 
SEGnENTER(asni) 




1783d 


18$ld 
















230d 


275c 


286c 












local angle 

DGL P0LY(d3l poly) 






















20876d 


20889c 


20898c 


!0899c 


20928d 


20992c 


20993c 




local hpib prlrfter default 
CTABlE - - - 


day 


1452c 
















CTflBLE(options) 


««» 


124d 
















local index 




















DIsrHPIB(bkgrid) 




84d 


88c 


89c 


9ed 


99c 


100c 






local lockout 




















IOLTB(hpib 2) 




1784d 


1888d 














local printer dav 
CTflfLE 






















1208d 


1419c 


14S2C 


1453c 


1507c 








local printer option 
CTflBU 




















*»* 


1451c 
















CTflBLE[options) 


*** 


81d 
















local printer timeout 
CTBffLE 




















*** 


1S08C 
















CTBBLEjoptions) 
local printer type 


*** 


lOld 


































CTflffLE (options; 
local r5232 printer default 


»:** 


79d 
















_dav 


















CTRffLE 




1453c 
















CTRBLEloptions; 


K«* 


126d 
















local spacing 

DGL_POLY(dgl..poly) 






















204 18d 


20S96C 


20615c 


20624c 


20630c 


20878d 


20892c 20894c 20896c 20897c 20898c 20903c 




local X pos 




















GLE SRBRK(gle smark) 




SlOOd 


5156c 


5158c 












local y pos 

GLE SRflRK(9l<! smark) 






















SlOld 


5157c 


5159c 












locate and verlTy 




















TBPEBKUPTcsSOtbdvr) 


**« 


679c 
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TflPEBKUP(c580tbr) 




30d 


179d 


205c 










locateandverify 




















TflPEBKUP(C580tbr) 




195d 


202.: 















locat ion 

LIBRHRIfiN 
locatar_init 

LlB(dgl lib) 
Iocator_irmit s 

GEN(dgl_gen) 

LIBJdglJib) 
localor_term 

LIB(dgl lib) 
lock 

rNlT(f5) 

LOCKMODdockmodule) 
lock on_close 

DGU C 0UT(d9l confg out) 

GLE_lFTLE(gle_Tiie_ao) 
lockaole 

SR(1Dfln(srmdamniodule ) 
lockdown 

DISCHPIB(bkgnd) 

ETU 

F983S(f988Sdvr) 

INIT(mi5C) 

LIFDHnllifmodule) 

n68KSVS(ci) 

niui 

SEGMENT ER( asm) 

SRmflfsrmamtnody .e) 

SRtOflM(srmdammoiHJle ) 

TBPEBKUP 

UCSD_Dfin(uc5dmodule) 
locked out 

I0llE(hpib_3) 
lockeddction 

KEVSIkeys) 

SyS0EV3(sy5devs; 
lockfile 

INITLOHDCsysglot als) 

LOCKHOD(lockmodble) 

SRfll)fln(5rmdan»noaule ) 
lockf lies 

CTBBLE(ctr) 

INir(ldr) 

n68kSYS(ci) 
lockjevel 

ETU 

INIT 

INirimisc) 

INITLOfiD(sysglobals) 

KEVSIkeys) 

PieSKSYSIci) 

SYSDEVSJsysdevs) 
lockmodule 

LOCKMODdockmodule) 
Icckpack 

SRMOfln(srmdammodule ) 

SRH DRV 

SRn""DRV(5rm) 



519c 532c 



20038d 21295d 



3018d 3340d 3587c 3594c 
20920c 21044c 21084c 21361c 21363c 21422c 



20032d 21067d 21099c 21308c 



744d 




30d 


37d 


11442c 


11448c 


9014d 


9077c 


196d 


240c 


134c 




94 c 


343c 


296c 




216d 


225d 


1176c 


1178c 


U28c 




3S9c 




217c 




223c 


227c 


1822c 


1826c 


1198c 


1275c 


679c 




204Sd 


2ie3d 


395c 


399c 


374d 


492d 


138d 




49c 


90c 


1662c 


1779c 


853c 




2277d 


2286d 


112Sc 




93c 


94c 


2542c 




223c 


230c 


250d 




520c 




860c 




496c 




2Sd 




1477c 




1881d 




1074d 





294c 907d 919c 936c 937c 971d 976c 980c 1035d 10 



928c 1140c 1269c 



1159c 1164c 



521c S22c 



lockup 

DISCHPIB(bkgnd) 
ETU 

F988S(f988Sdvr) 
INIl (misc) 
LIFDfln(lifmodule) 
H68KSVS(ci) 

mui 

SEGflENTERtasm) 

SRnWHsrmammodule) 

SRnDfin(srmdarmodule) 

TBPfBKUP 

UCSD_Dpn(uc5dmodule) 
log af'pect 

BGL INQfdgl inq) 

0GL"VRRS(dgT_var5) 

GENTd9l_genl 
log bytes 

mNIT(c5801r) 

fllNlTiqminit) 
log C&80 msus 

CTflBLE 
log disp lim 

OBL VSlfSldgl vans) 

GE^frdgl_ge^)~ 
log entries 

flTNlT(cs80ir) 

MINlT{qminit) 
log entry 

fiTNlT(c580ir) 
log entry type 

fiTNlTrcsSOir) 

mNlT(qminit) 

log_f3py_msus_opt jon 



IrlllV 



log f ]py_m5us_opt i 3ns 

log harddisc msus 

CTfiBLE 
log index 

nTNlI(qminit) 
log info type 

RTNIT(c5801r) 

MINITfqminit) 
log loc lim 

D5L VffR3(dgl_var'i) 

GENldgl gen) 

LI8(dgl_libS 
lo 



msus 
TnELE 

msus option 
TflBLE" 

msus options 

Table 

specific msus 
CTfiBLE 

logcode 

hINlr(c580ir) 

logical addr 
RniGOTamigodvr) 
flnlC.0(c5amlgo) 
MINUIhminitl 



lo 



109c 

339c 

258c 

215d 

1117c 

1123c 

342c 

211c 

185c 

1640c 

118SC 

e29c 

6229c 
1049d 
3480c 

666d 

n06d 



368c 403c 819c 901c 925c 1134c 1261c 
221d 



lOSld 
3476c 



54Sd 
1201c 



S30d 
llOSd 

1312d 

1312d 

1287d 

1332d 

1107d 

642d 
1106d 

1057d 

3321c 

20277c 

1283d 

1283d 

1200d 

1290d 

563d 

819c 
lS2d 
373c 



3484c 3628c 

729d 757c 
1187c 1197c 1201c 1203c 

U12c 

3494c 349SC 3504c 3618c 3519c 3528c 3613c 

771d 804c 

S47d 568d 77ld 

1384c 1397c 1404c 
1323c 
1312d 

1386c 1400c 1406c 

1201c 1203c 

566d 729d 

3323c 3350c 3361c 3364c 3593c 
20278c 

136SC 1458c 1472c 1479c 1486c 

1410c 

1283d 

1321c 1335c 1382c 

701d 715d 721c 

917c 

405d 415c 

44ec 
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logical cyln 

MINITTcseOir) 

niNITiqminit) 
logical eof 

SRnDflRtsrmdamnodule) 

SRn_DRV(srm) 
logical head 

niNITTcsSOir) 

mNITJqminit) 
logical sect 

MINITTcsSOir) 

niMTjqminil:) 
long 

INITLOPO(loader) 

LIBRfiRIBN 

niui 

SRMDfifljsrmdamniodgle) 
long boolean 
SRfl_0RV(5rm) 

longest 

LIBRftRIfiN 
lonqform 

HEflPT(hpm) 
longof f set 

INITLOnD(losder) 

LIBRRRIflN 
longp 

HE6PT(hpm) 
longpatch 

LIBRfiRIBN 
longpointer 

HEflPT(hpm) 
longsiz 

LIBRfiRIBN 
longword 

CRT(crt) 

GCRT(crtb) 
loop condition 

tbPebkup 

loopcmd 

HPHIL(hphil) 
SVSOEVStsysdevs) 

loopcmddone 
HPHIL(hphil) 
SYS0EVS(sy5dev5) 

loopcontrol 
HPHIL(hphllJ 
MOUSE (mouse) 
SYSDEVS(5y5devs) 

loopcontrol rec 
SVSDEVS{sysdevs) 

loopdata 

HPHIL(hpMl) 
SySDEVStsysdevs) 

loopdevice 
HPHIL(hphil) 
MOUSE (mouse) 
3YSDEVS(5y5dev5) 

loopdevices 
HPHIL(hphil) 
MOUSE mouse) 
SYSDEVS(5ysdevs) 



loopdevreading 

HPHIL(liphil) 

SYSDEVS(6ysdevs) 
loopdriverlist 

HPHIUhphil) 

MOUSE (mouse) 

SYS0EVS(5ysdevs) 
loopdriverrec 

SySDEVS(5y5devs) 
loopdvrop 

HPHIL(hphil) 

MOUSEJmouse) 

SYS0EVS(5y5dev5) 
loopdvrproc 

SYSDEVS(sysdevs) 
loopdvrpt r 

HPHILIhphil) 

MOUSE mouse 

SYSDEVS(5ysdevs) 
looper ror 

HPHIL(hphil) 

SYSDEVSIsysdevs) 
loopinconfig 

HPHIL(hph!l) 

SYSDEVS(5y5dev5) 
loopinit 

HPHIL 
looplsok 

HPHILIhphil) 

MOUSE (mouse) 

SYS0EVS(5ysdev5) 
loops 

nINIT(c580ir) 
low 

M68KSyS(ci) 
lowcod 

SEGnENTER(asm) 
lowcode 

SEGMENTERtasm) 

SEGMENTERisegmenter) 
lowers 

HEBPT(hpm) 
lower bound 

CTflBLE(ctr) 
lower byte 

CTs5LE(5can5tuff ) 
lower char 

DIStTHPIBCdischoib) 
lowerleft 

DGL_HPGL(dgl hpgl) 

DGL_VflRS(dgl"var5) 
lowglob 

SEGtlENTER (asm) 
lowglobal 

SEGMENTER(asm) 

SEGnENTER(5egmenter) 



53Sd 
1209c 

606c 
285d 

536d 

1209c 

537d 
1209c 

927d 
409c 
455d 
384d 

205d 
711d 

449d 

64 d 

926d 
169c 

2nd 

2368d 

86d 

417d 

53d 
lOOd 



1228c 1240c 
1487c 1488c 



1228c 1240c 



85c 
348d 

87c 
352d 

80c 

79c 

360d 



149c 
349d 



99c 

80c 

346d 



452d 
467c 
433c 

276d 
733d 

531c 

90c 

1462c 
408c 

289c 

2463c 

90c 

418d 

272c 

1374c 
197c 



153c 
654c 



360d 
150c 



99c 
154c 



191c 

1S4C 



609c 688c 823c 2314c 2323c 264ec 2777c 

339d 459d 460d 499d 504d 522d 571d 589d 610d 631a 636d 677d 
735d 737d 752d 754d 770d 789d 801d 807d 308d 

1062c 1063c 

96c 

1543c 1596c 1838c 1815c 1817c 1926c 2314c 2322c 2556c 26440 2776c 

270c 

2466c 2486c 

176c 299c 

S48d 716c 910c 1033c 1084c 

284c 678c 

1376c 14Uc 



135c 162c 190c 210c 231c 284c 306c 355c 357c 3S8c 
194c 



213c 216c 217c 287c 

191c 243c 251c 2S4c 256c 327c 340c 343c 344c 345c 349 

2S4c 327c 340c 344c 345c 



235c 
354d 

252c 

191c 
359d 



318c 328c 339c 342c 



192c 
655c 



336d 337d 

73d 
12ed 
302d 



227d 

eid 

336d 

87c 
3S0d 

81c 
351d 



81c 
194c 
353d 

seod 

746d 

72d 

75d 
24d 

66d 

374d 

1095d 

389d 

17263c 
1079d 



76d 
25d 



303d 

332d 339d 

341d 3S9d 

90c 92c 245c 309c 349c 

239c 269c 317c 

212c 217c 237c 312c 362c 

S67d 625d 635d e41c 770d 783d 795c 

7620 7eSc 

78c 80c 81c 90c 98c 148c 163c 294c 

78c 82c 

89c 96c 
376c 



84c 86c 87c 91c 99c 207c 
84c 88c 
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INn (Idr) 
milLOBDdoader 

List PRION 



SEGrENTER(a5m) 
lowheepO 

LIBfflRIflN 
l0W3<J 

MPHlL(hphil) 

nOWE (mouse) 

srSCEVStsysdevs! 
lowkevs 

MBNISKBD2 
lowrange 

LieKRRIFIN 
Ipciri type 

«PH3L(hptiil) 
Iprooiptl 

n68CSVS(ci) 
lpro«)rt2 

n68ltSYS(ci) 
Iptr 

CRTIcrt) 
Ir 

CTBeLE(ctr) 
Irec 

INn LORD (boo tdamtioOule) 
Is map 

CfeL_HPGL(dgl_hpal) 

0GL_RflS(dgi_ra5t'!r) 
Is map def 

lGL^frPGL(dQl_hpa!) 

OGL_RRS(dgi_rast-'r) 
Is pal terns 

0GL_VfiRS(dgl_var ,) 
Isize 

LISSHRIfiN 
It 

LIFDBM(lifmodule 
Itime 

CLOCK(clock) 

n68K3YS(ci) 

SYSDEVSisysdevs) 
ItJtle 

H68KSYS(ci) 
lun 

CS8C(cs80d5r) 

CTBELE 

ClBELE(ctr) 

mui 

TPP63KUP 

lur>l 
ClflBLE 

CTBBLE(ctr) 
TBPE8KUP 



2430c 
1049d 
1467c 

127c 
1645c 
2331c 
2843c 
3721c 

188c 


2431c 
1114c 
1471c 

128c 
1729c 
2388c 
2843c 
3722c 

189c 


2478c 
lllSc 
1546c 
393c 
1870c 
2405c 
2873c 

236c 


2479c 
1143c 
1553c 
1310c 
1884c 
2437c 
2953c 

242c 


1151c 
1598c 
1340c 
1909c 
2513c 
2975c 

329c 


uesc 

1599c 
1362c 
1949c 
2S23C 
2990c 


1229c 

1641c 
1408c 
19SSC 
252SC 
3008c 


1276c 
1642c 
1418c 
2015c 
2642c 
3094c 


1319c 

1514c 
2035c 
2747c 
309SC 


1321c 

1536c 
2114c 
2798c 
3096c 


1332c 

1597c 
2121c 
2821c 
3111c 


1352c 

1604c 
2320c 
2825c 
3124c 


1428c 

1619c 
2321c 
2840c 
3129c 


14S2C 

1643c 
2326c 
2842c 
3692c 


61d 


3692c 


3721c 
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34d 


415c 


438c 


461c 






















mantissa digit 
































nOREFSVS(mf5) 




400d 


411c 


437c 


438c 


439c 


445c 


460c 


461c 


462c 


500c 










mantissadigita 
































IIOREFSYS(mfs) 




228d 


349c 


























mantissadigitb 
































nOREFSYS(mfs) 




266d 


316c 


























SniGOIcsaraigo) 




140d 


189d 


210c 


211c 


215c 


221d 


223c 


224c 


34 Id 


344c 


345c 


sesd 


368c 


3e9c 


niNIT{hminit) 




28Sd 


288c 
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MINIT >idec5 

MINIT mminit 
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SlfnDRr (srmdammodul") 

SRn_DfVl5rm) 
max spar inq_t ries 
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GLE HPGLJglelhpgl out) 
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maxlevel 
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KERNE Hiodecla ration 5) 
maxrec 

SRn0flM(5rmdammodule] 

SRM DRV(5rm) 
maxreTsize 

INITLOnD(loader) 

LIBRBRIfiN 
maxromex 

CRT(crt) 
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3569c 


1395c 


1896c 


1897c 


1901c 


1903c 


2894c 


2975c 


3001c 


3002c 


3236c 


3240c 


3241c 


newmodpt r 

INITLOnD(loader) 


































1421d 


1433c 


1434c 


144Sc 


1461c 




















newmods 
































INIT(ldr) 




2388c 


2432c 


























INITLOSD(loader) 




1059d 


1198c 


1303c 


1339c 


1360c 


1365c 


1372c 


1404c 


1427c 


1520c 


1580c 


leooc 






LIBRfiRIBN 




194c 


391c 


392c 


39Sc 


402c 


1168c 


1169c 


1275c 


1321c 


1339c 


1349c 


13eic 


1983c 


1408c 






1417c 


ISSSc 


1659c 


1664c 


1667c 


17300 


1915c 


2016c 


2534c 


2749c 


2826c 


3009c 


3225c 


3533c 






3542c 


3627c 


3639c 


3644c 


3687c 


3688c 


3732c 
















SEGMENTER(asm) 


%%* 


191c 




























newrame 
































SRn DRVfsrm) 




1031d 


1660d 


1672c 
























newnf ns 
































SRn DRV 




1786d 


1799c 


1812c 
























SRM DRV(5rm) 


*ii:* 


loeid 




























newnsaptr 
SRM DRV 


































1787d 


1796c 


























SRn~0RV(5rm) 


*X* 


1062d 




























newparm 

nlNIT(qminjt) 


































1037d 


1046c 


104'c 


1049c 






















newpass 

SRM DRV(srm) 


































1032d 


!B61d 


1673c 
























newpaTh 
SRM DRV 


































1788d 


1814c 


























SRM_DRV(5rm) 


#«* 


1063d 




























newpt r 

LIBRRRIRN 


































18S8d 


isesd 


1876c 


1877c 


1929c 


1930c 


2144d 


2312c 


2313c 


2318c 


2326c 


2328c 


2331c 


2374c 






2404c 


2412c 


2434c 


2437c 


2451c 


2475c 


2485c 


2486c 


2488c 


2S81C 


2582c 


2S85C 


2642c 


2647c 






2652c 


2S57C 


























newrtpass 
































SRM DRV 




1790d 


1816c 


























SRM_DRV(srm) 


*K(« 


1065d 




























newstartdef 5 
































INITLOflD(loader) 




1091d 


1474d 


1479c 


1490c 


1491c 




















newst rptr 
LIBRfiRIBN 


































1726d 


1783c 


1784c 


1787c 


2007d 


2074c 


2075c 


2082c 














newsysunit 

neSKSYSCci) 


































841d 


1132c 


























newtext rec 
































LIBRfiRIBN 




18S0d 


1870c 


1876c 


1883c 


1884 c 


1888c 


1920c 


1921c 


1945c 


1947c 










newtextrecs 
































LIBRfiRIRN 




18S4d 


1887c 


1914c 


1978c 






















newunit 
































n68KSYS(ci) 




a42d 


846c 


848c 
























newwd 
































SRM DRV 




1789d 


1813c 


























SRn_DRV(srm) 


#«« 


1064d 




























newwords 
































ETU 




888c 


940c 


























HEflPT(hpm) 
INITLORD 




128c 


2e9c 


290c 


29Sc 






















«X« 


1675c 




























LIFDflMjlifmodule) 
UCSD Dflll(ucsdniodule) 


*»* 


403c 




























*K* 


S84c 




























next 
































ETU 




47d 


682c 


690c 
























HEflPT hpm) 




216d 


241c 


242c 


244c 


246c 


248c 


249c 


252c 


2S3c 


255c 










HPHIL hphil) 




2e4c 


265c 


























MOUSE mouse) 


*** 


191c 




























SYSDEVS(sysdevs) 


*«« 


341d 




























next subpolygon 
DGr_PO[Y(dgl^poly) 


































20201d 


20221c 


2022SC 


20230c 






















nextavail 
































LIFOflM(lifmodule) 




681d 
892c 


758c 
90Sc 


78 IC 


783c 


791c 


793c 


816c 


816c 


839c 


840c 


870c 


871c 


872c 


873c 


nextblock 
































LIBRfiRIBN 




71d 
2891c 


1980c 


1982c 


198SC 


198ec 


2113c 


2118c 


2119c 


2173c 


2174c 


2175c 


2214c 


2215c 


2882c 


nextchar 
































nOREFSYS(mfs) 




401d 


416c 


418c 


419c 


424c 


425c 


430c 


431c 


440c 


441c 


447c 


448c 


453c 


454c 






463c 


464c 


469c 


470c 


478c 


479c 


486c 


487c 














nextchr 
































nOREFSYS(mfs) 




38d 


91c 


92c 


9Sc 


97c 


539c 


S47c 
















next f reeword 
































HEnPT(hpm) 




48d 


49d 


276c 


281c 






















nextptr 

INlTLOnD(loader) 


































1358d 


1362c 


1363c 
























LIBRfiRIBN 




1652d 


1661c 


1662c 
























next ref 
































LIBRfiRIRN 
nf ns 

SRriDfiri(srmdanirnoduJe) 




405d 


52Sc 


536c 


1303c 
























66 Id 


758c 


759c 


761c 


799c 


807c 


832c 


839c 


855c 


902d 


922c 


1268d 


U92C 


1297c 






1301c 


1302c 


























SRM DRV 




1903d 


1916c 


1923c 


1966d 


1977c 


1984c 


















SRM DRV(5rm) 




1006d 


1014d 


1022d 


1042d 


1078d 


1090d 


1548d 


iseic 


1574c 


lS86d 


1599c 


1612c 


1624d 


1635c 


" 




1638c 


1645c 


1729d 


1747c 


1760c 


1757c 


















nf nsl 


























II-IZI 




SRMDRMIsrmdammodule) 




1177d 


1216d 


























rfns? 
































3RMDfiM(srmda^irnodulel 




1180d 


121?d 



























nijgv 

lIBkARIflN 
























303d 


539c 


1063c 


1415c 












nilptr 

HER>'T(hpm) 
























53d 


61d 


122d 


123d 


I42c 


14Sc 


151c 162c 224c 234c 


241c 242c 249c 


251c 






257c 


265c 


267c 


232c 


289c 


307c 


312c 316c 






nindx 






















SRriLifln(5rmdaiimodule ) 




664d 


771c 


782c 


78ec 












nintdiita 






















rtINiT(hminit ] 




252d 


270d 


277c 


279c 












rtlU! 


»** 


331c 


















nlen 






















nORi FSVS(mf5) 
no 

CLE TYPES(gle t,pes| 




27d 


29d 


88c 














»s« 


1263d 


















no capslock 






















NOHJSKBDl (not! u , kbdl) 




216c 


265c 


284c 


300c 


320c 












171c 


178c 


179c 


180c 


188c 


189c 


193c 






N0NIISKBD2 




lS3c 


157c 


lS8c 


175c 


176c 


181c 


182c 183c 199c 






SYS(€VS(5y5dev5) 


*** 


269d 


















no card 






















Kernel general 0) 


«»« 


1014c 


















KERNEL lodeclarations) 


*** 


323d 


















PRimERjprtdvr) 
no control 


*** 


290c 






































?E¥S(key5) 




214c 


267c 


278c 


299c 












SVSl;EVS(5ys<]ev5 ) 


*** 


271d 


















no dam name 






















CTBHE(ctr) 
no data found 




349d 


e33c 




































CS»f(C580) 


*** 


170d 


















CS8<(c580d5r) 

TftPf eKUP(cs86tbdvr) 


*** 


691c 




















671c 


803c 
















no exiension 






















Key; (keys) 
SYSDEVStsysdevs) 




205c 


268c 


278c 


300c 


343c 










*** 


272d 


















no id 






















Kernel (general 0| 


*** 


986c 


















KERMEL(locleclar.jtion5] 


*** 


348d 


















no is( 






















nc DRV(lntdc) 


*** 


533c 


















0l5CHPIB(di5chpi3) 


*** 


467c 


















Drift DRV(init dm^i 




224c 


227c 
















I0LTB(generaT_4 ) 




1270c 
1620c 


1300c 
1626c 


1307c 
1647c 


1320c 
1662c 


1333c 


1374c 


1378c 1381c 1564c 1669c 


1573c 1591c 1S96C 


1600c 


KERr>€L (general 0| 




1294c 


1299c 
















KERNEL(iodeclar,ition5) 




29Sd 


677c 
















SRn_DRV(srm) 




1197c 


1275c 


127ec 


1290c 


1317c 


1318c 


1319c 






no kbc 






















R804 XOVR ( aS04xd V r ) 




186d 


187d 


188d 


189d 


225c 










SYSCEVS(sy5devsi 




146d 


617c 
















no_paf it y 

l5L!B(5erial 3) 




2750c 


2771c 
















KERNEL (iodecTardtions) 


*♦* 


401d 


















no proc 

SEGnErMTER(asm) 
























102c 


106c 


116c 














no shaft 






















irEyf,(key5) 

NONUSKBDl [non ub kbdl) 




21Sc 


266c 


299c 














*»* 


68c 


















SYS0EVS(5y5dev5j ' 


*** 


270d 


















no spares availabl'; 






















CS8(l(csJ0) 


*** 


167d 


















CS8C(C580d5rj 
TBPt8KUP(C580tbdvr) 


**■* 


685c 




















565c 


797c 
















no If r 






















T0LIB(gener3l 4) 
KERNELllodecla rations) 




1269c 


1420c 
















**# 


559d 


















SRH DRV(5rm) 




1196c 


1343c 
















nobreak 






















CRT(crl) 


*** 


Hid 


















GCRT(crtb) 

SYSCEVS(sy5dev5) 


*** 


44d 


















*** 


69d 


















nocapebilitaes 






















SRnCfiM(srmdarrmod ile) 




64d 


304c 


1068c 


1401c 












nochain 






















n68KSYS(ci) 




58d 


141c 


1037c 


10680 


1098c 


1171c 








nocrt 






















DGL C OUT(dgl confg out) 
SYSDE'7S(5y5dev5) 




11286c 
113d 


11296c 
e31c 


11335c 


11342c 


11346c 










nodam 






















INll (initunits) 




2141d 


2232d 


2241c 














node 






















INll LOBD (boo tdamiodule) 




783d 


788c 


789c 


790c 












nodeal locate 






















SRM 0RV(5rm) 




460d 


1694c 
















nodeccTi 






















INll LO(^D( boo tdamiodule) 




779d 


786c 
















nodest r 






















INITLORD 




1764c 


n65c 


1770c 


1771c 


1789c 










INITLOfiD (boo tdamiodule) 


*** 


640d 


















TBll 




68c 


76c 
















nodevj-;e 






















CTRPlE 


»** 


1193d 


















CTfi6LE(br5tuff } 




991d 


992d 


993d 


994d 


1004c 










CTHBLE Ctrl 


**« 


261d 


















CTftBLE (scanstuf f ; 




1111c 


1144c 
















nodisc 






















F9885(f988Sdvr) 




48d 


219c 
















noerror 






















F9S8 5(f988Sdvr) 




48d 


206c 
















noer rs 






















HPHli. jhphil) 




e3d 


143c 


169c 














noirttholb 






















]NIKOnD(iv^glotdls) 


**« 


284d 


















KERKEL(ger,;ral_o; 


*«* 


1015c 


















noisr 






















INIT (inituntts) 




2142d 


2167d 
















MINIl'(xminit) 


*1H^ 


1620c 


















nokbd 






















SYS0;VS(5ysdevs) 




145d 


616c 
















nokeyboard 

DGL <: IN(dgl confg in) 
INlTLiJfiOisysglobii?) 






















*«* 


120S0C 


















*** 


28Sd 


















nomap 
CRT( :rt) 
























171d 


363c 


384c 


6860 


689c 










non ch jr 






















KFVS.'keys) 




159c 


181c 
















SYSDi.VStsysdevs) 




239d 


536c 


538c 


543c 


555c 


566c 


560c 563c 641c 






non dominant 






















GLE>:GL(gle_ras_out ) 


»** 


B079d 


















non doninant support 
CUE HPGL(gTe hpgi out) 






















*** 


7698c 


















GLE •yPES(gle tyfes) 


*«« 


1093d 


















non dominate mo3e 






















DCL_vHRS(dgl_var;) 
non us kbdl 


*** 


1202d 














11-122 




NCINUTKBDI 


*** 


209d 


















N0NL';'KBD1 (non_u5. kbdl ) 


*«^ 


2l)c 



















ncn LJ5 kbd2init 




























N!JNUJKBD2 


*** 


28d 
























nona alpha key 




























KE7S(key5) 

NONUSKBDl (non U5 kbdl) 




439c 


S65c 






















*** 


194c 
























N0NUSKBD2 




171c 


177c 


210c 


21Sc 


222c 
















SYSDEVS(5y5<Jevs) 


*«« 


258d 
























nonabortive ioresult set 




























niui 




120d 


209c 






















TRPESKUP 




lOSld 


1098c 






















noradv key 




























KEVSTkeys) 

NONUSKBDl (ncn us kbdll 




194c 


33Sc 


438c 


56Sc 


















*** 


196c 
























N0NUSKBD2 




196c 


207c 


213c 


217c 


220c 
















SVSDEVS(sy5d2vs) 


»«* 


258d 
























noradvkeys 




























KEVS(key5) 




142d 


196c 


221c 




















none 




























LIBRflRIflN 




3294d 


3345c 


3530c 


3538c 


3568c 


3587c 


3602c 












SRMDHn(brmdammodyle) 


*** 


201d 
























nonuslinit 




























NONUSKBDl 


*** 


27d 
























nonzero 




























nOREFSVS(mf5) 




402d 


414c 


433C 


449c 


469c 


498c 














nop 




























CS80(cs80) 

mNITfcsSOir) 

TfiPEBKUP(C586tbr) 




S42d 


54' c 
























830d 


83bc 
























llSd 


123c 


192d 


199c 


224d 


237c 














nopl 




























CS80(C580) 




570d 


581c 






















.nop2 

CS80(C580) 






























S73d 


58Sc 






















nopassyet 

SRnDHn(5rmdammodyle) 






























1530d 


1538c 


1563c 


1569c 


1571c 
















nopatch 
[iBRfiRIflN 






























2368d 


2419c 


2475c 




















no power 

f9885|f9886dvr) 






























48d 


216c 






















noranqe 




























LIBRflRIflN 




306d 


1199c 


1250c 


1460c 


1461c 
















noreconfig 




























HPHIUhphil) 




62d 


144c 


170c 




















norecord 




























F988S(f98S5dvr) 




48d 


230c 


235c 




















nores 




























LIBRflRIfiN 




143d 


194c 






















normal completion 




























flniGl7(csami90) 


*«* 


69d 
























normal vertex 




























DGL POLY(dgl_poly) 




20386d 


20S03C 


20504c 


20726c 


20736c 
















normaTized cos 




























DSL POLYTdgl poly) 




20320d 


20618c 


20621c 


20624c 


20629c 


20835c 


20836c 












normaTized one 




























DGL POLYXdjl poly) 




20043d 


20611c 


20624c 


20630c 


20900c 


20901c 


20994c 


20995c 










normaTized sin 




























DGL POLYTdgl_poly) 




20320d 


20611c 


20618c 


20621c 


20S29C 


20630c 


20834c 


2083SC 










normsTiift 




























HPHIL(riphil) 
normshiftop 
HPHILIhphil) 
SYSDeVS(5y5devs) 




156d 


270c 


295c 














































*«* 


295c 
























*** 


30$d 
























norwegian kbd 

fl804XDVl?(a804xdvr) 




























x*« 


191d 
























N0NUSKBD2 




179c 


206c 


209c 




















SYSDEVS(5y5dev5) 


*** 


147d 
























not ready 




























C580(cs80) 


*«« 


168d 
























CS80(C580d5r) 
TflPEBKUP(C586tbdvr) 


*«« 


687c 


























S67c 


799c 






















notbusy 

GLE RGLtgle ras out) 
GLE~TYPEg(gTe types) 




























**K 


8117c 
























XMX 


1246d 
























notcancels 




























LIBRflRIflN 




1489d 


1498c 


1505c 


1511c 


















notdone 




























LIBRflRIflN 




1483d 


1498c 


1499c 


1507c 


















notendofparms 
n68KSYS(cl) 






























409d 


436c 


447c 


469c 


471c 
















notice 




























INITLOflO( loader) 


*MX 


94Sd 
























LIBRARIAN 




333c 


334c 


1864c 




















notrack 




























F988S(f9886dvr) 




49d 


227c 






















notready 




























F9885(f9885dYr) 




62d 


208c 






















not ype 

LIBRflRIflN 




298d 


1440c 






















nounit 




























INIT(lnitunlts) 




2139d 


2228d 


2241c 




















nowopen 

LIFOfltldifmodule) 






























UOSd 


1130c 


1131c 


U32c 


















nprompts 

SYSDEVS(sy5dev5) 




























#«# 


324d 
























SRnOfln(srmdammodule) 




171d 


187c 


197d 


242c 


300c 


301c 


310c 


464d 


487c 


490c 


493c 


969d 97ec 1030d 






1060c 


1061c 


1062c 


1064c 


1065c 


1069c 


1070c 


1087c 


1124c 


1135c 


1147c 




SRn_DRV(5rm) 




1027d 


1047d 


1629d 


1638c 


16S0c 


1734d 


1746c 


1750c 


1771c 








nreco rds 




























F988S(f9885dvr) 




58d 


165c 






















nrfd line 




























KElfNELdodeclarations) 


*»* 


392d 
























nsl kbd 




























S7SDEVS(sy5dev5) 


*** 


150d 
























n52 kbd 




























S7SDEVS(5yso'evs) 


«** 


150d 
























nsS kbd 




























S"?SDEVS(5y5dev5) 


**« 


ISOd 
























nsa 




























SRt1DflM(5rmdammodule) 




134d 


142c 


148c 


153c 


158c 


662d 


761c 


807c 


839c 


855c 


903d 


922c 102Sd 1038c 






1079c 


1081c 


1085c 


1086c 


1094c 


109SC 


1119c 


:23c 


1129c 


1134c 


1143c 


1146c 1158c 1169c 






1164c 


1269d 


1286c 


1301c 


1302c 
















nsal 




























SRnDflM(srmdammodule) 




1333d 


1359c 


1391c 




















nsaptr 
SRM DRV 






























1904d 


1913c 


1967d 


1974c 


















SRM DRVtsrm) 




1007d 


lOlSd 


1023d 


1043d 


1079d 


1091d 


1549d 


1558c 


lS87d 


lS9$c 


162Sd 


1S34C 1730d 1745c 


nsectors 




























MINIT(iramicio) 




190d 


196d 


204c 




















nspm 




























MINIT (bminit 


*** 


99c 
























MINIT hminit 


*»* 


291c 
























MINIT midec: 


*** 


29d 






















11-123 


fllNITfnminit 


*«« 


136d 
























niNITCqminit 


W** 


923c 
























mui 


*** 


438d 

























nspt 
































nlKl T (bminit ) 


♦ »* 


ICOc 




























mNlT(hminit) 


*»* 


293c 




























nlN]T(midecs) 


*»* 


30d 




























MlNiT(rmiiniT ) 


*»* 


137d 




























mNIT(qminit) 




926c 


927c 


























niu! 


«»» 


438d 




























nta 
































CS8C(C580) 


«»* 


215d 




























FltpS 
































niN)T(bminit) 


**« 


99c 




























raNIT(hniinit) 


«»* 


292c 




























(1INlT(midec5) 


*»* 


28d 




























niNJT(rrviiinit 


*»* 


135d 




























MINIT(qminit) 


*»« 


924c 




























mu] 


X** 


438d 




























nul 
































LIBRSRIBN 




3120d 


3137c 


























null 
































INII (misc) 


*^* 


159d 




























null fccdl2 
































MIDI 




426d 


439d 


447d 
























null dav 
































CTHELE 




1190d 


1193d 


























null nip 
































CTHELE(ctr) 




540d 


S55C 


























null nisus 
































CTHBLE 




1192d 


1442c 


1443c 


1444c 






















null pp 

CTH§LE(ctr) 


































562d 


573c 


























null tm name 
































CTRBLE(ctr) 




3S6d 


633c 


639c 
























nullchar 
































CONVERT(convert text) 




82c 


lUc 


114c 


118c 






















INIKmisc) 


«** 


159d 




























LIBKBRIHN 


*K* 


1399c 




























num 
































DGL POLYfdgl poly) 




20274d 


20298c 


20300c 


20301c 






















INlTLOHO(minT) 




391d 


492c 


























IOLIB(general 1) 




243d 


305d 


312c 
























I0LI8(general 2) 




79«d 


812d 


833d 


887c 


1013d 


1017c 


















SRn^ORV(srm) 




1513d 


1520c 


























num bits 
































mLIB(seria] 3) 




2507d 


259Sd 


2610c 


2615c 


2620c 


2639c 


2644c 


2651c 














nun char bit 
































I0l.lB(Ierlal 3) 




2510d 


2683d 


2691c 
























num file name sets 
































SIfn ORVfsrmT 




287d 


1520c 


























tium integer 
GFN(dgl gen) 


































3046d 


3136d 


3163c 
























num points 

DCLP0LY(d9l_polv) 


































20021d 


2O024d 


20027d 


20029d 


20192d 


20223c 


20909d 


20935c 


20940c 


20960c 


21025d 


21040c 


21060c 


21071d 






21086c 


21105c 


21116d 


21130c 


21136c 


21147d 


21161c 


21167c 














LIB(dgi UP) 




200450 


20047d 


20676d 


20685c 


20688c 


20692d 


20701c 


20704c 














num protect code sets 
































SRM DRV(5rm) 




424d 


503d 


606d 


lesoc 


1771c 




















num real 
































GFN(dgl_gen) 




3046d 


3136d 


3162c 
























num vert 
































D!;L_P0Ly(d9l_polv) 




20420d 


20644c 


20646c 


2064SC 


20659c 


206610 


20662c 


20688c 














numaxes 
































HPHIL(hphii) 




104c 


116c 


118c 
























MOUSE (mouse) 




45d 


84 c 


96c 


104c 






















SVSDEVS(5ysdevs) 


*H* 


319d 




























number 
































CRTtcrt) 
GCRT(crtb) 

t10REFSVS(mf5) 




315d 


319c 


322c 


























224d 


229c 


230c 


233c 


23Sc 






















47d 


120c 


127c 


128c 


133c 


146c 


159c 


172c 


178c 


191c 


20Sc 


211c 


219c 


22Sc 






238c 


243c 


250c 


263c 


27ec 


281c 


288c 


296c 


297c 


302c 


315c 


321c 


334c 


341c 






348c 


354c 


360c 


391c 


396d 


418c 


424c 


430c 


440c 


447c 


453c 


463c 


469c 


478c 






436c 


517d 


S26c 


528c 


635d 


544c 


548c 
















number conversion ck 
































niui' 




292d 


304c 


305c 


310c 


313c 




















number dgl linestyies 
DGL ftPGLTdgl hpgl) 
DGL INQ(dgl Tnq) 


































17268c 


172e9c 


























#** 


633ec 




























DGL POLY(daI poly) 
DGL RflSldgl raster) 
DGL VflR3(dgT vars) 


*** 


20136c 




























*«« 


17S99C 




























«** 


1084d 




























LlBTJgl lib)" 


*** 


20479c 




























number markers 
































DGL flPGLCdgl hpq]) 
OGL INQtdgl Tnq) 


»«* 


17270c 




























*«X 


e348c 




























DGL Rflsidgl raster) 
DGL VfiRS(dgT var; ) 


«*)*! 


17698c 




























*** 


108Sd 




























number of traces 
































INITfmisc) 




2eSd 


267c 


























number polygon styles 
DGL WGL(dql hpgl) 
DGL tNQ(dgl Tnq] 
































*«* 


17281c 






























6073c 


6374c 


























DGL POLVrdgT poly) 




20152c 


20178c 


























DGL RflSldgl raster) 
DGL~VflRS(dgT vars) 


**« 


17652c 




























*** 


1086d 




























LIBTlgl lib)" 


«** 


21453c 




























number vols 
































CTSBUE 




1537c 


ISSlc 


1571c 
























CTfiBLE(ctr) 




311d 


313d 


314d 


678d 


591c 


604d 


608c 


609c 


610c 


615d 


617c 








numberof spares 
































MINIT(xminit) 




1411d 


1S43C 


1645c 


1748c 






















numbl0':k5 
































LIBRDRIPN 




2832d 


28S7c 


28eic 


2863c 


2866c 


2871c 


















numbui It 
































lOLIBtgeneral 2) 




838d 


855c 


889c 


904c 






















numdat 1 
































BBT(liat) 




67d 


77c 


78c 


79c 


80c 


81c 


















SYSDf VStsysdevs) 




185d 


380d 


437d 


438c 


445d 




















numdiq A s 
































(lOREKSYS(mfs) 




6S4d 


590c 


593c 


594c 


604c 


605c 


610c 


642c 


643c 


644c 


645c 








numeric 
































lOLIBtgeneral 2) 




840d 


84Sc 


847c 


870c 


878c 




















numfiles 
































LIBRfiRISN 




301Sd 


3020c 


3021c 
























numopc'-des 
































DGL lNQ(dgl inq) 




6097d 


ensd 


6174c 
























numsigri 
































n68K;.YS(ci) 




746d 


755c 


























nvojs 
































CTflBlE 




1212d 


1537c 


1S38C 


1S41C 


1543c 


1551c 


1552c 


1565c 


lS57c 


1571c 


1572c 


1675c 


1S77C 


16595 






1660s 


16625 


1654s 


1669s 


1670s 


16725 


1674s 


16795 


16805 


1682s 


16845 


16915 


16925 


1694s 






1696s 


1698s 


1699s 


1701s 


17035 


1709s 


17105 


1712s 


17145 


1715s 


17175 


1719s 


1725s 


17265 






1728s 


1730s 


17365 


17375 


1739s 


17415 


17465 


1753s 


1755s 


1757s 










CTPBlE(ctr) 




580d 


686c 


587c 


588c 


589c 


590c 


591c 
















nxt ed<4e 
































DSL F.OLY(dgl poly) 
n»11inl 




2043Od 


>0664c 


20671c 


20672c 


20674c 


2067SC 


20677c 


20673c 


20679c 


20681c 


20683c 


20685c 


11-124 




INITiisr) 




85d 
13Sc 


89c 


92c 


94c 


95c 


104c 


114d 


118c 


I21c 


123c 


124c 


127c 


129c 


130c 



Ob 

CS80(C580) 
Ob i 

INITLOfiD(aoacler) 

LIBRfiRIBN 
object 

HEBPTfhpm) 

INITLOfiD(loader) 

LIBRflRIHN 



obiectO 

IN!TLOfiD(loader) 
Ob iectaddr 

LIBRfiRIBN 
obsize 

LIBRHRIflN 
oc 

flMIG0(C5ami90) 

occurrences 

f1INIT(cs80ir) 
Oct 10000 

MTU I 
odd parity 

lCLIB(5eria: 3) 

KERNEKiodecIarati 
odd unit 

CTftBLE 
oddbytefiller 

SRn DRV(5rm) 
off 

SRM DRV 

SRn;DRV(srm) 
offline 

finlGO(amigod*r) 

CS80(cs80dvr) 

CTBBLEICtrl 

F9885|f9885dvr) 

INIT(initunits) 

INITLOBD 

INITLOnD(mini) 

INITL0nD(sy5global 

M68KSYS(ci) 

SRnflnfsrmammodule) 

SRflDfiMEsrmdaiTimodul 
offset 

fl804XDVR(a804xdvr) 

LIBRflRIflN 

mNITfcsSOir) 

SRM0M(srmamm3duIe ) 

SRn_DRV 

SRM_DRV(5rm) 
of fsetbytes 

LIBRfiRIRN 
ok 

CTflBLE 

LIFOfinrlifmodule) 

SRnDflnisrmdaitimodul 

UCSO_DBn(ucsdmodul 
ok to config 

CSeCfcsSOdsr) 



IllSd 


1120c 


























131d 


133c 


137d 


139c 


2740d 


2742c 


















46d 


47d 


290c 


295c 


299c 


311c 


315c 
















1108d 


ISOld 


1531c 


1534c 


1S35C 


1S36C 


1539c 


lS4Sc 


1546c 


1S49C 










2137d 


2179c 


2190c 


223SC 


2244c 


22S0C 


2341c 


2371c 


2373c 


2436c 


2455c 


2491c 


2S07C 


2665c 


2S86c 


2S67c 


2S68C 


2569c 


2S76C 


2577c 


2578c 


2579c 


2580c 


2S92C 


2595c 


2596c 


2627c 


2654c 


2e63c 


26S4C 


2665c 


2670c 


2671c 


2672c 


2677c 


2683c 


2684c 


268SC 


2690c 


2691c 


2692c 


2707c 


2708c 


273ed 


2773c 


2777c 


2780c 


2786c 


















ISOld 


1545c 


1549c 
























2359d 


2371c 


2373c 


2432c 


2446c 




















2241d 


2244c 


























24Sd 


251d 


252d 


253d 


254d 


255d 


256d 


257d 


258d 


2S9d 


2e0d 


261d 


282d 


263d 


267c 


278d 


286d 


287d 






















539d 




























398d 


433d 


























2751c 


2772c 


























402d 




























1314d 


1318c 


1319c 


1326c 






















299d 




























1999d 


2015c 


208Sd 


2101c 






















1099d 


1112d 


























566c 




























1359c 




























483c 


843c 


864c 
























255c 




























2215c 




























1689c 




























482c 




























156d 




























815c 


9eoc 


964c 
























lasc 




























1644c 




























126d 


128c 


151d 


154c 






















Slid 


S23c 


524c 


529c 


530c 


531c 


S32c 


535c 


539c 


ISOSd 


1831c 








784d 


796c 


























67d 


63c 


67c 


71c 


76c 


84c 


104d 


110c 


114c 


118c 


122c 


131c 






2015c 


2101c 


























716d 


806d 


























2153d 


21790 


2314c 


2315c 


2323c 


2325c 


2570c 


2S88C 


2S90C 


2602c 


2655c 


2708c 






1219d 


1829c 


1831c 


1837c 


1838c 


1839c 


1840c 
















189d 


253c 


257c 


260c 


261c 


273c 


1063d 


1136c 














215d 


309c 


314c 


321c 


323c 




















71d 


73c 


102c 


105c 


121c 





















oksize 

ETU 
old a5 

GCE TVPESCgle types) 
old aE 

GrE_TYPES(gle_types) 
old_dump_hook 

C_HOOK 
old file name header 

S^M DRV 

SRhl'DRVEsm) 
old toggle hook 

c_hoSk 

oldclrlo 

HPHIL(hphll) 
oldfilename 

LIBRRRIHN 
oldfleof 

INIT(misc) 

Oldf DOS 

INIT(mlsc) 
oldindex 

INITL0flD{lO3der) 
LIBRfiRIBN 

oldmask 

HPHIL(hphil) 
oldnf ns 

SRM_DRV 

SRf1_DRV(5rm) 
oldnsaptr 

SRM DRV 

SRM_DRV(5rm) 
oldpatch 

LIBRfiRIBN 
oldpath 

SRM DRV 

SRM_DRV(5rm) 
oldpattern 

GLE_RGL(gle_ras_out) 
oldposit 

ETU 
oldpriority 

HPHIL(hphil) 
oldpt r 

LIBRfiRIBN 

oldrtpass 

SRM_DRV 

SRn_DRV(s™) 
oldscode 

ETU 
oldst art 

ETU 
oldstate 

LIBRRRIflN 
oldst atusSisr 

HPHIL(hphil) 
oldtext rec 

INITLOflD(loader) 

LIBRfiRIBN 
oldt racknumber 

MINIT(xniinit) 



487d 


494c 


513c 


517c 






llS7d 












USSd 












S7d 












180SC 
520d 












S6d 












69d 


279c 


369c 








3301d 


3359c 


3411c 








537d 


S60c 


S74C 








S37d 


574c 


613c 


618c 






1503d 

iseod 

2624c 


1S24C 
1938c 
2628c 


1526c 
1939c 
2714c 


1528c 
1840c 
2715c 


1530c 
1941c 


1531c 
1943c 


229d 


233c 


271c 








1781d 
1056d 


1796c 


1789c 


1806c 






1782d 
1057d 


1795c 










23e8d 


2424c 


2429c 


2438c 


2476c 




1783d 
1058d 


1808c 










8054d 












567d 


577c 


592c 








131d 


138c 


152c 


lS8d 


166c 


175c 


1473d 
1861d 


1482d 
1908c 


1541c 
1909c 


1543c 
1922c 


1544c 
1923c 


1547c 


1785d 
loeod 


1809c 










712d 


760c 


763c 


777c 


780c 


783c 


llS9d 


1177c 


U8Sc 


1197c 


1211c 


1219c 


308d 


1216c 


1223c 








68d 


316c 


366c 








lS07d 
21S4d 


1S27C 
2342c 


1550c 
2622c 









1948c 1949c 2147d 2612c 2615c 2619c 2620c 2621c 



184d 
1548c 



187c 
1549c 



201c 
1559c 



208d 

iseoc 



214c 
1570c 



218c 
1681c 



1S93C 1606c 



11-125 



1405d 1583c 1688c 



LIBRfiRIBN 
oldvmodnum 

LIBKflRIflN 
oldwd 

SRM DRV 

SRIl3RV(5rmJ 
oldx 

ETU 
oid 



L 



on 

DGL RfiS(d9l_ra5ter) 
on &*rle controller 

TBPTBifUP 
on sane medium 

CTflBLE(ctr) 

mui 

TRPi:8KUP 
one parity 

IffLIB(serial 3) 

KERNEL (iodecTa rat ions) 
one with Im 

GUE, _RGE(gle_ras_out ) 
onheap 

lNIlLOflD( loader) 
op 

ft804XOVR(a804xdvr) 

CRT(crt) 

EDiiJVER(edriver) 

ETU 

GCR1 (crtb) 

HPHIL(hphll) 

INIUOflDdoader) 

LIBFflRIHN 

MOUSE (mouse) 

SVSl)EVS(sy5dev5) 

op description 

TflPtBKUP 
ope 

DGL VBRS(dgl_vars) 
opcode 

flniGOfcsamigo) 

DGL HPGLfdgl hpgl) 

DGL_"INQ(dgI_TnqT 



DGL RfiSldgl raster) 

F98F5(f98853vr) 

GENidgl gen) 

LIBldal lib) 

LIBRflRlSN 
opcodeO 

LIBRflRIflN 
Opcode4 

LIBRflRIfiN 
opcode ck 

DGL_TNQ(dgl inql 

GEN(dgl genj 

LIB(dgl lib 



3299d 


3361c 


34iec 


3419c 


3300d 


3360c 


3413c 


3417c 


1784d 
1059d 


1807c 






568d 


S88c 


S90c 




S68d 


S88c 


590c 




17294d 


17299c 


17300c 


17301c 


lOlSd 


1017c 


1312c 




1819c 

307d 

32d 

1003d 


875d 

35c 

1003c 


881c 

234c 

1121c 


514c 
1310c 


2754c 
AOSd 


2774c 







17301c 17436d 17431c 17492c 17493c 



8082d 8229c 

10880 1434d 1S13C 1563c 



25Sd 


260c 




502d 


508c 


544d 


37d 


75d 


144c 


70d 


713d 


771c 


1251c 


12S3C 


12S5C 


370d 


379c 


413d 


73<J 


291d 


293c 


866d 






188c 


131c 


193c 


126d 


lS5c 




S2d 


64d 


221d 


534c 


S93d 





5S8c 574c S95c e04c 

219c 234c 248c 307d 

773c 775c 791c 796c 

1257c '.272c 1274c 
425c 



1505c 1523c 1S74C 1579c 
303d 308d 378d 389d 



315c 
813c 



1S14C 2384c 2388c 
477d 478c 480c 



830c 1246c 1247c 1249c 



2395c 2413c 
487d 489d 



1182d 1190c U94c 1205c 
1123d H28d 



63d 

17016d 

6008d 

6133d 

6147d 

6181d 

17347d 

Hid 

3046d 

20030(1 

429d 



267c 

17041c 

6084d 

6134d 

ei48d 

6171c 

17426d 

12Sc 

3136d 

20056d 

714c 



17061d 
6115d 
6135d 
6149d 
6175c 

17442c 

126c 

3157c 

20063d 
1025c 



648d 1026c 

730d 1028c 

6171c 

3046d 3136d 3161c 
20763c 20781c 



17125c 17128c 17131c 17140c 17153c 17156c 17ie2c 1716Sc 17168c 

6ir2d 6123d 6124d 612Sd 6126d ei27d 6128d 6129d 6130d 6131d 6132d 

6136d 6137d 6138d 6139d 6140d 6141d 6142d 6143d 6144d 6145d 6146d 

61S0d 6151d 6152d 6153d 6154d 6155d S156d 6157d 61S8d 6159d 6160d 

J7447C 17452c 174S7c 17462c 17477c 17486c 17498c 17S11C 17517c 17522c 17532c 

127c 147c 148c 149c 150c 151c I64c 165c 169c 174c 178c 

3158c 

2038ea 20390c 20391c 20394c 207S0d 207e3c 207e4c 20768d 20781c 207e2c 

107SC 1078c 1094c 1101c 1103c 1120c 1121c 



3162c 3163c 



opcode def 

DGL_TNQ(dgl_inq) 
opcode list 

OGL_rNa(dgl_inq) 
opcode list def 

DGL^rNlJ(dgl_inq) 
opcode list_entry 1 

DGL_rNQ(dgl_inqy 



opcode type 

DGL_TN(i(d9l_inq) 



opcode type def 

DGL_rN6(dgl_inq) 
opcodes 

DGL_POLY(dgl_poly) 

open data 

SRflDfin(srmdammodule) 

SRM DRV(5rm) 
open 3irectory 

SRROfl(1(5rmdammodijle) 

SRM 0RV(5rm) 
open Tlag 

SRR DR5(5rm) 
open logical eof 

SRRDfln ( s rm3ammodu le ) 

SRn_DRV(5rm) 
open old 

UC5D_DfiM(ucsdmodule) 
open protected_di rectory 

SRHDanisfrndaninodule) 

SRn_0RV(5rm) 
open t ype 

SRR_DRV 

SRM 0RV(5rm) 
opendir 

ETU 

LIFD^W(lifmodule) 

UCSO DPri(ucsdmodule) 
opendirectory 

ETU 

INITLOflD(sysglobals) 

LIFDPinilifmodule) 

SRnDfin(srmdaimiodule) 

UCSD .DSM(uC5dmodi;le) 
openf 

LIFDHndifmodule] 
openf ib 

GLE KNOB(gle_knob In) 

UNlTlOluio) 
openf ile 

ETU 

INIT(misc) 

INITlOfiOlbootdanrrodule) 

INITLOnD(loader) 

INITL0fiD(5ysglobal5) 

LIFDim(Iifmodule) 

SRnDnn(5rmdammodule] 

UCSD Dnt1(uC5dmodule) 



6113d 

6121d 

6118CI 

eil4d 
6134d 
6148d 

eil6d 
6135d 
6149d 



6175c 6182c 



6118d 6122d 6123d 6124d 6125d 6126d 6127d 6128d 6129d 6130d 6131d 6132d 6133d 

ei3Sd 6136d 6137d 6138d 6139d 6140d 5141d 6142d 6143d 6144d 6145d 6146d 6147d 

6149d 6150d 6151d 6162d 61S3d 6154d 6155d ei56d 61S7d 6158d 6159d ei60d 6161d 

6125d 6126d 6127d 6128d 6129d 6130d 6131d 6132d 6133d 6134d 

6139d 6140d 6141d 6142d 6143d S144d 6145d 6146d 6147d 6148d 

6153d 6164d 6155d 6156d 6157d 61S8d 6159d 6160d 6161d 6182c 



ei22d 6123d 6124d 
6136d Rl37d 6138d 
61S0d bl51d 6152d 



6100d 6116d 
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8035d 


















































GLE RGLfgle ras out) 
planes offset 


*** 


80360 
























GLE_RGL(gle ras out) 


*«* 


8037d 
























plf irst 




























n68Ksys(ci) 




98Sd 


1062c 


1090c 


1092c 


1111c 
















plinkp 

INIT(isr) 






























86d 


90c 


94 c 


107c 


llSd 


119c 


123c 


132c 










pis 




























nOREF3Y3(mf5) 




33d 


412c 






















p»n6845aidrreq 




























CRT(crt) 
pm684Scomdreq 




169d 


265c 


676c 














































CRT(crt] 




170a 


266c 


e77c 




















Cmod 




























LIBRBRIfiN 




3214d 


3221c 


3222c 


3225c 


















pnsa 




























SRn DRV 




1782d 


1787d 


179SC 


1796c 


1904d 


1913c 


1967d 


1974c 










SRM_DRV(5rm) 




928d 
1634c 


1007d 
163SC 


10150 
1730d 


1023d 
1745c 


1043a 
1747c 


1057d 


1062d 


1079d 


109ia 


lS49d 


1558c 


15S7d 1596c 162Sd 


point 




























ETU 




490d 


506c 


511c 




















LIBRRRIHN 




35d 


196c 


1644c 


1903c 


1985c 


2118c 


2237c 


2274c 


2297c 


2299c 


2319c 


2403c 2411c 


point a 'ray 




























OGL'POLYtdgl poly) 




20396d 


?0409a 






















point C5unt 




























OGL Pi)LV(dgl poly) 




20926d 


>09S6c 


?0964c 


!0967c 


20971c 


20982c 














point d'^f 




























DGL POLY(dgl poly) 
point d-'fl 




20384d 


>0401d 


>0402d 


















n-132 


DGL Pr)LV(dgl poly) 




20393d 


>0396d 






















point_r-ady 




























GlE^H^'GL 1 (gle_hpg)_ir ; 




132410 


8:ecr 























pointer 




















HEnPT(hpm) 




61d 
305d 


66d 


71d 


75d 


86d 


93d 


99d 


UOd 135d 193d 210d 213d 216d 286d 


INITLOnodoader) 
SRnfin{5rm3mmQduae) 




1098d 


1330c 


1490c 


1563c 










**« 


47d 
















pointertrick 




















HESPT(hpm) 




62d 


87d 


94d 












pollblock 




















MOUSE (mouse) 




39d 


64d 














pollinq 

HPHIL (hphil) 






















SOd 


324c 


336c 












pollisr 




















H804XDVR(a804xdvr) 




113d 


148c 


392c 












poly entry def 

Der_HPGLTd9l,.hpgl) 






















17223d 


17227d 


17228d 


17229d 


17230d 


17231d 


17232d 


17233d 17234d 1723Sd 17236d 17237d 17238d 17239d 






17240d 


17241d 


17242d 












DGL_RflS(dgl_-aster) 




17547d 


17562d 


17563d 


17564d 


17565d 


17586d 


17567d 


17S68d 17S69d 17570d 17571d 17572d 17573d 17S74d 






1757Sd 


17S76d 


17577d 












OOL VflRS(d9l..vars) 




1032d 


1038d 














poly table def 

06r_VfiRSTdgl._var5) 






















1038d 


1039d 


1343d 












poly table def space 
OGU HPGLTdgl~hP9l) 
DGL Rnsrdgl 'aster) 
DGL VfiRS(d3T vans) 




















x*« 


17283c 
















*** 


176S3C 
















*** 


1343d 
















poly table pt r 

DGI HPGLTdgl hpgl) 
DGL INa(dgf Tnt]J 




















*** 


17283c 
6074c 


17285c 














DGL POLY(dgT poly) 
DGL RPS(dgI Taster) 
DGL_VflRS(d9T.var5) 




20153c 


20182c 
















17653c 


17655c 














*** 


lU6d 
















poly table pt r def 
DOr VflRSTdgl vars) 






















I039d 


1116d 














poly table size 

DCr HPGLTdgl hpgl) 
DGL RflSfdgl raster) 




















*** 


17284c 


















17652c 


17654c 














DGL VflRS(dgT vars) 




1006d 


1038d 














polygon 

DGL POLy(dgl poly) 






















20O29d 


21147d 














GLE GEN(gle gen) 


*** 


2186c 
















OLE HPGL(gle hpgl out) 
GLE RGLlgle i-as out) 
GLE TYPES (gle types) 


**- 


7S51C 
















XJKIK 


8419c 
















»** 


lOSSd 
















polygon dev dep 
DGL Pi5LY(Hgl poly) 






















20024d 


21071d 














polygon fill factor 
DGL PiSLY dgl poly) 
GLE HPGL gle hpgl out) 






















2089SC 


21004c 














**« 


7703c 
















GLE TYPES (gli? types) 
polygon simulation 
DGL_P0LY(dgl poly) 


*IK* 


1098d 




































20195d 


20210c 


20243c 












polygon solid fill 
DGL PijLYIdgT poly) 
GLE-HPGLiqle' hpgl out) 
GLE RGLlgle ras out) 
GLE TYPeS(9Te types) 






















20892c 


20998c 














*** 


7704c 
















*** 


8305c 
















«** 


1099d 
















polygon support 
DGL iRaidgl inq) 
DGL POLY(dgT poly) 
GLE HPGL(gle"hpgl out) 
GLE^TYPES(gli!_types) 


«*« 


6402c 


















21046c 


21091c 














*** 


7687c 
















**« 


1096d 
















polyline 

Lle(dgl_lib) 






















20047d 


20692d 














porient 




















DGL INQ(dgl inq) 
DGL POLY(dgT_poly) 




6024d 
20017d 


6052d 
20167d 


6077c 
20181c 


20185c 










P05 absolute 




















Sfti DRV(5rm) 


*** 


238d 
















pos seq 




















S^M DRV(srm) 


«:«« 


239d 
















posit" 




















RSCn (asciimodule) 
EPRIVER(edri>'e') 




43d 


49c 


Sf-d 


59c 


60c 










40d 


78d 


115c 


116c 


117c 


200c 


256c 


260c 275c 276c 290c 294c 310d 322c 


position type 




















SRM DRV 


>(»« 


1943d 
















SRn_DRV(5rm) 




237d 


680d 


1087d 












pospack 
SRM DRV 




















IK** 


194 Id 
















SRH DRV(5rm) 


*** 


loasd 
















possiBle bytes transferred 




















PmGOIamigodvr ) 




797d 


866c 


867c 


868c 










possibly correctable data error 


















flniGO(amigod>'r) 




812c 


834c 


838c 


872c 










RniGO(csamigo) 


*** 


76d 
















power fail 




















0585(0580) 


*** 


162d 
















CS80(cs80dsr) 
TRPEBKUP(C58()tbdYr) 




682c 


699c 
















562c 


579c 


794c 


8Uc 










power up 
INITLOPD 




















*** 


1779c 
















PP 

CTBBLE 




1218d 


1536c 


1537c 


1549c 


1561c 


1566c 


1S71C 


1820c 1821c 


CTnBLE(ctr) 




311d 


578d 


582c 


583c 


S84c 


586c 


589c 


S90c 


''nUrLE 


««» 


1218d 
















CTflBLE(ct rj 




310d 


311d 


560d 


562d 


578d 








CTflBLE[optlons) 




133d 


173d 


17Sd 


177d 


179d 


181d 


J83d 


185d 187d 


ppath 




















INIT(fs) 


*** 


7S3d 
















ppc message 




















l!!LI8(hplb 21 




1927c 


1941c 














KERNEL(iodeclaration5) 


*** 


302d 
















ppd message 




















l5LIB(hpib 21 


*** 


1942c 
















KERNE L(iodeclarations) 


**« 


313d 
















ppe message 




















ItjLIB(hpib 2) 


*** 


1928c 
















KERNEL(iodeclaration5) 
ppoll 

IOLIB(hpib 3) 


«** 


312d 


















2031d 


2080d 


2088c 












ppoll configure 




















I0LTB(hpib,2l 




1788d 


191Sd 














ppoll unconflgure 

IOLTB(lipib 21 
pprb 

DISCHPIB(di5Chpib) 






















1791d 


1934d 
















2S8d 


263c 


264C 


423d 


428c 


429c 






ppsa 




















SRfl DRV(5rm) 




931d 


1028d 


1048d 


1630d 


16350 


1735d 


1747c 




ppu message 




















IijLIB(hpib 21 


*** 


1945c 
















KERNEL(iodeclardtions) 


*** 


307d 
















predecr 




















LIBRBRIflN 




733d 


740d 


79f.c 


900c 








11-133 


prefix 




















CRT(crt) 
GCPT (crtb) 




lOSd 


151d 














#** 


84d 
















SvSDEVS(sy5de\ s) 


*** 


980 

















prefix-;d 
























CRT(.:rt) 
GCRT(crtb) 




lOEid 


131d 


152d 


















64d 


85d 


















SYSDi:vS(5y5dev5) 




84d 


99d 


















premaTiire eoi 
























DISCriPlB(di5chpic) 




SlSd 


371c 


400c 
















Tf)PEBKUP(C580tbr) 




271d 


282c 


288c 


293c 














prepunrissem 
LIBRHRIfiN 


























388d 


1320c 


1348c 


1381c 


1414c 












present 
























ETU 




Sid 


504c 


509c 


676c 


680c 


749c 


7Slc 


806c 


952c 


U82c 


preserving status do 
THPEBKUP" 


























1162d 


1198c 


1204c 


1274c 


1275c 












preset drive 
























nlNITfcsSOir) 




562d 


676d 


697c 
















t1INIT(qminitS 


*«* 


1167c 




















presetdrive 
























mNIT(c5801r) 




689d 


694c 


















prev 
























HEflPT(hpfn) 




216d 


241c 


246c 


25ic 


253c 












previd 
























niyi 




44d 


89c 


90c 
















prsv iou s 

INITLOHD(loader ) 




1477d 


1480c 


1434c 


1485c 


1487c 












previous char pt r 
























PRINTERCprtavrj 
previous hs completed 




680 


232c 


25Sc 


276c 




































PRINTEl?(prtd«r) 




149d 


211c 


218c 


2S2c 














previously timed ojt 
























PRINTER(prtdvry 




73d 


169c 


237c 


242c 


250c 


283c 


315c 








prevno 
























mui 




46d 


89c 


















primary 

F988S(f9885dvr) 


























56d 


116d 


147c 


169c 


174c 












primary dam 
CTflSLF 


























1497c 


1S02C 


1514c 


1531c 


1540c 


1S54C 


lS74c 


16385 


1639s 


16435 1644s 16485 1649s 1654s 






1661s 


16715 


16815 


1693s 


17005 


1711s 


17165 


17275 


1738s 


17545 1764s 17695 17815 1787s 


CTflBLE(ctr) 




292d 


509c 


















primary 1ms dam 
























CTHB(E(ctr) 




610c 


514c 


















CTflBLE(optlons) 


*** 


e2d 




















primarycofTtfnands 
F988S(f9885dvr) 


























Bid 


56d 


















primarytype 

INITL0S5(loader) 




821d 


1460c 


















LIBRRRIflN 




178c 
2389c 


H76c 
2398c 


1551c 
245 Ic 


1564c 
2696c 


1610c 
2791c 


1616c 


iei7c 


1813c 


1832c 


192SC 2182c 2377c 2380c 2387c 


primitive access 
























SRM DRvTsrm) 


*K* 


170d 




















printEr 
























ETU 




5S6d 


589c 


76Sc 


786c 


793c 












printdirectentry 
























LIBRBRIPN 




27220 


3022c 


















printdi rectory 
























LIBRftRIPN 




3014d 


3632c 


















printepinfo 
























ETU 




725d 


766c 


787c 
















printer 
























CTfiBLE 


*** 


1418c 




















CTfiBLE(ctr) 


**« 


2S7d 




















CTPBLEtscanstuff) 


*«* 


1126c 




















printer tm name 
























CTfiSLTlctr) 




362d 


682c 


















printer on 
























LIBRBRIRN 




61d 
2947c 


228c 
2985c 


2084c 
2997c 


2218c 
3525c 


2349c 
3728c 


2495c 


2539c 


2548c 


2563c 


2574c 2613c 2925c 2926c 2944c 


printer ror 
























INIT(ldr) 




2342c 


2S04C 


















INIT(mi5c) 




210d 


365d 


















n68KSYS(ci) 




426c 


4$3c 


494c 


506c 


835c 


850c 


900c 


1198c 


1205c 




TfilL 


«*# 


89c 




















printheader 
























LIBRBRIPN 




221d 


254c 


3717c 
















printinstrword 
























LIBRfiRISN 




470d 


1258c 


1253c 
















printioerrmsg 
























ETU 




98d 


270c 


825c 


1141c 


1270c 












printmessage 
























LIBRflRIfiN 




2336d 


2348c 


2352c 
















printopen 
























LIBRfiRIPN 




50d 


227c 


2943c 


2944c 


2945c 


2947c 


3523c 


3727c 






printprocboundary 
LIBRflRIfiN 


























1163d 


1202c 


















printsc 
























ETU 




717d 


764c 


785c 
















printsockets 
























ETU 




739d 


767c 


788c 


807c 














printunres 
























INIT(ldr) 




2383d 


2464c 


















printwhv 
INIT(Idr) 


























241 Id 


2436c 


2447c 
















priority 

BUBBLES(bubble) 
























«** 


169c 




















proc 
























DISCHPIB(di5chplb; 




201d 


202d 


416d 


432c 


440d 


462c 










INIT(isr) 




72c 


103c 


144c 
















INITLOBD(sysgloba;s) 


«»» 


209d 




















SEGnEMTER(asm) 




50d 


53d 


175d 


230d 














TflPEBKUP 




1162d 


1169c 


















proc await locator 
























OGI HPGLKdgl hpgli) 
OGL KNOB dgl ITnob) 


X*l^ 


18128c 




















*x* 


18174c 




















DGL VfIRS dgl vars) 


»»» 


1141d 




















LIBldjl ib) 
proc color 


*** 


20996c 










































DGF HPGL(dql hpgl! 
DGL Rtisldgl raster) 
DGL VRRS(dgT vars) 


»:t* 


1727SC 




















***: 


17605c 




















*** 


1135d 




















LIBTdll lib) 




20426c 20463c 20990c 21014c 


?1049c 












proc color table 
























OGU HOGLTdgl hpgl) 
DGL RilSfdgl raster ) 
OGL VilRS(dgT vars) 


**« 


17276c 




















*** 


17606c 




















*«* 


1137d 




















LIBTdil_libj 


*«* 


20424c 




















proc input esc 
























DOr HPGLTdgl hpgl) 
DGL RtlS{dgl raster) 


*** 


17273c 




















*•* 


17603c 




















DGL VnRS(dgI vars) 


*** 


1128d 




















LIBldTl^lib) 


«!** 


20764c 




















proc iineslyle 
























DGl hpgl (dgl hpgl) 
DGL RHSIdgl raster) 
DGL VRRS(dqT vars) 
LIBTd)l_lib) 


*** 


17274c 




















«<t« 


17604c 




















*** 
*** 


1133d 
20483c 


















11-134 


proc nane 
























StSME'JTEC (asm) 




58d 


109d 


278d 
















SEGME'JTES (seqrrenter ) 




2:d 


33d 


35d 

















proc output esc 




















OGt HPGL(35l hpgl) 
OGL RSSIdgl raster) 
DGL vnRS{dgT vars) 
LIBTdgl_ll6)" 


*«»; 


17272c 
















*** 


17602c 
















*** 


1123d 
















*** 


20782c 
















proc rec 




















SEStlENTERCssm) 




n4d 


129c 


258d 


264c 










proc sample locator 
DGF MPGLIIdqi hpgli) 
DGL KNOB dgl ITnob) 




















*xx 


18129c 
















*»:* 


18175c 
















DGL VfiRS dgl vsrs) 
LIBldgl ib)" 


»«« 


1144d 
















«!«* 


20943c 
















proc type 

CTHBLEIscanstuff ) 






















1059d 


1070d 


1071d 


1072d 


1073d 


1074d 


1076d 


1077d 1078d 1099d 


TflPEBKUP 




959d 


1162d 














procentry 




















INIT(isr) 




38d 


45d 


SSd 


60d 


72c 


78d 


103c 


136d 144c 


process errors 




















flniGOTamigodvr ) 




790d 


946c 














processor 




















CTnBLE(scanstuff ) 


««» 


1087d 
















proctype 

INITLOnOlsysglobals) 




















*** 


198d 
















prod num 




















CS50(C580dsr;i 




788d 


917c 


919c 


921c 










producer 




















INI TLOflD( loader) 


*** 


943d 
















LIBRflRIBN 




335c 


336c 


346c 


1962c 










producername 




















LIBRfiRIBN 




318d 


337c 


338c 


339c 


340c 


341c 


342c 


343c 344c 34Sc 


product number 




















HINITTqminit; 




943d 


1006c 


1008c 


lOllc 










TflPEBKUP(C58(ltbdvr) 




462d 


484c 


486c 


488c 










progchain 




















M68KSYS(ci) 




58d 


104c 


1066c 












progname 
INIT(Idr) 




















*X* 


2362c 
















INITLOBD(loader) 




1018d 


1437c 














n68KSYS(ci) 


*** 


926c 
















programname 

nlui 






















46d 


89c 














progstateinfoaddr 




















CRT(crt) 

GCRT(crtb) 

SVSDEVStsysdevs) 




91d 


137d 














«*;* 


70d 
















«><IK 


90d 
















prompresent 

INlTL0H0(5y5global5) 




















*«* 


291d 
















prompt 1 




















t168KSYS(ci) 




972d 


1092c 














prompt2 




















M68KSYS(ci) 




974d 


1092c 














promptforchar 




















ETU 




295d 


771c 


1246c 












prompt read 




















ETU 




191d 


215c 


24Ec 


291c 


1008c 








prompt type 




















ETU 




40d 


Hid 


123d 


191d 


213d 


219d 


295d 


351d 


neSKSYStci) 




970d 


972d 


974d 


977d 


979d 


984d 






promptyorn 




















ETU 




213d 


259c 














protect code set 




















SRnOHR(5rm3amiiiodule) 


*** 


1340d 
















SRI1_DRV(5rm) 




314d 


930d 














protectcode set array 




















SRnDflflfsrmdammodule) 
SRn DRV(5rm) 




172d 


198d 


4''4d 


970d 


1032d 










930d 


931d 














proximity 

GLE_HPGLI (gle_tipsl_iri) 




















♦ ** 


18236d 
















pr tdvr 




















PRINTER(prtdvr) 


*X* 


32d 
















prtio 




















PRlNTER(prtdvr) 
psa 

SRnDflt1(5rmdamitiodule) 




40d 


47d 
















172d 


189c 


198d 


301c 


310c 


474d 


482c 


490c 493c 970d 






1065c 


1072c 


1087c 


1124c 


H35c 


1147c 






psapt r 

SRn DRV(5rm) 




1028d 


1048d 


16300 


1635c 


1735d 


1747c 






psimask 




















R804XDVR(a804xdvr) 


*** 


385c 
















SYSDEVStsysdevs) 


*»* 


166d 
















psize 




















UCSD_Oftn(ucsdmodule) 




S70d 


599c 


603c 


608c 


611c 








SRM DRV(srm) 




1515d 


1S23C 














ptlx 




















DGL P0LY(d9l_poly) 
ptly 

DGL POLY(dgl poly) 




20443d 


20462c 


20467c 


20473c 


20486c 


20488c 


20495c 


20505c 




20443d 


20463c 


20467c 


20474c 


20489c 


20496c 


20508c 




pt2x 




















DGL POLY (dgl poly) 




20444d 


20464c 


20468c 


20473c 


20486c 


20490c 


20497c 


20S07C 


pt2y 

DGL,POLY(dgl..poly) 




20444d 


204e5c 


20468c 


20474c 


20491c 


20498c 


20508c 




pt 1 index 




















0Gt POLY (dgl poly) 




20433d 


20462c 


20463c 












pt 2 Index 




















CGr_POLY(dgl_poly) 
fNITLOnOdoader) 




20434d 


20464c 


20465c 












**» 


913d 
















LIBRflRIflN 




1S72C 


1691c 


1692c 












'' i:TnBLE(ctr) 




386d 


394c 


395c 


397c 


398c 


399c 


400c 


403c 


DGL C OUT (dgl confg out) 




11030d 


llOSOd 


11056c 


11094c 


11097c 


UlOlc 


11115c 


11120c 11123c 11128c 


EPR^nS(eprcmsy 




34d 


86c 


8Sc 


89c 










GCRTrcrtb) 
HEnPT(hpm 
INITLOnD(loader) 




S29d 


53Sc 


541c 


543c 












286d 


298c 


299c 


306d 


3nc 


312c 


313c 






1226d 


1235c 


isesd 


1670c 


1571c 


1S73C 


1674c 




LIBRHRISN 




1368d 


139P--; 


1397c 


1399c 


1400c 


1402c 


1403c 


1862d 1909c 1910c 






27S4C 


27S9C 


2762c 


2766c 


2801c 


2802c 


2S06C 


2310c 


SEGnENTER(asn) 




112d 


122c 


123c 


125c 


12ec 


127c 


128c 


135c 


UCSD_nM(uc5d_an) 




44d 


186c 


I88c 


214c 


225c 


256c 






INITLOBD(loader) 




1422d 


1431c 


1432c 


1453c 


14S5C 


14S6C 


14S7C 


1465c 


pt r2 




















INITLOnD(loader) 




1422d 


14S6C 


145SC 


14S9C 


1464c 


1465c 






pt rmp 




















SRM DRV(srm) 




823d 


875d 














pt rrareyoualive 
SRM ORV(srm) 






















825d 


877d 














pt rrcat 




















SRtI DRV(srm) 




827d 


879d 














pt rrcatpass 
SRn DRV(5rm) 






















829d 


881d 














pt rrcKange protect 




















SRM DRV(5rir) 




831d 


883d 














pt rrcHangevolune 




















SRn_ORV(srm) 




833d 


S85d 















9760 1032d 1060c lOeic 



1910c 1949c 19S0C 2736d 2753c 
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SBO l)RV(5rm) 


83Sd 


887d 




pt rrcopy 

SRn JRV(5rm) 








837d 


889d 




ijtrrcr-iatefile 








ST?M_::)RV[srm) 


839d 


891d 




ptrrcrriatelink 








SRMJRV(5rm) 


841d 


893d 




pt r rexi:hange 








Slffl i)RV(5rm) 


843d 


895d 




ptrr^leinfo 








SR« DRV[5rm) 


845d 


897d 




pt rrgangclean 
SRn_Dl!v(5rm) 








847d 


899d 




pt rrheati 








SRn ORV(srm) 


87Zd 


923d 




ptrrinit 








sum ORVtsrm) 


849d 


90 Id 




pt rrlock 








Sl?n DRV(srm) 


851d 


903d 




pt rrcipen 








SRn I)RV(5rm) 


853d 


905d 




pt rrpo'5 








SR'R (>RV(5rm) 


85Sd 


907d 




pTrrpu^ge 
SRHJ)RV(5rm) 








8S7d 


909d 




pt rrre.id 








SRn HRV(srm) 


859d 


911d 




ptrrs«t<Jate 








sen DRV(srni) 


861d 


913d 




ptrraeleof 








SRPT ORV(srfn) 


863d 


915d 




ptrrunlock 








SRMJ(RV(srml 


86Sd 


917d 




pt rrvo 1 








SRH l)RV(5rm) 


867d 


819d 




pt rrwr Me 








SRn DRV(srm) 


869d 


921d 




ptrsartvoualive 
SRn_llRV(5rm) 








824d 


876d 




ptrscal 








SRnjiRVIsrm) 


826d 


878d 




pt rscaipass 
SRn riRV(5rm) 








828d 


880d 




ptrscS-tngeprotect 








SRH DRV(5rm) 


830d 


882d 




pt rscKdngevolume 








SRft PRVlsrm) 


832d 


884d 




pt rscT<'Se 








SRft DRV(srm} 


834d 


886d 




pt rscopy 

SRn_t)RV(5rm) 








836d 


888d 




pt rscT'-atef lie 








SRf1_[iRV{srm) 


838d 


890d 




pt»&cr<-atelink 








SRn nRVIsrm] 


840d 


892d 




ptrsexi hange 








SRHJ:RV(srm) 


842d 


894d 




pt rsf lieinfo 








SRfl_CRV(5rm) 


844d 


896d 




pt rsgar gclean 
SKfl rRV(5rm) 








846d 


898d 




ptrsftCfid 








SRH_liRV(5rm) 


871d 


922d 




ptrsinit 








SRn [RV(5rm) 


848d 


900d 




ptrsioc k 








SR(1_[RV(srm) 


850d 


902d 




pt rsopen 








SRfl fRVlsrm) 


852d 


904d 




ptrspcj 








SRn DRV(5rm) 


8S4d 


906d 




pt rspurge 
SRtI DSv(5rm) 








856d 


908d 




ptrsread 








SRH_DRV(5rm) 


8S8d 


910d 




pt rssetdate 








SRn ORVIsrm) 
ptrsseteof 


860d 


912d 










SRn DRV(5rm) 


862d 


914d 




pf rsun:ock 








SRn_DRV(5rm) 


8640 


916d 




pt r&vo] 








SRn [:RV(5rm) 


866d 


918d 




ptrswrate 








SRn DRV(5rm) 


868d 


920d 




ptrta&Jie 








IN!TLOFlD(loader) 


880d 


1045d 




ptrtablept r 

INITLOSOI loader) 








880d 


913d 




pjrg* 








IMT(fs) 


««* 744d 






purge old link 
SRn DRV" 


«»» 1817c 






SRn DRVlsrm) 


»«» 522d 






pjrgeT 

LlFDfiri(lirmodule) 








662d 


671c 998c 1131c 




purgeflle 
INIT(ml5c) 








«»» 434c 






INITLOPD(sysgloba Is) 


*»* 135d 






LIFDfiH(lifmodule) 


««« U31c 






SRnOfinfsrmdammody le) 
UCSD_Dfin(uc5dmodulei 


1664c 


1783c 




«»» 638c 






purqeil 

ItCSO Ofin(ucsdmodu.e) 








397d 


638c 




purgename 








INITLOflDlsysgloba 5) 


«»« 134d 






LIFDfi-t(]ifmodule) 


««« iii«Q 






SRnDfi^(srmdarmiodu.e ) 


16c Ic 


1768c 




UCSD :)nn(ijcsdmodu .e) 


««« 639c 






purqeoTa 
sSn DRV 








1791d 


1817c 




SRn'"D«V(5rm) 


«•» 1066d 






UCSC i3Bn(uc5dmodu:e) 


428d 


639c 




purqepack 

SRnDfirltsrmdammodiJle) 








1143c 


1257c 1302c 13e7c 




SRM DRV 


«»« 1965d 






SRn"DRV(5rm) 


*«* 1089d 






putbuTfer 








UCSD_i1(1(uC5d_am) 


68d 


108c 109c 119c 143c 20Sc 




putchar 








UCSD^i^M(ucsd_am) 


113d 


127c 129c 




pjtenvi ron 








UCSD (tllucsa am) 
pjtmenu 


104d 


174c 185c 
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ETU 


«»» 1148a 






put ref 








LiBRfiRlBN 


2308c 


2589c 2703c 


1 



putsize 




























HEnPT(hp«n) 




UOd 


181c 


204c 




















putstatus 




























CRTfcrt) 

GCRTlcrtb) 

S¥S0EVS(5y5devs) 


*** 


53Sc 
























x«« 


406c 


























61d 


S82c 






















pvname 




























INIT(fs) 


*«JK 


7S3d 
























pwprd 




























INIT(mi5c) 


*** 


203d 
























SRnDR(1(5rmdamrroclule) 
q 

MIUI 




54d 


S5d 


55d 


57d 


58d 


S9d 


60d 


61d 


484c 


S41c 








15d 


183c 


191c 


202c 


335c 


3S2c 


476c 












qcertif y 
TPPEeKUP 






























1247c 


1483c 






















TRPEBKUP(C580tbdvr) 




329d 


411d 






















qconfigure 
TfiPEBKUP 




























*** 


1232c 
























TPPEBKUP(cs80tbdvr) 




323d 


387d 






















qcontrollercopy 




























TflPEBKUP 


«H<* 


1266c 
























TPPEBKUP(c580tbdvr) 




335d 


693d 






















qcppy start address 
tSpPbkup 






























1239c 


1397c 






















TPPEBIi:UP(cs80tbdvr) 




339d 


929d 






















qdescribe 




























TSPEBKUP 


*** 


1248c 
























TfiPEBt(UP(C580tbdvr) 




313d 


429d 


472c 




















qdevicename 




























nlNIT(qminit) 




881d 


932d 


1029c 




















MIUI 


#** 


192c 
























TBPEBKUP 


*** 


1091c 
























TnPEBKUP(cs80tbdvr) 




315d 


452d 


504c 




















qgetinitparms 




























MINIT(qminit) 




884d 


1056d 






















MIUI 


*** 


336c 
























qintdata 




























nlNIT(qminit) 




882d 


906d 


91 Ic 


912c 


913c 


914c 














MIUI 


«** 


337c 
























qm 




























KEVS(keys) 




66d 


67c 






















qminit 




























nlNIT(qminitl 


**# 


875d 
























MIUI 


«*« 


12d 
























qminitialize 




























MINIT (qminit) 




88Sd 


1098d 






















MIUI 


*** 


352c 
























qphydata 

niNIT(qminit) 






























883d 


919d 


923c 


924c 


926c 


927c 














tllUI 


**# 


476c 
























TfiPEaKUP(cs80tbr) 




272d 


292c 


293c 


29Sc 


















qstat 




























CS80(C580) 




356d 


365d 


37 ;c 


397c 


441c 


453c 


469c 


481c 


496c 


S18c 


534c 


552c 


CS80(c580dvr) 


*** 


1126c 
























nlNIT(cs80ir 
TflPEBKUP(c586tbr) 




621c 


645c 


672c 


697c 


724c 


766c 


814c 


843c 


868c 










69c 


96c 


129c 


lS2c 


175c 


20Sc 


251c 


292c 










qstat byte 




























CS8!J(cs80) 




371d 


376c 


377c 




















qtapesetup 
TftPEStCUP 




























**« 


1256c 
























TSPEBKUP(C580tbdvr) 




322d 


364d 






















quick 




























LIBRflRIPN 




990d 


1018c 


1050c 




















quit 




























LIBRflRISN 




264d 


14S8C 


3647c 




















quittype 
LIBftBRISN 






























298d 


14S5C 


1457c 


1469c 


















qunload 




























TPPEBKUP 




13e9c 


1372c 


1452c 


1486c 


















TBPEBKUP(cs80tbdvr) 




32Sd 


gild 






















qverify 
TflPEBKUP 






























1286c 


1417c 


1449c 




















TflPEBKIJP(C580tbdvr) 




320d 


S08d 






















qwritefilemark 




























TflPEBKUP 


#«* 


126gc 
























TflPEBKUP(cs80tbdvr) 




324d 


393d 






















flHI(30(c5ami90) 




107d 


321c 






















DGL RflS(dgl raster) 




17067d 


17106c 






















GENTdgl_genT 




3048d 
3244c 


3049d 


3166d 


3181c 


3182c 


3la7c 


3184c 


3185c 


31860 


3190d 


3219c 


3220c 3227c 3231c 


GLE KNOBlgle knob in) 
GLE RGL(gle ras out) 




18047d 


180S3C 


13054c 






















815Sd 


8185c 


8189c 


8193c 


8197c 


8201c 














I0LTB(seriaT_3) 




2532d 


2536c 


2537c 


2538c 


2539c 


2540c 


2541c 


2S42c 


2S43C 


2S44C 


264SC 


2546c 2S47C 2648c 






2S49C 


2550c 






















LIB(dqi^lib) 
LIBRRRIBN 




20793d 


20803c 


20804c 


20805c 




















2368d 


2410c 


2479c 


2480c 


2481c 


2482c 


2491c 


2492c 


2493c 


2494c 


2502c 




nOREFSYS(mfs) 




22d 


559d 


66 !C 




















UNITIO(uio) 
r3 

F9835(f9885dvr) 
r7 

F9885(f9885dvr) 
r ad angle 

D5L_P0LY(dgl_poly) 




66d 


62c 


63c 


6Sc 


77d 


83c 


84c 


86c 












121c 


183c 
























122c 


193c 


19-'c 
















































20879d 


20899c 


20900c 


20901c 


20929d 


20993c 


20894c 


20995c 










CTnBLE(ctr) 




258d 


539c 


838c 




















ramaddress 




























SRMfln(5rmafrmoduIe) 




53d 


67c 


69c 


7Sc 


77c 


84c 


lOOd 


114c 


116c 


122c 


124c 


131c 


ramdriver 




























n68KSYS(ci) 




731d 


812c 






















random access 




























SRhflRjsrmammodule) 
SRM_DRV(srm) 




62c 


109c 






















*** 


168d 
























range 




























fli04XDVR(a8Otxdvr) 




317c 


319c 


320c 




















SYSDEVSCsysdevs) 


**« 


219d 
























range type 
LIBRfiRIBN 




306d 


1199c 


1200c 


1201c 


1260c 


1251c 


1252c 


1460c 


1461c 


14$2c 


1463c 




rareyoualive 
SRfl DRVtsrm) 






























877d 


1543c 






















raster byte 

GLE_fGt(gle_ra5_out) 






























8012d 


8013d 


8014d 


8098d 


















raster code space 




























GLE IfGLtgTe ras out) 




8013d 


8063d 






















raster color 




























DGL_l?flS(dgl_ra5ter) 




171$8d 


17605c 






















raster color table 




























DGL R'flS(dgI raster) 




17197d 


17606c 


17629c 


17630c 


17634c 


17638c 


17643c 












raster device rec 




























DGL ^ 0UT(d9l confg out) 


*** 


11032d 
























GLE_RilL(gle_ras_outT 




8024d 


802Sd 
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llOSOd 


110S9C 
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DGL~If5Q(dgl inq) 




6198c 


6214c 






















DGL RPS(dql raster) 
GLE RGL(qle ras out) 




17186c 


17441c 


17S92C 






















8024d 


818;c 


82ilc 


8296c 


8326c 


8381c 
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Taste: device_rec_spa 
DGL C 0UT(d9l_ccnfg 

raster Input esc 

Ddl RfiS(dgT_ra5ter) 

raste: linestyle 
BGt .fflS(d9l_raster) 

raster output_esc 
DGl RfiS(dgl_ra5ter) 

raster patterns 
OGL IffiSjdgl raster) 
OGCvflRS(dgT_vars) 

rate 



11032d 

17347d 

1704Sd 

17425d 

17060c 
1306d 



11280c 
17603c 
17604c 
17602c 



GtE KNOB(gle knob in) 
]Ot.TB(serial 3) 




18113d 


18135c 


18141c 


18142c 


18143c 


18144c 


18145c 


18146c 


18147c 18148c 


18149c 18170c 18171c 




2604d 


25300 


2563c 


2575c 














SVSDEVSlsvsdevs) 
rawait blanking 




sesd 


421d 


424c 






































GLE RGL(gIe_ras_out ) 




8344c 


8410c 


















rawnocfe 
























HPMiL(hphii) 




136c 


151c 


163c 


174c 


361c 












SySDEVS(sy5dev5) 


«** 


345d 




















rawshift 
























HPMJL(hpHil) 




129d 


238c 


294c 
















rawshiftop 
























KP«IL(hphi:) 


*** 


2940 




















SYS!iEVS(5y5dev5) 
rb 

LIBMRIHN 
rba 

CS8O(C590) 


*»* 


306d 






















442d 


602c 


506c 
















***^ 


225d 




















rbloel 
























iNn(f5) 

rbs 

CS8C(C580) 


*** 


790d 




















*** 


103d 




















real 
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**« 


582c 




















SUM 0RV(5rm) 


#*# 


879d 




















rcatpass 
























S'Rft:iftn(srmdammodule ) 


««w 


519c 




















SEM ORV(srm) 


*** 


881d 




















rchangeprotect 
SRO 0RV(5rm) 
























*** 


883d 




















rchanaevolume 
























SRM DRVrsrm) 


**# 


885d 




















rclea'r 
























GLE RGL (gle ras out ) 


*** 


8398c 




















re lose 
























SRn_ORV(srm) 


*** 


887d 




















SRh_pRV(5rm) 


«** 


889d 




















rcounl 
























LIBRBRIRN 




ISld 


163c 


180c 


188c 


189c 


208c 


209c 


210c 


211c 




rcrealefile 
























SRM DRV(srm) 


*** 


891d 




















rcreatelink 
























SRn DRV(srm) 


x** 


e93d 




















rcurscr 
























GLE RGL (gle ras out ) 
rdefire color map 


«** 


8417c 










































GLE_RilL(gle_ra5_out) 




8309d 


8420c 


















rdefire drawing mode 
























GLE RCL(gle ras out ) 


*** 


8418c 




















rdraw 
























GLE^RGL(gle_r35_out ) 


IKXIK 


8397c 




















rdunrny proc 
























GLE_PGL(gle^ras_out ) 




8290d 


8411c 


8421c 


8422c 


8423c 


8424c 


8478c 


8482c 






read ae log micro op 
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739d 


752c 


















read de log micro op type 
























niNlTTcsMir) 




736d 


739d 


















read int r mask 
























HPHlL(hphil) 




225d 


233c 


















read operation 
























fiMTGOfamigodvr ) 




621c 


724c 


73JC 


896c 














CS8C(cs80dvr) 




1106c 


1107c 


















DISCriPIB(bkgnd) 


*** 


44d 




















DISCHPIB(di5chpib) 


X** 


450c 




















readblock 
























F9885(f988Sdvr) 




51d 


57d 


169c 
















readblocks 
























INITLOfiD(loader) 




1118d 


114Sc 


1154c 


1263c 


1288c 


I32SC 


1329c 


1538c 


1543c 




LIBRflRIfiN 




137d 


1296c 


1299c 


1393c 


2258c 


2299c 


2771c 


2817c 


2867c 




readbuf fer 
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readbuffer string 

I0lI8(general 1) 




123Sd 


1557d 


1631c 








































1239d 


1611d 


















readbusy 
























HPHIL(hphil) 




40d 


149c 


















readby tes 

RMIGOramigodvr) 


























S92c 


621c 


















flSCH(asciimodule) 




50c 


268c 


278c 


286c 














auBBLES(bubble) 




71c 


81c 


















CRT(crt) 
CS80[cs80dv) 




435c 


439c 




















1106c 


1193c 


1262c 


1267c 


1278c 


1282c 


1385c 








EPROMSfeproms) 
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50c 




















ETU 




458c 


1052c 


















F988S(f9885dvr) 




167c 


277c 


















GCRT(crtb) 

GLE ^N0B(gle knob In) 

INlT(mi5c) 




305c 


309c 
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18053c 
269c 


458c 


489c 


493c 


523c 


564c 


608c 


612c 


629c 645c 


656c 674c 682c 


INITLOfiDfbootdamnodule) 


*** 


75Sc 




















INITLOflD(loader) 
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1120c 




















INITLORD(mini) 
INITL0SD(5ysgiob,!l5) 




425c 


438c 


50Sc 
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66d 




















KEYSfkevs) 
LIBRARIAN 


*x* 


98c 






















139c 


2242d 


2246c 


2247c 


2252c 


2253c 


2254c 


22S6C 


2258c 2259c 


2260c 2261c 2281d 2289c 






2290c 


2291c 


2292c 


2293c 


2294c 


2295c 


2297c 


2298c 


2300c 2301c 


2302c 2304c 


LIFDHnjlifmodule) 
n68K3YS(ci) 




251c 


444c 




















346c 


739c 


















SRMflM(5rrnarmodule) 


*x* 


192c 




















SUVOL 
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24c 




















UCSD Firl(ucsd am) 




165c 


212c 


















UCSD Dfin(uc53module) 


«** 


604c 




















UNITrO(uio) 


*** 


83c 




















readchar 
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PRlRTER(prtdvr) 




85d 


126c 


131c 


247c 








resetcard 


















SRhflMfsrmarmodule) 
SRn DRV(5rrr) 




92c 


139c 


lS4c 












lOOOd 


1228d 


1367c 










reset<3evice 


















HPHIL (hpnil) 


K*X 


261c 














MOUSE (mouse) 


*»* 


175c 














SYSDEVS(sy5dev5) 


*** 


302d 














resetinask 


















fl804XDVR(a804xdvr) 


**» 


385c 














SVS0EUS(5y5devsl 


**- 


166d 














TBIu 




87c 


9£c 













1339c 1362c 1395c 



S15d 521c 
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restt t heioop 
































HPH>L(hphil) 




277d 


370c 


























resoli-t ion 
































fi9O<KDVR(a804xdvr) 


«** 


316c 




























SYStEVS(5y5devs) 




219d 


480c 


























resolve 
































IMnLOHD(loader) 




1397(1 


1519c 


























resolved 
































INIT(ldr) 


»«* 


2391c 




























INITLOfiOfloader ) 
LIBS BR I AN 


*«* 


1016d 
1733c 


1170d 


1183c 


1186c 


1191c 


1306c 


1308 c 


1311c 


1341c 


1346c 


1436: 








rcsolveexts 
































INITiORD(loader) 




1082d 


1206d 


1350c 
























response 
































!OLIB(hpib 3) 




2038d 


2118d 


2123c 
























mNlT(qminlt) 




1036d 


1042c 


1043c 


1046c 


1047c 




















niui 




124d 


137c 


138c 


139c 


144c 


149c 


152c 


290d 


303c 


304c 


309c 


310c 






TOPEBKUP 




1054d 


1067c 


1068c 


1069c 


1074c 


1079c 


1082c 
















restore heap 
































SEGTERlTERCasm) 




S2cl 


14Sc 


161c 


226c 






















restore line 
































P»INrFR(prtdvr) 




152d 


198c 


240c 


263c 






















result 
































C HCOK 




82d 


99c 


105c 


107c 






















BGL RfiS(dgl raster) 




17383d 


17407c 


17413c 


17415c 






















GCRT(crtb) 




lS5d 


175c 


181c 


lS3c 






















KErSfkeysi 
L!FDFin(iifmodule' 




194c 
86d 


196c 
87c 


199c 


203c 


204c 


219c 


221c 


433c 


436c 


565c 










NONUSKBDUnon us kbdl) 




42c 


44c 


48c 


49c 


52c 


56c 


65c 
















SRMDqrKsrmdammodiae) 




79d 


82c 


























SYS0EVS(5ysdevs) 


*x* 


26Sd 




























ret addJiiode 
































TnPEaKUP(cs80tbr: 




114(1 


122c 


























retain 
































CTOBlE 




1242d 


1253c 


1255c 


1257c 


1259c 


1261c 


















ret ransmit 
































CS80(C580) 


««« 


163d 




























CS8C(c580d5rJ 
T«PE3KUP(C580tbdvr) 


*** 


712c 






























594c 


826c 


























retroactive color support 
































DGL HPGL(3ql hp9l) 
C5L INQIdgl Tnq) 


«** 


1726;;c 




























*** 


6408c 




























DGL KflStdgl raster) 


*** 


17597c 




























DGl_VfiRS(d9T var;) 


»*« 


llOSd 




























retroactive polygon support 
DGl HPGL(3gl hpgiy 
OGL :NQ(dgl Tnq) 
































»*« 


17266c 




























»*« 


6396c 




























DGL ^>flS(dgl raster) 


*** 


17596c 




























DGL_vfiRS(dgT vars) 


*tM 


1104d 




























retry required 
CS85(cs80dsr) 


































e04d 


e35d 


705c 


713c 


776d 


881c 


883c 


884c 


887c 


889c 


890c 


896c 


898c 


899c 


CSSO'CsaOdvr) 




902c 


904c 


905c 


908c 


910c 


911c 


943c 


94Sc 


946c 


949c 


951c 


952c 








1029CI 
1337c 


1046c 


1048c 


1049c 


1052c 


1054c 


lOSSc 


1098d 


1125c 


1127c 


1135c 


1217d 


1225c 


1334c 


niNIl (qminit) 




93Sd 


961c 


963c 


964c 


967c 


969c 


970c 


977c 


979c 


980c 


uoia 


1128c 


1130c 


1131c 






1142c 


li44c 


1149c 


USlc 


US2c 


1157c 


1159c 


1160c 


11S6C 


1168c 


1169c 


1172c 


1174c 


1175c 






1178c 


1180c 


U81C 


1185c 


1188c 


1189c 


1196c 


1198c 


1199c 


1208c 


1210c 


1211c 


1214c 


1218c 






1219c 
1268c 


1227c 
1269c 


1229c 


1230c 


1233c 


1235c 


123ec 


1239c 


1241c 


1242c 


124SC 


1249c 


1250c 


1266c 


TBPEEiKUP(cs80tbdvr) 




368d 


371c 


373c 


374c 


376c 


378c 


379c 


397d 


400c 


402c 


403c 


415d 


418c 


420c 






421c 


433d 


436c 


438c 


439c 


441c 


443 c 


444c 


SlSd 


587c 


596c 


641c 


664d 


669c 






6710 


672c 


678c 


680c 


esic 


695d 


714d 


723c 


725c 


726c 


729c 


731c 


732c 


819c 






827c 


896d 


899c 


902c 


903c 


91Sd 


918c 


920c 


921c 


933d 


936c 


938c 


939c 




return 
































PRINJER(prtdvr) 
return are you alive 




62d 


301c 
























































SI?H rRV(5rm)" 




362d 


825d 


























return bytes 
































INITTmisc) 




259d 


272c 


287c 


295c 






















return cat passwords 
SRn_CRV(5rm) 




40Sd 


829d 


























return catalogue 
SRM CSV(srm) 


































382d 


827d 


























return change protect codes 
































3Rn P>!V(5rmT 




428d 


831d 


























return change volume label 
































SRn CRV(srmT 




44Stl 


833d 


























return closeafile 
































SRM DRV(srm) 




463d 


835d 


























return closest color 
































DGL_RflS(dgl raster) 




17067d 17164c 17187c 17191c 17240c 




















return copy 
































SRn_CRV(srm) 




481d 


837d 


























return createafile 
































SRH CRV(5rm) 
return createlink 




608d 


839d 
























































SRM PRV(srm) 




626d 


84 Id 


























return fileinfo 
































SRn_CRV(5rm) 




57Sd 


84Sd 


























return tang cleanup 
SRn_D«V(5rm) 


































S92d 


847d 


























return leader type 
































SRn_CRV(5rmT 




320d 


363d 


383d 


406d 


429d 


446d 


464d 


482d 


509d 


527d 


544d 


560d 


576d 


593d 


return initialize 




620d 


635d 


658d 


685d 


701d 


720d 


742d 


759d 


774d 


783d 


813d 


872d 






SRM 0RV(srm) 




619d 


848d 


























return lockafile 
































SRn I3RV(srm) 




634d 


8Sld 


























return machine type 
































DGL C INfdgl confq in) 
DGL C OUTtdgl confg out) 


«x» 


1205SC 




























3k*# 


11234c 




























0GL_T(T0LS(d9l toolsT 
return mess header 




20007d 20013d 20048c 20051c 20053c 20057c 20063c 200e7c 














SRM_nRV(5rm) 




3e3d 


383d 


406d 


429d 


44ed 


464d 


482d 


S09d 


627d 


644d 


560d 


576d 


593d 


62 Od 


return openafile 




635d 


658d 


685d 


701d 


720d 


742d 


759d 


774d 


788d 


813d 


1543c 








SRf1_Cf VIsrm) 




657d 


8S3d 


























return posit iontoarecord 
SRM_ClfV(5rm) 


































684d 


85Sd 


























return purgelink 
SRn_IJf V(srm) 


































700d 


857d 


























return readarecord 
































SRM_[jRV(5rm) 




719d 


859d 


























return request type 
































SRn_[Jf V ( s rm ) 




323d 


1443c 


464c 
























return set date 
































SRn URVIsrm) 




741d 


8Sld 


























return set eof 
































SRH_CRV(irm) 




758a 


863d 


























return unlockafile 
































SRn__0RV(5rm) 




773d 


S66d 


























return volume status 
































SRn [;RV(5rmT 




787d 


867d 


























return uritearecord 
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SRn FRV(5rm) 




812d 


869d 


























return >chq data 
































SRn_CiRv'(sTm) 


*** 


543d 





























return xchg open 


















SRM riRV(s'rm) 




S59d 


843d 












reverse pointers 


















INITLOnD(loader) 




1357d 


1371c 


1425c 










revision 


















INITLOfiD(ioader) 


*** 


942d 














LIBRfiRIflN 




349c 


1961c 












rexchange 
SRn^DRV(5rm) 


















*** 


89Sd 














rfilelnfo 


















SRI1DHn(5rnidammodule) 




422c 


1103c 


144SC 


1485c 








SRM DRV(srm) 


**« 


897d 














rfill index color 


















GLE RGKgTe ras out) 


*** 


8415c 














rgangclean 
SRft DRV(5rm) 


















*«* 


899d 














rgcbinit 


















GLE RGL(gle ras out) 


*** 


8394c 














rget_plp2 


















GLF_RGL(gle^ra5_out) 


««1K 


8412c 














rget polygon info 
GLC RGL(gle ras out) 




8301d 


8413c 












rget raster 


















Gir RGL(gle ras out) 


«!«!* 


8425c 














rgltempl 

GLE RGLIgle ras out) 


















*X* 


8055d 














rgltemp2 

GLE_RGL(gle_ras_out) 


















*«* 


80S6d 














rgltempS 

GLE RGL(gle ras out) 


















**# 


80S7d 














rgltemp4 

GLE RGL(gle ras out) 


















**i* 


80S8d 














rglteffipS 

GLE RGL(gle ras out) 


















**« 


8059d 














rgrapKics on off 

GLE RGLlgle ras_out) 


















X«« 


8416c 














rhead 


















SRMfln(5rmamniodule) 
SRtlOHflt 5 rmdaiTmoduie ) 




60c 


107c 














338c 


397c 












SRM DRVfsrm) 




923d 


1423c 












ri line 


















TOLIB(serial 0) 




2403c 


2451c 












KERNEL(aodecrarations) 


«** 


412d 














right 

CRT(crt) 

GCRTIcrtb) 

SYSDEVS(5ysdevs) 




















95d 


141d 












X*» 


74d 














*** 


93d 














rightchar 
CRTjcrt) 
GCRT(crtb) 


















*** 


463c 














*x* 


334c 














INITImisc) 


*x* 


171d 














KEYSfkeys) 




162c 


307c 












rinit 


















SRM DRV(srm) 


*** 


901d 














rleng 

INlT(fs) 
rlf 

CRT(crt) 

GCRTIcrtb) 

3YSDEVS(5ysdev5) 




















801d 


805d 


306d 


807d 


809d 


812d 814d 819d 822d 827d 829d 


835d 838d 


*** 


121d 














«** 


54 d 














»** 


77d 














rlinestyle 

GLE_RGL(gie_ras_outl 


















*** 


8409c 














riist 


















DGL HPGUdgl hpgl) 
DGLlINQ(dgi_'rnq) 




17020d 


17065d 














S014d 


6090d 


6185c 


6186c 


6191c 


6192c 6200c 62010 6206c 6207c 6216c 


6217c 6222c 6223c 






6228c 


6229c 


6236c 


6237c 


6241c 


6242c 8249c 6250c 6254c 6255c 6260c 


6261c 6267c 6268c 






6275c 


6278c 


6280c 


6281c 


6288c 


6289c 6290c 6291c 6297c 6298c 6299c 


6300c 


DGL RSSfdgl raster) 
OGL Vf(RS(dgT vars) 




17351d 


17430d 


17467c 


17469c 


17470c 


17537c 






1125d 


1130d 












LIBTdgl lib) 




20060d 


200S7d 


207S4d 


20764c 


20772d 


20782c 




rlock 


















SRMDflMfsrmdafnmodule) 
SRM DRV(5rm) 


*** 


1475c 














*** 


903d 














rmove 


















GLE RGL(gle ras out] 


*** 


8396c 














rnext^yte 
fiSCII (asciimodule) 




















153d 


159c 


168c 


169c 


171c 


187c 




rom id 


















CTBBLE(brstuff ) 




967d 


979c 


996c 










romanS kbd 


















KEVSTkeys) 
SYSDEVS(sysdevs) 


*** 


316c 














t** 


ISOd 














romanalphabet 

KEyS(i<ey5j 
romarspecials 




















247d 


324c 


325c 


























KEYS(key5) 




243d 


329c 


330c 










romexset 


















CRT(crt) 




359d 


362c 












romexsettype 
CRT(crt) 




















358d 


3S9d 












romheader 


















EPROnS(eproms) 




18d 


86c 












romtokanamap 


















CRT(crt) 




72d 


193c 












romtokanatype 


















CRT(crt) 




48d 


72d 












root password 


















SRR DRV(5rm) 




271d 


1S24C 












ropen 

SRMDfiMfsrmdarnmodule) 
SRM_DRV(5rm) 




















755c 


917c 


UOlc 










*«« 


90Sd 














rotate 


















MINIT(xminit) 




1461d 


1467c 


1468c 










row 


















CRT(crt) 
C HOOK 




182d 


188c 


192c 












7ed 


86c 


lOSc 










05L RflS(dgl raster) 

GCRT(crtb) 

MOUSE (mouse) 




17377d 
149d 


17391c 
159c 


17413c 
181c 










*** 


53d 














row def 


















C'HOOK 




73d 


76d 












05L RSS(dgl raster) 
GCRT(crtb) 




17374d 


17377d 














146d 


149d 












rows 


















CRT(crt) 




231d 


242c 


248c 


2S1C 








INITLORDdoader) 


*** 


885d 














LIBRfiRIflN 




1S74C 


1691c 


1692c 










SRn_DRV(5rm) 




1516d 


1524c 












GEN(dgI gen) 




3117d 


312SC 


3131c 










rp2 

GEN(dgl gen) 




3117d 


3126c 


3130c 
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rpg disable 


















S7SDEVS(sy5devs) 


»** 


177d 















rpq e- able 

S7Sl E«S(5y5dev5 : 
rpghaiidler 

KE■r■^ (keys) 
rpqis' hook 

fi8C"'-XDVR(a804xd.r) 

KEV^ (keys) 

nOU'-E (mouse) 

SVS[EVS(5y5devs ! 
rpqref;hook 

S80'XDVR(a804xd.r) 

S/SI'EVS(sy5dev5) 
rpoivion 

GLE RGL (gle_ra5 out 1 
rpos 

SRn DRV(srm) 
rpp 

INl;LOfiD(loader ) 

LIBkfiRIflN 

rpt r 

LIBK)RIflN 
rpiirQ< 

SRM DRV(srm) 
r read 

SRn DRV(srni) 
rs 

RS_rRV(init_r5) 

RS IRV(rs) 
rs237 

CTH( LE(option5) 
rs dr. vers 

RSJRV(init_rs) 
rs in: t 

PSJ:RV(init_rs) 

RSJRV(r5) 
rs in tlalize 

IfSJ RV 
rs ist 

USJ RV(init_rs) 

RS I RV(r5) 
rs rdt 

RSJ RV(in3t^rs) 

RSJ Ry(rs) 
rs rd- 

lfS_rRV(init_r6) 

RS [.RV(r5) 
rs r3v 

RS_LRV(init_rs) 

RS rRV(rs) 
rs tTr 

l?S_rRV (init_r5) 

RS_CRV (rs) 
r 5 wtf 

ifS_i:RV(init_rs) 

RSJRVI r., I 
rs wt( 

IfSJ RV(lnit_r5) 

RS_rRV(r5) 
rs vjt^ 

lfSJ"RV(init_r5) 

RS_rRV(r5) 
rset color 

GLE_RGL(gle_ras )ut : 



17''d 

355d 

108c 
561c 
163c 
161d 

3S0c 
IfOd 

8419c 

90-d 

906d 

149d 

2386c 

2358d 

909c 

91 Ic 

2150 
lS6d 

79d 

203d 

230c 
172d 



231c 

17?d 



23,;c 
174d 



236c 
178d 



234c 
176d 



238c 
182d 



233c 

17Sd 



23"c 

180d 



23^.: 

ITTd 



170c 
604c 



424c 603c 



185c 1502c 1518c 1521c lS31c 1570c 1613c 162Sc 1834c 1835c 1836c 1841c 2383c 
2394c 2793c 

2382c 2383c 2385c 2386c 2393c 2394c 2398c 2403c 2411c 



228c 229c 250c 



8408c 8S17c 



rsetdcte 

SRn_0RV(5rm) 
rsetec f 

SRn DRV(5rm) 
rsize 

DGL HPGL(dgl hpal) 

DGL INQ(dglJnq) 

DGL RHS(d9l rast-r) 

DGL"V(^RS(dgT vai ,1 

LieTdgl.Iib) 
rsolve 

LIBRflRIRN 
r t c t in e 

n804XDVR(a804xdv ) 

CLOCK(clock) 

SYSCEVS(5y5dev5) 
rtpass 

SRn_(3RV 

SRM 0RV(5mi) 
rts l^ne 

If5LIB(serial 0) 

KERNEL (iodecTar a' ions 
r jle 

GLE_RGL(gle_ra5_<.ut ) 
rule red 

GLf_RGL(gle ra5_nut) 

GLE;rvPES(gIe_types) 
rurliqht 

KEVS()(ey5) 

SYSDEVS(5y5dev5) 
runlist 

LIBRRRIflN 
run lock 

SRn_JRV(5rm) 
runsTate 

BUBe_ES(bubble) 
runt irr^ 

niNI r(c580ir) 

niNI r(qminiT) 
r uiuvo r ^T i le 

n68K5YS(ci) 
rvb 

C580(C580) 

CS80(cs80dvr) 
rvol 

SRnD ^ri(srmdarrjnodi le) 

SRri_)RV(5rm) 
rwrite 

SRhfl l(srmammodule) 

SRri__JRV(5rni) 

DGL iPGLI (dgl Lipcli) 
r"7L ,NOR(dgi_l?nof ) 
GENflgl gen) 
LIB( Igrilib) 
r.^vec 

DGL_'>0LY(dgl_pol>) 

ry 

OGL_ilPGLI (dal hpcli) 
DGL ■ NnB(dq]_iCnot) 
GENllgl^aeh) 
LIB(dglJib) 
r wee 

DGL_ ■OLV(dql_po:> ) 



913d 
915d 

170ied 
eoild 

17349d 
1123d 

20058d 



17oe3d 

6087d 6171c 
17428d 17534c 

1128d 
20065d 207S2d 20763c 20764c 20770d 20781c 20782c 



1651d 2984c 



239d 

51d 

195d 



85d 
206d 



91d lOld 
455d 458d 



1907d 
lOlOd 



2244c 

407d 



1926c 1970d 1987c 
1018d 1026d 1046d 



2264c 2307c 2327c 



1082d 
2373c 



1094d 
2421c 



8123c 8125c 
8387c 



584d 585c 
1579c 1606c 



8c 101c 102c 115c 



ei2Sc 
1268d 

108c 
392d 

1482d 

917d 

71c 82c 83c 

528d 
1191c 

1016d 1114c 1134c 

llOd 
1066c 

397c 
919d 

107c 

921d 



18018d 18030c 18038d 18102c 18103c 

1802Sd 18030c 18038d i814Sc 18146c 18148c 

3044d 32S2d 3259c 3261c 3263c 

20078d 20081d 20935d 20943c 20953d 20986c 



20911d 20973c 



18018d 
1802Sd 

30440 
2007Rd 

209; :: 



18030c 18038d 18102c 18103c 

18031c 18038d 18145c 18146c 18149c 

3252d 3258c 3261c 3262c 

20081d 20936d 20943c 20953d 20996c 



1552d 1577c 1590d 1615c 1628d 1648c 1733d 1760c 
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flMIGO [csamigo) 
CONVERT (convert_text ) 
CRT(crt) 
DGL_HPGL(dgl_hpgl) 

DGL_POLY(dgl_poly) 
DGL RnS(d9l_ra5ter) 
GCRT(crtb) 

GLE_HPGL(gle_hpgl out) 
GLE_HPGLI (gle_hpgT in) 
GLE_SfinRK (gle_5marl() 
GLE UTLS(gIe_ytl5) 
INlT(fs) 
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sc reatefiie 
































SRM DRVtsrm) 




890d 


1743c 


























screatelink 
































SRM DRV 


**« 


1793c 




























SRh DRV(5rm) 


**« 


892d 




























screen 
































CRT(crt) 




164d 


192c 


2720 


2840 


3210 


331c 


332c 


33Sc 


341c 


3420 


344c 


483c 


585c 


588c 






605c 


e07c 


608c 


615c 


613c 


624c 


628c 


642c 


6440 


668c 


675c 


6780 






screenheight 
CRT(crt) 
GCRT(crtb) 


































leOd 


303c 


670c 


























109d 


212c 


381c 


386c 


392c 


39Sc 


401c 


403c 


406c 


S04c 


5060 


5070 






screensize 
































CRT(crt) 
GCRT(crtb) 




163d 


333c 


3430 


471c 


473c 


673c 


675c 


















112d 


342c 


344 c 


507c 






















screenwidth 
































CRT(crt) 




lS9d 


272c 


300c 


321c 


331c 


333c 


3350 


342c 


343c 


471c 


4720 


4830 


576c 


680c 






582c 


594c 


603c 


6140 


6190 


624c 


628c 


6420 


644c 


669c 










GCRT(crtb) 




108d 


209c 


3420 


343c 


503c 


505c 


507c 
















scrolldou/n 
































CRTfcrt) 
GCRT(crtb) 




338d 


465c 




























245d 


336c 


























scroUup 
































CRT?crt) 
GCRT(crtb) 




328d 


449c 


46!'c 


488c 
























240d 


319c 


339c 


356c 






















scrpt r 
CfeTfcrt) 
GCRT(crtb) 


































58d 


lS8d 


154d 
























*»# 


94d 




























scrtype 

GCRT(crtb) 


































93d 


94 d 


























scsize 
































INI T LOAD ( boo tdaminodule) 




779d 


786c 


73-c 


788c 






















sctype 

INITLOnDlsysglobals) 
































*** 


199d 




























sd 
ETU 




219d 


240c 


242c 
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sdate 
































LIFORn(lifinodule) 




56d 


329c 


331c 


332c 


333c 


346c 


347c 


348c 


349o 


516c 


5730 









sac 
































DISCI'PIB(di5chpic) 




210d 


321c 


























PKIMiER(prtdvr) 




56d 


116c 


























sdc me: sage 
































iClIt (hpjb 2) 


«^* 


1844c 




























KERNt L (iodeclardlion^) 


*** 


sold 




























sdp 
































INIT10nD(loader ) 


*«* 


907(1 




























LIBRflRISN 




1737c 


2023c 


























search 
































rtlNr (xminit ) 

search for other units 




1439(1 


1783c 
























































CTflBlE 




1200d 


1365c 


1410c 


14S8C 


1472c 


1479c 


















search higher nurrit'ereo cs80 


_units 






























CTRBFE 




1354d 


1411c 


























sec 
































SnlGCi(c5amigo) 




244d 
269c 


251d 


252d 


2S3d 


254d 


255d 


256d 


257d 


258d 


2S9d 


260d 


261d 


262d 


263d 


D!SCHPIB(diSChpib) 




196d 


198d 


202d 


270d 


282c 


287d 


293c 


329d 


341c 


357d 


364c 


440d 


452c 


457c 


sec exi size 
































S(5n_CiRV(srm) 


*** 


666d 




























sec pel trk 
































RRlGdlcsamigo) 




131d 
374c 


193d 


194d 


196d 


197d 


198d 


199d 


200d 


201d 


202d 


203d 


225c 


347c 


348c 


niNr (hminit) 




293c 


364c 


366c 


373c 


391c 


403c 


437c 


439c 


446c 












secbuf 
































LiFOfindifmodule) 




486d 


529c 


530c 
























second 
































h68ICJ.VS(ci) 




llZd 


114c 


125c 


127c 


130c 




















second jry 
































DGL C OUT(dqi confg out ) 




11039d 


11271c 


11295c 


11333c 


11335c 


11344c 


















lOLlEThpib 2) 




1794d 


19720 


























secondary dam 
































CTBBIE 




1607c 


1629c 


1631c 
























CTfiBlE(ctr) 




293d 


513c 


























secondary extent 
































SPtI DRVTsrmj 




SOOd 


1788c 


























secorSi 
































mui 




55d 


84c 


85c 


87c 






















seconds, since midnijht 
SRflOfiFi(srmdammodJie) 
































X** 


372c 




























SRn C'RV(srm) 


*** 


256a 




























sect 
































RniG0[c5ami9O) 




92d 


347c 


374c 
























MINI! (csSOir) 




524d 


564d 


818d 


840c 






















sect per surf 
































BnrGC(amigoOvr) 




712d 


739c 


























section 
































HINn(C580ir) 




560d 


$25d 


636d 


S42c 






















sector 
































F988; (f9885dvr) 




60d 


116d 


150c 
























IMIT LOAD (boo tdsmmoduie) 


XX* 


591d 




























INITLOfiD(mini) 




406d 


426c 


428c 


430c 


440c 


446c 


















LIBRBRIPN 




2740d 


2742c 


























niNIT (bminit) 




67d 


79c 


83c 


86c 






















niui 




456d 


469c 


481c 
























sector count 
































mNlT(iramigo) 




201d 


204c 


























sector ert 
































niNlT(cs80ir) 


XX* 


S51d 




























niNIl (qminit) 


«x* 


1216c 




























sector ert passes 
































fllNlT(gmTnit) 




1113d 


1216c 


























sector type 
































niui 




419d 


456d 


























sectorcount 
































nlNIT(xminit) 




1405d 


1570c 


1574c 


1586c 


1687c 


1690c 


















sectors 
































F3385(f988Sdvr) 




112d 


161c 


165c 


211c 






















tlINn (asmr) 




1332d 


1336d 


1343d 


1347d 






















sectors per block 
































SRn D^V[srm) 


XX* 


609d 




























sectorsize 
































fiSCII [asciimodule' 




lid 


49c 


70c 


72c 


74 c 




















LIBRPRIPN 




2735d 


2742c 


2820c 
























sectorspert rack 
































niNIT (xminit) 




1403d 


1S24C 


1535c 


1570c 


1629c 


1688c 


1723c 


1734c 


17S8C 


1799c 










seek cmd 
































PMTGO(csamigo) 




SOd 


388c 


























seek cmd buf 
































PMlGOIcsamigo) 




381d 


387c 


388c 
























seekcomplete 
































F988S(f9885dvr) 




62d 


20ec 


























seekeof 
































INITLOPO(sysgloba]s) 


*** 


67d 




























seekposit 
































fiSCII (asciimodule; 




SSd 


201c 


221c 


284c 






















segrnent list 
































SEGnE^TER(a5m) 




73d 


144c 


157c 


!58c 


160c 


172c 


223c 
















segment proc 
SEGnEmER(asm) 


































104d 


109d 


279d 
























SEGnENTER(segi-entf r ) 




21d 


35d 


36d 
























segment space 
SEGnE'^TiR(asm) 
































XX* 


96d 




























SEGn£[MTER(segmenter) 


«x* 


38d 




























seqmenter 

SEGnENTER(5egmenter) 
































«x* 


16d 




























segs 
Ctu 


































310d 


313c 


316c 


322c 






















nesKsrsfcl) 




399d 


540c 


914d 


918c 






















select lode 
































DGL C OUT(dgl ccnfg out) 




llOZSd 


iioaid 


llliec 


11269c 


11314c 




















GLE_H5lB(gle_Kpib lo) 




lOClSd 


10064d 


10066c 


10072d 


10075c 


lOOSld 


10087c 


10092c 


10095c 


lOlOSd 


10111c 


10119d 


10122c 


10124c 






10131c 


10136c 


10143d 


10146c 


10148c 


10472c 


10480c 


10494c 


10495c 


10496c 


10498c 








IOLIB(general_l ) 




237d 
317d 


238d 
322c 


240d 
330d 


242d 
336c 


244d 
341c 


246d 
344c 


274d 


276c 


282d 


285c 


293d 


296c 


304d 


308c 


IOLIB(hpib 0) 




1709d 


1711d 


1713d 


17220 


1725c 


1733d 


17360 


1744d 


1749c 












IOLie(hpib_l) 




393d 


39Sd 


398d 


401d 


413d 


432d 


43Sc 


443d 


446c 


448c 


456c 


460c 


467d 


470c 






472c 


482d 


485c 


487c 


496d 


500c 


















I0LIB(hpib_2) 




1779d 


1781d 


)78Sd 


179Sd 


1797d 


1800d 


ISOld 


ISUd 


1816c 


1818c 


1819c 


1820c 


1821c 


1824c 






1826c 


1327c 


1828c 


1829c 


1853d 


1866c 


ie89d 


1891c 


1973d 


1976c 


1981d 


1984c 


1995d 


1997c 






2001d 


2003c 


























lOLIB.'hpibJ) 




2029d 


2031d 


2037d 


2039d 


204 Id 


2043d 


2046d 


2063d 


2066c 


2063c 


2072c 


2080d 


2034c 


2117d 






2120c 


2122c 


2123c 


2124c 


2128c 


213Sd 


2138c 


2145d 


2148c 


2154d 


21S7C 


2164d 


2167c 




IOLIBi5erial_0) 




22150 


2217d 


2219d 


2231d 


2236c 


2238c 


2240c 


2250c 


2253c 


2255c 


2270c 


2274c 


2276c 


2294d 






2299c 


2301c 


2303c 


2313c 


2316c 


2318c 


2333c 


2337c 


2339c 


2357d 


2365c 


2367c 


2369c 


2408c 






2411c 


2456c 


2459c 
























I0LIBiserial_3) 




2503d 


2505d 


2503d 


2512d 


25150 


2518d 


2529d 


2556c 


2558c 


2S60C 


2564c 


2565c 


2566c 


2S71C 






2672c 


2576c 


2577c 


2534c 


2598d 


2603c 


260Sc 


2607c 


2625c 


2632c 


2636c 


2637c 


2646c 


264 7c 






2$S6c 


2663c 


2665c 


2669c 


2682d 


2687c 


2689c 


2698c 


2703c 


2706c 


2711c 


2712c 


2715c 


2717c 






2722c 


2736d 


2741c 


2743c 


2745c 


2756c 


2760c 


276SC 


2766c 


2777c 


2781c 


2783c 


27880 


2801d 






2806c 


2808c 


2810c 


2813c 


2e20c 


2825c 


2836d 


2841c 


2843c 


2S45C 


284flc 


2855c 


2860c 




KERNEL (generaLO) 




747d 


750d 


753d 


756d 


759d 


762d 


8S2d 


857c 


861c 


871d 


876c 


880c 


890d 


896c 






900c 


909d 


9I5c 


919c 


929d 


934c 


944d 


950c 














KERNE. (icdeclara;i3n5) 




656d 


6640 


666c 


















II-14)< 




PPINTi R(pr tdv r ) 




60 c 


9Sc 


102c 


139c 


273c 


274c 



















se lectcode 

niNIT(xminit) 
selfinit 

C HOOK 

DCL_TOOLS(dgl_tools) 
semant ics 

KEYS(key5) 

NONUSKBOl (non_us_kbdli 

SYSDEVS(5y5devs) 
5end addr_5ec 

flnTG0(C5arnigo) 
send are you_alive 

SRR DR7(5rm) 
send Ereak 

I0riB(5erial_3) 
send cat passwords 

SRfl_DRV ( 5 rm ) 
send catalogue 

SRFl_DRV(5rm) 
send ch3n9e_protect codes 

SRH_DRV(5rm) 
send change volume label 

SRfl.DRvtsrmj 
send closeafile 

SRR_DRV(srm) 
send command 

GLF HPIB(gle hpib_io) 

IOLTB(lipnb_iy 

I0LIB(hpib_2) 

I0LIB(hpib_31 
send copy 

3RFi_DRV(srm) 
send createafile 

SRFl_DRV(5rm) 
send createlink 

SRfl DRV(5rm) 
send Tileinfo 

SRFi_DRV(5rm) 
send gang cleanup 

SRR DRVlsrm) 
send Keader_type 

SRfi_DRV(5rm) 

send initialize 

SRR DRV(5rm) 
send Tockafile 

SRR_DRV(5™i) 
send mess header 

SRR_DRV" 

SRri_DRV(5rm) 



send openafile 

SRR_DRV(srml 
send posit iontoareco'd 

SRfi_DRV(5rrti) 
send purgellnk 

SRR_DRV(5rm) 
send readarecord 

3RR_DRV(srm) 
send request t/pe 

SRR_DRV(5rin) 



1364d 1515c 1516c 152Cc ISSSc 16280 n22c 1733c 1757c 1793c 



44d 
20022d 
















209c 

61c 

279d 


260c 

145c 


434c 


487c 


S55C 








410d 


414c 














358d 


824d 














2514d 


2800d 














394d 


828d 














371d 


826d 














420d 


830d 














437d 


832d 














4S4d 


834d 














lOlOSd 

393d 

1826c 

1942c 

2100c 


10213c 

432d 

1828c 

1945c 

2102c 


10214c 
535c 

1844c 
197bc 
2103c 


10215c 

536c 

1847c 

1984c 


10301c 

537c 

1856c 

1991c 


10302c 
623c 
18S7C 
1997c 


10303c 

624c 

1880c 

2003c 


62Sc 
1891c 


472d 


836d 














491d 


838d 














S17d 


84 Cd 














569d 


844d 














587d 


846d 















1903c 1904c 1910c 1927c 1928c 1941c 



328d 
603d 

602d 

628d 

1798c 
3S9d 
629d 

166SC 

644d 
675d 
693d 
709d 
331d 



35Sd 
629d 

848d 

850d 

1831c 
372d 
645d 

1686c 

852d 
854d 
856d 
8S8d 
1485c 



3^2 
64'-. 



135ac 
39Sd 
67ed 

1 7 11 c 



395d 
676d 



1869c 
421d 
694d 

1749c 



421d 
694d 



1888c 
438d 
710d 



4 38d 
710d 



1915c 
455d 
732d 



455d 
732d 



1948c 
473d 
751d 



473d 
751d 



492d 
768d 



492d 
768d 



2004c 
518d 
783d 



518d 
783d 



2028c 
536d 
800d 



536d 
800d 



2050c 
S54d 
1533c 



554d 
871d 



2068c 
570d 
1S60C 



570d 
1477d 



2090c 

588d 

1698c 



603d 
16370 



send set date 

SRR_DRV ( 5 rm ) 
send set eof 

SRR_DR7(srm) 
send ?ts_sec 

aRTG0(C5amigo) 
send syn_sec 

HnTGO(csamigo) 
send uniockaflle 

SRR_DRV(srm) 
send volume status 

SRR_DRV(srm) 
send wait 

fl854XDVR(a804xdvr) 
send writearecord 

SRR_DRV(5rm) 
send JTchg data 

SRR_DRVT5rm) 
send xchg open 

SRR_DRV("srm) 
sendbytesisf 

n304XDVR(a804xdvr) 
sendcmd 

R804XDVR(a804xdvr) 

HPHILIhphll) 
senddat a 

H804XDVR(a804xdvr) 

HPHIL(hphil) 
sendhphilcmd 

HPHIL(hphil) 
sendreadpack 

SRnRn(srmarmioduie) 

SRn_DRV 

SRn_DRV(5rm) 
sendreq 

SRM_DRV(5rin) 
sendwritepack 

SRnRn(5rmammodule) 

SRn_DRV 

SRM_DRV(srm) 
sent "" 

SRn9ri(srmamfnoduIe) 
sequent ial_access 

SRnRn(srmammodijle) 

SRM DRV(5rm) 
serial 

I0LIE(5erial O'l 
serial 3 

I0Ll5(serial.,3:i 
serial card 

DC DlfV(init del 

lOUieiserial 01 

IOLIB(serial 3 'i 

KERNE-:L(general_0| 

KERNELIiodeclaraticns) 

PRIN"ER(prtdvr:i 
serial dma 

DC OR"V(intdc" 

loriB(genera:._4) 

kERNEL(iodec::araticns) 



731d 


860d 














7S0d 


862d 














308d 


312c 














332d 


335c 














767d 


864d 














782d 


866d 














232d 


244c 


246c 


295c 


301c 


306c 






799d 


8S8d 














535d 
















553d 


842d 














151d 


250c 


251c 


269c 


276c 


283c 






40d 

267c 

83c 


138d 

273c 

88c 


147c 
274c 
145c 


159c 
2810 
172c 


166c 
282c 


174c 
295c 


175c 
301c 


203c 
306c 


41d 
84 c 


142d 
8Sc 


lS4c 
85c 


160c 
146c 


174c 
172c 


203c 






291d 


371c 














67c 
1996d 
1095d 


76c 


64 c 












1003d 


1400d 


1414c 


1416c 


1418c 


1419c 


1433c 


1464c 


114c 
2081d 
llOSd 


122c 


131c 












65d 


64c 


68 c 


73c 


76c 


84c 


102CI 


111c 


70c 
169d 


117c 














2196d 
















2486d 
















636c 

2238c 

2558c 

1044c 

328d 

223c 


2301c 
260SC 
1131c 


236''c 
268SC 
1141c 


2743c 


2808c 


2843c 






421c 
15!lc 
550d 

















208c 236c 



251c 2660 



123c 131c 
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serial fastest 










I0L3F(generaI 4) 


*** 


1508c 






KERMEL (iodeclarat ions) 


*«>< 


552d 






Efitl DRV(5rm) 


*** 


1344c 






serial fhs 










DISChPIB(dischpib 




471c 


510c 




rOtIE(general 4) 


««n< 


1508c 






ICER>CL(iodeclarat lons) 


«** 


651d 






serial line 










I0llE(5erial_0) 




22igd 


2357d 2476c 




seriallextam 










IfMTImisc) 




515a 


697c 




ser ialtext amhook 










INIT(misc) 




470c 


697c 




IMSTLOPlDfsysglobais) 
n6eiCSYS(ci) 


«x* 


279d 






*** 


334c 






set 3v address 










nTNlT(cs80irl 




564d 


818d 843c 




niNIl (qminit) 
set 68455 




n79c 


1209c 1228c 1240c 












GrE_f GL (9le_ra5_oiJt ) 


*** 


8258c 






set acceleration 










aCL HPGL(dgl hpgl 




17111d 


17169c 




set access date 










SRTi CRV(5rml 


*** 


735d 






set aScress and return mode 










THPEBKUP(cs80tbdv!) 


*** 


670c 






T«reBKUP(cs80tbr) 




26d 


lOOd 129c 




set all color table 










DSl EffS(dgl raster) 




17247d 


17S37C 




set aspect 










LTSldgl lib) 




20018d 


20348d 




set auto 3elay 










KEvStkeys) 
SYSDEVSCsysdevs) 


*.** 


589c 






X** 


140d 






set auto pen 










E>5l„HPi;L(dgl_hpgl 




n074d 


17154c 




set auto repeat 










K"»S(key5) 


X** 


588c 






SYSDEVS(5ysdevs) 


^** 


140d 






set baud rate 










IiJLIB(serial 3) 




2502d 


2528d 




set char lengtF 










I5Lie(serial_3) 




2508d 


2681d 




set ch£r size 










LTBIcgl lib) 




20071d 


20719c 20816d 211520 




set color 










OGL POLY(dgl poly 




2021SC 


20245c 20599c 20840c 




LIBTogl lib) 




20036d 


20447d 21171c 




set color model 










LTBIOgl lib) 




20034d 


20399d 




set color table 










LTB(dgl~lib) 




2008Sd 


20408d 




set creation date 










Sf?n DRV(srm) 


*** 


737d 






set display lim 
LTB(dgl lib) 












200520 


20488d 




set ectio pos 










LTB(dgT_lib} 




20074d 


20846d 




set file mask 










flRlGO(amigodvr) 


*** 


680c 






ftnlGOfcsamigo) 




146d 


274d 




set force 










D5L_HPGL(dgl_hpgl:! 




17103d 


17166c 




set gator vals 

D5L C OUTfdgl comg ojt] 












11247d 


11290c 11298c 11308c 1131SC 




set hpiD 

I01.IB(hpjb 0) 












1709d 


n22d 




IOLIB(hpib 2) 




1818c 


1819c 1969c 1966c 




set in use 










DTSCHPIB(bkgnd) 




40d 


89c 114c U9c 132c 




set kbdlang 










SS04XDVR(a804xdvr i 


*** 


397c 






SYSDEVS(5ysdevs) 


1:*« 


142d 






set kbdtype 

fl504XOVR(a804xdvrj 










»** 


396c 






SVSDEVS(5y5devs) 


«*« 


142d 






set line style 










DUL POrY(dgl poly; 




20216c 


20246c 20948c 21019c 




LIBjdgl_lib) 




2003Sd 


20469d 21172c 




set lane width 










DEL Porvidgl poly; 
LIBXdgl liB) 




20217c 


20247c 20949c 21021c 






20037d 


20431d 21173c 




set locator lim 










LTB(dgl lib) 




20083d 


20880d 




set marker 










GEE GENtgle gen) 
GLE HPGL(gle hpgl out; 
GLE^RGLfgle ras out ) 
GLE TYPES(gTe types) 


*** 


2154c 






*^X 


7S39C 






«** 


8407c 






*** 


lOSSd 






set options 










C5"80(cs80) 




346d 


522d 534c 




CS80]cs80dsrl 
TSPEB<UP(C580tbdvr) 


x»* 


944c 






1K!K* 


377c 






set parity 

IBLlBlserial 3) 




2511d 


2736d 




set pgn color 










D5L PJLY(dgl poly) 




20014d 


20102d 




5et_pgn_l5 










D5L PjLy(d9l poly) 




20013d 


20126d 




5et_pgn^5tyle 










BGL PTLVidgl poly) 




20020d 


20142d 20187c 




set pgn table 










DEL P5LY(dgl poly) 




2001Sd 


20165d 




set polygon color 
DfTL P)CY(3gl poly) 












20053d 


20950c 




set release 










C580( :580) 




34 5d 


SOOd 518c 




CS80( :580d5r) 


JKX« 


882c 






5e' rpg^rate 

SVsOE?S(sy5dev5) 












173d 


424c 




set rule 










GfE^Ri)! [gle_ras_OLt ; 




8120d 


8228c 8229c 8239c 8282c 




set scanneddevice' letter 










CTfiBLiUscanstufT) 




1099d 


1123c 1124c 




set serial 










ijLIBiserial o; 




221Sd 


2231d 




set specified unitvol 
TPSPEBKUPlcsSOtbdvr ; 










**M 


730c 






Tf=lPEBKUP(C580tbr) 




24d 


55d 69c 


t 


set status mask 










C580(C58?) 




347d 


538d 552c 


[ 


CS80(.s8Cdsr) 




888c 


950c 




set stop bits 
lCrLie:Ierial 3) 




2505d 


2597d 


11-150 


set texl rot 










LrB(diI_lib) 




20070d 


20720c 20785d 2U57C 





set timeout 

GUE HPIB(gle hpib_io) 

IOLTB(generaT_l) 
set timing 

LTB(dql_lib) 
set to listen 

lCfLIB"(hpib 1) 

lOLIBJhpib 2) 
set to talk 

ijLISfhpib 1) 

lOLIB hpib 2 

I0LI8(hplb_3) 
set unit 

C580(C580) 

CS80(C580dsr) 

TflPEBKUP(C580tbdvr) 
set unitvoi 

C580(C580) 

CS80(C580d5r) 

CS80(C580dvr) 

HINltfqminit 

TflPEBKjP(c586tbdvr) 
set velocity 

DSL^HPGL(d9l_hp9l) 
set Viewport 

LTB(dg]_lib) 
set width 

GrE^RGL(gle_ras_out) 
set window 

LTe(dgI_lib) 
setadd 

cssoicseo) 

t1INlt(cs80ir) 

TnPEBKUP(cs80tbr) 
setcopyright 

LIBRHRIfiN 
setcopytimeout 

SRn_DRV(5rm) 
setcursor 

CRT(crt) 

GCRT(crtb) 

INITLOSD(sys.3lobal5) 
setdate 

LIFDfln(lifmodule) 
setdefaultt imeout 

SRn DRV(srm) 
seteoTpack 

SRnDftrl(srmdarnmoduie) 

SRM_DRV 

SRf1_DRV(srm) 
setformatopt ion 

MINIT(c5§0iri 
setqlobai 

LIBRHRIflN 
setintegert imeout 

SRM_DRV(5rm) 
setintlevel 

CLOCK (clock) 

HPHILthphil) 

INIT(i5r) 

KEVS(key5) 
setioresult 

SRnDRf1(5rmdammodule) 



setlen 

CS80(C580) 

TflPEBKUP(cs8Citbr) 
setmaxmoduies 

LIBRflRIflN 
set name 

LIBRRRIflN 

UCSD_OPn(ucsclmCidule) 
setoptn 

CS80(cs80) 
setpasswords 

JNITLOfiOtsysqlobals) 

SRtlDfin(srmdarTniodule) 
setpctl 

F988S(f9885dvr) 
set rel 

CS80(cs8O) 
set reloc 

LIBRRRIflN 
set retadd 

TflPEBKUP(c580tbr) 
set rpgrate 

KEVSfkeys) 

SYSDEvS(5ysdevs) 
set rtct ime 

CLOCK(clock) 
set run! ight 

KEYSrkeys) 

nSSKSYSfci) 

SYSDEVSJsysdevs) 
setsdate 

LIFDRn(lifmodule) 
setstat Js 

R804XDVR(a804xdvr) 

KEYSrkeys) 

SYSDEVS(5ysdevs) 
setstsmsk 

CS80(C58O) 
setsysdate 

Me8KSYS(ci) 

SYSDEVS(sysdevs) 
setsyst ime 

nesKSYsici) 

SYSDEVSisysdevs) 

sett 

fl804XDVR(a804xdvr) 
SYS0EVS(5ysdevs) 

set tracksecto r 
F988Stf988Sdvr) 

setunit 

CS80{C580) 

mNIT[c580irJ 

TflPEBKUP(cs80tbr) 

setunit 15 

TfiPEBKUPfcs80tbr) 

setunit prefix 

INITLOflDlsysglobals) 
LIFDflrt(lifmodule) 
SRtlDRnjsrmdammodule) 
UCSD_DnM(ucsdmodule) 

setunit vol 
niNIT(cs80ir) 

TnPEBKUP(C580tbr) 



lOOSld 
2460 


10480c 
330d 






















20030d 


20386d 


21169c 




















410d 
1841c 


743d 
18S6C 


77Sc 
1920c 


1938c 


1960c 


1991c 














408d 
1908c 
2099c 


696d 


725c 




















340d 
763c 
653c 


433d 
724c 


44 1c 
886c 




















341d 
903c 
1047c 
962c 
372c 


445d 
437c 


453c 




















17095d 


17132c 


m4Ic 


17163c 


















20019d 


20286d 


20374c 




















8136d 


8230c 






















20020d 


20321d 






















571d 
831d 
lied 


S82c 
837c 
124c 






















3206d 


3653c 






















lUSd 


1247d 






















412c 

282c 

67d 
























113d 


SlSc 


940c 


lOOSc 


1093c 
















1114d 


1235d 






















1279c 
2022d 
llOld 


1319c 


1347c 


1508c 


















604d 


614c 






















3200d 


3633c 






















1253d 


1378c 


1415c 


1417c 


1420c 


1422c 














144c 

139c 

143c 

86c 


158c 

lS2c 

145c 

88c 


166c 
113c 


17Sc 
114c 


188c 
132c 


201c 


21Sc 


218c 










79c; 
898c 


124c 
1107c 


145c 
1110c 


190c 

1197c 


233c 
1273c 


272c 
1480c 


297c 
154Sc 


324c 
1581c 


401c 
1592c 


753c 
1594c 


835c 

1604c 


886c 920c 926c 
1798c 1819c 


S74d 
193d 


586c 
200c 


222d 


23Sc 


















3177d 


3e34c 






















3231d 
459d 


3$43c 
663c 






















526d 


530c 






















138d 
1653c 


1711c 






















195c 
























505d 


S12c 






















31940 


3648c 






















113d 


121c 






















S90c 
369d 


421d 






















8Sd 


lUc 


123c 


160c 


















116c 
116c 
393d 


575c 
1107c 
587d 






















339d 


1150c 






















399c 
4Slc 
391d 


S80d 


588c 




















S43d 


548c 






















163c 
386d 


267c 
469d 






















166c 
387d 


280c 
473d 






















261c 
214d 
























Sid 


59d 


115i 


147c 


















389d 

S78d 

43d 


393c 

58Sc 

50c 


423i 

S33i 

65- 


427c 
639c 


504d 


511c 


568d 


579c 










221d 


234c 






















137d 
lie2c 
1665c 

6S3c 


1785c 




















11-151 


602d 
858d 


612c 
863c 


660d 


666c 


687d 


692c 


712d 


718c 


744d 


750c 


780d 


790c 829d 835c 


84d 


90c 


1120 


120c 


144d 


143c 


ie7d 


171c 


191d 


198c 


266d 


274c 



5etLinitvol type 




























TAPE6<UP(C586tbrl 




5760 


583d 


602d 


eeod 


687d 


712d 


744d 


780d 


829d 


858d 








41cl 


48d 


63d 


84d 


112d 


144d 


167d 


191d 


2$6d 








set up 




























EDPIVER(edriver ) 




llOd 


198c 


206c 


269c 


282c 
















setap display 
LtBTdgi lib) 






























21111d 


21233c 


21281c 




















setup fnh 




























SRfl DRV 




1805c 


1811c 


1922c 


1983c 


















SRrTDRVtsrm) 




1512d 


1573c 


1611c 


1644 c 


1756c 
















setup fns 

SRMD(HP1(5rmdammodu Le) 




llSd 


142c 


478c 


521c 


975c 


1079c 


1187c 


1226c 


1230c 


1253c 


1360c 




setup fn53 




























SRrt5(^ri(5rmdan¥iiodu:e) 




133d 


1119c 


1286c 


1359c 


















setup tor polygon 
DGl FOLV(dgi poly. 






























20908d 


21040c 


21086c 


21130c 


21161c 
















setup cator 




























GLE KGL(9le rds out ) 




8244d 


8479c 






















setup internal 

DGl_C_OUT (d9l_con--g_out ) 






























112100 


11287c 


U300C 


11305c 


















setup smh 

SRri~DRV 




1798c 


1831c 


1850c 


1869c 


1888c 


1915c 


1948c 


1976c 


2004c 


2029c 


2050c 


2068c 2090c 


SRn DRV(5rm) 




1477d 


1533c 


iseoc 


1598c 


1637c 


1665c 


1686c 


1711c 


1749c 








setup vrh 




























SKtl DRV 




1803c 


1920c 


1981c 


2073c 


















SRn IjRV(5rm) 




14910 


1569c 


1607c 


1642c 


1670c 


1754c 














setupTib 

UCSD Dfln(LJC5dmodu Le) 






























159d 


251c 


293c 


316c 


















setupflbforfile 




























ETU 




3050 


361c 


893c 




















setuphpgl 




























DGL C INfdgi conf^j inj 
DGL C OUT(dgT con^g out ) 




120840 


12135c 
























113990 


ll'Ulc 






















setuplTnob 




























DGL C IN(dgI confq in) 




120390 


12134c 






















setupraster 




























DGL_C_OUT(dgl_con^g_oiJt ) 




111530 


11510c 






















set uprea'd 




























ft804)-:DVR(a804;Kdvr , 




1260 


147c 


243c 


245c 


293c 


300c 


305c 












setupsys 




























IWIT 


*** 


300 
























setvol 




























CS8O(cs80) 




5690 


580c 






















MINIT(cs80ir) 




5790 


586c 






















TftPEeKUP(cs80tbr) 




440 


51c 


66c 




















setvoluinedate 




























INITlOflD(sysglobdls) 


«** 


1330 
























LIfDPndifmoduIe; 


*** 


1150c 
























n68KSYS(ci) 


*** 


287c 
























SRnDf'M(srmdarrmodij le ) 


«** 


1793c 
























UCSD_DflM[ucsdmodu Le ) 


««* 


655c 
























setvolumename 




























INITimisc) 


««w 


447c 
























INlTlOflDlsysglobdls) 


*** 


1330 
























LIFDPri(lifmodulei 


«** 


1138c 
























UCSD DPin(uc5dmodu'.e) 


*** 


663c 
























setwail forlocktimeout 




























SRri_DRV(5rm) 




11160 


1241d 






















setx-y 

CRT(crt ) 




298d 


310c 


460c 


461c 


462c 


463c 


464c 


466c 


469c 


473c 


474c 


489c 491c 


GCRT(crtbl 




207d 


219c 


331c 


332c 


333c 


334c 


335c 


337c 


340c 


344c 


345c 


357c 359c 


se^'.charqe 




























SRn CRV 


*«* 


1829c 
























SRn_DRV[5rm) 


*«* 


894d 
























n68KSYS(ci) 




581d 


598c 


620c 




















sfi le 

h63KSYS(cil 




387d 
1052c 


42Sc 
1056c 


472c 


537c 


540c 


S42c 


S4$c 


S53c 


1033d 


1038c 


1043c 


1045c 1046c 1049c 


sfileirfo 




























SRn DRV 


*«w 


1848c 
























SRn_DRV(5rm) 


*** 


896d 
























s fm cmd 




























flRlG0(csami9o) 




289d 


291c 


292c 




















sfm cmc array 




























fiPllGCTcsamlgo) 




285d 


291c 






















sfm cmd array type 
fiFilGOTcsamigo) 






























281d 


285d 






















sfm cmd type 




























fiRlGOl'csamigo) 




276d 


281d 


286d 


287d 


289d 
















sfm oc 




























flRlGC(c5arTiigo) 




284d 


286d 


287d 




















sfm sec 




























finiGO (csamigo) 




283d 


292c 






















sgangclean 




























SRn DRV 


»«* 


1867c 
























SRn DRV(srm) 


*** 


8980 
























sgn8 




























TflPEBKUP[C580tbdvr) 




710d 


717c 






















sh exc 




























CTU 




34d 


157c 


197c 


203c 


773c 


1009c 


1247c 












share 




























SRM DRV 




1908d 


1930c 






















SRM DRV(5rm) 


««* 


1083d 
























share code 




























SRflDriM(srmdarrfnodu Le ] 


«** 


619c 
























SRn DRV 


**w 


1330c 
























SRn DRV(5rm) 




277d 


650d 






















share&its 




























SRn DRV(5rni) 


*«* 


66Sd 
























shareccde 




























SRnDPM(srmdafTimod(j le) 




9060 


922c 






















shared share code 




























SRnDPn(5rm3anmodule) 




290c 


293c 


621c 


808c 


840c 
















SRn_CRV(5rm) 


*** 


1630 
























sharemcde 




























SRnDf.n(srmdammodule) 




1950 


239c 


288c 


290c 


293c 


968d 


976c 


980c 


1028d 


1060c 


1081c 


1096c 1159c 


shead 




























SRM [RV(5rm) 
shift 

KEVS(key5) 


*** 


9220 


























215c 


216c 


429c 


444c 


44Sc 


4460 


449c 


450c 


4e6c 


491c 


496c 


497c 500c 508c 






510c 


S12c 


528c 


S40c 


565c 
















LIBRfiRIflN 




9970 


1140c 






















NONUSKBDl [non us ^ bdl ) 




68c 


69c 






















SYSDEVSlsysdevs) 


*«* 


2660 
























shifteo left 




























CS80lcs80dvr ) 




1192c 


1240c 






















shiftec right 
CS80 icsSOdvr) 






























1244c 


1271c 


1298c 


1310c 


















shif tof 




























LIBRfiRIfiN 




10010 


1006c 


lOllc 




















shif tOf.t ype 
LIBRfiRIflN 






























9990 


1002d 
















































11-152 



snort 

CTSBLE(ctr) 

INITL0nD(IO3der) 

LIBRflRIfiN 

SEGMENTER (aim) 
5horT_def ault 5 

DGL vni?S(d9l_varsl 

GENTdgI_gen) 
5hort_fIag 

DGL_POLY(dgl_poJyl 

DGL_VflRS(dg,Lvarsl 

GEN(dgl_gen) 

LIB(dgl_Iibl 
short tc 

DIS?:HP!8(dischpib:i 
shortvertex 

DGl._POLY(dgl_poly,i 



403c 
926d 
411c 
2412c 
135c 


1272c 
1280c 
2414c 


1462c 
16;:8c 
2531c 


1626c 
1646c 
2581c 


1927c 
2582c 


1931c 
2621c 


1941c 
265 Ic 


2053c 
271SC 


2102c 
2762c 


231SC 
2780c 


2389c 
2810c 


1320d 
3284c 


3456c 


34;.3c 


















20975c 
1317d 
3411c 


3462c 





















2404c 2406c 



20624c 20655c 



20387d 20539c 20542c 



short int 

fl804XDVR(a804xdvr) 

f)nlGO(amigodvr) 

nniGOicsamicio) 

CLOCK(clock) 

CRT(crt) 

C380(C580dvr) 
CTflBLE 

CTnBLE(br5tuffl 
CTflBLE(ctr) 



CTflBLElopticns] 

CTnBLE(5can5tuff ) 

C HOOK 

DSL_C OUT(dcl_confg 

DGL RHS(dgl raster) 

DISCHPIB(bkgiid) 

DISCHPIB dischplb) 

F988S(f9885avr) 

GCRT(crtb) 



HPHIL(hphil) 
INIT(fs) 

INIT(Jdr) 

INIT(mi5c) 

INITLOfiD 

INITLOfiD(bootaarrmodule) 

INITLOfiD(loader) 

INITLOBD(mini) 
INITL0fiD(s/5gIobals) 
KEyS(keys) 
LIBRRRIflN 



n68KSYS(ci) 

I1INIT(asmr 

MINIT(hminit) 

niNIT(miiinit 

niNIT qminit 

niNIT(xminit) 

MIUI 

nOREFSYS(mf5) 

PRIMER(prtdvr) 

SRnDHn(5rmdammodule) 

SRM DRV(5rm) 

SVSCEVSfsysdevs) 

TflPEBKUP 

UCS0_nn(uC5d am) 

UCSD_Dfil1(uc53rn0dule) 
shor tpatch 

LIBRfiRIfiN 
shor tpoihte r 

HE9PT(hpm) 
showprompt 

ETU 
shuffle 

L!FDfin(lifmod',l<!) 































65d 


66d 


126d 


ISld 


lS2d 


233d 


















428d 


439d 


443d 


449d 


492d 


507d 


SS8d 


795d 














90d 
47d 

53d 


123d 


129d 


130d 


131d 


244d 


















163d 


165d 


ie7d 


20Sd 


206d 


207d 


298d 


315d 


316d 


329d 


339d 


547d 


SSOd 


S51d 


5S2d 


5S3d 


554d 


713d 


714d 


















982d 


985d 


995d 


lOlSd 


1027d 


1218d 


















1212d 


1216d 


1268d 


1292d 


1374d 




















S6Sd 




























311d 


313d 


314d 


325 r 


328d 


329d 


330d 


331d 


332d 


333d 


334d 


335d 


336d 


337d 


338d 


339d 


424d 


425; 


426d 


427d 


578d 


S80d 


604d 


eiSd 


6SSd 


668d 


677d 


686d 


698d 


711d 


720d 


737d 


756d 


772d 


791d 


SOSd 


812d 












136d 


215d 


























1043d 


1052d 


10S3d 


lOSed 


1094d 


1135d 


















49d 


SSd 


























11026d 


11029d 


11030d 


11031d 


UOSld 


11086d 


11087d 


11162d 


11163d 


11213d 


11214d 


11215d 


112ied 




17384d 




























47d 


79d 


84d 


96d 






















196d 


198d 


199d 


200J 


287d 


3S7d 


383d 


388d 


410d 












55d 


94d 


I08d 


112d 






















lOOd 


108d 


109d 


UOd 


llld 


11 2d 


113d 


114d 


117d 


121d 


122d 


126d 


128d 


129d 


130d 
S31d 
228d 


131d 


132d 


207d 


224d 


225d 


226d 


251d 


372d 


4nd 


419d 


498d 


S29d 


530d 




























748d 


801d 


803d 


805d 


306d 


807d 


809d 


SlOd 


811d 


812d 


814d 


819d 


820d 


822d 


827d 


829d 


831d 


833d 


335d 


838d 


















2386d 


2408d 


























I81d 


223d 


247d 


262d 


265d 


428d 


















1737d 




























S4ed 


560d 


578d 


589d 


609d 


649d 


778d 
















827d 


828d 


833d 


83Sd 


392d 


1022d 


1029d 


1038d 


1043d 


1082d 


1174d 


1206d 


1210d 


1215d 


1220d 


122Sd 


1400d 


1401d 


1423d 


1589d 


















319d 


334d 


373d 


413d 






















30d 


77d 


96d 


104d 


124d 


lS4d 


170d 


239d 


294 s 












S3d 


253d 


377d 
























46d 


64d 


109d 


151d 


441d 


448d 


478d 


755d 


1273d 


1476d 


1486d 


1655d 


1656d 


1718d 


1719d 


1720d 


1746c 


1852d 


1999d 


2000d 


2001d 


2032c 


2309d 


2669c 


2722d 


2734d 


2329d 


2832d 


2834d 


2903d 


3015d 


soied 


3027d 


3055d 


3247d 


3270d 


3289d 


3306d 










I12d 


313d 


872d 
























1331d 


1335d 


1337d 


1342d 


1345d 


1348d 


















2S4d 


299d 


304d 


34Sd 


346d 


347d 


3S0d 


351d 


352d 


412d 


413d 


414d 






116d 


143d 


ISOd 
























885d 


1098d 


























1365d 


1366d 


1384d 
























223d 


286d 


395d 


398d 


399d 


401d 


402d 


410d 


4S8d 












19d 


22d 


35d 


38d 


S7d 


401d 


536d 


S53d 


560d 


S64d 


667d 








77d 


87d 


























76d 


lOOd 


912d 


961d 


962d 


1020d 


1021d 
















215d 


216d 


997d 


1406d 






















49d 
598d 

mod 


59d 


60d 


88d 


91d 


128d 


129d 


133d 


134d 


13Sd 


320d 


321d 


322d 


323d 


1164d 


1225d 
























45d 




























SSd 




























23e8d 


2447c 


2457c 
























93d 


96c 


143c 


141c 


270c 


311c 


















Hid 
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68?d 


907c 



























si 
































INITLOfiD(loader) 


«** 


893d 




























LIBRHRIBN 




2679c 


2677c 


























5il 

SRhDfln(5rmdafmiodule ) 




961d 


1020d 


























SRM DRV(5rni) 
si2 

SRflDRM(srmdaninoduIe) 


*** 


215d 






























92c 


603c 


912d 


924c 


934c 


943c 


962d 


1021d 


1050c 


1109c 










SRn_0RV(5rin) 


**Hi 


216d 




























sign 

LIBRHRIHN 


































lS6d 


181c 


19lc 


193c 


209c 


21Sc 


















signbit 

fiOREFSYS(mf5) 
signedie 

CS80(C580) 


































33d 


412c 


423c 


























71d 


88d 


95d 


96d 


lOld 


104d 


105d 


106d 


107d 


114d 


393c 


427c 


439c 


451c 






579c 


S80c 


























CS80(C580dsr) 




788d 


789d 


























CS80(c580dvr; 


««« 


1036d 




























nlNir(cs80lr) 




524d 


532d 


535d 


560d 


564d 


S86c 


S86c 


62Sd 


63Sd 


639c 


818e 








nlNIT(qminit 
TflPE8KUP(cs80tbd»r) 


*** 


lllOd 




























**« 


704d 




























TfiPESKUP(cs80tbr) 




50c 


51c 


65c 


66c 






















5igned4 

CTflBLE(br5tuff) 


































842d 


962d 


963d 
























signedS 

CS80(C580) 


































72d 


99d 


124d 


209d 


219d 


223d 


















CTflBLEfbrstuff ) 




943d 


957d 


958d 


959d 


961d 


971d 


















MINITfcsSOir) 
TflPEBKUP(cs86tbd»r) 


««* 


784d 






























706d 


710d 


























silently 
TfiPEBKUP 


































963d 


1239c 


1248c 


1269c 






















Simon dma 
































BUlGoiamigodvr] 
DISCHPIB(dlschpib) 




SlSc 


681c 




























193d 


237d 


240c 
























Simon no dma 
































RmCO(amigodvr) 


*** 


604c 




























CSSOlcsSOdvr) 


*** 


1388c 




























DISCHPIB(dischpib) 




192d 


230d 


233c 
























simple init 

KERNEL (general_0) 


































803d 


1235c 


























sin anqle 

D!;L_POLV(dgl_pol>) 
sindx 

SRMOfinisrmdarainodule) 


































20880d 


20900c 


20903c 


























211d 


223c 


224c 


225c 


226c 


227c 


229c 


230c 


231c 


234c 


235c 


243c 


245c 


262c 






652d 


673c 


674c 


67ec 


680c 


682c 


689c 


698c 


709c 


721c 


722c 


724c 


729c 


734c 






73Sc 


738c 


746c 


759c 


763c 


773c 


774c 


776c 


779c 


780c 


781c 


791c 


800c 


1523d 






1535c 


1580c 


1585c 


1586c 


1599c 


l$01c 


1608c 


1610c 














sinit 
































SRn_DRV(5rm) 


*** 


900d 




























sint 
































INnLOfiD(loader) 




857d 


932d 


1460c 


1464c 






















LIBRARIAN 




176c 


1549c 


1599c 


1643c 


1644c 


1646 c 


1822c 


1828c 


1925c 


1929c 


2393c 


2486c 


2674c 




HOUSE (mouse) 




37d 


46d 


47d 


48d 


68d 


132d 


















sinx 
































INIT(fs) 


*JK* 


793d 




























UCSD Dfin(uc5dmodtle) 




184d 


199c 


204c 


239c 






















sinx table 
































GLF STEXTfgle stext ) 


*** 


4039c 




























GLE^lYPEsigle tyres) 


*»* 


1168d 




























siny table 

OLE STEXKgle stext) 
































X** 


4042c 




























GLE_rvPES(gle_types) 


*** 


llS9d 




























LIBRHRIBN 




417d 


439d 


565d 


619d 


626d 


651d 


710d 
















size 
































EPROnSleproms) 




42d 


66c 


67c 


68c 


69c 


70c 


71c 
















ETU 




487d 


506c 


SlSc 


565d 


572c 


578c 


5930 
















GLE UTLS(gle utls) 
HEnPr(hp<ti) 




21008d 


21009d 


21038d 


21064c 


21066c 


21069d 


21082c 


21083c 


21094c 


21100c 












lOOd 


104c 


105c 


loec 


UOd 


113c 


114c 


116c 


217d 


231c 


233c 


236c 


237c 


244c 






245c 


2S4c 


25Sc 
























INIT(f5) 
INITLOBD(loader) 




770d 


786d 


787d 


























1084d 


1089d 


Ulld 


1113c 


U14c 


1118d 


1120c 


1253d 


1265c 


1267c 


1282c 


1291c 


1292c 


1567d 






1570c 




























KEVSrkeys) 
LIBRHRIBN 




83c 


112c 


114c 


116c 


366c 


409c 


S63c 


















125d 


127c 


137d 


139c 


439d 


478d 


480c 


481c 


482c 


483c 


484c 


486c 


510d 


614c 






517c 


528c 


630c 


565d 


565c 


567c 


568c 


673c 


678c 


689c 


692c 


6990 


703c 


814c 






850c 


861c 


86Sc 


869c 


875c 


881c 


893c 


899c 


905c 


910c 


913c 


918c 


923c 


972c 






1005c 


102gc 


1051c 


1076c 


1113c 


UlSc 


1122c 


2740d 


2742c 












SEGhENTERtasm) 




44d 


46d 


292d 


294c 


298c 




















SYSDEVS(5y5dev5) 




240d 


529c 


533c 


536c 


543c 


550c 


S60c 


seic 


563c 


5640 


S7Sc 


640c 






UCSD Dfin(uc5dmodule) 




190d 


194c 


197c 


198c 


202c 


203c 


















sizel " 
































GLE UTLS(gle utls) 




21011d 


2U18d 


21126c 


21130c 


21131c 




















sizeie 
































HPHIL(hphil) 


*** 


llSc 




























HOUSE(mouse) 




88c 


92c 


93c 


lS9c 






















SVSDEVS(sy5dev5) 


X** 


316d 




























size2 
































GLE UTLS(gle utls) 
size Trom are you alive 




21012d 


21119d 


2112SC 






















































SRR ORVTsrmT 


X** 


89d 




























size T^om cat 
































SrH ORvTsrm) 


*** 


90d 




























size Trom catprotect 
































SRR DRVTsrm) 


*«* 


91d 




























size Trom change vol label 
































SRFI DRVTsrm) 


XXX 


93d 




























size Trom changeprotect 
































SRFI ORVTsrm) 


x*x 


92d 




























size Trom close 
































SRR DRVTsrm) 


x*x 


94d 




























size Trom copy 
SRR DRVTsrm) 
































XXX 


9Sd 




























size Trom create 
































SRH DRVTsrm) 


X'i K 


96d 




























size Trom createlink 
































SRR DRVTsrm) 


XXX 


97d 




























size Trom flock 
































SRR DRvTsrml 
size Trom funlock 


XXX 


98d 


























































SRR DRVTsrm) 


XXX 


99d 




























size Trom gang cleanup 
SRfl DRvTsrm] 
































XXX 


lOOd 




























size Trom gang error 
SRR tiRvTsrm) 


































lOld 


1439c 


1442c 


1449c 






















size Trom info 
































SRR URVTsrm) 


XXX 


102d 




























size Trom init vol 
































SRR DRVTsrm) 


XXX 


103d 




























size Trom open 
































SRR DRVTsrm) 


XXX 


104d 




























size Trom position 
































SRR DRVTsrm) 


XXX 


lOSd 




























size Trom purge 
SRR DRVTsrm] 
































*«X 


106d 
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size Trom read 
































SRRjJRVTsrm) 




107d 


1449c 



























size from set date 

SRfi DRVTsrmT 
size Trotn set sof 

SRR DRVTsrmJ 
size Trom volstatus 

SRR DRVTsrm) 
size Trom write 

SRH DRVXsrm) 
size Trom xchg data 

SRR DRVTsrm) 
size Trom xchg open 

SRR_DRVT5rm) 
size to 3re_yoij_aIive 

SRR_Dlf V ( s rm ) 
size to cat 

3RR_DlfV(srm) 
size to catprotect 

SRR_DifV(5rm) 
size to change vol label 

SRR_DlfV(srm)" 
size to changeprotect 

SRR_DlfV(srm) 
size to close 

SRR_Dl?V(srm) 
size to copy 

SRR_DRV(srm) 
size to create 

SRR_Df V ( 5 rm ) 
size to create;iink 

SRHJUV 

SRn_DRV(srm) 
size to flock 

SRR D^V 

SRM;^DRV(srm) 
size to funlock 

SRR DRV 

SRn_DRV(srm) 
size to gang cleanup 

SRR_Dlf» 

SRn_DRV(5™) 
size to info 

SRR_01fV 

SR(1_DRV(5rm) 
size to init_vcl 

SRR_DRV(5rm) 
size to open 

SRR_DRV 

SRn_DRV(5rm) 
size to position 

SRR_DlfV 

SRn_DRV(srm) 
size to purge 

SRR DfV 

SRfl^DRVfsrm) 
size to read 

SRn_DlfV 

SRM_DRV(5rm) 
size to set_date 

SRR_Df V ( 5 rm ) 
size to set eof 

SRR DRv 

SRn_0RV(5rm) 



size to volst atus 

SRR_DI?V 

SRI1_DRV(5rm) 
size to write 

SRR_DI?V 

SRt1_0RV(5rm) 
size to xchg data 

SRR_Dl?V(srm) 
size to xchg open 

SRR_DI?V 

SRn DRV(srm) 
sizeclTk 

LIFDfiri(lifmodulel 
skip 

SRMDfin(5rmdamiTiodule) 
skipfor 

I0LIB(general_2) 
skipping 

n68KSYS(ci) 
51 

ETU 

GLE UTLS(g]e,utls) 

LIFUfinrlifmoSule) 

SEGtlENTERtasm) 
slast 

UCSD_DfiM(ucsdmodule) 
slink 

CTflBLEfct r) 

CTnBLE(5canstijff) 
sllst 

DGL INCl(dgl inq) 

LIBl^flRIfiN ~ 
slock 

SRn DRV 

SRM_DRV(5rm) 
slop 

INITLOBD(loader) 
slowterm 

CRTfcrt) 

GCRT(crtb) 

SYSDEVS(sy5devs) 

INITLOBDdoade:) 

LIBRBRIHN 
small 

KEyS(fceys) 
smallest 

HEnPT(hpm) 
smallkbd 

P804XDVR(a804xdvr) 

KEVSfkeys) 

NONUSkBDl (non _u5_kbdl) 

SVSDEVSIsysdevs) 
smallsize 

HEfiPT(hpm) 
smh 

SRn_DRV(5rm) 
sn 

CTnBLE(ctr) 
so 

CS80(cs80) 
soft clip cpx 

GLF_TVprS(gle_.types) 



109d 




108d 




llOd 




Hid 




n2d 




113d 




57d 


1534c 


58d 


1561c 


59d 


1599c 


62d 


leeec 


eos 


1638c 


63d 


1687c 


64u 


1712c 


65s 


1750c 



1799c 

67d 



2051c 
69d 



1870c 
70d 



1851c 
71d 



1916c 
73d 



1949c 
74d 



1977c 
75d 



2005c 
76d 



2030c 
77d 



2069c 
79d 



2091c 
80d 



1832c 
82d 

99d 

1528d 

821d 

982d 

176d 

21010d 

134d 

S4d 

185d 

448d 

loeid 

6012d 
1716d 

1886c 
902d 



102c 

1S50C 1655c 1573c 1576c 

1070d 

1061c 1074c 10760 1081c 1086c 1 14Sc 

179c 180c 132c 

21106d 21113c 21114c 

139c 140c 144c 148c 151c 162d 

131c 266c 



167c 171c 



200c 
454d 



20Sc 
461c 



239c 
464c 



6088d 6441c 64S0c 
1729c 17S4C 1771c 



6461c 647SC 6488c 65030 6514c 6S30c 6S43c 

1781c 1786c 1997d 2015c 2039c 2059c 2070c 2080c 



1138d 1147c 1148c 1156c 1158c 

113d 
46d 
69d 



908d 
1729c 

376d 

55d 

216c 
442c 
116c 
14Sd 

70d 

1477d 

339d 

S24d 

U89d 



201SC 2121c 

442c 489c 491c 

59d 60d 122d 
223c 
165c 

104c U4c 116c 
1482c 

812d SlSc 816c 

530c 531c 532c 



510c 
123d 



512c 
143c 



144c 230c 293c 
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&.E..TVPB(gle ' 
soft ' lip savexC 

Gir _TrPFS(gle„' 
soft ', iip savexi 

GLE fyPFS(gJe t 
soft :: lip savey^ 

GLE _TyPFS(g]e t 
soft ' lip saveyT 

GLf JVPfS(gle t 
soft s. lip switcfi 

GLT types lgle_t 
soft ^ont pt r 

GlE HPGi:(gle_hp 

GlE RGLfqle ras 

OLE" ■TyPES(gTe,.t 
soft 'ext tempi 

GlF TYPfSlgle t 
soft text temp2 

GLf TVPRlgle t 
softf "leld 

cm c r t ) 

GCR'Jcrtb) 
sof t^' y 

GLE HPGLI (gle_h 
sof tvi-c 

GLE RGL(9le ras 
solid linestyTe 

DGL *fiRS(dgl_vj 
soper 

SRn DRV 

SRM DRVlsrrn) 
sort 

DGL POLy(clgl_po 
sorto-sc 

IM -LORD(losder 

LIB'-'flRIfiN 
sort I'-n 

LIBkflRIfiN 
sort 3 iSt 

INI :LOnO(loaclei 
so rt 1 ;st pt r 

IN! "LOflDdoader 

LIB'^RIPN 
sourc't 

LIBKfiRISN 
sourc'- blk addr 

Tfi,P^:EKUPTc580tb 
sourc-; block_addr 

TRPlEKUP 

TflFi:BKUP(C580tb 
sourc? block_5iz 

7fifL"ffKUP 
sourc'^ file_id 

SRrr 0RV[5rm) 
SOU'rC! is a_7914 

TftFi"EKUP 
sourc'^ is a_tape 

TftPrBKUP 
sourc; lun 

TflPHBKUP 
sourc" offset 

SRn_DRV(5rm) 



, pe 5 I 

ypes ) 

>pes) 

vpes) 

>pes ) 

ypes) 

il_ou 
out ) 
pes) 

pes ) 

pes) 



pgl.in) 



ly) 



ess 
cvr) 



1190d 

1183d 

1184d 

1185d 

1186d 

1187d 

7561c 
8427c 
in4d 

1176d 

1177d 

54d 274c 
lOld 

18236d 

8063d 

1206d 

1911c 
904d 

20547d 207S7C 



907d 
1736c 

17iqd 

877d 

87 ra 
1716d 

546d 

32d 

1262c 
333d 

1221d 

474d 

1220d 

1219d 

1217d 

475d 



1035d 
2022c 

1748c 

104 Id 

908d 
1997d 

75SC 

209d 

1344c 
900c 

1302c 

1716c 

1258c 

1237c 

1294c 

1717c 



20814c 20815c 
104 Id 

1754c 176!c 1768c 1777c 1796c 2000d 2034c 2039c 204f c 2056c 2066c 2107c 



805c 900c 
243c 
1382c 

1382c 

1298c 1324c 1374c 
1301c 1368c 1385c 
1295c 1297c 1310c 



1222d 1268c 1282c 1283c 1303c 1323c 1381c 



source uep 

TflF,:5<up 

THPcBKUP(C580tbdvr) 

TflPi;6KUP(cs80tbr ) 
sourc^addr 

SRM DRV(srm) 
sourc?block 

INI FLOfiOdoader ; 

LIB^'SRlflN 
sourciif i le 

ETU 
sourcesi^e 

INI7L0nD(loader ■ 

LIE^HRISN 
sourc'jt ype 

nORS-IFSYSlmfs) 
5P 

CON^ERT(convert text) 

IN] fLOHDlloader' 

LIB«fiRinN 
space 

LIESflRIflN 

LIP.)Hn{lifmodule) 

SEG'lENTERIasm) 
spacerec 

LIFOflM(lifmodule) 
space^vait 

ETU 
Spanish eur_kbd 

«8C-»<[TVR(a804xdvr) 

MONJSKBDZ 

SVSl)EVS(sy5devs) 
spar>ish kbd 

n804X[JVR(a804xdvr) 

MOMSKBDl (non_u;._kbdl ) 

N0WSKBD2 

SVS:)EVS(5y5dev5 i 
Spanish latin kbd 

n8C4XlJvR(a8ff4xdv r) 

fWK"JSKBD2 

SVS)EyS(5y5dev,- 
spare 

CRT(crt) 

GCRrjcrtb) 

SyS0EVS(sysdev5i 
spare block 

f1INTT(cs80ir) 

MIMT [qminit ) 
sparer^lock 

nlMT(cs80ir) 
sparet rack 

nlMT(xminit) 
spamq required 

hINtTTqminit ) 



sparing tries 
nir. ITTqminil ) 

5 par inqmode 
l1INIT|cs80ir) 



1218d 

335d 

830c 

31d 


1239c 
693d 
884c 
209d 


1266c 
724c 
886c 
239c 


1295c 
725c 
889c 
240c 


1296c 
730c 
900c 
249c 


1298c 
731c 
907c 
2S0c 


1312c 

735c 

251c 


13S9c 
740c 


1386c 
758c 


759c 


301d 




















959d 
379c 


1394c 


1976c 
















350d 


375c 


84Sd 


910c 


918c 


920c 


922c 


933c 


945c 


996c 


960d 
378c 


380c 


1388c 


1391c 


1977c 












30d 


44d 


















46d 

1422d 

554d 


64c 

1441c 

572c 


85 c 
1442c 
1654d 


66c 
1443c 
1694c 


67c 
169Sc 


1697c 


1702c 








467d 
676d 
932c 
176d 


500c 
741c 
938c 
186c 


S03c 
744 c 
939c 
187c 


698c 
746c 

139c 


948c 
747c 


9e8c 
781c 


1007c 
839c 


1036c 
867c 


1043c 
892c 


1059c 
893c 


70d 


676c) 


681d 


716d 


929d 












287d 


1207c 


















189d 
199c 
148d 


212c 


221c 
















194d 
117c 
200c 
149d 


192c 


















I92d 
199c 
148d 


219c 


















107d 
86d 
lOld 


153d 


















569d 
1274c 


847d 


868c 
















859d 


864c 


















1439d 


1448c 


















1109d 


121Sc 


1217c 


1222c 


1246c 


1248c 


12S4c 








mod 


1221c 


1222c 


1224c 














569d 


847d 


860d 


865c 















lOlLc 1072c 



11-156 



spd message 






iCLIBlhpib 31 
KERNELdodeclarations) 


*** 


2102c 


»«« 


309d 


spdcont rol 






niNIT(xminit) 




1384d 


spdword 






MINIT(a5mr) 




1337d 


5pe message 






It5LIB(hpib 3) 

KERNEL (iodecl a rat ions) 


***: 


2100c 


t*X 


308d 


special key 






KEYS (leys) 




298c 


SVSDEVS(sysclevs) 


*** 


2S8d 


specialcrtl 






SYSDEVS(5y5devs) 


*«* 


113d 


specialcrt2 






SYSDEVS(5ysclev5) 


««;« 


113d 


specialkbdl 






SySDEVS(sysclevs) 


««« 


145d 


specialkbd2 






SYSDEVS(sy5«evs) 


**» 


145d 


specials 






N0NUSKBD2 




SOd 


specific msus 






CTHBLE 




1290d 


specified system unit 






CTBBLE " 




1828c 


CTflBLE(option5) 


«*« 


53d 


splen 






INITLOfiD 




I666d 


spm 






LIFDfin(lifmodule) 




52d 


spoil 






I0LIB(hpib_3) 




2033d 


spooling 






DGL C OUTfdgl confg out! 
DGL~HPSL(dgl Tfpgl) 
OLE GENtgle gen) 




11265c 


MX* 


17034c 


*** 


2135c 


GLE HPGLTgle hpgl out) 
GLE TYPES(gle types) 
LIBTdg] lib) ~ 




7175c 


*** 


1076d 




21214c 


spos 






SRM DRV 


**« 


1946c 


SR(1 DRV(srm) 


**» 


906d 


spptr 






nlNIKxmlnit) 




1411d 


spt 






LIFDfin(lifmodule) 




53d 


sptable 






NINIT()>mlnit) 


«** 


1409d 


sptr 






CRT(crt) 
GCRT(crtb) 




505d 




373d 


GLE HPGLfgle hpgl out) 
GLE HPGLI (gle hpgT in 




7141d 




18080d 


LIBlfBRIfiN 




1717d 


spurge 
srR ORV 






«*« 


1972c 


SRM_DRV(srm) 
CS80(C580) 


«** 


908d 




502d 


srcfid 






SRri_DRV(5rm) 




103Sd 



1626c 1630c 1705c 1723c 1742c 1758c 1799c 
1348d 



147c 148c 

1298c 1301c 1305c 1308c 
1829c 

1667d 1770c 

292c 513c 521c 

2094d 2104c 

11379c 11429c 

7236c 7297c 75e4c 7670c 
21267c 

1777c 1789c 1793c 1808c 1809c 

292c 513c 521c 



528c S29c 53Cc 531c 
399c 400c 401c 402c 

7148c 71S1C 

18086c 18088c 

1736c 1737c 2008d 2022c 2023c 



sue 512c S13c S14c 515c 516c 
1703d 1716c 



srcoff 

SRM DRV(srm) 
5 read 

3Rn_DRV 

SRn DRV(s™) 
srec ~ 

LIFDfinilifmodule) 
srm 

CTPBLE 

CTflBLE(brstuff) 

CTSBLE(ctr) 

SRhflfl^srmammodule) 

SRMDflnisrmdarnmodule) 

SRn_DRV(5rm) 
srm card 

DC DRV(init_dc) 

KE^NEL(iodecJarations 
srm cat pass 

SPhOfiRf 5 rmd arr»nod u 1 e ) 
srm catalog 

SRM0fiH(5rmdarnmodule) 
srm change_name 

S^hDfiM(srmddrTnodule) 
srm clearunit 

SRMflh(5rmammodule) 
srm close file 

S^MDfinjsrmdanimodule) 
srm close_fileid 

SfnDHn(srmdammodule) 
srm clQse_path:id 

SSMDfin(srmdammodule) 

srm create_dir 

SlfnDfin(srmdammodule) 
srm create_file 

SlfflDHll(srmdammodule) 
srm dam name 

CTqBLF(ctr) 
srm dav 

CTflBLE 
srm default dav 

cThble 

CTRBLEjoptions) 
srm dup link 

SPhOflR ( s rmd anmod u 1 e ) 
srm get dir info 

SRliDpH(srmdammoduIe) 
srm get vol_dal e 

S^nOfiR(5rmdammodLjle) 
srm get vol name 

SRMOpR(5rmdanitiodule) 
srm init 

SfnOfinisrmdammodule) 

SRn_DRV(5rm) 
srm inited 

SlFn_DRVf5rm) 
srm lock file 

S^MOflhXsrmdammodule) 
srm open dir 

SRnDfinTsrmdammodule) 
srm open file 

S^MDfiflTsrmdammodule) 
srm purge_file 

S^hDftn(srnidammodule) 



1037d 1704d 171''c 



2002c 
910d 



676d 

12S6C 

1003c 

256d 

3Sd 

37d 

27d 

687c 
330d 

499d 

562d 
1170d 

144d 
1329d 

331d 

347d 
1716c 

986d 

1013d 

354d 

1209d 

1447c 
119d 

1210d 
381d 

1438d 

446d 

1619c 
999d 

n2ed 

1472d 
645d 

956d 
i;63d 



7l6d 718c 719c 722c 723c 724c 728c 730c 731c 732c 908c 
1415c 
498c 673c 



1706c 
1700c 
17e4c 

207c 
1762c 

352c 



1112c 1154c 1284c 



821c 
1728c 

17S3C 

1459c 

673c 

14iec 



844 c 
1744c 



850c 
1754c 



893c 

1774c 



1286c 
120SC 



1352c 
1239c 



1366c 
1240c 



1381c lasgc 

130Sc 1382c 



1427c 
1428c 



1433c 1697c 1707c 



1447c 1504c 1620c 



1766c 

451c 1692c 
1791c 
89Sc 1789c 

1212d 

1214c 1219c 
1779c 
882c U85c 1224c 1228c ie90c 1703c 1712c 1723c 1738c 1750c 1770c 
1726C 11-157 

1355c 1372c ;384c 1394c 1430c 1466c 1760c 1783c 



srtn pi-rge name 


























sRrttPnjsrmdamfriQduIe ) 




1245c) 


1773c 




















srnt read 


























SI?MPn(5rrriamfncidu le) 




SOd 


196c 




















srm set pass 


























SRnC<fiR[srmdammodLile) 




456d 


1715c 




















srm set unit prefix 


























SRODflR [ 5 rm^ammod ule } 




e75d 


1785c 




















arm stretch 


























S?nCipn(srmdammodLile) 




1310d 


1787c 




















srm strip 


























Sif ft! fl n ( 5 rmd anmo d u 1 e ) 




lS19d 


1796c 




















srm tm name 


























CTRSUElctr) 




36 Id 


673c 




















srm unlock file 


























Slfnofln ( 5 rmdammodule 1 




1496d 


1781c 




















srm write 


























SCdf.nisrmanmodule) 




97d 


203c 




















srmam 


























SRHPn ( 5 rmarmiodu le ) 




39d 


177d 




















srmannodule 


























SRnfin(srmarrfnoduie) 


»»* 


27d 






















armdain 


























SRMDfln ( s rmdarmiod y le ) 




43d 


1624d 




















srmdarjinit 


























SRnr.flfi 


**« 


1834c 






















SRnDfin(5rmdammodiile) 




41d 


1617d 




















srmdanmodule 


























SRnDfm 


**« 


1832d 






















SRMT'fln [ s rmd ammod ule ) 


*»* 


28d 






















srmdate 


























SRff:'At1(5rmdammodLile ) 




356d 


362c 




















srmnode 


























CTfiBLE 


*** 


1806c 






















INnLORD(bootda™odule) 




546d 


778d 


791c 


792c 


300c 














SRMCiflM ( s rmd atmo d j 1 e ) 


*** 


163c 






















SRM DRV (srm) 




1403d 


1469c 




















srmsavesc 


























SRf1fln(5rmammodu U) 




184c 


215c 


216c 


















SRMPnM(5rmdartmod jle) 




1639c 


1813c 


1814c 


















SRd ORVIsrm) 
srmsysprefix 
CTBELE 




997d 


1361c 


13e2c 












































1189d 


1806c 


1807c 


















s rmt ype 

I NlHOflD( boot dammed ule) 




























796d 


800c 




















srp 


























UCSD_OHM(uc5dmodjle) 




44d 


439c 


460c 


661c 
















CLE HPGLI (gle hpjl in) 


««# 


18237d 






















srq lane 

r5LIB(hplb 31 


























*«# 


2068c 






















KERNEL (iodeclarations) 


«** 


390d 






















srt 


























SRn_DRV(5rm) 




1479d 


148Sc 




















flMICO(amigodvr) 




478c 


529c 


670c 


890c 
















flMIGOfcsamigo) 


*** 


114d 






















nlNIT(timinit) 


*** 


481c 






















ss989t map 


























Bmc(J(csami90) 




194d 


210c 




















sset 


























S80'lXDVR(a804Kdvr) 




329d 


346c 


348c 


















ssetdate 


























SRn_DRV(5rm) 


*♦* 


912d 






















sseteof 


























SRM ORV 


*** 


2027c 






















SRM DRVlsrri) 


*** 


914d 






















ssize 


























OGL INQtdgl inq) 
LIfDHMllifmodulel 




6009d 


e086d 


6439c 


6458c 


8473c 


6485c 


6500c 


6511c 


6527c 


6540c 






72d 


718c 


743c 


746c 


747c 


754c 


756c 


773c 


781c 


783c 795: 


871c 891c 892c 






898c 


904c 


906c 


939c 
















UCSD Dflf1(ucsdmodule ) 




186d 


I98c 


202c 


203c 


238c 


239c 












ssm 


























CS80(C580) 




640d 


547c 


548c 


549c 


550c 














sstart 


























LIFDfin(lifmodylel 




71d 


719c 


774c 


796c 


813c 


815c 


826c 


839c 


858c 


870c 885: 


896c 938c 


INH/misc) 


«** 


367d 






















INITLDHD 




n27d 


1730c 


nsic 


















stack pt r 

DGL PClLY(dgl_poly) 




























20051d 


20939c 


210e3c 


21066c 


21108c 


21111c 


21139c 


21142c 


21170c 


21173c 




standard tc 


























DISCHPTB(di5Chpib) 




208d 


293c 


316c 


364c 


452c 


467c 












St ande rdam 


























INn(mi5c) 




534d 


582c 


720c 


















star 


























ftmGO(csamigo) 


*** 


I04d 






















start 


























ETU 




487d 


501c 


S02C 


506c 


517c 


iieod 












GLE UTLSfgle utl^) 
INlTL0HD(Ioa3er) 




21078d 


21093c 


21100c 




















1089CI 


1567d 


lS70c 


















LIBRflRISN 




749d 


760c 


768c 


772c 


784c 














TBIL 




34d 


50c 


55c 


61c 


68c 


85c 


86c 










start add 


























muT 




411d 


445d 




















start alternate 


























SRn0nM(srmdammodule) 




492c 


529c 


sesc 


732c 


82Sc 


980c 


1007c 


1081c 


losec 


1095c 1159: 


1202c 1203c 123SC 






1Z36C 


1257c 


1296c 


1367c 


1392c 


1404c 


1420c 


1424c 








SRfl 0RV(5rm) 


»*« 


234d 






















start digitize 


























GLE GENlrgle geriij 
GLE HPGLI (gle hpgi in) 
GLE"<N08(gle Icnob in) 
GLE_TYPE3(glC_typ55) 


*x* 


3076c 






















*** 


18371c 






















*«* 


18222c 






















JH»« 


1210d 






















start name sets 


























SRM 9RV 




1795c 


1796c 


1913c 


1974c 
















SRM ORV(srm) 




379d 


402d 


425d 


506d 


523d 


540d 


654d 


697d 


15S8C 


1596c 1634: 


1635c 1745c 1747c 


start of buffer 


























GLE_HPCL(gle_hpQi_out) 




7021d 


7048c 


7112c 


7524c 
















start protect code sets 
SRM 0RV(5rmT 


























»«« 


61Sd 






















start root 


























SRnDfln(srmdammodiile) 




737c 


741c 


1123c 


1129c 


H34c 


1143c 


1146c 


n64c 


1291c 


1391c 




SRM DRV(srm) 


*«* 


233d 






















start tfr in 


























DC CRV(extdc) 


*** 


211d 






















DC D5V(intdc) 


*** 


551c 






















start tfr out 


























DC CSVIextdc) 


*** 


212d 






















DC~DRV(intdc) 


»«« 


656c 






















startaddr 


























INIT(ldr) 




2335c 


2337c 


2361c 


















INIT^OflO 




1719c 


1720c 




















INITLOflD(loader ) 




10I7d 


1443c 


1447c 


















M6SK'3yS(ci) 
SEGnHNTER(asm) 




883c 


886c 


887c 


925c 














11-158 




264c 


267c 


















startblock 


























LIBK.IRIPN 




283;d 


2S57C 


2867c 


2869c 

















St artcase 

LIBRflRIfiN 
St artcmd 

HPHIL(hphil) 
startdefs 

INIT(ldr) 

INITLO<fD(lo.sder) 

SEGriENTER(a5m) 
St artglobal 

INIT(ldr) 

INI TL0flO( loader) 

LIBRflRIfiN 

SEGnENTER(asm) 
St artqvr 

LIBRflRIfiN 
St artqvrmod 

LIBRflRIfiN 
start indx 

SRnDfin(srmdarrmodule) 
start inq 

OGL_POLY(dg:._pol)') 
St arto^fset 

SRnfiFHsrmammodule ) 
St art read 

firllGO(amigodvr) 

BUBBLES(bubble) 

CRT(crt) 

CS80fC580dvr) 

F9885(f988Sdvr) 

GCRT(crtb) 

INITLOfiD(niirii) 

INITLOnOtsysgiobaU) 

KEYS (keys) 

UN!TIO(uio) 
St art reloc 

INIT(ldr) 

INITLOflD(loader) 

LIBRflRIfiN 

SEGnENTER(asm) 
startstate 

H0REFSVS(mf5) 
startstream 

n68KSVS(ci) 
starttext 

LIBRBRIHN 
St artwrite 

ntllGO(amigodvr) 

BUBBLES(bubblej 

CRT(crt) 

CS80(cs80dvr) 

F988S(f9635dvr) 

GCRT(crtb) 

INITLOfiD(mini) 

INITLOfiD{sysglobals) 

KEYSIkeys) 

UNITIO(uio) 
Stat 

DGL C„OUT(dgl_cc.nrg_out) 
St at53atatype 

HPHIL(hp(iil) 



Z98d 


1216c 


1218c 








39d 


83c 










2478c 












107ed 


1428c 


1471c 


1479c 


1490c 


1491c 


323c 












2470c 












10e4d 


1405c 


1633c 








1669c 


1708c 


1971c 


2976c 


3203c 


3S71C 


20Sc 












53d 


358c 


36Sc 


1666c 


1698c 


n02c 


S4d 


1666c 


1701c 


1909c 






220d 


223c 


230c 


231c 






0S47d 


20566c 


20568c 








51d 


63c 


98d 


HOC 






S64c 


592c 


621c 








70c 












434c 


446c 










U06c 


1262c 


1339c 


1385c 






167c 


277c 


298c 








304c 


316c 










42Sc 


438c 


505c 


S26c 






67d 












99c 


136c 










84c 












2431c 


2476c 










1063d 


1405c 


1616c 


1534c 


153SC 


1S63C 


1669c 


1707c 


1969c 


2976c 


3197c 


3S70C 


238c 


304c 


322c 


329c 







190ec 1908c 1967c 



1599c 1639c 



337d 380c 



2169d 2S43C 2626c 



564c 


S92c 






87c 








4S2c 


496c 






1288c 


1339c 


1385c 




172c 


223c 


277c 


298c 


323c 


3$4c 






427c 


443c 


505c 


526c 


67d 








93 s 








63c 








11029d 


11109c 


llUOc 


11133c 11134c 


45d 


303d 







statbyte 

fl804XOVR(a804xdvr) 

BflTfbat) 

HPHIL(hphll) 

MOUSE mouse) 

SYSDEVSlsysdevs) 
state 

LIBRflRIfiN 

SEGMENTER(a5m) 

SRM0fln(5rmdaitmodule) 
state ptr 

SEGfiENTER(asm) 
state rec 

SEGnENTER(asin) 
St ates 

LIBRflRIfiN 
statetype 

SRnDHrl[5rmdaiTimodule) 
St atrec 

MINITIasmr) 

MINIT jxmlnit) 
St at reg 

EDRIVER(edriver) 
status 

fi804XDVR(a8C4xdvr) 

flnlGO(amlgodvr) 

StllGO(csamjgo) 

CS80(cs8O) 

CS80(cs8Od5r) 

EDRIVERledriver) 

F988S(f9885dvr) 

GLE_HPGLI (gle_iipgl in) 

GLE_RGLigIe ras ouT) 

GLE TYPES (gle types 

HPHTL(hphil) ~ 

KEYSIkeys) 

rilNIT(asmr) 

MINIT hminit) 

fllNITlxminit) 

N0NUSK8D1 (non_us kbdl) 

SRhDfiM( srmdarnmodule ) 

SRn DRV(5rm) 

SYSCEVSisysdevs) 

TBPEBKUP(c580tbdvr) 
St atusShook 

fl804XDVR(a804xdvr) 

HPHIL[hphil) 
statusSlsr 

H804XDVR(a804xdvr) 

HPHIL(hphil) 
St atusehook 

fi804XDVR(a804xdvr) 

HPHIL(hphll) 
status 2_error 

finiGCTlamigodvr) 

firHGOfcsamigo) 



56d 
44d 
71d 
75d 
37d 

749d 
141d 
210d 



1324d 
1400d 

53d 

91d 

47ec 

148d 

342d 

650c 

68d 

Uld 

18228d 

8117c 

1273d 

303d 

191c 

1325d 

316c 

1400d 

17e0c 

42c 

341c 

325d 

262d 

S30c 

37d 

seec 

74d 
302d 

38d 
189c 

885c 
78d 



71d 
5Sc 
96d 

HOC 
402d 

759c 
142c 
241c 

61d 

eod 

758c 
210d 

1406d 

67d 

94 c 
S27c 
304d 
457d 

157c 

129c 

18266c 

82e4c 

305c 
419c 

470c 
1429c 
1761c 

399c 
1131d 



74d 

63c 

282d 

Hlc 



761c 
144c 
247c 

73d 

141d 



302d 
H8c 



765c 

231d 
254c 

290d 

231d 



316c 
H9c 



768c 
2S0c 
259c 

317d 

3Hc 



772c 
290d 
269c 



340c 

140c 



784c 
3Hc 
278c 



372c 
14Sc 



312c 
280c 



374c 
163c 

317d 



327c 328c 



97c 100c 102c 103c 105c 
661c 801c 



469c 



106c 108c 



167c 178c 

131c 134c 

18268c 18271c 
8389c 

307c 311c 



201c 204c 



322c 324c 336c 343c 349c 



426c 432c 48ec 5S4c 

1593c 1611c 1613c 1618c 1621c 1631c 1632c 1712c 1726c 1727c 1735c 1740c 

1801c 1802c 

423c 

1134c H35c 1467c 1469c 1543c 



102c 
367c 



103c 406c 
200c 28fc 



310c 32ec 



11-159 



statu -^ bytes 

RnH.Olcsamigo) 
CS8C (C580) 
CS8t (csSOdsr) 
rHNIT(hminit) 
THPtBKUP(C580tbd/r) 

statuL cmd_buf 

ftHI(.iJ(c5atnigo) 
statut. def 

GLE_TyPES(gle_ty3e5) 
status mask 

CS8PTcs80) 
statu;, mask type 

csscTcssoT 

CS8t'(c580dsr) 
status type 

snlC-C(amigodyr ) 

wnlGOicsamigo) 

CS8C(cs80) 

CS8C(c580dsr) 

niN]T(hminit 

TBPfBKUP(C580lbd<r) 
Stat UT line 

SYSDEVStsysdevs) 
statu-^reg 

S3!MXDVR(a804xdvr) 
stdtust ype 

B8(MXDVR(a804xdvr) 

BOTjbat) 
stdblt 

HEnPT(hpm) 
stdlists 

HEnPT(hcm) 
stemp 

lIFDfin(lifmodu]»l 
stepsize 

EDRlVER(edriver ) 

EPR0M3(eprom5) 
stiO 

F988S(f9885dvr) 
stil 

F98e5(f9885dvr ) 
St ime 

SYSDEVS(5ysdev5) 
s t imu ] u s 

CTBt:LE(5can5tuf f 1 
stop 

CRTIcrt) 

GCR1 (crtb) 

SVSD£V3(5ysdev5) 
stooac tion 

key;; (keys) 
stopgoing 

n68Ksys(ci) 

slopline 

nlui 

IBPtBKUP 
storaqe 

CTfiELEIscanstuff ) 
5tore_dit 

GLE^RGL(gle_ra5_out ) 



stp 

INIlLOflD(loader 1 

LIBSfiRIflN 
5tr9 

INnLOflD(loader ) 
St r count 

liJLJB(generaL4 | 
St rent 

BGL. INQ(dgl_inq) 
St reaiii 

N68HSYS(ci) 
St rcamchain 

n68KSYS(ci) 
St reamdvr 

n68KSYS(ci) 
streanifib 

n68P<SYS(ci) 

St reartiing 

ETU 

LIBRflRIflN 

n68KSYS(ci) 
St reainopen 

n68KSYS(ci) 
St reamsyntax 

M68KSYS(ci) 
street 

nORtFSyS(mfs) 
St retch 
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LIFDfltl(lifmodule) 
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St Tin 
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INIT(.OflO(bootdamnod 
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CRTicrt) 
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ETU 
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LIBRflRIPN 
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MIUI 
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ule) 



ule) 

) 



444d 
801c 
14ed 
342d 
640d 
302d 
520d 
874c 


476c 
803c 
304d 
4S7d 
650c 
316c 
530c 
878c 


478c 

312c 
466c 
6S8c 
317c 
S38c 
880c 


482c 

313c 
467c 
682c 
325c 
562c 
886c 


484c 

317c 

755c 
470c 
637c 


509d 

321c 

757c 
478c 
639c 


S27c 

763c 
S4Sc 


306d 


310c 












1243d 


1273d 












347d 


538d 


549c 










201d 
795d 


211d 


347d 


538d 


544d 






444d 
9Sd 
20Sd 
640d 
302d 
520d 


509d 
148d 
342d 

700d 


656d 
157d 
3e2d 


792d 
304d 
4S7d 








248d 


582c 


5S5c 


644c 








62d 


94c 


119c 


134c 


383c 


386c 




51d 
39d 


114d 
52d 


132d 
60d 










56d 


S7d 


59d 


231c 








S9d 














163d 


183c 


184c 


188c 








83d 
17d 


171c 
95c 


178c 
98c 


182c 


186c 







532c 534c 



794c 871c 



451d 

1088d 

99d 
78d 
94d 

59d 

870d 

224d 
lUld 

1087d 

8208c 



516c 
891c 



260c 
1147c 



1121c 
8215c 



902c 904c 



2Slc 270c 
1148c 11S7C 



902d 
481c 

lS85d 

124 2d 

6166d 

1031d 

58d 

30ed 

54d 
484c 

106c 
90c 

74d 



1014d 

81c 
433c 
13ed 
1132c 
1666c 
57c 
642c 

30d 



1758d 
538d 

SOSd 
316d 
422d 
373d 
764d 
S52d 

35d 
3302d 

98d 
308d 

37d 



1187c 126SC 1288c 1290c 1291c 1309c 1348c 



1587d 
1614d 
6456c 
1071c 



126c 

273c 

88d 

1056c 

435c 

93c 

642c 

U32c 



1617c 

6457c 

1135c 

1035c 

548c 

321c 
510c 

133c 

2093c 

90c 

1180c 

530c 

94c 



1622c 
S458c 



322c 
514c 

197c 
3406c 
1076c 

1181c 

543c 

9Sc 



1623c 
64S0C 



330c 
518c 

206c 
3683c 
1031c 



1629c 
6462c 



331c 
545c 



228c 

1142c 



1633c 
6483c 



342c 
546c 



6484c 6485c 6487c 6489c 



348c 
SSOc 



349c 
8e2c 



3S7c 
863c 



367c 
945c 



368c 
1054c 



372c 
1055c 



814c 1007c 1267c 



498c 617c 
1787c 



89c 

66d 



544 c 



547d 778d 782d 
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23d 
21d 

98d 



7e6d 

688d 

37d 

109d 
391d 

41d 
832d 
124d 

46d 
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648d 



1060d 
455c 
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11-160 
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INIT Idr) 
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St ringptr 

M68KSYS(ci) 
St ringsp 

INITLOfID 
St ringsysp 

INITLORD 
St ripname 

INITImisc) 

INITL0flD(sy5globals) 
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SySDEVS(sysdevs) 
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194d 










102d 


103d 
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40d 
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749d 
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1727d 
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41d 
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29d 
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1736d 
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43d 
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128c 
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1077c 
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165c 
12560 
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303c 
1299c 



434c 
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489c S24c 
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LIFO(iM(ijfmodule) 
suf fixt able 

ASCII 

INIT(ml5c) 
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svdate 
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svol Eytes 
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766d 

44d 


640 


7Sc 


89c 














156d 


158c 


1482d 


1486d 


1492c 


1495c 


1505c 


15230 


IS47C 1565c 


1566c 


2092Sd 


20955c 


20968c 
















20924d 


20953c 


20964c 


209650 


20982c 












865d 
191c 


193c 


1S05C 


1523c 


1S74C 


1579c 


239SC 








81d 
973c 


loesc 


1074c 


1162c 














1479c 
636d 




















7S6d 
142c 


168c 


















3200 
701c 
263d 
147c 
270c 


70Sc 
143c 


714c 
1520 


722c 
176c 


726c 
180c 


187c 


188c 








36d 


169d 


















174d 


263d 


















169d 


174d 


















2048c 
916d 




















15d 


20d 


319d 
















231d 
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737c 
139d 


183d 


185c 


291c 


349c 


3710 










e3d 


65c 


660 
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583d 
48d 


5850 

50c 


S86c 

Sic 


612c 
90c 


666c 
120c 


692c 
liSc 


718c 
171c 


750c 
198c 


780c 8350 
274c 


863c 


572d 
117d 


583c 
12Sc 


584c 
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86d 

338d 

28d 


llSd 


215d 


217d 


221d 


222d 


224d 


225d 


572d 




117d 


22ed 


231d 


255d 












324d 


327c 


33Sd 


344c 
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3i:d S95d 60C,: 658c 693c 



716c 7290 



ISUTDfiDdoader ) 

LlBRIWfiN 

UCSD_Ofin(ucsclmodu;e) 
swap 

ETU 
swap8 

i;csD_i)fin ( uc sdmodu 1 e ) 



swaptfln 

UCSD_0fin(uc5dmodu]e) 

UCSO DfiM(iJC5dmoduJe) 
swedlsF kbd 

B804XiJVR(a804xdvr) 

NOI«iS<BDl (non_u5_kbdl) 

N0HUSKBD2 

SVSDEVS(sy5dev5) 
Swiss ir kbd 

fl8O?X9VR(a304xdvr) 

N0KUS<BD2 

SVS(5E^S(sy5<Jev5) 
swissqr kbd 

S80l5(aVR(a804xdvr) 

N0HIJSKBD2 

SVS0£VS(5y5devs) 
switc^l xy 

DGL p.)LY(dgl_polyj 
swiicFvols 

SUVOL 
sworO 

IMITLGflD(Ioader) 

LIBRBRinN 
swri te 

SRn_DRV 

SPn_0RV(5rm) 

DGL_Pi)LY(dgl_poly) 
sxmax 

GEN(djl_gen) 
sxmift 

GEN(0'3Lgen) 
sy 

DGL_POLY(dgl_poly) 
symax 

GeN(<)gl_gen) 
symbol 

CTneLiT(ctr) 

IMITLOflDl loader) 

SEGflENTEP ;asm) 

SEGflENTEKsegmenter) 
symbolpt r 

INITLOflO(loader) 

LIBRRRIflN 
symbolt able 

INITLi)RO(loader) 
symfid 

n68ICSYS(ci) 
5ymir\ 

GEN(dgl_gen) 
sympt rl 

INXTLi)BD(loader) 



892d 

2373c 

188d 

386d 

55d 
233c 
370c 
519c 



1S73C 

243ec 

2S2c 



52d 

S6d 

188d 

176c 

34d 

149d 

186d 
191c 
147d 

191d 
191c 
147d 



20435d 

3d 

857d 
2440c 

2088c 
920d 

205S2d 
3399d 
3398d 

20553d 

3401d 

316d 

854d 

109d 

33d 

85Sd 
195c 

851d 

47d 

3400d 

1249d 



97c 
245c 
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93c 

95c 

193d 

3$d 

206c 

206c 
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2494c 2607c 2S68c 2600c 2670c 2671c 2672c 
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98c 100c 102c 

246c 2S3c 254c 

387c 392c 416c 

547c 548c S49c 



479c 526c 558c 

247c 291c 313c 484c 545c S46c 



142c 


lS2c 


162c 


163c 


21Sc 


220c 


273c 


295c 


336c 


343c 


361c 


362c 


417c 


418c 


4S2c 


488c 


489c 


490c 


586c 


537c 


596c 


598c 


599c 


601c 
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495c 517c S18C 
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932d 
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20S61C 20563c 20583c 20571c 20574c 20S75C 
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85Sd 

12Sc 

35d 

901d 
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852d 

631c 
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278d 
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1172c 
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1188c 1767c 
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5yndronie_cmd buf 
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1250d 
1213d 



852d 
1181c 



1266c 1273c 1274c 



902d 1172d 1213d 1218d 



810c 
7Sd 



837c 
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793d 
149d 



83Sc 
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SYSDEVSfsysdevs) 
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sysdate 
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793d 
117d 

397c 
2396c 

901d 

328c 
189Sc 
2629c 

12Sc 

76c 
383d 

18Sc 
S02c 
462c 
158c 
116d 

3712c 
117c 
123c 
61c 
384d 
4l5c 

390c 

2358c 

1071d 

922c 

llSc 

UOld 

663c 
364d 



149d 

398c 
2496c 
1270c 

329c 
1897c 
2615c 

126c 



6660 
S68c 
493c 



463d 
492c 



2432c 
1127c 



149c 
1655c 



837c 
33Sc 



1442c 

3S4C 

1901c 

2619c 



460c 
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sysdevs 










fl804X0VR(a804x<Jvr) 


*** 


31d 






BfiT 


«** 


99d 






BHT(bat) 
CLOC<(clock) 


*** 


33d 






**^x. 


33d 






CRT(crt) 


*** 


33d 






C HOOK 


«** 


3Sd 






DSL C OUT(dgi confg out) 
DGL RBS(dgl rasterT" 


*** 


11004d 






*** 


17012d 






ETU 


«»« 


26d 






GCRT(crtb) 

GLE RGL(gle ras out) 

HPHTL(hphilT 


««» 


33d 






«#« 


8004d 






IK^X 


30d 






KEVS(keys) 


*** 


33d 






LIB(dql lib) 
LIBRflRlHN 


*** 


20097d 






«*« 


27d 






LIFOflnflifmodule] 
n68KSYS(ciJ 


*** 


26d 






*** 


33d 






MINIT(mmlnlt) 


**« 


llld 






niui 


*** 


lid 






nOREFS/S(mfs) 


*** 


lOd 






MOUSE (mouse) 


*** 


29d 






N0NUSK801 (non us kbdl) 


««# 


31d 






N0NUSKB02 


*«* 


30d 






PRINTER(prtdvr) 


*«« 


37d 






SYSOEVS 


«X* 


661d 






SVSOEVSIsysdevs) 


H.*^* 


29d 






TPIL 


*** 


32d 






TflPEBKUP 


#»* 


953d 






UCSD fln(uc5d am) 


il.^* 


29d 






UCSD Dnh(uC5Smodule) 


K!(!« 


29d 






sysescapecode 










INIT(misc) 




234c 


241c 




INITLOfiDlsysgiobals) 
TPPEBKUP 


M»* 


239d 








859c 


866c 




*** 


1170c 






sysfUe 










INIT(misc) 




726c 


727c 




INIT LOAD ( boo tdammoduJe) 


*** 


671c 






INITLOflDisysgiobals) 


**» 


52d 






LIBRflRIflN 


*** 


3140c 






sysfilenames 










n68KSVS(cl) 




41d 


S5d 


581d 


sysfiles 










f168KSYS(ci) 




39d 


40d 


41d S86d 


sysfilevols 










t168KSYS(ci) 




40d 


S83d 




sysflag 










CRT(crt) 




238c 


253c 


687c 720c 


DGL C INfdgl confg in) 
DGL Ti!OLS(dgT tools) 


X>K1« 


12050c 








20O28d 


20032c 


20034c 20061c 


INlTLOBDtsyS'jTobals) 


««* 


283d 






KERNEL(generil 0) 


*** 


1015c 






5y5flag2 

INITLOfiOfsysglobals) 
sysflag def 

C HOOr 










*«* 


289d 
















38d 


52d 




DCL_TOOLS(dgHools) 




20016d 


20028d 





687d 591d 657d 661d 



sysqlobals 

n804XOVR(a804xdvr) 

finiGOIamlgodv'r) 

FirllGO csamigo) 

fiSCII 

RSCII (asciimodule) 

BnT(bat) 

BUBBLES (bubble) 

CLOCK(clock) 

CONVERT (convert text) 

CRT(crt) 

CSSOrcsSO) 

CS80 csSOdsr) 

CS80 csSOdvr 

CSSOjtapebuf 

CTPBLE 

CTnSLE(br5tuff) 

CTPBLE ctrj 

CTflBLEioptions) 

CT«BLE(5can5tuff) 

C HOOK 

or DRV(extdc; 

DC ORVfinit dc) 

DCDRV intdc) 

DGr_CjNrdgl confg_ 

DGL_C 0UT(dgl_confg 

DGL RffS(dgl_ra5ter) 

DISCHPIB(bkgnd; 

DISCHPIBfdischpib) 

DI_DR»(extdi) 

DI DRV(init_discint ) 

DnH DRV(init dma) 

EDRTvER(edriver) 

EPR0MS(eproni5) 

ETU 

F9885(f9885dv'rl 

GCRT(crtb) 

GLE KN0B(gle knob_in) 

GLE RGL(gle_7as_out) 

G_Dl?V(extg) 

G DRVJinlt gpio) 

HFfiPT(5y5gTobal5) 

HPHILJhphll) 

H_DRV exth) 

H DRV init hpib) 

IfJiT 

INITffs) 

!NIT(initunlts) 

INIT(ibr) 

INITfldr) 

INITimisc) 

INITLOPD 

INITLOfiD(bootdamnodul 

IMTLOfiO(loader) 

INITLOfiD(mini) 

INITL0flD(5ysqlobaj5) 

I0LIB(general 2) 

KERMEL(generaT_0) 

KERNELio declarations 

KEYSfkeys) 

LIB(dgl lib) 

librhriHn 

LIFDfin(lifmodule) 
LOCKMOD(lockniodule) 



Ir.) 
_out) 



*** 


31d 


t** 


426d 


*** 


37d 


«*« 


317d 


*«« 


4d 


**« 


33d 


*** 


26 d 


*** 


33d 


**M 


27d 


*** 


33d 


*** 


66d 


*)KK( 


698d 


««* 


972d 


t** 


36d 


**# 


1186d 


«XIK 


928d 


XX* 


239d 


*Xt 


47d 


#** 


1035d 


*«* 


35d 


*X* 


194d 


#** 


594d 


««* 


232d 


**« 


12017d 


«»» 


11017d 


««« 


17014d 




31d 


««* 


189d 


«** 


ISOd 


*** 


200d 


X** 


164d 


*».* 


24d 


*X* 


Sd 


»** 


26d 


««« 


37d 


*** 


33d 


*** 


18028d 


«** 


8004d 


If** 


167d 


««* 


218d 


«** 


26d 


*** 


30d 


«*« 


166d 


«*«: 


216d 


«*« 


2514d 


**« 


739d 


If** 


213Sd 


«*« 


34d 


*** 


2270d 


f** 


153d 


X** 


16e4d 


t** 


S35d 


I:** 


809d 


t** 


304d 


*** 


6d 


X** 


826d 


t:** 


771d 


¥** 


236d 


If** 


33d 


k** 


20096d 


I:** 


27d 


K«* 


26 d 


K*# 


27c: 
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nlNIT (asmr) 


««* 


1319d 










MINIT biiiinit) 


J*** 


57d 










niNIT(c580irj 


!»!** 


516d 










niNIT hminit) 


*** 


218d 










MINn iramigo) 


n** 


187d 










fllNIT midecs 


*** 


13d 










niNH rmiinit 


**♦ 


Hid 










niNIT qminit 


*** 


878d 










HINIT xminit 


*** 


13S8d 










mui 


*** 


lid 










IIOCEFSVS(mfs) 




lOd 










MOUSE (mouse) 
PRINlER(prtdvr) 


*x* 


29d 










*** 


35d 










RS ORV(init rs 


*** 


212d 










RS OSVrrs) 
SESneNTER(5egmenti!r) 


*** 


167d 










*** 


18d 










SRI1fiM( srmarnmodule ) 


*** 


32d 










SRnDfrl(brmdammodu le ) 


*** 


33d 










SRM DRV(5rm) 


*** 


30d 










SUVCl 




4d 










SYSDEVSlsysdevs) 


««* 


33d 










TSIL 


**^ 


32d 










TBPEEKUP 


*** 


953d 










TBPEBKUPfcsSOtbdv) 


**# 


30Sd 










TR!>EEKUP(cs80tbr) 


*** 


Ud 










UCSO fln(uC5d am) 


*** 


29d 










UCSD "Dfin(uc53module) 


*** 


29d 










UNinO(oio) 


*** 


2Sd 










sysloresult 














INm0fiD(sy59lobal5) 




248d 










syslibr ary 














INIT 


*** 


2S77C 










INlT(ldr) 


XX* 


2444c 










INITlOPD(5y5global5) 
H68ICSYS(ci) 


XX* 


2676 












621c 


693c 


728c 






sysmenL 














KEVS(key5) 




470c 


S84c 








S¥SDEVS(5ysdev5) 


*** 


160d 










sysmeoLshift 














KEVS(key5) 




471c 


685c 








SYSDEVS(sy5devs) 


*** 


161d 










sysname 














INITLOfiD 




1742c 


1750c 








INITlOfiOtsysglobals) 


»** 


281d 










TRIE 


*«* 


51c 










sysnorrTi 














KEYS(key5) 




39d 


584c 








sysp 














INITLOfiD 




1736d 


1742c 








syspref ix 














INITLOfiD 




1668d 


1764c 








sysshft 














KEVSIkeys) 




41d 


585.- 








sysstar t 














INITLOfiD 




1669d 


1740^ 


n45c 


1761c 1763c 1765c 1771c 1790c 




system card 














KERNEL(general 0) 


XXX 


989c 










KERNELdodeclarat :on5) 


XXX 


325d 










system cmap 














GLE_PGL(gle_ra5_out ) 




8064d 


8330c 


8350c 






system cmap def 














GLE_RGL{gIe_ras_out ) 




8021d 


8064d 








system cont roller 














lOLlBlhpib 1) 




400d 


481d 


487c 


490c 




lOLlBjhpib 2) 




1816c 


1871c 


1957c 


1964c 




system init 














DGL VaRS(dgl vars 


XXX 


1240cl 










GENTdal gen)" 
LIB(dgl lib) 


XXX 


3078c 












20582c 


20612c 


20641c 


20672c 20731c 20946c 21108c 21378c 21381c 




system unit 














CTnBrE(ctr) 




305d 


8S9d 


861c 


863c 




systemdate 














SRn0fln(5rmdarmiodu;.e) 




3S7d 


364c 








systemid 














INITLOfiD(loader) 




944d 


1580c 








LIBRflRIfiN 




350c 


351c 


1963c 






systemname 














TRU 




34d 


51c 


52c 


53c 56c 58c 59c 61c 62c 




systemstartup 














nesKsvs 


XXX 


1215c 










n68Ksys(ci) 




77d 


lie4d 








systemtime 














SRnDfirl(srmdammodu;e) 




358d 


370c 








syst ime 














LIBRfiRIfiN 


XXX 


234c 










LIFDfirinifmodule) 
M68KSyS(ci) 


XXX 


117c 












122c 


158c 


256c 






mui 


XXX 


62c 










SVS0EVS(5ysdevs) 




385d 


466d 








systmtype 

SRnDflM(5rmdammodu;e) 
















69d 


1090c 


1387c 






sysunit 














CTHBLE 


XXX 


1846c 










CTBBLE(ctr) 


XXX 


861c 










INITrinitunits) 


XXX 


2260c 










INn(ldr) 


XX* 


2316c 










INITLOHD 


XX* 


1673c 










INITLOfiD(loader) 




1605c 


1608c 


1610c 






INITLOfiD sysglobals) 
n68KS/S(cl) 


XX* 


265d 












160c 


287c 


678c 


849c 




SUVOL 


*x* 


13c 










sysunit list 














CTflBLt 


*x* 


1837c 










CTflBLE(options) 


*xx 


193d 










sysunit list length 














CTBBL' 


XXX 


1838c 










CTfiBLEloptions) 




192d 


196d 








sysunit list type 














CTfl8L^(optTons) 




19Sd 


199d 








sysunit ok 














CTfiBL' 




1829c 


1831c 


1837c 


1840c 




CTflBLt;(ctr) 




305d 


859d 


864c 


898c 909c 




sysvol 














M68KS/S(ci) 




670d 


674c 


678c 


68Sc 687c 688c 




sysvolname 














f168KSVS(ci) 




583d 


620c 








syvid 














INIT(ldr) 




2316c 


2317c 


2318c 


244SC 




INITLOfiDlsysglobals) 
n68KSvS(ci) 


XXX 


268d 












194c 


611c 


616c 


e78c 688c 708c 849c 




SMVOL 


*x* 


13c 
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t 

CLOCK(clock) 




74 d 


76c 


79c 


80c 


81c 


137d 


142c 
















CONVERT(convert text) 




35d 


36d 


40d 


65c 


72c 


76c 


79c 


87d 


100c 


104c 


117c 


119c 






CS80(<:580) 




346d 


SOOd 


513c 
























CTnBlE(ctr) 




345d 
787c 


639c 
809c 


645c 
816c 


651c 


6S8C 


664c 


673c 


682c 


e94c 


707c 


716c 


733c 


7S2c 


768c 


DGL POLY(dgl poly) 




20411d 


2079SC 


20797c 


20798c 


20334c 


20836c 


21032d 


21040c 


21078d 


21086c 


21123d 


21130c 


21164d 


21161c 


GLE RGL(9le fas out) 




8160d 


6163d 


8164d 


8165d 


8166d 


8167d 


3168d 


8169d 


8170d 


8171d 


8172d 


8173d 


8174d 


817Bd 






8176d 


8177d 


8178d 
























GLE UTLS(gle utls) 

HEflPT(hpm) 

INIT(f5) 




21044d 


2!0S5c 


21061c 


2106ec 
























87d 


89c 


90c 


94 d 


96c 






















795d 


796d 


8C0d 


801d 


802d 


803d 


804d 


805d 


806d 


807d 


808d 


808d 


810d 


Slid 






812d 


813d 


814d 


825d 


827d 




















t168KSYS(ci) 
nOREFSYS(mf5) 




398d 


S40c 




























18d 


19d 


515d 


520c 


523c 


S2Sc 


667d 


675c 














SYSDEVS(sysdevs) 

tl 

CLOCK (clock) 




474d 


476c 




























90d 


94 c 


96c 
























NONUSKBDl (non 1.5 kbdl) 




76d 


77d 


82d 


85d 


S8d 


91d 


94d 
















N0NUSKBD2 




33d 


34 d 


61d 


63d 


66d 


70d 


74d 


78d 


82d 


87d 


93d 


89d 


103d 


108d 


t2 

CLOCK(clock) 




llOd 


114d 


117d 


119d 
























90d 


95c 


96c 
























NONUSKBDl (non us kbdl) 




77d 


80d 


























N0NUSKBD2 
t3 

N0NUSKBD2 




34d 


50d 




























35d 


36 d 


40a 


41d 


42d 


43d 


44d 


45d 


46d 


47d 


48d 


49d 


50d 


54d 






S5d 


56 d 


S7d 


58d 






















t4 
































N0NUSKBD2 




36d 


39d 


























t cnt 
































I0LIB(general_4) 




1203d 


1355d 


1371c 


1396c 


1410c 


1426c 


















t count 

I0LIB(general_4) 




1229d 


1258d 


1267c 


1271c 


1442d 


1444c 


1445c 


1466d 


1468c 


1469c 


1491d 


1493c 


1494c 


1534d 






1S38C 


1S41C 


1543c 
























t dir 
































DISCHPIB(di5chpib) 




443d 


453c 


458c 


474c 






















I0LIB(general_4) 




1201d 


1207d 


1213d 


1220d 


1225d 


1353d 


1383c 


1424c 


1438d 


1445c 


1462d 


1469c 


1488d 


1494c 


t tfr 
■ I0LIB(general_4) 




1496c 


1531d 


1536c 


;543c 
























1200d 


1206d 


1212d 


1219d 


1224d 


1352d 


1421c 


1437d 


1445c 


1461d 


1469c 


1487d 


1494c 


isoec 






1509c 


1510c 


ISUc 


lS30d 


1543c 




















-C^io(cs80) 
CS80(C580) 




229d 


34Sd 


SOOd 


S06d 






















IK** 


221d 




























tab 
































INIT(misc) 


*»« 


164d 




























KEYS(keys) 


*** 


481c 




























table 
































TfilL 




34d 


50c 


62c 


75c 






















tablenumber 
































TfiPEBKUP(c580tbr) 




269d 


277c 


























t ablepc 
LIBRRRIfiN 


































309d 


1154c 


!220c 


;233c 






















tablept r 

INITLOfiD(loader) 


































1218d 


1236c 


1238c 


:243c 






















tag base 

DTSCHPIB(dischpib) 


































212d 


278c 


338c 


402c 






















tagbase 

PRINTERlprtdvr] 


































58d 


220c 


























tail 
































TBIL 


*** 


30d 




























talk 
































I0LIB(hpib_2) 




1797d 


1981d 


























talk constant 
































GlE HPIB(gle,.hpib_io) 




10213c 


10301c 


























lOLlBlhpib 1 




S35c 


623c 


























IOLIB(hpib 2 




1827c 


1905c 


1984c 
























KERNEL(iodec arations) 


*** 


316d 




























talker 
































lOLIBlhpib 3) 




204 Id 


2146d 


2148c 
























tape dt 
CTRBLE 


































1377d 


1381c 


























tape uep 
TBPEBKUP 




1218d 


1386c 


1387c 


1393c 


1397c 


1405c 


















tapebkup 
tdPEBKUP 
































*** 


8d 




























tapebuf 
































CS80 


*«« 


1411d 




























CS80(cs80dsr 


**« 


598d 




























CS80(C580dvr 


.*** 


972d 




























CS80( tapebuf 
TflPEBKUP 


*«# 


32d 




























**« 


953d 




























TnPEBKUP(C580tbdvr) 


*** 


305d 




























tapebuf block 
































CS80(C580dvr) 




1157c 


1172c 


1177c 


1186c 


1193c 




















CS80(tapebuf) 


*«« 


47d 




























tapebuf maxsize 
































CS80(cs80dvr) 


*** 


1241c 




























CS80(tapebuf) 
tapebuf ptr 




39d 


41d 
























































CS80(C580dvr) 




1157c 


1193c 


i268c 


1283c 


129SC 


1318c 


















CSSOttapebuf) 
tapebuf size 




44d 


5Sc 


56c 






















































CS80fcs80dvr) 




11S7C 


1192c 


1193c 
























CS80(tapebuf) 


««* 


48d 




























tapebuf state 
































CS80(cs80d5r) 


*** 


629c 




























CS80(C580dvr 




1149c 


1156c 


IISSC 


1172c 


1178c 


1186c 


1194c 


1294c 


1306c 


1317c 


1369c 








CSeOr tapebuf) 
TPPEBKUP 




4Sd 


57c 




























1245c 


1482c 


























TnPEBKUP(c580tbdvr) 




S83c 


81Sc 


























tapebuf state type 
CS80(tapebuT) 

tapebuf type 
CSSOrtapebuf; 

tapebuf uep 
CS80 csBOdsr) 


































42d 


45d 


























































41d 


44d 
























































*«* 


628c 




























CS80 cs80dvr 




1150c 


11S7C 


1172c 


inec 


1185c 


1193c 


1369c 


1377c 














CS80 tapebuf 
TBPEBKUP(C580tbdvr) 


*** 


46d 






























S82c 


814c 


























tapesetup 

TflPEBKUP(C580tbdvr) 


































366d 


383c 


























target h 

OSl l?flS(dgI raster) 


































l7071d 


17105c 


nil6c 


17117c 






















target 1 

DGL !fns(d3!_ra5ter) 


































17073d 


17105c 


17121c 


17125c 






















target s 

DGL lfns(dgl raster) 
tb 

GEN(dgl gen) 


































17072d 


17105c 


ni2cc 


17137c 
























3193d 


3229c 


3233c 


3240c 






















tbit 

CS80(C580) 

DISCHPIBIdischDib) 




S06d 


513c 




















n-165 






270d 


277c 


32'Jd 


336c 























tent 

GLE_HPGL(gle_hf.jl_out) 

GLE_HPGLI (gle_hp;)l_in) 

tct me55age 

lCLIB(hpib_2) 

KERNEL (iodeclarations) 
td 

O8O4XDVR(a804xdvi ) 

LiBRflRIRN 

SVSDEVS(sy5tJev5) 
tdata 

R8O«XDVR(a804xdvr ) 

tdate 

INIT LORD! boo tdatmiodule) 

LlFDflM(llfmodi;le; 
tdp 

!NITLOfiD(loader) 

LIBRfiRIflN 
tdx 

DGL_P0LV(d9J_pol>) 
tdy 

6GL_P0LY(dgl_po]>) 
te 

INITLOflD(mini) 



tea 

CTfiBLE(ctr) 

tea amigo mv 

CTnBLE 

CTBBLE(ctr) 
tea amigo sv 

CTBBlE 

CTBBLE(ctr) 
tea boot 

CTfiBLE(ctr) 
tea bubb]e 

CTBBLE 

CTHBLE(ctr) 
tea crT 

CTflBI.E 

CT«Bl.E(ctrl 
tea csHO mv 

CTBBl E 

CTftBLE(ctr) 
tea csPO sv 

CTBBLE 

CTflBLE(ctr) 
tea eprom 

CTBBl E 

CTaBlE(ctr) 
tea fipy 

CTBBl E 

CTBBl E(ctr) 
tea hpS290x 

CTflilE 

CTBBl E(ctr) 
tea hp9885 

CTflBl E (ctr ) 



tea hp9895 

CTbBlE 

CTBBLE(ctr) 
tea kbd 

CTBBLE 

CTflBLE{ctr) 
tea local printer 

CTBBLE 

CTfiBLE(ctr) 
tea memory volume d,3m 

CTBBLE 

CTBBLE (ctr) 
tea mini 

CTBBLE 

CTflBLE(ctr) 
tea nounit 

CTBBLE(ctr) 
tea srm 

CTBBLE 

CTBBLE (ctr) 
temp 

B804KDVR(a804xdvrl 

CRT(crt) 

0C_ORV(extdc) 

DC DRV intdc) 



DGL POLV(dgl poly) 
DI_PRV(extdiT 

ETU 

GEN(dgl gen) 

GLE HPGUlgle hpgl out) 

GLE_HPGLi(gle hpgT in 

GLE ROL(gle ras OL.t) 

G OR'vrextg)" 

HCBPT hpm) 

HPHIL hphil) 

H_DRV(exth) 

KERNE^(general_0) 

KERNE 1- (iocotnasm) 
KERNEL iodeclarations) 
LIBRPRIflN 
LIFDHIl(lifmodule) 

RS DRV(r5) 

UC5D_[ifin(uc5dmodule ) 
tempi 

SVSDEVS(sysdev^) 
temp? 

LIFDfiM(Hfmodule) 
temp color_map 

GLF_Rl;L(gle ra5_0dt) 
temp cojor_moiJel 

DGr_RnSldgl_ra5ter ) 
temp control ~ 

DGr_HlGL(dgl_hpgl) 

DGL RfiS(dgl_ra5ter) 
temp Jav 

CIHBLE 
temp fi;e_pass 

SRRCiHri(srmdan7nodi;." ) 



TlSSd 

7247c 

18097CI 

181S3C 

1910c 
304d 

256d 

317c 

21960 

221d 

257d 
309c 

656d 
41d 

900d 
1282c 

20446d 

204460 

332d 
354d 
368d 

420d 
768c 

1554c 
334d 

1540c 
33Sd 



17815 
338d 



1499c 
326d 
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336d 



1596c 
337(1 
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339d 



1274c 
3330 
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332d 
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7248c 
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267c 
319c 



477d 
269c 
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563d 
54d 
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20452c 
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369d 

633c 
787c 

1693s 
737d 

16615 
720d 



17545 
756d 



1600c 
772d 



1278c 
791d 



1644 5 
711d 
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797c 
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327d 649d 



16495 
798c 



1508c 
3280 



1497c 
323d 637d 



16385 16385 
3290 655d 794c 



ISOSc 


1623c 


























3250 


668d 


























3790 


383c 


396c 


397c 






















S54d 


6420 


64Sc 
























1980 


199d 


200d 


202d 


204d 


205d 


207d 


209d 


211d 


212d 










244d 


245d 


246d 


247d 


248d 


249d 


2S0d 


252d 


254d 


263d 


267c 


268c 


273c 


305d 


307c 


312d 


317c 


322d 


325c 


330d 


335c 


34 Od 


343c 


343d 


351c 


356d 


374c 


382c 


389c 


390c 


398c 


408d 


417c 


445c 


450c 


464c 


494c 


561c 


556c 








20256d 


20259c 


20260c 


20261c 


20262c 


20263c 


















155d 
172d 


1560 


157d 


158d 


158d 


160d 


161d 


ie3d 


165d 


166d 


167d 


168d 


169d 


170d 


720 


730c 


732c 


733c 


948c 


952c 


960c 


961c 


966c 


1231c 










3390d 


3493c 


3494c 


349SC 


3517c 


3S18C 
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162c 


172c 


177d 


17Q: 


183d 


185c 


189d 


207c 


209c 


212c 


218d 


223c 




229d 


235c 


240d 


268c 


269c 


274d 


291c 


292c 


296d 


300c 


304d 


310c 


311c 


312c 




314c 


SlSc 


328d 


334c 


335c 


339d 


344 c 


349c 


351c 


363d 


368c 


371c 


372c 


379d 




387c 


388c 


392d 


400c 


401^: 


405d 


412c 


413c 


414c 


415c 










CS80(C530) 


339d 


340d 


34 Id 


34 2d 


343a 


344 d 


345d 


346d 


347d 


3S5d 


356d 


385d 


376c 


381d 




393c 


396c 


396c 


397c 


401d 


412c 


416d 


429c 


433d 


439c 


440c 


441c 


445d 


4S1C 




452c 


453c 


457d 


464c 


465c 


46ec 


468c 


469c 


473d 


479c 


480c 


481c 


485d 


492c 




493c 


494c 


495c 


496c 


SOOd 


516c 


S17c 


SlSc 


S22d 


S32c 


533c 


534c 


538d 


550c 




S51c 


552c 


556d 


S79c 


580c 


589c 


















CS80(cs80d5r) 


602d 


604d 


606d 


Slid 


620c 


621c 


622c 


635d 


e50c 


esic 


701c 


702c 


7S6c 


7S7c 




761c 


763c 


766c 


771d 


870c 


832c 


883c 


888c 


889c 


897c 


898c 


903c 


904c 


909c 




910c 


923c 


944c 


945c 


9S0c 


951c 


















CS80(cs80dvr) 


982d 


999d 


1002c 


1003c 


1004c 


1005c 


1006c 


1007c 


1009c 


1027d 


1043c 


1047c 


1048c 


1053c 




1054c 


1088d 


1C90C 


1094d 


1100c 


1101c 


1103c 


1104c 


lUOc 


1114c 


1116c 


1124c 


1126c 


1127c 




1129c 


1131c 


1133c 


1134c 


1168d 


1172c 


1176c 


1192c 


1214d 


1228; 


1230c 


1231c 


1236c 


1250c 




1267c 


1278c 


1282c 


1293c 


1307c 


1316c 


1342c 


1353d 


1357c 


1359c 


1366c 


1367c 


1368c 


1369c 




1373c 


1377c 


1382c 


1387c 


1388c 


1390c 


1395c 
















CTaBLE(ctr) 


877d 


879c 


881c 


882c 


8 8 3c 




















CTSBLE(5canstuff ) 


lOSld 


1052d 


lC53d 
























DISCHPIB(bk9nd) 


62d 


63d 


64d 


6Sd 


66d 


67d 


lOSd 


115c 


125d 


129c 


130c 


133c 


138c 


146d 




149c 


150c 


155d 


157c 


158c 


163d 


16Sc 


170c 


175d 


177c 










DISCHPIB(dischpib) 


192d 


193d 


194d 


19Sd 


196d 


187d 


198d 


199d 


200d 


201d 


202d 


219d 


221c 


222c 




223c 


22Sc 


230d 


232c 


237d 


239c 


244 d 


246c 


249c 


256d 


2eic 


264c 


266c 


287d 




292c 


293c 


307c 


310d 


315c 


316c 


32Sc 


349d 


351c 


353c 


357d 


363c 


364c 


371c 




379c 


383d 


394c 


395c 


400c 


40Sc 


410d 


412c 


416d 


426c 


429c 


431c 


432c 


436d 




437d 


438d 


440d 


446c 


447c 


4S2c 


4S7c 


482c 


487c 


491c 


495d 


497c 


500c 


504d 




508c 


522d 


526c 


535c 


542c 


S4Sc 


















F988S(f9885dvr) 


79d 


126c 


131c 


136c 


137c 


148c 


164c 


201c 


254c 


25Sc 


260c 


279c 


286c 




INITLOnD(mini) 


393d 


466c 


467c 


481c 


482c 


489c 


492c 


507c 


514c 












niNIT(c580ir) 


S59d 


560d 


561d 


562d 


S63d 


564d 


56Sd 


567d 


569d 


583d 


585c 


586c 


590d 


612c 




616c 


ei7c 


619c 


e20c 


621c 


625d 


643c 


644c 


645c 


649d 


666c 


670c 


671c 


672c 




676d 


e92c 


695c 


696c 


697c 


701d 


718c 


722c 


723c 


724c 


728d 


750c 


754c 


755c 




757c 


759c 


765c 


766c 


770d 


790c 


800c 


803c 


804c 


806c 


813c 


814c 


818d 


835c 




841c 


842c 


84 3c 


847d 


863c 


866; 


867c 


868c 














niNIT(hminjt) 


2S2d 


2S3d 


254d 


270d 


278c 


283a 


288c 


299d 


308c 


316c 


325c 


327c 


3S9c 


360c 




361c 


3e4c 


365c 


366c 


367c 


368c 


373c 


379c 


391c 


392c 


393c 


394c 


395c 


398c 




399c 


400c 


401c 


402c 


403c 


404c 


405c 


424c 


425c 


426c 


437c 


438c 


439c 


440c 




441c 


446c 


44 7c 


448c 


449c 


460c 


467c 


470c 


474c 


47Sc 


480c 


481c 


482c 


485c 




489c 


492c 


495c 


499c 


500c 


50Ic 


















rilNIT(iramigo) 


190d 


191d 


192d 


196d 


205c 


20Sd 


215c 


216c 


218c 


221d 


239c 








tllNIT(qminit) 


881d 


882d 


883d 


885d 


906d 


919d 


932d 


955c 


957c 


958c 


962c 


963c 


968c 


969c 




978c 


979c 


984c 


991c 


994c 


996c 


1017c 


1098d 


1120c 


1124c 


1129c 


1130c 


1133c 


1137c 




1150c 


1151c 


1154c 


1158c 


1159c 


1167c 


1168c 


1173c 


1174c 


1179c 


1180c 


1187c 


1188c 


1197c 




1198c 


1209c 


1210c 


1216c 


1218c 


1228c 


1229c 


1234c 


1235c 


1240c 


1241c 


1247c 


1249c 


1254c 




1267c 


1268c 


1271c 


1275c 


1276c 


1277c 


















niui 


19d 
492c 


35c 
493c 


36c 
495c 


37c 
497c 


167c 
499c 


168c 
509c 


192c 

514c 


331c 


337c 


346c 


349c 


352c 


474c 


476c 


TfiPEBKUP 


1021d 
1452c 


1023c 
1461d 


1031d 
1463c 


1033c 
1469c 


lOeid 
1483c 


1085c 
1486c 


1086c 


1091c 


1182d 


1192c 


1427d 


1434c 


1435c 


1449c 


TflPEBKUP(cs80tbdvr) 


309d 


313d 


315d 


320d 


322d 


323d 


324d 


32Sd 


329d 


339d 


345d 


349c 


350c 


3Slc 




352c 


353c 


356c 


357c 


358c 


364d 


36ed 


372c 


373c 


377c 


378c 


383c 


387d 


3e9c 




393d 


395d 


401c 


402c 


407c 


411d 


413d 


4I9c 


420c 


425c 


429d 


431d 


437c 


438c 




442c 


443c 


443c 


452d 


472c 


493c 


509d 


S30c 


531c 


S81c 


582c 


584c 


e4ec 


647c 




651c 


653c 


656c 


661d 


670c 


671c 


679c 


684c 


689c 


894d 


911d 


913d 


919c 


920c 




92Sc 


929d 


931d 


937c 


938c 


943c 


















TflPEBKUP(cb80tbr) 


24d 


25d 


26d 


27d 


28d 


29d 


30d 


48d 


50c 


51c 


55d 


67c 


68c 


69c 




73d 


90c 


94c 


96c 


96c 


lOOd 


120c 


127c 


128c 


129c 


133d 


148c 


ISOc 


151c 




152c 


156d 


171c 


173c 


174c 


175c 


179d 


198c 


203c 


204c 


20Sc 


2S5d 


274c 


278c 




279c 


281c 


284c 


291c 


292c 


294c 


















TflPEBKUP 
uep2 

TflPEBKUP 


1005d 


1007c 


1009c 


1010c 


lOUc 


1015d 


1017c 
















lOOSd 


1008c 


1009c 


1010c 


lOUc 


lOlSd 


1017c 
















uep proc 
TRPEBKUP 


llSld 


1192c 


























TnPEaKUP(C580tbdvr) 


345d 


352c 


























uep_proc type 






























CTflBLETscanstuff) 


lOSld 


1062d 


























TBPEBKUP 


««« llSld 




























TSPEaKUP(C580tbdvr) 


309d 


34Sd 


























FlRlGOIamigodvr) 


428d 


439d 


490d 


543d 


545d 


557d 


6S4d 


702c 


710d 


766c 


777c 


790d 


938c 




flnlGO(csafiiigo) 


137d 


138d 


139d 


140d 


141d 


142d 


144d 


145d 


146d 


147d 


148d 


149d 


150d 


ISld 




lS2d 


leod 


177d 


183d 


189d 


219d 


229d 


240d 


274d 


296d 


304d 


328d 


339d 


363d 




379d 


392d 


40Sd 
























CS80(cs80) 


339d 


340d 


341d 


342d 


343d 


344d 


346d 


346d 


347d 


35Sd 


356d 


365d 


381d 


401d 




416d 


433d 


445d 


457d 


473d 


485d 


SOOd 


S22d 


538d 


S56d 










CSSOfcsSOdsr 


6C2d 


604d 


606d 


end 


614d 


635d 


771d 
















CS80 csSOdvr 


982d 


999d 


1027d 


1090c 


1094d 


1168d 


1214d 


1353d 














CS80 tapebuf 


««» 46d 




























CTflBLE scanstuff) 


1049d 


lOSld 


1052d 


1053d 






















DISCHP B(bkgiid) 


35d 


62d 


83d 


64d 


esd 


66d 


67d 


105d 


125d 


146d 


155d 


163d 


175d 




DISCHP B(di5chpib) 


192d 


193d 


194d 


195d 


196d 


197d 


198d 


189d 


200d 


201d 


202d 


219d 


230d 


237d 




244d 
S26c 

S59d 


256d 


287d 


310d 


349d 


3S7d 


383d 


410d 


416d 


436d 


437d 


440d 


495d 


504d 


MINIT((;s80ir) 


S60d 


S61d 


562d 


sesd 


664d 


565d 


S67d 


5e9d 


S83d 


590d 


625d 


649d 


e76d 




701d 


728d 


770d 


818d 


847d 




















MINIT hminit) 


2S2d 


253d 


254d 


270d 


283d 


299d 


















MINIT iramigo) 


190d 


191d 


192d 


196d 


208d 


221d 


















niNIT qminit) 


881d 


882d 


883d 


885d 


906d 


919d 


932d 


1098d 














MIUI 


*** 19d 




























TBPEBKUP 


1005d 


1015d 


1021d 


1031d 


lOeid 


1182d 


1218d 


1427d 


1461d 












TBPEBKUP(C580tbdvr) 


309d 


313d 


315d 


320d 


322d 


323d 


324d 


325d 


329d 


332d 


33Sd 


339d 


345d 


364d 




366d 


387d 


393d 


395d 


411d 


413d 


429d 


431d 


452d 


S09d 


661d 


693d 


894d 


911d 




913d 


929d 


931d 
























TflPEBKJP(cs80tbr) 


24d 
156d 


2Sd 
179d 


26d 
209d 


27d 
210d 


28d 
256d 


29d 


30d 


31d 


33d 


43d 


5Sd 


73d 


lOOd 


133d 


Liinfo 






























EDRIVER(edriver) 
uio 

UNITIO(ujo) 


122d 


124c 


























«»» 23d 




























uisblkd 






























CTfiBLE(ctr) 


490c 


491C 


84 3c 


864c 






















INITriniiunlts) 


2222c 


2223c 


























INIT(misc) 


281c 


455c 


463c 
























INITLOnO 


««» 1696c 




























INITLOBDlsysglobaU) 


«** 163d 




























LIFDfinilifmodule) 
n68KSYS(ci) 


««» 249c 




























616c 


964c 


























uisfixed 






























CS80(Cb80d5r) 


««» 936c 




























CTnBLE(ctr) 


«». 487c 




























INITIinitunits) 


««« 2219c 






















11-173 




INITLOPD 


«»« 1693c 




























INITLOBDlsysglobaU) 


»»» I60d 





























u]slo' eracT ive 

CTfH-.LE(ctr) 

INIl (initunitb) 

INHLOHO 

INi; L0RD(5ysgloh 

n68kS¥S(ci) 
uk Jtbo 

ff804XDVR(aS04xd^ 

N0NUSKBD2 

S*50EVS(5ysdev5) 
ul 

ETU 
umaxbvtes 

BUBBLES (bubble) 

CS80(C580d5r) 

CTflBLE 

CTflBLE(ctr) 

EPR(JMS(eprom5) 

IMIi (iritunits) 

INn (misc) 

IIMIUOHD 

INIlL0RD(5ysglob 

ri68KSVS(ci) 

niNlT(bminit) 
umediavalid 

RMIGO(aniigodvr ) 

CS8C(c580dsr) 

CSSCJcsSOdvr) 

CTHBLE(ctr) 

ETU 

F98e5(f9885dvr ) 

INI7 (initunits) 

INn (misc) 

INIUOfiD 

INTlLOflD(mini) 

INITLOfiDisysglolJ 

LIFC'fiMflifmodule 

n68KSYS(ci) 

mui 

TBPEBKUP 
TfiPEBKUP(cs80tbd 
UCSD_Dnn(ucsdmod 
un 

CTfiBLE(br5tuff ) 
CTfiBLE(ctr) 



INll (initunits) 

niNIT(bminit) 
un4 

CTflBLE (brstuff ) 
unadcfressing char 

0ISCHPIB(di5chpil.) 
unassemble 

LIBf-flRIflN 
unas53qned6 

CTflBLE (scanstuff 
ufiassiqned? 

CTBBLE(5can5tuft 
unblocked_dani_name 

CTBBLE(ctr) 



484c 
2216c 
1690c 

157d 
350c 

190d 
198c 
148d 

S35d 

lllc 
939c 

1830c 
492c 
107c 

2224c 
282c 

1697c 

164d 

816c 

76c 

577c 
626c 

1390c 
48Sc 
392c 
136c 

2217c 
465c 

1691c 
466c 
158d 
215c 
865c 
266c 

1025c 
581c 



9S7d 
324d 
338d 
664c 
752c 
816c 
2181d 
S9d 

963d 

524d 

294d 

1088d 

1088d 

353d 



545c S49c 
112c 

900c 902c 

29Sc 296c 454c 



824c 
84c 100c 



606c 666c 888c 



259c 
9eic 

1035c 

813c 
633c 

1016c 
32Sd 
339d 
668d 
7S6d 

2203c 
60d 

lOUc 

539c 

3651c 



1118c 1120c 1160c 

11S3C 
651c 677c 



326d 
421d 
S73c 
768c 



327d 
469c 
677d 
772d 



328d 
500c 
682c 
787c 



329d 
e31d 
686d 
791d 



330d 
633c 
694c 
794c 



331d 
643d 
698d 
795c 



332d 
645c 
707c 
796c 



333d 
649d 
711d 
797c 



3341 
651c 
716c 
798c 



335d 336d 337d 

665d 658c 662d 

720d 733c 737d 

805d 809c 812d 



6Slc 682c 



unblockeddam 

INIT (initunits) 

INIT misc) 

UIFDiWdifmddule' 

UCSD_DHn(ucsdmodi,le) 
unbuf read cmd 

flMlCO(amTgodvr) 

flMlGOicsamigo) 
unbuf vi/rite_cmd 

flMlCO(ami90dvr) 

flniGO(csamigo) 
unbuf fed am 

INIT (misc) 
undipped draw 

GLE HPGUOle hpg] out) 

GLE_rYPES(gle_tytes) 
undipped move 

OLE_HPGr(gle_hpgi out) 

GLE_rVPES(gle tyfes) 
uncorrectable data error 

flnlG0ramigo3vr) 

ftnlGOlcsamigo) 

MINI r(hminit) 
undefined 

CS80(c580d5r) 

CS80(c580dvr 

CS80(tapebuf) 

TflPEBKUP 

Tf)PE8KUP(C580tbdvr) 
under lock do 

THPEBKUP 
uninitialized media 

CS80!cseo) 

CS80(c580d5rl 

TfiPEH<UP(cs80tbdvr) 
unit 

flMIGO (csamigo) 

CS80,C580) 

ETU 

INITimlsc) 

niNK(cs80ir) 

TflPEBKUP(cs86tbdvr) 

THPERKUP(C580tbr) 
unit available 

RMTGO (csamigo) 
unit busy 

finTGO(amigodvr) 

CS80(cs80dvr) 

DISCHPIB(bkgrtd) 
unit fault 

CSSOlcsSO) 

CS80(cs80dsr) 

TflPEeKUP(C580tbdvr) 
unit m:S5ing 

CTRBIE 
unit num 

SRR_DRV(srm) 
unit number 

SUVOL 
unit prefix successful 

CTiTBlE 
unit unavailable 

RrlTGCi(ami90dvr ) 

fll1!G0(c5amigo) 



2164d 
213d 

1159c 
650c 

732c 
S3d 

733c 
5Sd 



7S26c 
1181d 

7625c 
llSOd 

807c 

73d 

319c 

629c 

U56c 

42d 

124SC 

583c 



2244c 2246c 2250c 
426d 



1172c 1178c 1186c 130ec 1369c 

57c 

1482c 

815c 



1181d 1239c 1247c 1248c 1266c 1269c 128ec 1369c 1372c 1417c 1449c 1452c 1483c 1486c 

166d 
681c 
561c 



64d 
340d 
222d 
212d 

seod 

713d 
24d 

70d 

587c 

1373c 

66d 

154d 
669c 
549c 

1342d 

262d 

6d 

1229d 

879c 

SOc 



793c 

102d 268c 

343d 416d 427c 433d 439c 473d 479c 

235c 3S5d 

257d 267c 268c 269c 280c 

625d 639c 

719c 721c 724c 730c 740c 742c 745c 

S5d esc 



163d 166c 169c 177c 

781c 

1347c 1349c 1350c 
1S04C 

13c 14c 18c 19c 

1235c 1801c 1806c 1807c 



11-174 



unit wait 
































PflTGOIamigoclvr) 
DISCHPIB(6k<|nd) 




578c 


594c 


633c 


























67d 


175d 


























unitable 
































PMIGO(amlgoclvr) 


K** 


S63c 




























fiSCIllasciimodule) 




35c 


46c 


81c 


137c 






















BUBBLESJbubble) 
CSSOIcsSOdsr) 


t** 


61c 




























«»* 


ei8c 




























CS80(cs80dvr 


**« 


13S7C 




























CTSBLE 




1806c 


1820c 


1830c 


1847c 






















CTBBLEfctr) 




837c 


840c 


863c 


871c 


879c 


880c 


897c 


900c 


902c 












EPROMS epronis: 




46c 


S9c 


81c 


82c 


104c 




















ETU 




341c 


366c 


392c 


405c 


434c 


904c 


926c 


1052c 














F988S(f9885dvr) 


«»« 


254c 




























GLE KNOBCgle knob in) 




18041c 


18048c 


18061c 
























INlT(initunit5) 




2203c 


2238c 


























INIT(misc) 




267c 


26gc 


280c 


431c 


487c 


519c 


S48c 


564c 


578c 


617c 










INITLOBD 




1675c 


1676c 


























INITLOfiD(loiider) 




1390c 


1438c 


1605c 
























INITLOnD(mini) 


*K*. 


481c 




























INITLOfiO(sy!.globa]s) 


*** 


251d 




























LIFDfitlflJfmcidule) 
LOCKnOOflockmodule) 




215c 


216c 


246c 


319c 


350c 


440c 


469c 


526c 


1118c 


1120c 


1121c 


1136c 


1142c 


1160c 




49c 


72c 


90c 
























M68KSYS(cl) 




160c 


287c 


344c 


S13c 


734c 


809c 


810c 


865c 


958c 












niNITfbmlnit ) 




72c 


100c 


























niui 




34c 


167c 


235c 


513c 






















PRINTER(prtdvr) 


**« 


271c 




























SRnfiri(5rmammodulel 
SRMDfln(5rmdcimrnoduIe) 




149c 


167c 


168c 


169c 


138c 






















163c 


337c 


393c 


451c 


744c 


867c 


esoc 


l)83c 


1222c 


1643c 










SRn DRV(5rml 




1230c 


137SC 


1379c 


1411c 


1502c 




















suvUl 


*** 


22c 




























TPPEBKUP 




1007c 


1008c 


1085c 


1122c 


1295c 


1308c 


1434c 


1468c 














UCSD fm(L]C5d am) 




57c 


91c 


I65c 


176c 






















UCSD Dnn{uc:.3module) 




74c 


89c 


132c 


139c 


160c 


329c 


463c 


S76c 


631c 












UNITTO(uio) 




48c 


57c 


78c 


94c 


103c 




















unitableptr 
































CTnBLE(ctr) 


*^* 


371d 




























INITL0flD(5ysglobal5) 




172d 


251d 


























unitabletype 

INITL0n6(sy5global5) 


































167d 


172d 


























unitbu5y 
UNITl6(uio) 


































34d 


lOld 


lOSc 


110c 


121c 




















unitclear 
































UNITIO(uid) 




32d 


92d 


























unitent ry 
































CTflBLE ctr) 


*** 


877d 




























CTPBLE scanstuff) 




1049d 


1091d 


























DISCHP B(bkcnd) 


XJ«« 


36d 




























F9885(f9885cvri 
INITLOflD 


*** 


79d 




























*** 


1675c 




























INITLOflD(miri) 


**# 


393d 




























INITL0flD(5ysglobals) 




142d 


167d 


























unitid 
































rilNIT(xminit) 




1401d 


1S12C 


1546c 


1561c 


1562c 


1569c 


1581c 


1617c 


1618c 


1624c 


1643c 


1661c 


1680c 


1681c 






1698c 


1699c 


1710c 


1720c 


1744c 


1751c 


17S6C 


1781c 


1782c 


1795c 


1796c 


1826c 


1827c 




unitioinit 
































INIT 


*** 


2560c 




























INIT(initunit5) 




2143d 


22S4d 


























INITLOSD 




1671d 


1780c 


























unitnum 
































CS80(c580d5r) 


t*t 


613d 




























CTflBLE 




1213d 


1231d 


1234c 


1268d 






















CTflBLE(ctr) 




299d 


303d 


305d 


306d 


307d 


308d 


324d 


325d 


326d 


327d 


328d 


329d 


330d 


331d 






332d 


333d 


334d 


335d 


336d 


337d 


338d 


339d 


421d 


631d 


643d 


649d 


655d 


662d 






688d 


677d 


686d 


698d 


711d 


720d 


737d 


7S6d 


772d 


791d 


805d 


812d 


823d 


832d 






850d 


859d 


868d 


875d 


887d 


890d 


















CTPBLEjoptions) 

GLE KNOBCgle kndb in) 


*»« 


196d 




























*** 


18033d 




























INIT fs) 


*«* 


759d 




























INIT initunits) 




2141d 


2160d 


216Sd 


2181d 


2232d 


2236d 


225Sd 
















INIT misc) 




212d 


213d 


257d 


426d 






















INITLOflD (bootdammodule) 




543d 


607d 


























INITL0flD(5y5giobals) 




40d 


117d 


140d 


167d 






















LIFDflntlifnodule) 

ne8KSvS(ci) 




28d 


195d 




























588d 


953d 


























mui 




32d 


222d 


374d 
























SRnPM(srmamrr.odule) 
SRnDRn(srmdammoduie) 


««« 


146d 






























44d 


331d 


347d 


383d 


447d 


4S7d 


SOOd 


S63d 


646d 


876d 


900d 


9S7d 


987d 


1014d 






1171d 


1211d 


1246d 


1264d 


1311d 


1330d 


1439d 


1473d 


1497d 


1625d 










SRn DRV 




1780d 


182Sd 


1845d 


1864d 


1381d 


1902d 


1941d 


196Sd 


1995d 


2022d 


204Sd 


2064d 


2081d 




SRn_DRV(5rm) 




lOOOd 


lOOld 


1002d 


1004d 


1005d 


1013a 


1021d 


1029d 


1033d 


103Sd 


1041d 


1055d 


1067d 


1070d 






1072d 


1074d 


1077d 


108Sd 


1089d 


1095d 


llOld 


llOSd 


1107d 


1108d 


1228d 


1356d 


1371d 


1399d 






1492d 


lS29d 


1647d 


158Sd 


1623d 


16S8d 


l$81d 


1702d 


1728d 












TflPEBKUP 




1003d 


1048d 


1106d 


1109d 


1217d 


1426d 


1460d 
















UCSD 0Bn(uc5dmodule) 




32d 


eed 


























UNITTO(uio) 


»*« 


40d 




























unit number 
































ETU 




173d 


178c 


183c 


362c 


364c 


896c 


898c 
















unitread 
































UNITIO(uio) 




30d 


74d 


























unitstatus 
































BmGOIamigodvr) 
BUBBLESfbubble) 


tikM 


586c 




























*** 


114c 




























CRTfcrt) 

CS80(csS0dvr) 

F988S(f988Sdvr) 


**M 


415c 




























*** 


1372c 




























*** 


271c 




























GCRTfcrtb) 

GLE KNOB gle knob in) 


**.* 


285c 




























*ik»^ 


18067c 




























INITLOflD mini) 
INITLOfiD sysgiobals) 


X«« 


499c 




























«** 


67d 




























KEYSfkeys) 
neSKSYSIcl) 


*«« 


83c 






























119c 


382c 


























UNlTIO(uioj 


*** 


109c 




























unitwait 
































UNlTIO(uio) 




33d 


117d 


























unitwrite 
































UNITIO(uio) 




28d 


53d 


























unknown 
































GLE_HPGL(gle_hpgI_out) 
unl 

TflPEBKUP(c580tbr) 




7021d 


7103c 


7112c 


712SC 


7177c 


7408c 


7437c 


7475c 


7494c 














165d 


nic 


172c 


173c 






















unl message 
































I!lLIB(lipib 2) 
KERNEL(iodeciarations) 




1903c 


1997c 


























*«* 


310d 




























unlisten 
































I0LlB(hplb_2) 




ISOOd 


1995d 


























unload 
































TnPEBKUP(C580tbdvr) 


*** 


919c 




























TnPEBKUP(C580tbr) 




29d 


156d 


175c 
























unload all 

SEGnFNTERfasm) 


*** 


170d 
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SEGnENTERJsegmenter) 


*** 


30d 





























unicat: seqment 
SEiGrjNTtRlasm) 
SEGPENTER(5e9trie- 

unioadcmd 

TftPtBKUP(C580tbr 
unlock 

lOCItnOD(lockmodii 
uniockf lie 

INnL0HD(5y59lol 

LOCii:!10D(lockmod:, 

SRre;Rn(5rmdarrrro.l 
unlocl pack 

SKrCPntsrmdammo : 

SRn_QRV 

SRH DRV(5rm) 
unroasled 

CS8C.(C530d5r) 



unmoeSi fled 

CSSC(C530dvr) 
CS8C(tapebyf ) 

unop 

LIBSWIflN 

(jnoplype 
LlBMRIflN 

unrecc^nized 
KEYS(keysl 

unreco/erable_dat .. 
CS8C'(C530) 
CS8(.'(c530dsrl 
TOPE3KUP(cs80tb<i 

u:jrecoyerable_dat a 
CS8C (cs30) 
CS80(c530d5r) 
Tf»(>E3KUPlcs80tD ■ 

unrest it s 

IKnLOflO(loader • 
LIBBRRIflN 

unsgn?* 
CS80(C5801 
CS8C(C580dsr) 
CSSOfcsSOdvrj 

mm r(cs80ir) 

MINI r(qminit) 
TBf>E!3KUP(cs8 
unsqnA 

CS8C(cs80) 

CS8C(cs80dsr) 

CS80(cs80dvr 

tllNI r(c580ir) 

niN! r(qniniT) 

TftPE3k:UP(C580tb.! 

TSPe5KUP(cs80tbi 



155d 
29d 



216c 2S2c 



Is) 
e) 

lei 

le i 



dtbc 



172c 
62d 



ISlOc 
2045d 
1105d 




793d 
811d 
826d 
84 Id 


798d 
812d 
827d 
842d 


1158c 
42d 


1194c 


736d 


813c 


732d 


736d 


402d 


444c 


174d 
69Sc 
575c 


305d 
635c 


173d 
694c 
574c 


806c 


1023d 
194c 


398c 


74d 
73Cd 
1033d 
522d 
940d 
459d 


lOCd 
564d 


76d 
781d 
1034d 
560d 
941d 
46Cd 
24d 


122d 

62Sd 

1102d 

713d 

5Sd 



799d 800d 801d 

813d 815d 816d 

828d 829d 830d 

843d 844d 84Sd 



476c 49Ic 510c 512c S30c 545c 



802d 


803d 


804d 


80Sd 


806d 


807.i 


808 


817d 


818d 


819d 


820d 


821d 


822d 


823 


832d 


833d 


834d 


835d 


836d 


837.] 


838 


846d 


847d 


349d 


850d 


851d 







d 809d 810d 
d 824d 825d 
d 839d 840d 



399c 400c 1573c 1688c 1689c 1690c 1790c 
1120 



123d 340d 343d 416d 433d 473d 



unsgn8 

CS80(C580) 



CS8O(C580d5r ) 
CSSOfcsSOdvr 
MINI r(cs80ir) 



MINI r (qninat ) 

TBPE !KUP(C580tb.?> r ) 

TfiPEHKUP(C580tbr ) 

unsign'idie 

fitllGOIciamigo) 

niNI T (i ramigo) 
unt me isaqe 

IijLIli(hMb_2) 

I0LI!i(hpib_3 

KERNi:L|iodeclaraiion5) 
untalk 

10LIH(npib_2) 
unt iltn 3dname 

LIBRilRIfiN 
untilmodnum 

LIBR'IRinN 
untnumli 

ri68K;;YS(ci) 

unt ype if lie 
ETU 

INU :mi5c) 

INIT .OfiO 

INITi_OflD{bootdamiodule) 

INITi_OfiD(loader ) 

INITi.ORDisysglobsls) 

LIBRllRIBN 

LIFDnn(litmodule) 

n68K:iYS(ci) 

SRttDMri(^rmdammod!.le ) 

UCSO _Dnn(uc5dmodi,le) 



7Sd 


102d 


103d 


108d 


109d 


llCd 


113d 


llBd 


220d 


339d 


34 Od 


344d 


345 j 


346d 


347d 


356d 


365d 


373d 


381d 


390d 


433d 


44Sd 


500d 


522a 


527d 


538d 
















786d 






















1039d 






















523d 


533d 


534d 


536d 


537d 


S38d 


S39d 


644d 


545d 


S59d 


5e0d 


564d 


565d 


566d 


567d 


568d 


569d 


590d 


604d 


605d 


609d 


625d 


663d 


676d 


689d 


701d 


714d 


715d 


728d 


729d 


737d 


746d 


747<i 


783d 


785d 


786d 


787d 


818d 


847d 


860d 










892d 


895d 


896d 


897d 


946d 


1034d 


UOSd 


n07d 








328d 


465d 




















24d 


26d 


26d 


27d 


28d 


29d 


30d 


34d 


5Sd 


73d 


86d 


133d 


156d 


179d 


210d 


25Sd 


268d 


269d 


272d 








134d 






















190d 


196d 


201d 


















2003c 






















2103c 






















and 






















1801d 


2001d 




















3299d 


3325c 


3340c 


3489c 


3494 c 














3300d 


3314c 


332$c 


3424c 


3426c 


3433c 


3437c 


34Slc 


3454c 


3459c 


3468<: 


783d 


797c 


809c 


810c 


820c 


82Sc 


833c 










903c 






















471c 


703c 


710c 


















1707c 






















669c 


708c 


713c 


















831d 






















46d 






















3156c 






















146c 


542c 


920c 


















775d 






















91c 


948c 




















9Sc 


164c 


434c 



















341d 342d 343d 
457d 473d 485d 



561d 562d S63d 
636d 649d 662d 
770d 771d 782d 



3490c 3494c 
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unum 
































GLE KNOB(gle knob in) 




18033d 


1803SC 


18C39C 


:8041c 






















INlTrinitunits) 




2141d 


2ieod 


2165d 


2232d 






















INIT(misc) 




213d 


426d 


431c 


462c 






















IN!TLOBO(bootdarmiodule) 




543d 


607d 


























INITL0fiD(sy5global5) 


»** 


140d 




























LIFOfin(llfmodule) 




28d 
1136c 


19Sd 
1142c 


207c 
1159c 


215c 
1160c 


216c 


246c 


319c 


350c 


507c 


S26c 


1118c 


1120c 


1121c 


U22c 


SRriDfill(srmdammodule) 




44d 


331d 


337c 


340c 


347d 


3S2c 


383d 


393c 


396c 


421c 


447d 


451c 


457d 


492c 






SOOd 


S29c 


56 3d 


588c 


646d 


744c 


807c 


821c 


839c 


844 c 


850c 


867c 


876d 


880c 






382c 


893c 


89Sc 


900d 


922c 


927c 


957d 


980c 


9S7d 


1007c 


1014d 


1081c 


1086c 


1095c 






U02c 


1112c 


1123c 


1129c 


1134c 


1143c 


1146c 


1164c 


1159c 


1164c 


1171d 


1183c 


1185c 


1202c 






1205c 


1211d 


1222c 


1224c 


1228c 


1235c 


1239c 


1240c 


1246d 


12S7C 


1264d 


1284c 


1285c 


1302c 






1305c 


1311d 


1330d 


1352c 


13SSC 


1366c 


1367c 


1372c 


1380c 


1381c 


1382c 


1384 c 


1389c 


1391c 






1394c 


1404c 


1420c 


1424c 


1426c 


1427c 


1428c 


1430c 


1433c 


I439d 


1447c 


1459c 


1462c 


14660 






1473d 


1477c 


1483c 


1497d 


1508c 


1610c 


162Sd 


1643c 


1690c 


1692c 


1697c 


1700c 


1703c 


1706c 






1707c 


1712c 


1715c 


1716c 


1723c 


1726c 


1728c 


1738c 


1741c 


1744c 


1750c 


1753c 


1754c 


1760c 






1762c 


1764c 


1766c 


1770c 


17^3c 


1774c 


1779c 


1781c 


1783c 


178SC 


1787c 


1789c 


1791c 




SRn_DRV 




177SC 


1776c 


1780d 


1803c 


1820c 


1821c 


1825d 


1840c 


1841c 


1845d 


1859c- 


1860c 


1864d 


1877c 






1881d 


1897c 


1898c 


1902d 


1920c 


1936c 


1937c 


1941d 


19600 


1961c 


196Sd 


1981c 


1990c 


1991c 






1995d 


2018c 


2022d 


2040c 


2041c 


2045d 


20S9C 


2060c 


2064d 


2073c 


2076c 


2077c 


ZCSld 


2107c 


SRI1_DRV(srni) 




lOOOd 


lOOld 


1002d 


1004d 


1005d 


1013d 


1021d 


1029d 


1033d 


1035d 


1041d 


lOSSd 


1067d 


1070d 






1072d 


1074d 


1077d 


1035d 


1089d 


109Sd 


llOld 


1105d 


1107d 


1108d 


1228d 


1230c 


1356d 


1367c 






1371d 


1375c 


1379c 


1395c 


1399d 


1411c 


1473c 


1492d 


1502c 


lS29d 


1539c 


1541c 


1647d 


1S69C 






1580c 


1581c 


158Sd 


1607c 


1618c 


1619c 


1623d 


1642c 


1653c 


16S4C 


16S8d 


1670c 


1676c 


1577c 






1681d 


1697c 


1698c 


1702d 


1723c 


1724c 


1728d 


1754c 














UCSD Dfil1(uC5dmodule) 




32d 


86d 


74c 


80c 


89c 


132c 


139c 


463c 


576c 


S85c 


631c 


650c 






UNITTO(uio) 




40d 


42c 


46c 


48c 






















fl804XDVR(a804xdvr) 




49d 


343c 


369c 
























CRI(crt) 




97d 


143d 


























CTflBLE(5canstuff) 




1082d 


1118c 


1119c 


1127c 


1129c 




















GCRT(crtb) 
HOUSE (mouse) 


*** 


76d 






























5Sd 


116c 


U6c 
























SYSDEVS(sy5devs) 
upc 

INIT(ldr) 


*«« 


93d 




























#«* 


2357c 




























INIT(misc) 




211d 


246d 


























LIBRfiRIflN 




2726c 


3039c 


3067c 


3239c 


3254c 


32S8C 


3278c 


3282c 


3369c 












f168KSYS(cil 


*** 


921c 




























SRnDflnisrmdaimodule) 




286c 


308c 


























UCSD Dnil(ucsdmodule) 




131c 


177c 


44 !c 


452c 


466c 


487c 


514c 
















upcchar 
































ETU 




187d 


202c 


299c 
























TflPEBKUP 




966d 


980c 


150SC 
























upcnar 
































CRT(crt) 
GCRT(crtb) 


*** 


4650 




























*** 


336c 




























INIT(mi5C) 


«*» 


172d 




























upcname 
































INITrldr) 
n68KSYS(ci) 




2352d 


2357c 


2362c 


























915d 


920c 


921C 


926c 






















update 
































f168KSYS(cil 
updatecursorhook 




6S8d 


685c 


693c 


69Sc 


708c 


















































CRT?crt) 

GCRTjcrtb) 

SVSDEVStsysdEvs) 


#»* 


701c 




























*^* 


513c 






























124d 


626c 


























updatesysunit 
































M68KSYS(ci) 




647d 


685c 


85 ic 
























upon data transfer comp 
































BMTGO(amigod<r) 




547d 


768c 


774d 
























upon transfer complete 
































OlJCHPIB(di5Chpib) 




438d 


481c 


522d 
























upper bound 
































CTn5LE(ctr) 




374d 


376c 


























upper byte 

CTn5LE(5can5tuff) 


































109Sd 


1122c 


























upper char 

DISCHPIB(dischpib) 


































389d 


398c 


























uppercase 
































n68KSYS(ci) 




71d 


247c 


299d 


302c 


303c 


450c 


497c 


S76c 














ureportchange 
































flnlGO(amigodYr) 




606c 


667c 


902c 
























CS80(C580d5r) 




702c 


874c 


876c 


958c 






















CS80(cs80dvr) 




1043c 


1153c 


1155c 


1161c 


1390c 




















CTflBLEfctr) 
F988Sjf9885dvrl 


**« 


488c 






























137c 


279c 


























INIT(initunit5) 


«** 


2Z20C 




























INIT(misc) 




285c 


294c 


453c 


465c 






















INITLOfiD 


X** 


1694c 




























INITLOfiD(mini! 
INITLOBD(sysglobals) 




467c 


S07c 


























**« 


161d 




























LIFDRn(lifmodule) 




216c 


258c 


1121C 
























niui 




492c 


499c 


520c 


S22c 






















TflPEBKUP 




1026c 


1036c 


























TflPEBKUP(cs80todvr| 




584c 


816c 


























UCSD DflMfucsdmodule) 




86c 


88c 


























UNITTO[uio) 




64 c 


68c 


85c 


87c 


112c 




















CS80(cs80) 


*** 


223d 




























CS80(c580dsr) 
TnPEBKUP(C580todvr) 




755c 


757c 




























645c 


647c 


878c 


880c 






















INITImisc) 


»«« 


172d 




























KEYS(key5i 




241d 


289c 


3eoc 


483c 






















us kbd 
































ff80AX0VR(a80'lxdvr) 




192d 


193d 


























KEYS (keys) 

NONUSKBDl (non us kbdl) 


«** 


259c 




























*** 


120c 




























N0NUSK6D2 


*** 


131c 




























SYSDEVS(5y5dev5) 


*** 


ISOd 




























use current ptr 
































SRn DRV 


*** 


2036c 




























SRH^DRV(srm) 


»*« 


754d 




























use simulation 
































DEL POLY(dgl_poly) 




21036d 


21046c 


21054c 


21059c 


21060c 


21082d 


21090c 


21099c 


21104c 


21105c 










usecurptr 
SRM DRV 


































2024d 


2036c 


























SRh 0RV(5rm) 


*** 


1103d 




























usefeTt 
































SRnOfitl(brmdammodule) 
user confirmation 




1031d 


104SC 


108-'c 


1124c 


1135c 


1147c 


1339d 


1418c 


1421c 










































nitJi 




27Sd 


S48c 


























TflPEBKUP 




1041d 


1337c 


1438c 


1474c 






















user isr 
































KER"NEL(general 0) 




1213c 


1214c 


1268c 


1269c 






















KERNELiiodeclarations) 




494d 


508d 


522d 
























user parm 
































KER'NELfgeneral 0) 




121SC 


1270c 


























KERNEL(lodeclarations) 




49Sd 


S09d 


523d 
























user sequencing field 
































SRFI_DRV(srin) 




324d 


332d 


1456c 


14S8C 


1459c 


1486c 


















user spec timeout 
PRrNfERTprtdyr) 
user tfr type 


































75d 


241c 


27''c 


282c 
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I0riB(general 4) 




120Od 


120ed 


i2i;:d 


1219d 


1224d 


13«;2d 


1437d 


1461d 


1487d 


1530d 










KERNEL(iodeclarations) 




549d 


S74d 



























user tlTie 
































GlE HPIB(gle hpib io> 




10098c 


10100c 


10206c 


10232c 


10239c 


10249c 


10255c 


10294c 


10320c 


10327c 


10337c 


10343c 


10472c 




IOtrE(qeneraT 1 ) 
IOLIE(hpib I) 




347c 


349c 




























528c 


554c 


561c 


571c 


577c 


616c 


642c 


649c 


659c 


665c 


711c 


761c 






KERNEL (general 0) 




98Sc 


1261c 


























CESNEL (lodeclaratjons) 


ut** 


542d 




























SRM DRV(srm) 


*** 


1258c 




























userheap 
































INITUdr) 




2323d 


2331c 


2341c 
























M6aKSrS(ci) 




873d 


886c 


889c 
























userjnto 
































n68ICSYS(ci) 




59d 


628c 


944c 


1007c 


1018c 


1116c 


line 
















U5erprcgram 
INlTlIdr] 
































*** 


2337c 




























INITLOHD 


*** 


1720c 




























H68ICEVS(ci) 


*** 


887c 




























userstack 
































INITUdr) 




2337c 


2430c 


2440c 


2460c 


2468c 


2470c 


2471c 
















INITIOHD 


*** 


1720c 




























INITLOPD(losder) 




1068d 


1127c 


1133c 


1598c 


ie2Sc 


1631c 


1633c 


1634c 


16S7C 












H68KSY3(ci) 




307c 


887c 


947c 
























useunit 
































ETU 

usf 

SRn_DRV(srm) 




60d 


24 2c 


243c 


247c 


362c 


363c 


896c 


897c 
















1480d 


1486c 


























usl 

niui 




288d 


330c 


331c 


333c 


334c 


337c 


















usr tfr 
































aC DRVrintdc) 




421c 


422c 


437c 
























DlSChPIB(di5chpib-, 




470c 


471c 


510c 
























IOlIB(genera] 4) 




1421c 


1S08C 


1509c 


ISlOc 






















KERNEL(iodeclarat;ons) 


*** 


574d 




























SRfl DRV(5rm) 
utb 


*** 


1344c 




























cs80(c5eo) 




88d 


S83c 


























Tfil>EBKUP(cs80tbr) 




125c 


242c 


247c 
























uuppercase 
































CTHBLECctr) 


*** 


486c 




























IMlT{iiiitunit5) 


*** 


2218c 




























INITl3fiD 


*** 


1692c 




























INITLJBDdoader ) 


*** 


1438c 




























INlTlOfiD (5ysgloha:s ) 


*** 


169d 




























UCSD_0flM[uC5dmoaij_e ) 


*** 


110c 




























uuuu 
































CS80(os80) 


*** 


123d 




























CS80(:s80d5r) 
TRP£B<UPiC580tbdvr ) 


*** 


763c 






























S53c 


719c 


886c 
























TflPEBKUP;c580tbrl 




240c 


246c 


























uvalc 
































CS80(C580) 




566d 


57Sc 


680c 


S81c 


S82c 


S83c 


584c 


S85c 


S86c 


S87c 


588c 


589c 






uvid 
































ctbbl; 


*** 


1847c 




























CTfiBLt (ctr) 




328d 


479c 


677d 


682c 


864c 




















INIT( initunlts) 


*** 


2212c 




























IWT(;ni5c) 




446c 


447c 


























INIIl 5RD 


*** 


168SC 




























INITl 3RD{sy5globa',5) 


*** 


152d 




























LIFDB'l(llfmodule) 
h68KS/S(cl) 




269c 


270c 


272c 


1136c 
























61Sc 


616c 


814c 
























SI?riflM(5rmammodule' 




183c 


169c 


























SRttOP 1[5rmd3mmoa..)e ) 


*»* 


89Sc 




























UCSD_ )fin(uc5dmodij]e) 




107c 


lIOc 


115c 


132c 


465c 


466c 


467c 


6eic 














INITLi)fiD(loader) 




896d 


1235c 


























LIBRBRIPN 




2492c 


2566c 


2577c 


2690c 


2S91C 


2692c 


















uword 
































INITL)flD(loader) 




8S7d 


933d 


























LIBRR<IflN 


*** 


2687c 




























uwordex t 
































LIBRfiRIRN 




447d 


946c 


























lOLIB (general Al 


*** 


1260d 




























KERNE - (iocomasm) 


*** 


703d 




























KERNE-fiodeclarationsl 
H68KSV^(ci) 




420d 


422d 


424d 


426d 


429d 


432d 


437d 


439d 


44 Id 














397d 


540c 


























mui 




ISd 


174c 


332c 


349c 


474c 




















RSCII ;asciimodul») 
v2 

ASCII iasciimodule) 
v3 

RSCII iasciimodule) 
val 

DC DR/textdc) 




141d 


143c 


145c 


























141d 


143c 


149c 


























141d 


145c 


149c 


























208d 


210d 


























OC~0Rv;intdci 




247d 


249d 


253d 


322d 


325c 


340d 


343c 


357d 


374c 


382c 










01 ORv(extdi] 




158d 


160d 


164d 


166d 






















G DRV^extg) 
H DRV:e!'th) 




175d 


177d 


181d 


























173d 


17Sd 


179d 


181d 






















lTbrrrirn 




143d 


17Sc 


213c 


21Sc 


216c 


458d 


461c 


614d 


616c 


1317d 


1333c 


1334c 






RS DRV(r5) 




176d 


177d 


181d 
























valptr 

LIBRHRIRN 


































2145d 


2181c 


2182c 


2184c 


2186c 


2187c 


2310d 


2318c 


2319c 


2320c 


2372c 


2393c 


2404c 


2412c 


value 

CTfl8Li;(ctr) 




2453c 


2566c 


2557c 


2558c 


2585c 


2586c 


2647c 


2662c 


2657c 


2736d 


2759c 


2760c 


2806c 


2807c 




316d 


3S2d 


388c 


402c 


448d 


4S4d 


460c 


463c 


4e6c 












CTRBLi:[scan5tuff) 




loeid 
iiesc 


1103c 
1169c 


1137c 


llSSc 


1156c 


11S7C 


1158c 


1159c 


1161c 


1162c 


1163c 


1165c 


1166c 


1167c 


GLE FLEIgle file io) 




9019d 


9020d 


9037d 


9043d 






















GLE HI'GLigle hpgl out) 
GLE'HI'GLI (gle hpgl in) 
GLE HI'IBlgle Hpib To) 
GLE T'PES(qle typis) 
GLE U LS(gle ut Is) 
INlTniflD(loa3er) 




7081d 


7088c 




























180S4d 


18061c 




























10024d 


10025d 


10073d 


10078c 


10467d 


10472c 


10476d 


10480c 
















1064d 
21009d 


1066d 
21037d 


1214d 
21050c 


12ied 
2105SC 


21074d 


21092c 


21097c 


21102c 


21103c 














933d 


14e5c 


























lOLIBi general 1 1 




239d 


241d 


245d 


283d 


288c 


294d 


299c 


318d 


321c 












lOLIB : general 2) 




800d 


81Sd 


914d 


825c 


1026d 


1030c 


















lOLIBigeneral 4) 
KERNEI (general 0) 




1236d 


1238d 


1558d 


1576c 


IS85d 


1603c 




















752d 


758d 


764d 


781d 


785c 


786c 


789c 


796d 


798c 


873d 


884c 


911d 


923c 


932d 






938c 


939c 


946d 


949c 






















LIBRRI- IRN 




175c 


283d 


288c 


H79c 


1492c 


1493c 


149SC 


1496c 


1547c 


1548c 


1600c 


1641c 


1821c 


1827c 






1930c 


2187c 


2373c 


2453c 


2568c 


2586c 


2663c 


2664c 


2655c 


2670c 


2671c 


2672c 


2677c 


2678c 






2683c 


2684c 


2685c 


2690c 


2691c 


2692c 


2698c 


2760c 


2807c 












t168KS^S(ci) 
SEGriEtiTER(3sm) 




74Sd 


752c 


757c 


762c 






















*** 


132c 




























SRMDflll(5rrTidaiTmodule ) 




400c 


1479c 


























SRn Dfvrsrm) 


*** 


209d 




























SVSCEVSisysdevs) 




40d 


371d 


405d 


428d 


430c 




















SVSDEVS{sy5devs ) 
vglue2 

SVSDElS(5y5dev5) 




39d 


400d 




























39d 


400d 


























valueexiend 
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INITLf fiD(loader 1 




924d 


1461c 




















IL X / 


^^ 




LIBRRSIRN 




173c 
2804c 


1545c 


1601c 


1636c 


ie46c 


1819c 


1825c 


1927c 


1931c 


2184c 


2554c 


2583c 


2757c 


2783c 



valueextenslon 
































INITLOfiD(loader) 




872d 


93Cd 


1484c 
























LIBRRRIflN 




176c 


1S49C 


1599c 


1643c 


1644c 


1646c 


1822c 


1828c 


1929c 


2393c 










valuept r 

CTfiBLEfctr] 
SEGnENTER(asm) 


































38Sd 


400c 


402c 


























H2d 


128c 


132c 
























valLjer 
































INITLOnD(loader) 
CS80(cs80dvr) 


**« 


934d 






























103Sd 


1066c 


























vblank 
































GLE TYPES(gIe types) 


«** 


1246d 




























vec ptr def 
































DEL P!iLY(dql poly) 
vect Tinestyles 




20045d 


20913d 


21034d 


21080d 


2112Sd 


21156d 
















































OSr HPGLjdgl hpgl) 
GLE HPGLigle hpql out) 


*«* 


17268c 






























7624c 


7631c 


7640c 


7656c 


7675c 




















GLE_TYPES(9le_type5) 


*** 


1104d 




























vector 
































OGL_POLY(dgl,_poly) 




20193d 


20227c 


20228c 


20230c 


2023SC 


20236c 


20317d 


20462c 


204e3c 


20464c 


20465c 


20642c 


20644c 


20657c 






20659c 


20844d 


20902c 


20913d 


20940c 


20964c 


20973c 


20976c 


20978c 


20982c 


20983c 








vector count 
































DGL_POLY(dgl_poly) 




20200d 
20973c 


20220c 
20976c 


20225c 
20978c 


20227c 
20879c 


20228c 
20983c 


20230c 
20985c 


20231c 


20235c 


20236c 


20239c 


20927d 


20958c 


20965c 


20966c 


vector index 
































OGL POLY(dgl poly) 




20419d 


20641c 


20642c 


20644c 


20646c 


20647c 


20648c 


20649c 


20650c 


20655c 


20657c 


20659c 


20688c 




vector ptr 
































DGL_POLY(dgl._poly) 




21034d 
21164c 


21041c 
2U67C 


21051c 


21060c 


21080d 


21087c 


21096c 


21105c 


21125d 


21131c 


21133c 


21136c 


21158d 


21162c 


vedge index 

DGL_P0LY(dgl._p3ly) 


































20427d 


20655c 


20660c 


20661c 


20e64c 


20678c 


20685c 


20686c 














veloc 
































LIBRHRIflN 




1166d 


1178c 


1179c 
























^^?Tfl8LE(ctr) 

INITLOBD(loader) 


«** 


402c 






























899d 


1465c 


























LIBRflRIfiN 




11790 
2558c 


1492c 
2586c 


1493c 
2657c 


1495c 
2760c 


1496c 
2807c 


1547c 


1548c 


1600c 


1640c 


1821c 


1827c 


2187c 


2372c 


2453c 


SEGnENTER(abin) 


»** 


132c 




























veptr 

INITLOnD(loader) 


































872d 


899d 


























LIBRfiRIfIN 




175c 


1930c 


























verbose 
































TPPEBKUP 




llSld 


1187c 


1193c 


1203c 






















verbosely 
































TflPEBKUP 




962d 


1247c 


1266c 


1286c 


1369c 


1372c 


1417c 


1449c 


14S2C 


1483c 


1486c 








verify 
































ETU 




43d 


S82c 


59;;c 
























INITffs) 
MINIT asmr) 


*1KX 


769d 






























1331d 


1342d 


























niNIT hminit) 




366c 


403c 


439c 
























fllNIT irsmigo) 




190d 


196d 


























HINIT xminit I 




1585c 


1733c 


























TfiPEBKUP 




1423d 


ISllc 


























TfiPEBKUP(c580tbdvr) 




661d 


689c 


























verify block size 
TflPEffKUP 


































128SC 


1416c 


1446c 
























TBPEBKUP(cs80tbdvr ) 




319d 


639c 


























verify cmd 

PrlIGCr{c5amigo) 
































*** 


54d 




























nlNIT(iramiqo) 
verify cmd buf 
nlNIT(iramlgo) 


*** 


205c 




























































198d 


204c 


205c 
























verify destination 
TflPESKUP 


































1223d 


1280c 


1340c 


1341c 






















verify length 
TflPEBKUP 


































1283c 


1284c 


1415c 


1445c 






















TRPEBKUP(cs8()tl>dvr) 




318d 


639c 


674c 
























verify pass 
nlNlT(hminit 1 


































412d 


428c 


433c 


458c 






















verify pass complete 
niNIT(hininit 1 


































348d 


3e9c 


384c 


386c 


415d 


442c 


450c 


452c 














verify starting track 

MINITjhminit 1 
verifyblock 

Fg88S(f9885dvr| 


































347d 


362c 


364c 


366c 


383c 


384c 


414d 


434c 


437c 


439c 


446c 


450c 


454c 




































Sid 


S7d 


























verifying 
LIBRfiRIfIN 


































49d 


2968c 


3044 c 


30S0C 


3057c 


3249c 


3S95C 


3609c 


3654c 


3734c 










ve rif ymod 
LIBRBRIfiN 


































3048d 


3098c 


3652c 
























verif ynext 
LIBRRRIflN 


































3034d 


3051c 


3060c 


3501c 


3654c 




















version 
































LIFDRM(lifmodule) 




49d 


292c 


499c 


512c 


513c 


S18c 


520c 


575c 














MIUI 




401d 


436d 


























versionup 
n68KSYS(ci) 


































60d 


120c 


204c 


558c 


1172c 




















vevalue 
































LIBRftRIRN 




2151d 


2498c 


2499c 


2551c 


2SS2C 


2558c 


2S60C 


2568c 


2S79C 












vfile 
































MINIT (bminit) 
vid 

CTPBLE 




64 d 


71c 


72c 


79c 


86c 




















««« 


1232d 




























CTqBLE(ctr) 




328d 


430d 


677d 
























ETU 




62d 


63d 


173d 


223d 


307d 




















INIT(fs! 




757d 


759d 


760d 
























INIT(initunii:5l 


#** 


2190d 




























INIT(misc) 


«** 


427d 




























INITL0nD{5ysglobal5) 




41d 


lOOd 


152d 


26ed 






















LIBRHRIfiN 


**« 


2920d 




























LIFDfiMrlifmodule) 
M6eKSY3(ci) 


*** 


198d 






























397d 


590d 


914d 
























MIUI 




125d 


225d 


























SRMDfiMlsrmdammodule) 




446d 


1633d 


























TPPEBKUP 




lOSSd 


1112d 


























UCSD DflM(Licsdniodule) 


*** 


125d 




























vidleng 

INITCoPDtsysglobals) 


































18d 


41d 


























SRMDfin(srmdarimodule) 


*** 


1673c 




























vidpt r 

INIT(mi5c) 


































427d 


446c 


447c 
























viewport lim 
































DGL INiSrdgl inq) 
DGL VPRSldgT vars) 




629SC 

loesd 




























GENjdgl gen) 
LIB(d9Clibi 




3554c 


3S57c 


3569c 


3573c 
























20305c 


2141SC 


























vir bounds 
































Di;L_vnRSldgl_var5) 




1017d 


1069d 


11840 
























vmodnum 
































LIBRflRIRN 




64d 


394c 


1286c 


1324c 


1352c 


13S6C 


2968c 


3036c 


3038c 


3039c 


3043c 


3050c 


30S9C 


3068c 






3071c 


3097c 


3249c 


325SC 


32S9C 


3262c 


3310c 


3312c 


3313c 


3327c 


3328c 


3329c 


3345c 


3348c 






3360c 


3361c 


339CC 


3391c 


3413c 


3416c 


3417c 


3420c 


3434c 


3437c 


3438c 


3440c 


3441c 


3451c 






3452c 


3453c 


3454c 


3467c 


3468c 


3471c 


3472c 


3479c 


3500c 


36C1C 


3605c 


3650c 


3S51C 


373SC 


vn4 

CTBBLE|brstuff 1 




962d 


1012c 




















11-179 





vname 
E7U 

lIFDBrKlifmodulel 
vt>h 

SRn_0RV(5rm) 
vnlenql h 

INITLOfiD(loader) 

LIBRPRIftN 

UCSD_DHn(uc5dmodu ;e) 
vol 

LIFDflM(lifmodule) 

fI68KSyS(ci) 

TRPE6<UP(c580tbdvi ) 

TBPEB<UP(c580tbr) 
vol bytes 

CTBBIE 

CTfiBlE(ctr) 
vol iabei 

mTui 

vol name 

SOVOl 
vol nuni 

nTul 
vol offset 

CTfiBlE 

CT(<BlE(ctr) 
vol stamp 

tiTUI 
voiia 

LIH)fin(Ufmodule) 
volname 

INITLOfiD(loader ) 

LIBRARIPN 

tlFDfin(lifmodule) 

f168ltSyS{ci) 

UCSD_Dfm(uc5dmodu e) 
volnumbe r 

INITLOflDlbootdammi dule) 

LIFOfin[lifmodule) 
volpack 

SRnftn [ 5 rmammodu le 

SRrtJfiM ( 5 rmdamnod u ■ e ) 

SRri_DRV 

SRn_DRV(3rm] 
volpass 

SRrtJfinisrmdammodu :e ) 



volpass2 

SKnDP~I(srmdamniodu e ) 
volsize 

LIFDfln(lifmodule) 

n68KSYS(ciJ 
volume 

n68KSVS(ci) 
volume copy_data 

TnPEB<UP(cs80tbdvi ) 

TBPEBKUP(C580tbr| 
volume ert 

MINlTfcsSOir) 

MINIT(qmirit) 





307d 
3Sd 


318c 
44d 








1491d 


1494c 






*** 


814d 

31S8C 

96c 


819d 
461c 


485c 






197d 
352c 
914d 
713d 
24d 


23Sc 
489c 
918c 
718c 
56d 


237c 
S28c 

730c 
66c 


251c 
S67c 

740c 




1543c 
313d 


1557c 
604d 


1S77C 
611c 


1664 s 




396d 


43Id 








7d 


lie 


12c 


13c 




41Sd 


449d 








1541c 
314d 


1555c 
615d 


1575c 
617c 


1662s 




404d 


439d 








198d 


265c 


268c 


269c 


*«* 


819d 

3157c 

44d 

670d 

125d 


832d 

235c 
719c 
130c 


237c 
723c 
131c 


263c 

132c 


«*« 


66Sd 
66d 


616c 


943c 






167c 

396c 

2064d 

1107d 










462d 
840c 
1123c 
1248d 
1424c 


489c 

905d 

1129c 

1256c 


493c 

922c 

1134c 

1267c 


605d 

965d 

1143c 

1266d 




1214d 


1234c 


1236c 






205d 
782d 


208c 
800c 


409c 
806c 


669c 
81Sc 




S90d 


598c 






«** 


900c 
31d 


209d 


251c 




*** 


S51d 
1187c 









252c 263c 268c 283c 284c 291c 292c 294c 327c 344c 

S71c S73c 574c 676c 1141c 1144c 

742c 746c 

16745 1684s 16965 17035 17145 17195 1730s 1741s 17575 



16725 1682s 1694s 1701s 17125 17175 17285 17395 17565 



270c 309c 566c 1108c 



268c 511c 1141c 



524c 530c 571d 684c 

979c 980c 993d 1006c 

1146c 11S8C 1164c 1175d 

1299c 1302c 1313d 1332d 



817c 887c 104SC 



689c 


650d 


726c 


1007c 


1024d 


1040c 


1201c 


1202c 


1203c 


1358c 


1367c 


1391c 



727c 728c 808c 

1081c 1086c 1096c 

1213d 1233c 123SC 

1392c 1406c 1421c 



volume ert passes 

fllNlT(qmTnit) 
volume header type 

SRM.DRVKrmT 
volume info_type 

SRn_CRV(srm) 
volume label 

SRM_DRV(srm) 
volume Tame 

SRHDRl ( 5 rmdammodu j e ) 

SRn_0RV(5rm| 
volume Tame header 

SRn CRV 

SRri_DRV(5rm) 

volume num 

SRn_D-?V(srm) 
volumes _byte 

CS80(c580dvr) 
vpass 

SRn_ORV(srm) 
vptr 

INlT(f5) 

LIBRfiRIflN 

vsize 

LIFDSrl(lifmodule) 
vt 

INlT(mi5c) 
vu 

TBPEBKUPtcsSOtbdvr ) 
vvname 

LlFDfltl(lifmddule) 

WW 

CS80(C580) 

TSPEBKUPlcsSOtbdvr ) 

TflPEBKUPfcsSOtbr) 
vxmax 

Lia(d'3l_lib) 
v><man 

LIB(d)I_lib) 
vymax 

LlB{d'jl_lib) 
vymin 

LIB(d'3l_lib) 

ftniGo;amigodvr) 

flMIGOicsamlgo) 

F9885::f988Sdvr) 

INITLilBDdoader) 

LlBRRHlflN 

(IINIT(hmanil) 

niui 

nOREF!;YS(mf5) 
w3pad 

F9885;f9685dvr) 
w^array 

GLE_T'PES(gle_typ»s) 
w_loc_e':ho x 

DGl_lNQ(5gl inq) 

DGL VMRS(dgT_var5) 

GENld il_aenl 

L!E(d il jibl 



335d 


376d 


399d 


422d 


439d 


344d 










349d 










404c 
341d 


791d 


1S07C 






1803c 

376d 

1670c 


1920c 

399d 

17S4C 


1981c 
422d 


2073c 
439d 


493d 


263d 


1506c 








1037d 


1066c 


1069c 






1030d 


1659d 


1671c 






746d 
1479d 
1645c 


811d 
1492c 


812d 
1493c 


833d 
149SC 


835d 
1496c 


200d 


207c 


208c 


292c 


293c 


leed 










711d 


718c 


719c 






227d 


232c 


237c 


255c 




122d 
718c 
239c 


244c 








20019d 


20286d 


20295c 


20301c 


20308c 


20019d 


20288d 


2029SC 


20299c 


20307c 


20019d 


20286d 


2029SC 


20302c 


20310c 


20019d 


20286d 


20295c 


20300c 


20309c 


886c 

109d 

5Sd 

845d 

441d 

1834c 

482c 

15d 

19d 


127c 

868d 

491c 

1835c 

176c 
22d 


129c 
1235c 

493c 
1841c 

332c 

560d 


161c 

1196c 
2492c 

349c 
S81C 


178c 

1197c 
2566c 

474c 
589c 


75d 


77a 








1249d 


1272a 








6260c 

126Hd 

325Qr 

2087''V 


3261c 

20874c 


3263c 


3371c 


3377c 



493d 519d 



696cl 784d 1491d 



519d 537d 604d 646d 696d 784d 1569c 1607c 1542c 



1S47C 1648c 1599c 1600c 1634d 1638c 1639c ie40c 1644c 



1204c 120Sc 1214c 
2677c 2890c 2691c 



1215c 
2692c 



1240c 1241c 1691c 1692c 1789c 
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w loc echo y 






















DSL INQ(3gl inq) 
DGL VflRS(dgT vars) 


«>«« 


6261c 


















tx* 


1269d 


















GENldgl gen) 
LIBldgl litii 




3258c 


3261c 


3262c 


3372c 


3377c 












20871c 


20874c 
















wait 






















fl804XDVR(a804xdvr) 




113d 


120c 
















SRM DRV 




1883d 


188SC 


1894c 














SRM DRV(srri) 


«»* 


1076d 


















wait4&atreadready 






















BfiT(bat) 




S9d 


87c 
















wait4batready 






















BnT(bat) 




Sid 


70c 


75c 














waitAkbdready 

fl804XDVR(a804xdvr) 
























131d 


139c 


U3c 














wait for lock 






















SRn DRV 


n** 


1894c 


















SRn DRV(srm) 


«»« 


631d 


















wait Tor ppol 






















firlTGO(amigodvr) 




718d 


752c 


754c 














wait ready 






















GLE RGKgle ras out) 
waitforlocK 




8113d 


8124c 


814CC 


8235c 
































LOCKriOD(lockmoclule) 




32d 


78d 
















waitforlocktim&out 






















SRn_DRV(5rm) 




995d 


1223c 


1243c 


1417c 












wait ingforlock 
SRn DRV 






















»:t* 


188Sc 


















SRn_0RV(5rm) 




1127d 


1416c 
















warning issued 






















mui ~ 




221d 


231c 


239c 


242c 


269c 










TflPEBKUP 




1108d 


1118c 


1126c 


1129c 


usee 










wbytes 

MRIVER(edriver) 
wd 

SRM DRV 
























102d 


242c 


243c 


244c 


246c 


249c 










1906d 


1924c 


:969d 


1935c 












SRn_DRV(5rm) 




1009d 


10170 


:026d 


1045d 


1081d 


1033d 


1514d 1521c 1551d 1575c lS89d 1613c 1627d 


16460 






1732d 


1758c 
















wd^pt r 

iULE RGL(gle ras out) 


*** 


8097d 


















wdata 






















F9885(f9885dvr; 


*** 


194c 


















wdmacO 






















F9885(f9885dvr) 




7Sd 


77d 
















wdmacl 






















F9885(f9885dvT) 




75d 


77d 
















wenab 






















F9885tf9886dvr) 
wendbuf fer 




75d 


77d 




































RSCll (asciimodule) 




B4d 


93c 


2i7c 














wendfUe 






















fiSCII (asciimodule) 




125d 


273c 


299c 














wfm 






















TnPEBKUP(cs8Citbr) 




142d 


148c 


149c 


150c 












whatfiles 






















n68KSVS(ci) 




654d 


1139c 
















whichitflang 






















fi804KDVR(a804xdvr) 
whichnonitflanci 




186d 


224c 




































R804XDVR(a804xdvr) 




193d 


223c 
















whole 






















DGL HPGKdgl hpgl) 
DGL RSS(dgl raster) 




17247d 


1728gc 


















17551d 


17608c 
















GLE_HPGLI (gTe_hP9l_in) 




18230d 


18265c 
















whole sector bytes 






















INITLOfiD(mTn]) 




411d 


431c 


432c 


433c 












whole sectors 






















INlTLOPD(mini) 




410d 


421c 


422c 


426c 


428c 


430c 


431c 






wholeword 






















CRT(crt) 




321c 


335c 


344c 


48Sc 


509c 


514c 


620c 524c 530c 632c 537c 588c 608c 


61Sc 






619c 


624c 


628c 


675c 












SYSDEVS(sy5dev5) 


*** 


49d 


















width 






















CET(crt) 
GCRT(crtb) 




87d 


133d 


187c 


190c 


192c 


196c 


669c 671c $730 








66d 


12ed 


128d 


129d 


130d 


131d 


503c 






GLE RGL(gle ras out) 
LIBTdgl libT 




8136d 


8139c 


8141c 
















20071d 


20816d 


20830c 


20834c 


2083SC 










nesKsvsTci] 




462c 


493c 


505c 


1089c 












nlNIT(mminit) 


:C*« 


159c 


















SVSDEVS(5ysdev5) 


:k** 


88d 


















width req 

GLE~RGC(gle ras out) 
GLE TYPES IgTe types) 
























8141c 


8388c 
















*** 


1269d 


















window 






















fl804X0VR(a804xdvr) 




126d 


151d 
















flniGO(amigodvr) 


:):«« 


431d 


















ASCII (asciimcdule) 




7d 


14d 
















BUBBLES (bubble) 




30d 


54 d 
















CRT(crtl 

CSSOrcsSOdvr) 

EORIVER(edriver) 


*** 


402d 


















;r«« 


988d 




















38d 


76d 


308d 














EPR0nS(eprom5) 




9d 


13d 
















ETU 


*** 


5S4d 


















F988S(f9885dvr) 


:»*# 


40d 


















GCRT(crtb) 


:r** 


272d 


















INIT fs) 




763d 


783d 


784d 


786d 


787d 


789d 


809d SlOd 829d 831d 






INIT(initunits) 




2139d 


2148d 


2152d 


2156d 


2228d 










INIT(mi5C) 




434d 


516d 


53Sd 














INITLOflD bootdanmodule) 




S4Sd 


592d 


748d 














INITLOPD mini) 
INITLOPD sysqiobals) 




309d 


384d 


















60d 


Sid 


69d 














KEVS(key5) 
LIBRflRIflN 


:«*« 


72d 




















131d 


137d 


2740d 














n68KSVS(cl) 




306d 


731d 
















PRINTER(prtdvr) 




40d 


47d 
















SRMflM( s rmammodule ) 




41d 


179d 
















SVSDEVS sysdevs) 




373d 


377d 


408d 


433d 


485d 










UCSDJM uc5d..am) 


**'K 


41d 


















window delta x 






















GEN(3gl gen) 




3407d 


3432c 


3436c 


3443c 












window delta y 
GEN(3ql_gen) 
window lim 
























3408d 


3433c 


3437c 


3447c 
































DGL iNQIdgl inq) 
DGL vnRS(dgT vars) 


««* 


62860 


















»** 


1063d 


















GENldgl gen) 
LIB(dgl_lib) 




3369c 


3420 c 


3421c 


3430c 


3555c 


3558c 


3S70C 3574c 








20333c 


20863c 


21149c 


21151c 


21412c 










windowp 






















R804XDVR(a804xdvr) 


«** 


67d 


















EDRIVER(edriver) 


#♦* 


92d 


















EPROMS(eproni!,) 


«** 


35d 


















ETU 


*** 


864d 


















GCRT(crtb) 


*** 


126d 


















INIT(fs) 
INITL0fil3(5yst|lob3ls) 




763d 


776d 


















61d 


73d 
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LIFDfin(lifmodu:e) 


*** 


388d 


















SVS0EVS(5y5devs) 


«** 


56d 


















UCSD Dnn(uC5dmcdule) 


*** 


571d 



















winoowreqcopy 

CLE KGLlgle ras cut ) 




























«** 


8139c 
























3ysDi;vs(5y53ev5T 


«** 


134d 
























winptr 

EDRIVERIedriver) 






























92d 


28Sc 






















with bkgnd do 




























TfiPEBKUPXcsSOtbdvr) 

Vilp 

IWTl.OflDdoader ) 




34Sd 


383c 


389c 


407c 


425c 


448c 


689c 


907c 


92Sc 


943c 








903d 


1229c 






















wnexTbyte 




























BSCIl (ssciimodule) 




89d 


107c 


108c 


131c 


134c 


241c 


242c 


306c 










word 




























CTBBl E (scanstuff ) 




1094d 


1105c 


1120c 




















DISCHPIB(dischpib) 




388d 


406c 






















]NIT1.0fiO(loader) 




845d 


846d 


848d 


868d 


















LIFDHM(iifmodule) 




38d 


43d 






















wrdlS 




























INITLOfiD(bpotdanmodule) 




SS4d 


665d 






















LIFDnn(Iifmodule) 




40d 


66d 






















word array 




























GLE RGL(gle ras out ) 




8094d 


8097d 






















wordcount 




























HEHPT(hpni) 




136d 


ISlc 


180c 


189c 


















wofdext 




























LIBRdRIfiN 




448d 


491c 


530c 


781c 


1222c 


1233c 














wordlen 




























HEBP! (hpm) 




193d 


198c 


199c 


200c 


202c 


203c 


204c 


210d 


220c 


258c 


269c 




wordli'jt 




























INITI OSO(loader) 




848d 


849d 






















wordlii.tptr 




























INITI onD(loader) 




849d 


903d 


1021d 


1173d 


1214d 


1221d 


1252d 












wordre. 




























INITlOfiDdoader ) 




846d 


847d 


1235c 




















LIBRdRIflN 


*** 


2689c 
























wordrerpt r 

INITlOnD(losder) 






























847d 


896d 






















LIBRBRIflN 


**♦ 


1789c 
























words 




























F988t.(f9885dvr) 




113d 


lS9c 


160c 


161c 


178c 


212c 


213c 












word5d35posed 




























HEfiPl (hpm) 




80d 


124d 


189c 


200c 


258c 


294c 














wordsi? 




























LIBRfiRIRN 




417d 
1098c 


698c 


717c 


8S2c 


862c 


866c 


871c 


877c 


935c 


940c 


955c 


968c 1087c 1088c 


wordsize 




























HERPI (hpm) 




286d 


288c 


290c 


293c 


294c 


295c 


298c 


305d 


309c 


310c 


313c 




work 




























OGL PO(.V(dgl poly) 




203170 


20594c 


20694c 


20844d 


20902c 
















work, mult 




























OGr_POLY(dgl_poly) 




20914d 


20986c 






















work D1 r 

DGrif01.Y(dgI_poly) 




20915d 


20985c 


21033d 


21041c 


210S2C 


21079d 


21087c 


21097c 


21124d 


21131c 


21133c 


2115Sd 21162c 21164c 


work pt r def 




























DOr POrY(dg] polv) 




20046d 


20051d 


20915d 


21033d 


21079d 


21124d 


211S5d 












wo r k f Id 




























n68K£YS(ci) 




47d 


631c 






















workfile 




























t168Kr;Y3(ci) 




626d 


634c 


637c 


640c 


643c 
















workino directory 




























SRn_r7v ( 5 rm ) 




268d 


1S21C 






















working iorval 




























CS80(C580d5r) 




639d 
752c 


6S3c 


671c 


675c 


677c 


680c 


684c 


686c 


688c 


690c 


693c 


696c 703c 744c 


TflPEbKUP(C580tbdv') 




519d 


533c 


551c 


SSSc 


557c 


S60c 


564c 


566c 


568c 


570c 


573c 


S76c SeSc 6260 






633c 


699d 


761c 


783c 


787c 


789c 


792c 


796c 


798c 


800c 


802c 


805c 808c 817c 






8S7c 


864c 






















working verify lenyTh 
IfiPEBK'UP(cs8iJtbdvrl 






























512d 


639c 


640c 


674c 


679c 
















workstr ing 




























DGL_INQ(d9l_inq) 




6165d 


6455c 


6456c 


6461c 


6482c 


6483c 


6488c 












world int cpx 




























OGL INQTdgl ing] 
DGL VflRS(dgT varsi 


*** 


6275c 
























**)« 


1263d 
























LIBldgi lib) 




20628c 


20659c 


21019c 


21429c 


















world int cpy 

DGL INQTdgl inq) 
DGL vflRS(ogT vans 




























*** 


6276c 
1254d 
























LIBldgJ lib) 




20629c 


20660c 


21019c 


21430c 


















world real cpx 




























DGL INQf3gl inq) 
DGL VSRS(dgI varsi 




6280c 
12580 
























LIBTagl lib) 




20566c 


20596c 


21018c 




















world real cpy 




























DGL INQ(3gl inq) 
DGL VftRS(dgT varsi 


*** 
*** 


6281c 
1259d 
























LIBldgl lib) 
wptr 

EDRIVER(edriver ) 




20567c 


20S97C 


21018c 






















90d 


244c 


246c 


249c 


271c 
















EPROtlS(eproms) 


!«»* 


35d 
























wrapup 

LIBRfiRIRN 




3699d 


3742c 


3746c 




















write file mark 




























TRPE'BKUPTc580tbdvr ) 


**« 


401c 
























TFIPE6KUP(C580tbr) 




27d 


133d 


152c 




















write program header 




























MIUT 




41d 


545c 






















write protect 




























CS85(cs80) 


«»« 


169d 
























CSeO{Cb80d5r) 
rHPEeKUP(cs80tbdvr ) 


*** 


689c 


























569c 


801c 






















write to status 




























GLE PGUiqle ras out ) 
GLE lYPES(gIe typcsj 


««» 


82640 
























*^1f 


1277d 
























writeappend 




























INIT(fs) 


*** 


745d 
























writebl ock 




























F9885(f9885dvr) 




51d 


57d 


174c 




















writeblocks 




























LIBRP^IRN 




2228d 


2230c 


2231c 


2232c 


2233c 


2267d 


2269c 


2270c 


2271c 


2272c 






writebu'fer 




























I0LIB(qeneral^4) 
writebuffer string 




1237d 


1584d 


1652c 














































I0LIB(general_4) 




1243d 


1639d 
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writebytes 

finlGO(amigodvr) 






























«*« 


592c 


























fiSCII jasciimodule) 




37c 


290c 
























BUBBLES(bubble) 




88c 


100c 
























CRT(crt) 
CS80(C580dvr) 




428c 


443c 


453c 
























1157c 


1182c 


1288c 


1293c 


1307c 


1316c 


138SC 














EPROnsleproms) 
F9885(f988Sdvr) 


K** 


76c 




























172c 


223c 


277c 






















GCRT(crtb) 




298c 


313c 


324c 






















IN Tfmisc) 




489c 


S48c 


582c 


608c 




















IN TLOBO(mini) 

IN TLOnoisysglobals) 




427c 


443c 


505c 






















X** 


e6d 


























KEYStkeys) 
LIBRHRIfiN 


X** 


94 5 




























133c 


2227d 


2230c 


2231c 


2234c 


2235c 


2236c 


2237c 


2242d 


2250c 


22S1C 


2252c 


2264c 2267d 






2270c 


2273c 


2274c 


2742c 




















LIFDBIIfJifmoauls) 
n68KSVS[cJ) 




3S2c 


447c 


523c 


530c 


1144c 




















352c 


737c 
























tllNIT(bminit) 


XX* 


86c 


























mui 


XXX 


493c 


























PRINTER(prtdvr) 


XXX 


304c 


























SRhfln(srmammodule) 


XXX 


199c 


























U:SD finlucsd am) 




91c 


180c 


182c 






















UCSD DflM(uc53module) 




503c 


504c 


606c 






















UNITTO(uio) 


XXX 


62c 


























writechar 






























GLE HPIB(gle hplb io) 




10072d 


10521c 


10522c 






















lOLTBIgeneral 1) 




240d 


293d 
























lOLIBfgeneral 2) 




1031c 


1032c 


1044c 


1045c 




















writechars 






























ASCII (asciimodule) 




232d 


292c 


29Sc 






















writectrl 






























HPHIL(hphil) 




3Sd 


145c 


172c 






















writedate 






























LIBRfiRIBN 




106d 


231c 


233c 


331c 


349c 


2729c 
















writedirectory 






























LIBRRRIflN 




2878d 


2995c 
























writeendline 






























fiSCII (asciimodule) 




99d 


129c 


302c 






















writeeol 






























ASCII (asciimodule) 


XXX 


300c 


























CRTfcrt) 
GCRT(crtb) 




442c 


448c 


























312c 


318c 
























INIT(mi5c) 


#*x 


580c 


























INITL0fi0(sysglobal5) 


XXX 


66d 


























KEVStkeys) 
nSSKSVS Cl) 


XXX 


925 


























XXX 


351c 


























PRINTER prtdvr) 


«x« 


299c 


























UCSD^nn uc5d_am) 


XXX 


178c 


























writef ilemark 






























TBPEBKUP(C580tbdvr) 




39Sd 


407c 
























TnPEBKUP(C580tbr) 




145d 


149c 
























writeln proc 
TflPEBl^UP 
































1176d 


1204c 
























writenumber 






























I0LIB(general_2) 




799d 


913d 


1030c 






















writenumberln 






























I0LIB(general_2) 




813d 


1024d 
























writeonly 






























INIT(f5) 


XXX 


74Sd 


























writeprotected 






























F988S(f9885dvr) 




62d 


223c 
























writeregcopy 






























SYSDEVS(5y5dev5) 


XXX 


135d 


























writesector 






























LIBRHRIfiN 




2740d 


2818c 
























writes! ring 






























IOLIB(general 2) 




808d 


992d 


1043c 






















writest nngln 






























I0LIB(general_2) 




816d 


1037d 
























writewora 






























IOLIB(general_l) 




244d 


317d 
























writing previous char 
PRINTER(prtdvry 
































72d 


238c 


252c 


254c 


256c 


284c 
















wrongbyte 
INIT(ldr) 






























XXX 


2494 c 


























INITLOfiD(loader) 




lOSSd 


1549c 
























wrongrec 
INIT(ldr) 






























XXX 


2495c 


























INITLOnD(losder) 




107Sd 


ISSOc 
























wrtchar 






























PRINTER(prtdvr) 




145d 


25Sc 


301c 


302c 


307c 


















!;LE_TYPES(gIe_type5) 


XXX 


1274d 


























wword 






























F9885(f9885dvr) 
wx 

GEN(d9l_qenl 
LIB(dglJibi 




75d 


77d 


























3036d 


3329d 


3335c 
























20074d 


20091d 


200920 


20246d 


20254c 


20263d 


20272c 


20846d 


20866c 


20870c 








wxmax 






























LIB(dgl_lib) 




20020d 


20321d 


20330c 


20336c 




















wxmin 






























LIB(dgl_lib) 




20020d 


20321d 


20330c 


20335c 




















GEN(dgI_qen) 
LIB(dgl lib) 




3036d 


3329d 


3338c 
























20074d 


20091d 


20092d 


20246d 


2025SC 


20263d 


20273c 


20846d 


208B7C 


20871c 








wymax 






























LIB(dgl_lib) 




20020d 


20321d 


20330c 


20338c 




















wymin 






























LIB(dgl_lib) 




20020d 


20321d 


20330c 


20337c 




















CRT(crt) 




293d 


295c 


2980 


300c 


301c 


302c 


308d 


310c 


316d 


3l8c 


321c 


323c 


324c 


DC DRV extdc) 




200d 


202d 


2060 






















DC DRVJintdc) 




246d 


248d 


2510 


312d 


317c 


330d 


335c 


349d 


351c 










Dal VflRS(dgl vars) 




1142d 


1144d 
























DI 0RV(extdiT 




157d 


lS9d 


162d 


167d 


171d 


172d 
















ETU 




1166d 


1179c 


1208c 






















GCRT(crtb) 




117d 
230c 


121d 
231c 


122d 
234c 


132d 
236c 


202d 


204c 


207d 


209c 


210c 


211c 


217d 


219c 


225d 228c 


GeN(dgl_gen) 




3026d 
3302d 


3029d 
3308c 


31920 


3220c 


3223c 


3227c 


3228c 


3229c 


3233c 


3239c 


3244c 


3274d 


3286c 3292c 


G DRVrextg) 
H ORV exth 




174d 


176d 


1790 


186d 






















172d 


174d 


177d 


182d 


186d 


187d 
















iRlTfH) 
KERNEL(iocom35m) 




797d 


798d 


























705d 


707d 


709d 


7Ud 




















LIB(dgl_lib) 




20018d 


20043d 


200440 


2C123d 


20 128c 


20134d 


20139c 


20162d 


20185c 


20166c 


20168c 


20169c 


!0219d 2022ec 






20234c 


20237c 


203480 


2C356C 


20362c 


20557d 


20565c 


20570c 


20587d 


20596c 


20600c 






t168KSYS(ci) 




llld 


128c 


137c 


566d 


567c 


















MINIT(rmiinit) 




148d 


157c 
























mui 




15d 


181c 


351c 


474c 




















nOREFSYS(mfs) 




18d 
669c 


19d 
572c 


21d 
582c 


22d 

S85c 


40d 
667d 


397d 
673c 


503c 


510c 


SlSd 


528c 


533d 


S48C 


556d 560d 


RS_DRV(r5) 




174d 


176d 


179d 






















LIB(dgl lib) 
x2 




20850d 


208S3C 


20854c 


















11-183 1 


LIB(dgl^lib) 




20850d 


20853c 


20654c 




















' 



x_aoj 

OLE KNOB(gle knijl in) 


































ISllld 


18133c 


18137c 


18138c 


18i74c 




















X count 
































I0LI8(general 4 ) 




1209d 


1215d 


1440d 


1444: 


1464d 


1458c 


















X dispUy delta 
DGL Vfife(<jgl va,i ) 
































*** 


1294a 




























GENT'lgl gen) 




3292c 


3442c 


3445c 


3453c 






















X display offset 
DGL vflR5(dgl vars) 
































**« 


1296d 




























GENTlgl gen) 




3293c 


3444c 


3452c 
























X majo^ 

■"DGl._POLV(dgl_poli) 


































20424d 


20S60C 


20609c 


20622c 


20647c 


20649c 


20704c 
















''^E_:5nHRK (gle_sma rk ) 




5024d 


S033d 


5034d 


5035d 


5036d 


S037d 


5038d 


5039d 


S040d 


504 Id 


S042d 


S043d 


5044d 


5045d 






5046d 


5047d 


5048d 


5049d 


5050d 


SOSld 


5052d 


5053d 


S054d 


505Sd 


5056d 


50S7d 


5058d 


5059d 






5060d 


S061d 


5062d 


S063d 


5064d 


5066d 


5066d 


5067d 


S068d 


5069d 


5070CI 


5071d 


5072d 


5073d 






S074d 


5075d 


5076d 


5077d 


5078d 


S079d 


S1S6C 
















X window delta 
































DGL V(llf3(dgl var; ) 
GENTdgl gen) 


*** 


1295d 
3293c 


3443c 


3445c 


3453c 






















xaddr 
































INITLOfiOlbootdarmodule) 




588d 


e48d 


6S5c 


e71c 


672c 




















SRM URV(5rm) 




1054d 


1741d 


1770c 
























xdata 
































nOUSl-: (mouse) 
xdtow offset 




46d 


161c 


171c 






















































DGL 'yRRSIdgl vars) 


*«« 


128Sd 




























GENTdgl gen) 




3335c 


3562c 


























Kdtow -icaTe 
































OGL [NQ(dgl inq) 


«** 


6191c 




























DGL WRSiagl var!) 


«*)« 


1279d 




























GENTdgl gen) 
xfer 




3335c 


3560c 


























LIBRHRlflN 
xfr 

CS80(cs80dvr) 




3054d 


3480c 


36S0C 


























I094d 


1157c 


1185c 


1193c 


1250c 


1278c 


1307c 
















xfr chain semaphore 
































ftRlGO(ami90dvr) 




622c 


703c 


706c 
























CS80{cs80dvr) 




1090c 


1115c 


1117c 
























DISCHPIB(bkgnd) 


«*^ 


46d 




























xfr required 
































CS80(csS0dvr) 




1170d 


1172c 


1173c 


1181c 


1187c 


1190c 


















xiate mirrors 
































BUBBi.ESfbubble) 
xlim 

DGL iNQldgl inq) 
DGL vflRS(dgI vars) 




37a 


83c 


102c 


109c 


116c 




















«»* 


6267c 
10180 


1184d 


























GENXdgl gen) 
lIBfdgl lib) 


X** 


3552c 






























20301c 


2036SC 


20370c 


20374c 






















xltod jcale 
































DGL vflR5(dgl vars) 


*»* 


I288S 




























GENT.igl gen) 
LIB(d9l lib) 




3321c 


3360c 


























x»* 


20277c 




























xmax 
































CRT(.:rt) 




561c 


573c 


587c 


593c 


597c 


623c 


627c 


640c 














DGL INQ(dgl inq) 




6216c 


6249c 


6289c 


6298.: 






















DGL KNOB(dgT knob) 


*»x 


18095c 




























DGL vflRS(dgl vars) 




1012tJ 


1173d 


1178d 


1188d 


1193d 




















GCRT(crtb) 




427c 


431c 


433c 


436.: 


439c 


444c 


464c 


466c 


480c 












GEN(dgl..gen) 




3353c 
3616c 


3360c 


3361c 


3371c 


3421c 


3432c 


3S19C 


3527c 


3542c 


3552c 


3554c 


3555c 


3S87c 


3S94c 


LIB(.lgl_lib) 




20186c 


20308c 


20336c 


20519i: 


20866c 


20915c 


21041c 


21044c 


21084c 


21124c 


21131c 


21144c 


21149c 


21333c 






21343c 


21361c 


21363c 


21420c 


21422c 




















SYSDLVSIsysdevs) 


*** 


59a 




























xmin 
































CRT(.:rt) 




561c 


573c 


582c 


687c 


S93c 


594c 


597c 


623c 


634c 


640c 


642c 


644c 






DGL [NQ(dgl inq) 




6216c 


6249c 


6288c 


6297c 






















DGL t'NOB(dgT knob 


«xs< 


18094c 




























OGL l>OLV(dgl poly 




20416d 


20697c 


20705c 


20746c 






















DGL vflRS(dgl vars 




lOlld 


1172d 


1177d 


1187d 


1192d 




















GCRT crtb) 




126d 


128d 


129d 


130d 


131d 


427c 


431c 


433c 


436c 


444c 


447c 


464c 


472c 


480c 


GEN(dgl_gen) 




3321c 


3322c 


3352c 


3360c 


3361c 


3371c 


3420c 


3432c 


3445c 


3518c 


3528c 


3S41C 


3552c 


3S64C 






35S5C 


3S57C 


3558c 


3587c 


3594c 


3615c 


















LIB(<igl_llb) 




2018SC 


20258c 


20277c 


20281c 


20307c 


20335c 


20S11C 


20S12C 


20S19C 


20866c 


20907c 


20908c 


20914c 


21041c 






21044c 


21084c 


21123c 


21130c 


21144c 


21149c 


21332c 


21342c 


21361c 


21363c 


21420c 


21422c 






SYS0i:vS(5ysdevs] 


#*x 


69d 




























xminit 
































MINI r(xminit ) 


*** 


1355d 




























MIUI 


**)* 


12d 




























xminit lalize 
































mini: (xminit ) 




1363d 


1377d 


























niui 


*** 


351c 




























xpos 

CRT(;:rt) 




272c 


295c 


300c 


301c 


302c 


318c 


461c 


462c 


463c 


464c 


466c 


469c 


471c 


472c 






483c 


486c 


491c 


S65c 


566c 


568c 


648c 


649c 


6Slc 












GCRTlcrtb) 




199c 
362c 


204c 
354c 


209c 
359c 


210c 


211c 


228c 


332c 


333c 


334c 


335c 


337c 


340c 


342c 


343c 


SYSDl VS(sysdev5) 


«*)« 


128d 




























xtemp 
CRT((.rt) 


































5S0d 


565c 


568c 


648c 


651c 




















xvalid 
































nOREIS¥S(mfs) 




402d 


408c 


429c 


436c 


451c 


458c 


467c 


492c 


495c 


497c 










xvec 
































DGL_COLY(dgl_poly) 




20022d 


20025d 


20027d 


20030d 


20810d 


20976c 


20978c 


21026d 


21040c 


21061c 


21072c 


21086c 


21106c 


21U6d 






21130c 


21137c 


21148d 


21161c 


21168c 




















LIB(rlgl lib) 
xwtod iiffset 




20046d 


20048d 


20677d 


20637c 


20689c 


20693d 


20703c 


2070SC 












































DGL vfiRS(dgl vars) 


««* 


1282d 




























GENTlgl gen) 
Lie(<lgl lib) 




3308c 


3557c 


3562c 


3563c 
























20254c 


20272c 


20570c 


20S00C 






















xwtod '.cale 
































DGL VHRS(dgl var s) 


««* 


1276d 




























GENT1I9I gen)" 
LIB(rigl_lib) 




3308c 


35S4C 


3S58C 


3560c 
























202S4C 


20272c 


20570c 


20600c 


20834c 


20838c 


















XX 

fttllGii(csamigo) 


*** 


lOSd 




























XXXXX 
































MORErSYS(mfs) 




536d 


S44c 


























^ CRT(> rt) 




293d 


295c 


298d 


303c 


304c 


305c 


308d 


310c 


316d 


318c 


321c 


324c 






DGL Pflsidgl raster) 
DGL ',flRS(dgT vars) 




17317(1 


1733SC 


173370 


























1142d 


1144d 


























ETU' 




1166d 


1179c 


1208c 
























GCRT (crtb) 




117a 
234c 


121d 
236c 


122d 


132d 


202d 


204 c 


207d 


212c 


213c 


214c 


217c 


219c 


22Sd 


228c 


GENrtiQl gen) 
INlTifsT 




3026d 


3029d 


3274d 


3237r 


3294c 


3302d 


3309c 


















797d 


798d 


























KERNIL (ioccmasm) 




706a 


708d 


710d 
























LIB('igl_lib) 




20018d 


20043d 


20044d 


20123d 


20129c 


20134d 


20140c 


20162d 


20165c 


20166c 


2015SC 


20169c 


20219d 


20227c 






20234c 


20238c 


20348d 


203S6C 


20362c 


205S7d 


20567c 


20571c 


20S87d 


20597c 


20601c 








M68K; YSIci) 




Hid 


128c 


137c 
























nlNI- (mminit ) 
y adi 

GLE tNOB(gle knob in) 




148d 


157c 


159c 


























18n2d 


18134c 


18139c 


18140c 


18175c 




















y display delta 

DGL VfiR^(dgl vars) 


**» 


1297d 






















n-184 




Gt'NT-gl gen) 




3294 c 


3446c 


3449c 


3455f 























V dispaay offset 
DGL VSRS(dgl vars) 
































*** 


1299d 




























SENXdgl gen) 
GLE_SnfiRK(gle_5mark) 




3295c 


3448c 


3454c 


























502Sd 


5033d 


S034d 


5035d 


S036d 


5037d 


5038d 


S039d 


5040d 


5041d 


5042d 


5043d 


S044d 


5045d 






5046d 


5047d 


S04Sd 


5049d 


5050d 


SOSld 


5052d 


5053d 


50S4d 


5055d 


5056d 


5057d 


S0S8d 


5059d 






soeod 


6051d 


5062d 


S063d 


5064d 


5065d 


5066d 


5067d 


5068d 


5069d 


5070d 


S071d 


5072d 


5073d 






5074d 


S075d 


5076d 


5077d 


5078d 


5079d 


61S7C 
















y window delta 
































DGL VfllfS(d9l vars) 


»v« 


1298d 




























GENTdgl_gen) 




3295c 


3447c 


344'3c 


3455c 






















ydata 
































MOUSE (mouse) 
ydtow offset 




47d 


164c 


168c 






















































DGL VflRS(dgl vars) 


»«* 


1286d 




























GENTdgl gen) 




3336c 


3578c 


























ydtow scale 
































DGL INQfdgl inq; 
DGL vnRS(dgT vars) 


XMrif 


6192c 




























*** 


1280d 




























GEN"fdgl_gen) 




3336c 


3576c 


























year 

CLOCK(clock) 




67c 


106c 


























INITLOnDlsysglobals) 


*«* 


218d 




























LIBRflRIfiN 




114c 


119c 


371 :c 
























LIFOfiM(Iifmodule) 
n68KSYS(ci) 




I20c 


331c 


34bc 


S50c 


SS4c 


S87c 




















135c 


156c 


26(ic 


778d 






















niui 




44d 


65c 


70c 


71c 


90c 




















SRnDfiri{5rmdaiimodule) 




368c 


387d 


























SRtI DRV(srri) 


X** 


2S4d 




























UCSCi_Dfin<ucsdniodule) 




USc 


S22c 


540c 


S51C 


592c 




















/encode 
































CRT fcrt) 
GCRT(crtb) 




375d 


386c 




























258d 


260c 


























NONUSKBDl (non us kbdl) 


%** 


104d 




























yenromlocation 
































CRTJcrt) 
GCRT(crtb) 




42d 


367c 


386c 


























257d 


260c 


























yes 
































GLE RGLfqle ras out) 
GLE~TVPES(gTe types) 
nlNTT(midecs) 


*** 


8341c 




























**» 


1264d 
37d 


41d 


5Cc 
























niNIT(qminit) 




1072c 


1084 c 


























MIUI 




lS3c 


278c 


























TfiPEBKUP 




972d 


983c 


1043c 


1340c 


1357c 


1359c 


1443c 


1476c 


1480c 












ylim 
































DGL INQ|dgl inq) 
DGL VflRS(dgT vars) 


X** 


6268c 
1019d 


1185d 


























GENjdgi qen)" 
LIB(dgl lib) 


*** 


3567c 






























20302c 


203e6c 


20371c 


20374c 






















yltod scale 
































DGL VflRS(dgl vars) 


*** 


1289d 




























GENTdgl gen) 
LIB(dgl_!ib) 
ymax 

CRT(crt) 




3323c 


3363c 


























«»« 


20278c 






























seic 


579c 


583c 


602c 


622c 


641c 


















DGL INQldgl inq) 




6217c 


62S0C 


6291c 


6300c 






















DGL KNOBtdgT knob) 


*** 


18097c 




























DGL VflRSidgl'vars) 




1014d 


U7Sd 


11 SOd 


1190d 


1195d 




















GCRT(crtb) 




126d 


128d 


129d 


130d 


131d 


427c 


431c 


433c 


436c 


438c 


444c 


446c 


463c 


480c 


GEN(dgl_9en) 




3356c 
3618c 


3363c 


3364c 


3372c 


3421c 


3433c 


3495c 


3S03C 


3544c 


3567c 


3569c 


3570c 


3S87C 


3694c 


LIB(dgl_lib) 




20188c 
21345c 


20310c 
213S1C 


20338c 
21363c 


20S20C 
21420c 


20867c 
21422c 


20917c 


2 1 04 1 c 


21044c 


21084c 


21126c 


21133c 


21144c 


21151c 


21335c 


SVSDEVS(sy5dev5) 


*** 


59d 




























ymin 
































CRT(crt) 




S61c 


57Sc 


583c 


S94C 


602c 


622c 


634c 


641c 


643c 


645c 










DGL INQtdgl inq) 




6217c 


6250c 


5290c 


6299c 






















DGL KNOB(dgT knob 


««:« 


18086c 




























DGL POLY(dgl" poly 




20416d 


20S98C 


20707c 


20748c 






















DGL vnRSfdgT'vars 




1013d 


1174d 


1179d 


1189d 


1194d 




















GCRT(crtb) '" 




126d 
480c 


128d 


129d 


130d 


131d 


427c 


431c 


433c 


436c 


438c 


444c 


446c 


463c 


472c 


GEN(dgl_gen) 




3323c 
3570c 


3324c 
3573c 


3354c 
3574c 


3363c 
3587c 


3364c 
3594c 


3372c 
3617c 


3420c 


3433c 


3449c 


3494 c 


3504c 


3S43C 


3567c 


3569c 


LIB(dgl_lib) 




20187c 


20259c 


2027ec 


20282c 


20309c 


20337c 


20514c 


20S15C 


20520c 


20867c 


20909c 


20910c 


209 lac 


21041c 






21044c 


21084c 


21125c 


2n32c 


21144c 


211510 


21334c 


21344c 


21361c 


21363c 


2U20C 


21422c 






SVSDEVS(sy5dBvs) 


«»« 


S9d 




























ypos 
































CRT(crt) 




272c 


29Sc 


303c 


304c 


305c 


318c 


449c 


4500 


461c 


462c 


463c 


464c 


465c 


466c 






468c 


469c 


471c 


474c 


483c 


488c 


489c 


491c 


565c 


SS6c 


568c 


648c 


649c 


651c 


GCRT(crtb) 




199c 


204c 


212c 


213c 


214c 


228c 


319c 


320c 


332c 


333c 


334c 


335c 


336c 


337c 






339c 


340c 


342 c 


345c 


352c 


3S6c 


357c 


3S9c 














SySDEVS(5y5devs) 

CLOCK(clock) 
ytemp 
CRT(crt) 


»«« 


129d 






























SOd 


S6c 


57c 


64 c 


67c 


lOld 


106c 


108c 


109c 














S50d 


S65c 


5680 


548c 


651c 




















yvec 
































DGL_P0LY(d9l.,poly) 




20022d 
21130c 


20025d 
21137c 


20027d 
21148d 


:2a030d 
21161c 


2O910d 
21168c 


209760 


20978c 


21026d 


21040c 


21061c 


21072d 


21086c 


2U06C 


2in6d 


LIB(dQl_llb) 
ywtod offset 




20046d 


20048d 


20677d 


20837c 


20689c 


20693d 


20703c 


2070SC 












































DGL~VSRS(dgl vars) 


*«« 


1283d 




























GENTdgl gen)' 
LIB(dgll!ibi 




3309c 


3573c 


3678c 


3S78C 
























202S5C 


20273c 


20571c 


2D601C 






















ywtod scale 
































DGL VflRStdgl vars) 


**« 


1277d 




























GENTdgl gen)'" 
LIB(dgl_lib) 

CS80(cs80) 




3309c 


3S69C 


3574c 


35760 
























2025SC 


20273c 


20571c 


20601c 


20835c 


20839c 




















345d 


SOOd 


514c 
























z_type 

cS80(cs80) 




234d 


34Sd 


50Cd 


507d 






















zap assigned unit 
































CTflBLE ' 


*** 


1808c 




























CTf)BLE(ctr) 




306d 


868d 


903c 
























zapspaces 


































158c 


881c 


























INIT(fs) 
h68KSYS(ci) 


*«X 


756d 




























**« 


676c 




























zaptypeahead 
h6§kCSYS(ci) 


































sesd 


574c 


861c 
























zbadblock 
































flniGOlamlgodvr) 
BUBBLES (bubble! 


**»; 


873c 




























*** 


47c 




























CS80(C580dsr) 
F988S(f9885dvr) 


*** 


696c 




























**« 


236c 




























INIT(mi5c) 


*«* 


305c 




























INI T LOAD ( boot darmiodule) 


*x*. 


600c 




























INITLOnOimlnn) 
lNITL0nD(sy5<)lobals) 


*** 


3e4d 




























*:** 


184d 




























h:ui 


*** 


120d 




























TRPEBKUP 


*«* 


lOSld 




























TBPEBKUP(C580tbdvr) 




S76c 


6SSc 


684c 


80ec 
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Bnir.Olamigodvr i 
CS«0(C580dvr) 
F988S(f9885clvr) 
INlr(mi5C) 

INITLOfiDCsysglotals) 
zbadhdrdware 

finlGOramigodvr) 

BUBaLES(bubblei 

CS8O(C580d5r) 

DISCHPIB(di5chpib) 

F988S(f988Sdvrj 

INir(mi5C) 

INI tl-OHD (boot daiiraodule) 

INITlOflO mini) 

INiruOBDlsysglotals) 

nlNIKcsSOir) 

MINIT(hminit) 

mui 

TflPt;8KUP(c580tbavr) 

TBPCBKUP(C580tbr ) 
zbadmode 

fihIGO f amigodvr ) 

BUBBLES(bubblel 

CS8O(c580d5r) 

CS8i)(cs,80dvr) 

EPR0nS(eprom5) 

F98851f9885dvr) 

INir(misc) 

INI tLOfiD(bootdaiT(iiodule) 

INI aOHDfminil 

INiriOfiDisysglotals) 

tllNITfqminit) 

PRINTERIprtdvr) 

TBPi:BKUP(cs80tbdvr) 
zbit 

CS8O(c580) 
zcatchal J 

flriHiO(amigodvr ) 

flMIliOfcsamigo) 

BUBIlLES(bubble) 

CS8.)(c680dsrl 

CS8i)(c580dvr) 

F98!!5(f988Sdvr) 

INlT(ijii5c) 

INI r LORD (bootdammodule) 

INIlLORD(mini) 

INIiL0ftD(sy5glotal5) 

fllNiT(hminit) 

t1INIT(qminit 

THPl BKUP(C580tbdvrl 

TBPlBKUP(C580lbr) 
zchr 

tcEYS(keys) 
zdata 

nOUSE (mouse) 
zero 

n68KSYS(ci) 

MIUI 
zero fields 

CTHBLE 
zero cut na fields 

ctHble 



S05c 
1389c 
119c 
3Z6c 
188d 

889c 
41c 
651c 
353c 
242c 
324c 
601c 
344d 
188d 
761c 
309c 
21Ic 
531c 
286c 

609c 
45c 
675c 
1249c 
111c 
283c 
307c 
760c 
511c 
184d 
986c 
312c 
55Sc 

607d 

477c 

212c 

49c 

744c 

1129c 
132c 
325c 
602c 
368d 
188d 
492c 

1137c 
626c 
294c 

76d 



773d 
402d 



1243d 
1239d 



914c 

4 2c 

671c 



352d 353d 354d 355d SSSd 369d 

808c 
475c 



551c 759c 783c 



768c 

1134c 
787c 
514c 
528c 802c 906c 910c 926c 931c 943c 

756c 

156c 186c 202c 209c 22Sc 237c 245c 



646c 857c 870c 
87c 

437d 
1253c 1255c 1257c 1259c 1261c 
1392c 1485c 



zero parity 

loriB(5erial 3) 

KERNEL (lodeclarations) 
zerod.ite 

SRMIJfin ( 5 rmd anric d u 1 e ) 
zerodjtetime 

LIFriRn(lifmodule) 
zeroim-rn 

INII (Idr) 

INHLOfiOHoader) 

SEGnENTER(a5m) 
zerot ime 

SRMf''ftM(3rmdammodLile) 
zinit t ail 

CS8( (C580d5r) 

INr (miscl 

INIiLOPD(minil 

INIi L0fiD(sysqlobal5) 

l1IN:T(hminit) 

riINIT(qminit 

TflPfBKUP(C580tbdvr) 
zitl 

SRn DRV(5rm) 
zit2 

SRM.ORVCsrm) 
zmediumchanged 

Rni(.0(amigodvr) 

CS80(cs80d5r) 

CS80(c580dvr) 

F98f :5(f9885dvr) 

INII (misc) 

INnLOflO(mini) 

INIlL0HD(by5global5) 

LIF[)an(lifmodule) 

MIN]T(hminit) 

TBPf 8KUP(cs80tbd/r) 
znoblC'Ck 

PMlr.O(amigodvr) 

CS8f (csSOdsr) 

F98fS(f988Sdvr) 

INII (misc) 

INnLOPDlbootdarinodule] 

INITLOflO mini 

INnLOflD(sysglobils) 

niui 

TfiPCBKUP 
TflPEBKUP(C580tbdvr) 



2753c 
404d 


277SC 




387d 


411c 


413c 


585d 


616c 




2472c 

1089d 

208c 


lS87d 


163SC 


388d 


412c 


414c 


686c 
321c 
342d 
187d 
325c 
1254c 
666c 


343d 
327c 
798c 


361c 



607c 


668c 


903c 


703c 






1391c 






138c 


280c 




355c 






349d 


464c 


S08c 


19Sd 






214c 






474c 


480c 




686c 


817c 




828c 


874c 


923c 


693c 






228c 


235c 




336c 






7S8c 






351d 


357d 


360d 


191d 






120d 






lOSld 






573c 


805c 
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znoaevice 

HI1IG0(amigodvr ) 

flMIGOJcsamigo) 

BUBBLES(bubble) 

CSSOfcsSOdsr) 

CS80(c580dvri 

DISCHPIBldischpib) 

EPROMSIepron-s) 

F3885(f9885dvr) 

INIT(initunit5 

INIT(mi5c) 

INITLOflD(bootdammcidule) 

INITLOftO(mini) 

INITL0nD(5y5global5) 

niNIT(qminit) 

niui 

PRINTER(prtdvr) 

SRnflM(srmamfnodule) 

SRnDRn(5rmdammoduie) 

SRtI DRV(srm) 

™pFBKUP(cs80tbdvr) 
znomedium 

flfllGO(amigodvr) 

CS80(C580dvr) 

F988S(f9885dvr| 

INIT(misc) 

INITLOflDtbootdammodule) 

INITLOfiD(minl) 

INITU0flD(sy59lobal5) 

nlNIT(hmlnit) 
znosuchblk 

ftnlGOfamigodvr) 

BUBBLES (bubble) 

CSeO(c580d5r) 

EPR0nS(eprom5) 

INIT(mlsc) 

INITL0n0(5ysglobal5) 

TnPEBKIJP(cs85tbdvr) 
znot ready 

flniGO(amigodvr) 

BUBBLES(bubble) 

CS80(c580dsr) 

INIT(misc) 

INITLOPD(bootdammodu.le) 

INITL0nD(sy5global5) 

SRn DRV(srm) 

TPPfBKUP 

TnPEBKUP(c580ts<lvr) 
zprotected 

nnlGO(amigodvr) 

CS80(cs80d5r) 

EPROMSIeproma) 

F9885(f9§85dvr) 

INITdnisc) 

INITLOnD(mini) 

INITLOPDisysglobals) 

IIINIT(hminit) 

TflPEBKUP(cs86tbdvr) 
Z5t range! 

BUBBLEStbubble) 

INITfmisc) 

INITLOBD(mini) 

INITL0flD(sysglobal5) 



470c 

172c 

46c 

677c 

1005c 

222c 

47c 

89c 

2230c 
320c 
S97c 
370d 
187d 
958c 
210c 
106c 
151c 

1645c 

1152c 
3Slc 

893c 
1238c 
220c 
338c 
598c 
345d 
191d 
431c 

922c 
44c 

680c 
54c 

319c 

187d 

seoc 

891c 

71c 

688c 

337c 

S99c 

181d 

1181c 

1401c 

568c 



690c 
76c 
224c 
322c 
358d 
187d 
482c 
570c 

43c 
323c 

365d 
188d 



478c 483c 

64 c 

923c 
1104c 1360c 

249c 

102c 

217c 255c 
2233c 



483c 490c 493c 



519c 529c 533c 535c 567c 



140c 290c 
159c 189c 



1470c 
5S7c 789c 



346d 347d 348d 3S0d 



792c 
88c 



1403c 
800c 



359d 
802c 

366d 



zt imeout 

BUBBLES(bubbJe) 

DISCHPIB(di5chpib) 

INIT(misc) 

INITL0BD(sy5<3lobals) 

PRINTER(prtdvr) 

SRfl^DRVJsrm) 
zuninTt ialized 

flMIGO(amigodvr) 

CS80rc580d5r'l 

CS80 csSOdvr'l 

INIT(mj5c) 

INITLOfiDlsysqlobals) 

niui 

TfiPEBKUP 



*** 


225c 


*** 


308c 


*** 


184d 




132c 


«** 


1366c 




671c 


*** 


684c 


*** 


1242c 


«»»: 


335c 


*^* 


191d 


t** 


121d 


«*« 


10S2d 
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A804XDVR 



Description 

A804XDVR contains the routines for talking to the 8041 and 8042 keyboard processors, as well as 
the procedure through which all interrupts are funneled and sent to the appropriate p)laces. 



Requirements 

SYSGLOBALS, SYSDEVS, ISR, and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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Pascal [Rev 

1 :S 
2;S 
3:S 

:S 

:S 

:S 

:S 

:S 

:S 

:S 
11:S 
12;S 
13:S 
U:S 
15:S 
16:S 
17:S 
18:S 
19:D 
eO:S 
21:D 
22: 
23: 
24: 
25: 
26 
27: 
28 
29: 
30: 
31: 



47 

43 

49 

50 

51 

52:D 

S3:D 

54:D 

65:D 

66:D 

E7:D 

68:D 

69:S 

60:D 
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(» 
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»» File name: fi804XDVR 



-16 
-24 

-24 
-24 
-24 



(c] Copyright Hewlett-Packard Company, 1983. 
Pll rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DBR 7-104. 9(a) . 

HEULETT-PFlCKflRD COMPflNY 
Fort Collins, Colorado «) 

SSVSPROGS 

$heap_di5po5e off$ 

tiocheck off$ 

Srange off$ Sovflcheck off$ 

Jdebug offj 

Istackcheck off$ 

PROGRnn fl804XINIT; 

1 MODULE H804X0VR: 

1 SSEfiRCH 'INITLOfID' 'flSM', 'SYSDEVS','INIT'$ 

1 IMPORT SVSGL0BHLS,SYSDEVS,I3R,fiSnj 

1 EXPORT 

1 TYPE 

1 DPTflHOOKTVPE = PROCEDURE (DRTfl :BYTE) : 

1 VRR 

1 DnTfiHOOK : DPTflHOOKTYPE ; 

1 STflTUSSHOOK : KBDHOOKTYPE; 

1 STfiTUSSHOOK : KBDHOOKTYPE; 



1 



PROCEDURE 5ENDCMD(CnD:BYTE) ; 

PROCEDURE SENDDflTfl(DfiTfl:BYTE); 

PROCEDURE CMD_RERD_1 (CnD:BYTE; VHR DnTfl:BYTE); 



-24 1 FUNCTION INITfl804X:BOOLEfiN; 

-24 1 IMPLEMENT 

-24 1 CONST 

-24 1 UP = TRUE; DOWN - FRLSE; 

-24 1 TYPE 

-24 1 STFITUSTYPE • PRCKED RECORD 

-24 1 CftSE INTEGER OF 

-24 1 0:(PflDl :0..63; 

-24 1 BUSY :BOOLEHN; 

-24 1 REflDY ;BOOLEfiN 

-24 1 1 :(STfiTBYTE :CHBR 

-24 1 END; 

-24 1 STRINGS = STRINGC3]; 



-24 1 VRR 
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61:D 
62:D 
63:D 
$4:D 
65 ;D 
66:D 
67:D 
63:D 
69:0 



83 
89 

90 
91 
9.;:D 

93 :C 

94 :C 
9S:C 

96 :C 

97 :C 

98 :C 
:C 



100 

101 

102 

101 

104 

105 

106:C 

107:C 

108:C 

10S:C 



10 :C 
1 1 :S 
12:S 
13:D 
14:D 
1S:D 
1 f. : C 
17:C 
1 e : C 
1 1 ';. : C 
120 :C 



-24 
-24 
-24 
-44 
-46 
-48 
-52 
-54 
-56 



DRTBREG [HEX ( '428001 ') ] 
STflTUSREG [HEX('428003' 
CMDREG [HEX '428003' 



CHRP 
CHRR 
CHRR 



ISRREC : ISRIB; 
MflXDRTR : SHORTINT; 
HfiVEDRTfi : SHORTINT; 
DflTRBUFFER ; UINDOWP; 
EXTLEFT,EXTRIGHT: BOOLEAN; 
MASK : BYTE; 

PROCEDURE DUMMYSTflTUS56(VRR STRTBYTE .DRTHBVTE :BYTE; VflR DONE :BOOLEflN) ; 
BEGIN END; 

PROCEDURE STfiTUSSISR(VflR STRTBYTE .DRTRBYTE :BYTE; VRR DONE :B0OLEfiN) ; 
BEGIN ( IF RNYTHING URONG THEN RESET EXTENDCHRR BITS > 
( OTHERWISE IGNORE IT) 
IF DfiTRBYTE>127 THEN BEGIN EXTLEFT :=FBLSE; EXTRIGHT :=FHLSE ; END; 
END; 

PROCEDURE DRTfiISR(DnTfl:BYTE); 
BEGIN 

IF HRVEDfiTfl<MRXDflTfl THEN 

BEGIN OHTflBUFFER''(HRVEDRTR] :=CHR(DRTfi) ; 
HHVEDflTH:=HflVEDnTR<-l; 

END; 
END; 



PROCEDURE R804XISR[!SRIBPTR 
VRR 

STRTUS,DflTR : BYTE; 

DOIT 
BEGIN 

STHTUS 

DRTR 

DOIT 



BOOLEAN; 

= ORO(STHTUSREG); 
= ORD(DRTRREG); 
» TRUE; 



PISRIB); 



RERD STRTUS REG 
RERD DRTR REG ) 



CfiSE STATUS DIV 16 OF 
0,7 



, UN ItlPLEMENTED OPERRTIONS ); 
( RESERVED; 7 REPORT ON POUERUP 
1,2,3 : CBLLrilMERISRHOOK, STRTUS, DRTR, DOIT 

4 : CfiLL ORTflH0Ok,DflTfl); { REQUESTE 

5 : CALL STRTUSSHfiOK, STRTUS, DRTR, DOIT) 

6 : CALL(STHTUS6HO0K, STRTUS, DRTR, DOIT) ; ( 
8. .11 : BEGIN 

CRL LrKBDTRRNSHOOK, STRTUS, DRTR, OOIT); 
IF DOIT THEN CRLL (KBDISRHOOK .STRTUS, DRTR , DOIT 
END; 
OTHERWISE CRLL(RPGISRHO0K, STATUS, DRTR, DOIT) ; 
END; 
END; 



PROCEDURE POLLISR(UAIT:600LERN); 
VRR KBDSTHTUS : STHTUSTYPE; 

ISRIBPTR : PISRIB; 
BEGIN 

IF INTLEVEL>0 THEN 

BEGIN ( POLL FOR INTERUPT OR JUST LEfiVE > 
REPEAT KBDSTRTUS. ST ATBYTE: --STflTUSREG; 
UNTIL KBDSTBTUS.REfiDY OR NOT WRIT; 



ORTR OTHER THRN CRRHVAN 
( CRRRVRN STRTUS CHRNGE 
( CftRfiVRN RfiU ORTR > 
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121:C 
122:C 
123:C 
124 :C 
I2S:S 

126 :D 

127 ;C 
128:C 
129 :C 
130:S 
131rD 
132:D 



133: 

134: 

135: 

136: 

137: 

138:D 

139:C 

140:C 

141:S 

142: 

143: 

144: 

14S: 

146: 

147: 

148: 

149: 

150: 

151: 

152: 

153: 

154: 

155:C 

156:S 

157:D 

158:C 

159:C 

160:C 

161:C 

162:S 

163:D 

164:C 

165:C 

166:C 

167:C 

168:S 

169:D 

170:C 

171:C 

172:C 

173:C 

174 :C 

175:C 

176:C 

177:C 

178:C 

179:C 

180:S 



-2 2 
2 
2 
2 

1 
2 
2 
2 
2 

1 
2 
2 
2 

2 

1 
2 
2 
3 
3 
3 
3 
3 
3 
3 
2 
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fl804XISRi;lSBIBPTR) ; END; 
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IF KBDSTfiTUS.REfiDV THEN 
BEGIN ISRIBPTR := fiODRIISRRE 
END; 
END; 

PROCEDURE 3ETUPREflD(C0UNT:SHORTINT; fINYVRR BUFFER :UINDOW; OFFSET : SHORTINT 1 : 
BEGIN 

hflXDnTfl:=COUNT; HfiVtDflTR : =0 ; DflTfiEUFFER : = fiDDR (BUFFER .OFFSET) ; 
END; 

PROCEDURE UfiIT4KBDREHDY; 
VflR KBDSTRTUS : STHTUSTYPE; 
BEGIN 

REPEAT KBDSTRTUS .STflTBVTE : =STfl-USPEG ; 

UNTIL NOT KBDSTfiTUS.BUSV; 
END; 

PROCEDURE SENDCI10(CnD:BYTE); 
BEGIN UniT4KBDREflDY; CMORES: 
END; 



■CHRJCMD) ; 



PROCEDURE SENDDRTfi(DflTfi:BYTE) ; 

BEGIN UflIT4KB0RESDY; OflTSREG: =CHR (DRTfl ) ; 

END; 

PROCEDURE CnD REflD 1(CMD:BYTE; VRR CfiTfl:nYTE); 
BEGIN SETUPREH0(l,5flTfi, 1) ; SENDCMD (CflD ) ; 

WHILE HflVEDRTn<MHXOflTfi DO POLLISR (TRUE) ; 
END; 

PROCEDURE SENDBYTESLSF(N:SHORTINT; RNYVRR BUFFER :UINDOU; OFFSET :SHORTINT) 

VBR I : SHORTINT; < SEND LERST SIGNIFICRNT BYTE FIRST ) 

BEGIN 

FOR I:=N-1 DOUNTO DO SENDDRTR ( ORD (BUFFER [ I*OFFSET] )) ; 
END; 

PROCEDURE BEE POP (FREQUENCY, DURATION 
BEGIN 



SENDCriC(HEKCfi3')); 
SEN0DRTH((256-DURflTI0N) 



END; 



: BYTE) ; 

SENDDfiTR( FREQUENCY); 



PROCEDURE Mfl5K0PS(ENfiBLE, DISABLE :BYTE); 
BEGIN 

MRSK:=IOR(DISfiBLE,IRND(MflSK,-l-ENflBLE)); 

SENDCnO (HEX ('40' )*MflSK) ; 
END; 



PROCEDURE DO RPGOPStCMD 
BEGIN 

CASE CMD OF 



BYTE; VRR DHTA 



nASKOPS(KBDnASK,0 
riASKOPS O.KBDMASK, 
BEGIN SENDCnO(HEX( 



AS' 



BEGIN SENDCnD(HEX('26' 1 



OTHERWISE 
END; 
END; 



( ENABLE RPG ) 

( DISABLE RPG ) 
; 3ENDDfiTfi(DATflj ; END; ( SET RATE > 

; CnD_REflO 1 (HEX('17' ),DfiTn) ; END; 

(FIX 4/12/84 SFB GET RATE) 
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181:0 
182:D 
183:D 
184 :D 
185:D 
186 :D 
187:0 
188:0 
189 :D 
190:D 
191:D 
192:D 



193 

194 
195: 
196: 
197; 
198; 
199; 
200; 
201; 
202; 
203; 
204; 
205 
206 
207 
208; 
209; 
210; 
211; 
212; 
213; 
214; 
215; 
216; 
217; 
218 
219 
220; 
221; 
222; 
223; 
224; 
225; 
226; 
227; 
228; 
229; 
230 
231 
232 
233 
234 
235 
236; 
237; 
238; 
239; 
240; 



PROCEDURE DO_KBDOPS(CnD: BYTE; VBR DRTfl: BYTE); 
TYPE 

LBNGITF=RRRAY[0. .31] OF LANGTYPE; 
LANGNONITF=RRRAY [0. .5] OF LANGTYPE; 
CONST 

UHICHITFLfiNG=LANGITF[NO KBD.NO KBD.NO KBD, SWISS FR_KBD ,NO_KBD ,N0 KBD, 

NiJ KBD,C[5n ENG ^BD.NC KBD7N0 KBD.NO KBD.ITHLIAN KBD, 
NO_KBD, DUTCH KEO , SUEDTSH KBD, GERMAN KBD, 
NO KBD.NO KBC.NO KBO.SPfiRlSH EUR KBU,N0 KBD, 
BErGIRN KBD, FINISH KBD, UK KBU.CDf] FR KBC, 
SWISS Gi?_KBD,NORl.JEi;iPN KBP, FRENCH KBB, DANISH KBD, 
KATAKHnr KBD, SPANISH LRTIN KBD, US KBD); 
UHICHNONITFLRNG = LANGNONITF[US_KeD, FRENCH "KBD, GfRMBN_KffD, SWEDISH KBD, 
SPANISH KBO,KATBKHRfl KBD]; 
VAR C:BYTE; 
BEGIN 

CASE CrD OF 

0: nASKOPS[KBDnRSK,0) ; 
1: raSKOPS 0,KBDMASK); 
2,3: BEGIN 

IF CMD=2 THEN C:»HEX('fiO' 
ELSE C:=HEX('R2' 



ENABLE KEYBOARD ) 
DISABLE KEYBOARD > 



SENDCnD(C 
END; 
4,5: BEGIN 

IF CI1D = 4 THEN C:=HEX 
ELSE C:=HEX 
SENDCMD (C); 
CMD_REHD 1 (HEX('17') , DRTfl) 



SENDDRTR(256- 



'20' 
'22' 



( SET RUTO DELRY ) 
; ( SET REPEAT RATE 
HTR) ; 



(GET DELAY) 
(GET REPEBT) 

{ COPY DATA TO TIMER - SFB 3/20/84 > 
DflTfi;.25e-DflTR; { READ byte from TIMER 
SFB 3/20/84 ) 



END; 

BEGIN < SET KBDTYPE > 

CMD REfiD 1 (HFX('II') ,KBDCONFIG) ; 

TF 0D[J(KBDC0NFIG DIV 32) THEN KBDTYPE :=ITFKBD 

ELSE 



IF ODO(KBDCONFIG) 
ELSE 



DATR:=KBDCONFIG 
END; 
7: BEGIN < SET KBDLRNG ) 

CMD REflD 1 (HFXC12') , DRTfl) ; 
CflSr KBDTYPE OF 

SMflLLKBD,LARGEKBD : KBDLRNG 
ITFKBD : KBDLRNG 

OTHERWISE KBDLANG: 

END; 
END; 
OTHERWISE 
END; 
END; 

PROCEDURE SEND WAIT (L ;STRING3 ) : 

VflR I, J ; SHORTINT; ( SEND COMMANDS 

BEGIN 

FOR I :=1 TO STRLEN(L) 00 

BEGIN J:=HAVEDATR; SENDCMD (ORD 1 L [I ]) ' 
END; 



THEN KBDTYPE :=SnflLLKBO 
K8DTYPE:=LflRGEKBD; 



;=UHICHNONITFLflNG[DATfl] ; 
:=UHICHITFLfiNG[OflTfl MOD 32]; 
■NO_KBD; 



S WAIT FOR DflTfl > 

; WHILE J=HflVEDHTfl DO; END; 



PROCEDURE CLOCKOPS (CMD;CLOCKOP; 
BEGIN 



VflR THETIME ;RTCTIME) , 
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3.(-r 


2«1 :C 




242:C 




24 3:C 




244:0 




245:C 




246:C 




247:C 




243 ;C 




249:C 




2fO:C 




2! 1 :C 




2;2;C 




2t3:C 




2E4:S 




2f5:D 




2;6:D 




2;7:D 


-4 ; 


2f8:D 


-6 : 


2E9:C 




260:C 




2U :C 




2t2:C 


* 


2t3:C 


4 


2e4:C 


4 


2f5;C 


4 


2t6:C 


4 


2t7:C 


4 


2e8:C 




2e9:C 




270:C 


4 


271 ;C 


4 


272 :C 


4 


273 :C 




274;C 


4 


27S:C 




276:C 


5 


277:C 


4 


278;C 


4 


279 :C 




280:C 


4 


281;C 


4 


282:C 


4 


2f 3;C 


(1 


2f4:C 


4 


2fS:C 


4 


2f6:C 


4 


267:0 




2f8:C 


^ 


2f9:C 




2S0:C 




2S1:C 


4 


2S2:C 


4 


2S3:C 


4 


294:C 


4 


29S:C 


4 


29S;C 


4 


2S7:C 


4 


298:C 


4 


299:C 


4 


3C0:C 


4 
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301 ;C 


4 


302:C 


4 


303:C 


4 


3C4:C 


4 


305:C 


4 


306:C 


4 


307;C 


4 


308:C 


4 


309:C 


4 


310:C 


4 


311 ;C 


4 


312:C 


4 


313:C 




314:C 


:- 


315:C 




31S:C 


J 


317;C 


3 


318:C 


4 


313:C 


4 


329 :C 




321 :C 




322:C 


'V 


323:C 


2' 


324:S 




325;S 




32o:D 


1 


327:D 


-1 2 


323:S 




323:0 




333:C 


J 


331:C 




332:C 




333:0 


2 


33l:C 




335:C 




33'3:C 


4 


337:C 


3 


333:S 




333:C 


2 


34J:C 


2 


341:C 


2 


342:C 


3 


343:C 


3 


34l:C 


4 


345:0 


4 


343:0 


4 


347:0 


c^ 


34 ?:C 


^ 


34 9:0 


6 


351:0 


6 


351 :0 




352:0 


7 


355:0 


8 


354:0 


8 


35x0 


8 


35'i:C 


Q 


35/:C 


10 


35.):0 


10 


35 1:0 


I'l 


3$ '-C 


10' 
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IF OnD=OOET THEN 

BEGIN <C&ET) < RERD THE TIME AND DOTE > 

THETIME . PaCKEDTI(1E:=0, SETUPREfiD ( 3 , THET I ME . PnCKEDTIHE , 1 ) ; 

SENDCH: (HtX('31 ')) ; SEND UfllT (#21 »20»19 ) ; 

THETlnE . PaCKEDDFltE:=0; SFTUPREfiD (2,THETine . PfiCKEDDflTE ,2) ; 

SEND U(iIT(«23»22) ; 
END 
ELSE 
BEGIN (CFUT) { SET THE TIME HMD DATE 1 

SENDCn:i(HcX('flD' ) ) ; SENDBVTESLSF ( 3 , THET ItlE .PfiCKEDTlnE ,1 ) ; 

SENDCnC(HEX('BF' : : ; SENDB » TESLSF (2 , THET IflE . PflCKEDDflTE , 2 ) ; 
END; 
END; 

PROCEDURE TIMtROPS(TinER:TIMERTYPES; OP: TIMEROPTVPE ; 

VfiR TD:TIMERDHTH); 
VHR TDflTH: INTEGER; 

C : BYTE; 
BEGIN 

OflSE OP OF 
SETT: 

CHSE TIMER OF 
DELnYT,CYCLICT: 
BEGIN 

IF TiriER=CYCLICT THEN C:=HEX('Bfi') ELSE :=HEX ( 'B7 ' ) ; 
S=NDCnD(C) ; 

IF TO.COUNt = THEN SENDCND (HEX ( ' 31 ' ) ) < TO OBNCEL ) 
ELSE 

BEGIN TDflTR:=16777216-T0. COUNT; SENDBYTESLSE (3 ,TDHTfl, 1 ) ; END; 
END; 
PERICDICT:; ( DON'T DO fINY THING ) 

DELfiY7T: BEGIN 

SEN0CnD(HEX('B2')); 

IF ID. COUNT. THEN SENDCMD (HEX ( ' 31 ' ) ) { TO CPNCEL ) 
ELSE 

BEGIN TDflTB:=65S36-TD, COUNT; SENOBYTESLSF (2,TDflTP ,2 ) ; END; 
END; 
MHTOHT: BFGIN 

TDflTR:=(TD.rlfiTCH.H0UR»360000) + (TD.rlf)TCH.niNUTE«6000)* 
TD.HnTCH.CENTISECONO; 



SEN0CMD(HEXCB4')1 ; 

" THEN SENDCnD(HEX('3 

ELSE SENDBYTESLSF(3,T(5flTft,l); 



IF TDflTfi^O THEN SENDCflDiHEXi' 3r J ]_( TO CANCEL ) 
END; 



OTHERUISE 
END; ( CHSE TIMER ) 
REPOT: 
BEGIN 

TDHTB:=0; 
CfiSE TIMER OF 
DELflYT.CYCLIOT: 
BEGIN 

SETUPREHD(3,TDRTB, 1) ; 

IF TIMER^CYCLICT THEN C:=HEX('3E') ELSE C :=HEX ( '3B ' ) ; 
SENDCMD(C); SEND UfilT («21#20#19) ; 
TO. COUNT :=167772T6-TDBTfl; 
END; 
PERIODICT: TD.OOUNT:=1; 
DELBY7T: BEGIN 

SETUPREflD(2,TDflTfl,2); 
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SEN0CriD(HEX('36')); SEND URIT (»20#19 ) ; 
TD.0OUNT:= 6S536-TDnTB; 
END; 
MflTCHT: BEGIN 

SETUPREflD(3,TDBTfl,l) : 

SENDCnD(HEX('38' 1 ; SENO_UflIT («21»20«19 ) ; 
TD.t1BTCH.HOUR:=T0Rtfl DIV 360000; 

TO. nBTCH.nlNUTE:=TDBTfl-(TD. MATCH. H0UR1360000) DIV 6O00; 
TD. MATCH. CENTISECOND:" TDBTR MOD 6000; 
END; 
OTHERWISE 
END; { CBSE TIMER > 
END; 
GETTINFOl 
BEGIN 

TD.RESOLUTION:=10000; 

IF TIMER=DELRY7T THEN TO , RBNGE : =85535 

ELSE 

IF TIMER=PERIODICT THEN TD.RflNGE:=l 

ELSE TD.RBNGE:=16777215; 
END; 
END; { CBSE OP ) 
END; 

PROCEDURE KEYTRRNS(VRR STRTBYTE , KEY : BYTE; VBR DOKEY : BOOLEAN); 
VBR EXTSTATE: BOOLEAN; 

PROCEDURE SSET(VflR K:e00LEflN): 

BEGIN K:=TRUE; DOKEY :=TRflNSMOOE=KPflSS_EXTC; 

EXTSTRTE:= DOKEY; 
END; 

PROCEDURE SCLEflRIVRR K:B0OLEHN); 
BEGIN K:=FfiLSE; DOKEY : «FflLSE ; 

IF TRflNSnODE=KPfiSS EXTC THEN EXTSTBTE;= TRUE 

ELSE EXTSTflIE:= NOT (EXTLEFT OR EXTRIGHT); 
END; 

BEGIN (KEYTRHNS) 

STRTBYTE := (STBTBYTE DIV 16)«16; DOKEY:=TRUE; 

IF KBDTYPE..ITFKBD THEN 

BEGIN 

IF TRSN3nODE=KPRSSTHRU THEN EXTSTflTE;= UP 
ELSE 

BEGIN { NOT PflSSTHRU ) 
IF KEY==18 THEN SSET (EXTLEFT ) 
ELSE 
IF KEY^ig THEN SSET(EXTRIGHT) 
ELSE 
IF KEY=146 THEN SCLEBR (EXTLEFT ) 
ELSE 
IF KEY=U7 THEN SCLEBR (EXTRIGHT ) 
ELSE 
BEGIN 

IF KBDSYSMODE THEN 
CASE KEY OF 



?7- 


KEY 


= ?B- 


<F1=K0) 
<F2=RECBLL) 


28- 


KEY 


=42; 


:'H- 


KEY 


•51; 


(FS=STEP> 
(F6 = fil,PHfl} 


JO 


KEV 


-'49; 
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361 :C 


10 


362 :C 


10 


363 :C 


10 


364 :C 


10 


365 :C 


10 


366 :C 


10 


367 :C 


10 


368 :C 


8 


369 ;C 


9 


370 :C 


8 


371:C 


4 


372 :C 


3 


373:C 


3 


374 :C 


3 


375 :C 


2 


376 :S 




377:0 


1 


378:D 


2 


379 :D 


-2 2 


380 :C 


2 


381:C 


2 


382 :C 


2 


333 :C 


3 


384 :C 


3 


33S:C 


3 


386 :C 


3 


387 :C 


3 


388 :C 


3 


389:C 


3 


390:C 


3 


391:C 


3 


392 :C 


3 


393:C 


3 


394 :C 


3 


395 :C 


3 


396 :C 


3 


397:C 


3 


398:C 


3 


399:C 


3 


400;C 


3 


401:C 


3 


402:C 


3 


403 :C 


3 


404:C 


3 


40S:C 


3 


406:C 


3 


407:C 


3 


408:C 


3 


409 :C 


3 


410:C 


2 


411;S 




412:C 


1 


413:S 




414:0 


1 


415:C 


1 


416:C 


1 


417;C 


1 
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31: KEV:=50; <F7=GRnPHICS> 
32: KEY:=45; <F3=CLf;->EN0> 
33: KEV:=58; {F4=C0NTINUE> 
34,35: ; ( UP FIND DOUN RRROU KEYS ) 
36: KEY:=37; <F8=K9) 
OTHERUISE 
END; { CfiSE KEY ) 

IF IRnNShODE=KSHIFT EXTC THEN EXTSTBTE:- NOT(EXTLEFT OR EXTRIGHT) 
ELSE EXTSTBTE:= UP; 
END; 
END; ( NOT PflSSTHRU HODE ) 

STflteYTE:=STflTBVTE* 10RD(ExfSTPTE)»8)*7; { INCLUDE EXTCHPR STBTUS > 
END ( ITFKBD } 

ELSE STflTBYTE:=STfiTBYTE*15; < TURN ON RLL LOLJ ORDER BITS > 
EMO; (KEYTRHNS) 

FUNCTION INITfi804X:B00LEPN; 
VPR 

TEUP : BYTE; 
BEGIN 

INITft804X;=FflLSE; 
TRY 

TEnP := ORD(STRTUSREG); 
nPSK := 0; { INIT 

MflSKOPSIO.KBDMflSK+RESETmSKtTIHERIIflSK 
PERnlSRLINK(fl804XISR,SD0R(STBTUSREG),l,l,l,fiDDR(ISRREC)) 



HflVEOHTB := 0; MflXD^TH := 0; 

BFREaUENCY:=8; B0URfiTI0N:=8; 

BEEPERHOOK := BEEPOP; 

RPGREQHOOK := DO_RPGOPS; 

KBDREQHOOK := DO KBDOPS; 

KBDPOLLHOOK:= POULISR; 

CLOCKIOHOOK:= CLOCKOPS; 

TlnERIOHOOK:= TIMEROPS; 

DBTBHOOK := DflTfllSR; 

DO KBDOPSfSET KBDTYPE ,TEnP) ; 

DO KBDOPS SET_KBDLfiNG, TEMP) ; 

KBUSYSriOOE :=TRUE; 

IF KBDTYPE=ITFKBD THEN SETSTBTUS (6 , ' S 



IS THE 8041/8042 PRESENT ? ) 
BLIZE MBSK ) 
' ' " 'SlnflSK*FHinflSK) : 



= KPflSSTHRU; 

= FSLSE; KBDCflPSLOC<:=TRUE; 

« FRLSE; EXTRIGHT := FRLSE; 

= KEYTRBNS; 

- mSKOPS; 

= 0UnnYSTflTUSS6; 

= DUntlYSTBTUSSe; 

> TRUE; 



TRBNSriODE 
KBDBLTLOCK 
EXTLEFT 
KBDTRBNSHOOK: 
MflSKOPSHOOK 
STRTUS5H00K 
STflTUS6H00K 
INITB804X 
RECOVER 

IF ESCflPECODEo-12 THEN ESCAPE (ESCflPECODE ) ; 
END; (INITfl304X) 

END; {MODULE) 

1 IMPORT B804XDYR,L0BDER; 
■ BEGIN 

IF INITfl804X THEN MRRKUSER; 
END. (PROGRAM) 

No errors. No warningfi. 

«»««« Nonstandard language features enabled «»«»« 
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AMIGO 



Description 

AMIGO is the transfer method (driver) for all supported Amigo family discs. 



Usage 

AMIGO supports the following discs: 

• 8290x 

• 9121 

• 9895 

• 913x 



Requirements 

DISCHPIB, DRVASM, lODECLARATIONS, HPIB or DISC.INTF 
Optionally: DMA 



Notes 

AMIGO does not support the 7905, 7906, 7920 and 7925 hard discs. These discs may not be used 
with Series 200 computers. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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8: 

9: 
10:S 
11 :S 
12;S 



16:S 
n:S 
18:S 
19:D 

20 :S 

21 :S 
22:D 
23:D 
24 ;D 
2S:S 
26:D 
27:S 



(c) Copyright He»let t -Packard Company, 1983, 
Mil rignt5 are reserved. Copying or other 

eproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use. duplication, or disclosure by the Government 
IS subject to restrictions as set forth in 
paragraph (b) 13) (B) of the Rights in Technical 
Data and Computer Software clause in 
lifiR 7-104. 9(a) . 

HEULETT-PflCKRRD COnPHNY 
F'ort Collins, Colorado *) 



JmodcalS 

Sdebug off, range off, ovflcheck off$ 

Sstackcheck off, iocheck off$ 

Ssearch 'DRVfiSM', 'DISCHPIB', ■ lOLIB iKERNEL '$ 
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28:D 
29;D 
30:S 
31 ;S 
32:D 
33:S 
34 ;D 
35:S 
36:D 
37;D 
38:S 
39:D 
40:D 
41 ;D 
42:5 
43:0 
44:0 
46:0 
46:0 
47:0 
48:0 
49:0 
50:0 
51:0 
52:0 
63:0 
54:0 
55:0 
S6:D 
57:0 
58:D 
59:D 
SO:D 
61 :D 
62:D 
63:D 
64 :D 
6S:D 
66:D 
67:0 
68:D 
69:0 
70:0 
71 :D 
72:D 
73:D 

74 :D 

75 ;D 

76 ;D 
77:0 
78:D 
79: 
80: 
81 ; 



$page$ 

Scopyright 'COPYRIGHT (C) 1983 BY HEULETT-PRCKflRD COMPfiNY'S 

program flniGOinit ; 

1 niodule CSamigo; (amigo command set) 

import 

sysglobals, bkgnd, discHPIB; 

export 

type 

amigo dev type = (enumerated supported amiqo devices) 

(HPJ89S, HP3290X, HP913X_R, HP913X_B, HP9i3X_C, HP7905, H 



P7906, HP7920, HP7925); 



comm3nd_type = (commands supported by the issue_cmd procedure) 



( req_5tatus, 
req_5yndrome, 
req log addr, 
5eeF_cm(J, 
addr record^cmd, 
recaTibrate^cmd, 
unbuf_read_cmd, 
verif y_cmd, 
unbuf write_cmd, 
init_3_cmd, 
forniat_cmd, 
buf_read_cmd, 
buf wr ite_cmd ) ; 



( request status 

( request syndrome 

( request logical address 

( seek 

( address record 

( recalibrate 

' unbuffered read 

verify 

unbuffered write 

initialize, setting bits 

format 

buffered read 

buffered write 



ftcb_type = (first two command bytes - 
packed record 
opcode ; byte; 
unit: byte; 
end; 

si type = (enumerated status 1 values) 

normal_complet ion 

Lihi tavaileble 

!.l 4 

!.1_6 

uncorrectable data error 



structure for most commands) 



10 programme r ror 

en5_of_cylTnde r 

eve r run 

i lle3al_acce5S to spare_track 

access_not_reaiSy_3uring_data_operation 

!l_20 

.It tempt_to_wr i te_on__protected_t rack 

si 24 

!l 26 

;.1_28 

U 30 



illegal_opcode 

illegal drive type 

si 5 

cyTinder_compare_error 

head sector_compare_er ror 

sl_lT 

sync^Oit_not_received in_time 

po5sTbly_cor rectable_Jata_e rror 

defective_t rack 

status 2 error 

51^21 

unit unavailable 

sl_25 

5l_27 

sl^29 

drive attention 
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90: 
91: 
92: 
93: 
94: 
95: 
96: 
97: 

98 :D 

99 :D 
100:D 
101:D 
102:D 
103:D 
104:D 
10S;D 
106 :D 
107:D 
108:D 
109:D 
110: 
111: 
112: 
113: 
114: 
115: 

lie 

117: 

118:0 

119:D 

120:0 

121: 

122: 

123: 

124: 

125: 

126: 

127: 

128: 

129: 

130: 

131: 

132:0 

133:0 

134:0 



^a_type = {three vector address) 
packed record 

cyj : short in t ; 

head: byte; 

sec t : byte ; 
end; 



{ cylinder address > 
{ head address ) 

{ sector address ) 



Status 


type = {4 


pack 


?d record 




5tdt 1 - 


s ; 


boolean; 


p: 


boolean; 


d: 


boolean; 


5l 


si type; 


un 


. t : H' y t e ; 




Stat 2 - 


star; boolea 


XX 


0. .3; 


tttt; C. .15; 




booJean; 




boolean; 




boo Jean ; 


fmt : boolean 




booJean ; 




boolean ; 


c: 


boolean; 


ss 


0. .3; 


end; 





bytes of returned status} 

from previous operation ) 

{ 15 spare track bit 

{ 14 protected track bit 

( 13 defective track bit 

{ 12-8 last operation status 

{ 7-0 unit number 

from specified drive ) 



15 


conditions *'ed below 


14-13 


undefined 


12-9 


disc type bits 


8 


reserved 


7 


dr ive at tent ion 


6 


write protected 


5 


format switch 


4 


♦drive fault 


3 


first status bit 


2 


*5eek check 


1,0 


♦drive ready status 



syndrofTie^type = (14 bytes of returned syndrome information) 
packed record 

5D_padl : 0. .7; 

sb_5l : 5l t ype ; 

sb_pad2 : 5yte; 

sb'tva: tva_type; 

sb_off set : short int ; 

sb correction_bytes : packed array[0..5] of char; 
end ; 

rnap_type = <media addressing parameters) 
record 

cyl_per_med 
t rk_per_cyl 
sec_per_t rk 
end ; 

unsignedie = 0,. .6SS35; 



short int ; 
short int ; 
shortint ; 



{ number of cylinders per medium 
{ number of tracks per cylinder 
( number of sectors per track 
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135:D 

136:0 

137:0 

138:0 

139:D 

140: 

141 : 

142: 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

150: 

151 : 

152: 

153: 

154: 

155: 

156: 

157: 

158: 

159: 

160: 

161: 

162: 

163: 

164 ;C 

165:C 

166:C 

167:C 

168:C 

169:C 

170:C 

171:C 

172:C 

173;C 

174:C 

175:S 

176:S 

177:D 

178:C 

179:C 

180:C 

181:0 

182:3 

183;D 

184:C 

185:C 

186:C 



3.0M 6/ 4/84] flMIGO.TEXT 
SpageS 



f ttnction device 

function MI_cont roller 

function 5urface_mode 

procedure get_map 

function record5_per_medium 

f unct ion decoded_addr 

procedure is5ue_cmd 

f unct ion ds j 

procedure set^f i lemmas k 

procedure recalibrate 

procedure status 

procedure syndrome 

procedure seek 

procedure addr_record 

f unct ion logical addr 
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uep: uep_type) 

|uep: uep_type) 

|uep: uep__type) 

|uep: uep__type ; 

'uep: uep_type) 

'uep: uep_type ; 



amiqo_dev_type; 

boolean; 

boolean; 
var map: map_type]; 

integer ; 
tva: tva_type): integer; 



fuep: uep_type; coirifnand: command^t ype ; var cmd_buffer: ftcb__type); 

[ uep: uep_type) : byte; 

[ uep: uep_type) ; 

fuep: uep_type) ; 

(uep: uep_type; var status_byte5 : statU5_type} ; 

fuep: uep_type; var syndrome_byte5 : syndrome_type) ; 

(uep: uep_type; recc)rd_addr : integer) ; 

fuep: uep_type; record_addr : integer) ; 

(uep: uep_t ype) : intege r; 



im p 1 erne n t < CS am i go } 

va r 

n-iost_recent_status : status__type; (for post-rrortem diagnostic purposes onlylll) 



1 function device(uep: uep_type) 

2 begin (device) 
case uep'^ . let ter of 



amJ90._dev_type; 



otherwise 
end (case) 
end ; (device ) 



device 
device 
device 
device 
device 
device 
device 
device 
vice 



= HP989S; 
= HP8290X; 
= HP913X_f.; 
= HP913X__f; 
- HP913X C ; 
= HP7905; 

HP7906; 

HP7920; 

HP7925; 



iore3c_bkgnd(uep, z no device); 



1 function f1I_cont roller (uep: uep_type); boolean; 

2 begin (m cont roller) 

2 ni_cont?oIler := device(uep) ir [HP7905, HP79 

2 end; {MI_cont rolle r ) 

1 function surface mode[uep: uep_type): boolean; 

2 begin (surface mode) 

2 surface mode~:= device(uep) in [H27905, HP7906]; 

2 end; (surTace_mode ) 



3, HP7920, HP7925] ; 
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187 


D -4 


188 


S 


189 





190 


D 


191 





192 





193 


D 


194 


D 


195 


D 


196 


D 


197 


D 


198 


a 


199 


D 


200 


D 


201 


D 


202 


D 


203 





204 





20S 


D -2 


206 


C 


207 


C 


208 


C 


209 


C 


210 


C 


211 


C 


212 


C 


213 


C 


214 


C 


215 


C 


216 


C 


217 


S 


218 


S 


219 


D 


220 


D 


221 


D -6 


222 


C 


223 


C 


224 


C 


225 


C 


226 


C 


227 


S 


228 


S 


229 


D 


230 


D 


231 


D -2 


232 


D -2 


233 


D -2 


234 


C 


235 


C 


23$ 


C 


237 


C 
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1 


Ipage$ 


1 


i: rocedure get m 


2 


type 


2 


device maps 


2 


const 


2 


059895 map 


2 


SS9895 map 


2 


device maps 


2 


[(HP8J90X ) 


2 


<HP913X A 




<HP913X F3 


2 


^HPQISX-C 
<HP790ST 


2 


2 


<HP7906) 


2 


(HP7920) 
<HP792S> 


2 


2 


van 


2 


this device 


2 


begin Tset ma 


2 


this device 


2 


if tFis_dev 


3 


case uep"^ 


4 


1: i-nap 


4 


2 : map 


4 


otheru/i 


4 


end {case 


4 


else 


3 


map := de 


2 


end; <9et_niap) 



ap[uep; uep__t ype; 



Ttap: tnap_t ype ] ; 



_type = array[HP8290X. .HP7925 



rr\ap_Xypie [ cyl_per_med : 

^ map_typet cyl_per_med: 

= device_maps type 

map__t ype [ cyl_per__med : 

} map~typet cyl^per_med: 

) map_iype[ cyl_per_med: 

} rnap_Type[ cyl_per__med : 

map_t ype [ cyl_per_med : 

map__type[ cyl_per_med: 

map_type[ cyi._per_med : 

map_type [ cyl_per__med : 



7925] 


of map_ 


type; 








75, 


t r k pe r 


_cyl: 


2, 


sec per trk: 


30]; 


73, 


trk_per 


_cyl: 


1, 


sec_per_t r k : 


30]; 


33, 


trk per 


_cyl; 


2, 


sec_per_t rk : 


16], 


152, 


trk per 


_cyl: 


4, 


sec_per_t rk : 


31] , 


305, 


trk pe r 


_cyl: 


4, 


sec_per_t rk : 


31] , 


305, 


trk_per 


_cyl: 


6, 


sec per trk: 


31] , 


400, 


trk pe r 


cyl: 


2, 


sec per trk: 


48], 


400, 


trk pe r 


:cyl: 


2, 


sec per trk: 


48], 


800, 


trk pe r 


cyl: 


S, 


sec~per trk: 


48], 


800, 


trk pe r 


_cyl: 


9, 


sec per trk: 


64] 



: a'Tii90„dev_t ype; 
P> 

:= device (uep) ; 
ice=HP9895 then {use single/double-sided flag set by status routine) 
.devid of 

:= SS9895_map; 

:= DS9895 map; 
se ioresc 5"kgnd(uep, zcatchall); 
) 



■ice_maps [this_device] ; 



1 fu net ion records_per_medium( uep; uep_t ype ] 

2 var 

2 map: map_type; 

2 begin {records_per medium) 

2 get map(uep, mapT; 

2 witK map do 

3 records per_medium :- 5ec_per_t rk*t r 
2 end ; ( recor3s_per_rriedium> 



k_per_cyl>*^cyl_pe r_med ; 



1 function dsj(uep: uep_type): byte; 

2 var 

2 dsj_byte: packed reco rd b: byte; end; 

2 const 

2 dsj sec = 16; 

2 begin {dsj> 

2 HPIBshort msge in(Ljep, dsj^sec, addr (ds j_byte ) , sizeof (ds j ^byte ) ) 

2 dsj := dsj^byte.b; 

2 end; {dsj) 
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3, on 


238:D 


-4 1 


239:0 


-4 1 


240:0 


1 


241 :D 


2 


242:0 


2 


243 ;D 


2 


244:0 


2 


245:0 


2 


246:0 


2 


247 :D 


2 


248:0 


2 


249. D 


2 


250:D 


2 


251:P 


2 


252:0 


2 


253. D 


2 


254:0 


2 


255:0 


2 


256. D 


2 


257:0 


2 


258:0 


2 


259:0 


2 


260:0 


2 


261 :D 


2 


262 :D 


2 


263:0 


2 


264 :C 


2 


265 :C 


2 


266 :C 


3 


267 :C 


3 


268 :C 


3 


269 :C 


3 


270:C 


3 


271:C 


2 


272:S 




273:3 




274:0 


1 


275:0 


2 


276:0 


2 


277.0 


2 


278:0 


2 


279:0 


2 


280. D 


2 


281 :0 


2 


282:0 


2 


283:0 


2 


284:0 




285:0 


2 


286 


2 


287 


2 


288:0 


2 


2890 


-2 2 


290:C 


2 


291 C 


2 


292 C 


2 


293 C 


2 



type) 



6/ 4/84] flMIGO .TEXT 

$page$ 

procedjre i5sue_cmd (uep: uep_t ype 
type 

ctet = {command table ent 
packed record 
sec: short int ; 
DC ; byte; 
nb ; byte; 
end; 
command_t ablest ype 
const 

conmand_table = command_table_type 
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land: command_type; var cmd_buffer: ftcb_type) 



{ secondary command 

{ opcode 

{ number of data bytes 



packed ar ray [ccmmaiid_type] of ctet; 



[ {req_status ) ctet[sec: 8, oc : 03, 

{ req_5vndrome ) ctet[5ec: 8, oc: 13, 

{req log addr ) ctetfsec: 8, oc : 20, 

(seel< cm3 ) ctet[5ec: 8, oc : 02, 

•f addr" reco rd_cmd) ctet[5ec: 8, oc: 12, 

■f recaTibrate_cmd} ctet[5ec: 8, oc: 01, 

funbuf read_cmd > ctetisec: 8, oc : 05, 

{verif y_cmd ) ctetisec: 8, oc: 07, 

{unbuf yjrite_cmd} ctet[sec: 8, oc : 08, 

f init_3'__cmd > ctet[5ec: 8, oc: 43, 

{ forma t_cmd ) ctetisec: 12, oc: 24, 

{buf_read_cmd ) ctetisec: 10, oc: 05, 

{buf~write.cmd ) ctetisec: 9, oc : 08, 

begin {issue^cmd'y 

with cmd_buffer, command__t able [command] do 
begin 

opcode := oc; 
unit : = uep^ . du ; 

HPIBshort msge^out [uep, sec, addr (cmd_buf fer ) , nb) ; 
end; {with}" 

end; {issue_crrd) 



2], 
2], 
2], 
6], 
6], 
2], 
2], 
4], 
2], 
2], 
5], 
2], 
2] 



uep_t ype) ; 
{set file mask command) 



procedure set__f ile_ma5k (uep: 
type 

sfm_cmd type = 
packed record 
oc : byte; 
mask: byte; 
end; 
sfm_cmd_ar ray_type 
const 

5fm_sec = 8; {secondary) 

sfm_oc = 15; {op code) 

s fm_cmd array = s fm_cmd a r r a y_t ype 

[ {false: cylinder mo3'e) 5fm_cmd_t ype [ oc : 
{true: surface mode ) sfm_cmd_t ype [ oc: 



ar ray [boolean] of sfm__cmd_t ype; 



sfm_oc, 
5 f m c , 



mask : 7 ] , 
mask : 5 3 ] ; 



sfm_cmd: sfm_cmd_type ; 

begin {set_file_mask) 

sfm cmd := 5fm__cmd_ar rayC^urf ace., 
HPlB"short^rn5ge_out (uep, sfm_sec , 

end ; { se t_fTle_mask ) 



mode (uep) ] ; 

addr (sfm_cmd) , sizeof ( sfm__cmd) ) ; 
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294 
295: 
296: 
297 
298 



299 :C 



300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

3U 

312 

313 

314 

315 

316 

317 

318 

319 

320 :C 

321:C 

322 :C 

323 :C 

324 :C 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 



-4 1 $ pages 



1 procedure recalibrate (uep: uep_type); 

2 var 

2 recalibrate cmd_buf: ftcb_type; 

2 begin { recali&rate ) 

2 issue_cmd [uep, recalibrate_cmd, r5calibrate_cmd_buf ) ; 

2 end; (recalibrate) 



var St at us_bytes : stat u5_type) ; 



1 procedure status(uep: uep type: 

2 var 
St atu5_cmd_buf : ftcb_type; 

const 

send St5_sec = 8; 
begin ^['status) 

issue_cmd(uep, req_statu3, status cmd buf); 

if not ni_controller (uep) then HPTBwait for_ppol (uep) ; 

HPlBshort__m5ge_in(uep, send_5ts_sec , ad?r (5tatus_bytes) , sizeof (stat U5_byte5) ) ; 

most_recent_stat us := statU5_bytes ; (for post-mortem diagnostic purposes oniyl) 

with uep^ do 

case device(uep) of 

HP9395: (use the otherwise undefined devid field to indicate...) 
if statu5_bytes.tttt in [5,6] 

then devid := 2 (double-sided disc) 

else devid := 1; (single-sided disc) 

HP8290X: (use the otherwise undefined devid field to indicate...) 
devid := ord(status_byte5 . r) ; (Sparrow (1) versus Chinook (0)) 
otherwise 

(do nothing); 
end; (case) 
end; (status) 



1 procedure syndrome (uep: uep_type; \ar 5yndrome_bytes : syndrome type); 

2 var 

2 syndrome_cmd_buf : ftcb_type; 

2 const 

2 send syn sec = 8; 

2 begin "CsynHrome) 

2 issue cmd(uep, req_syrdrome. syndrome_cmd buf); 

2 HPIB5Kort_m5qe_in(uep, serd_syn_sec, addrXsyndrome_bytes) , sizeof (syndrome bytes)); 

2 end; (syndrome) " 
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-4 1 


338 :D 


-4 1 


339:0 


1 


340:0 


2 


341:0 


-6 2 


342:0 


-10 2 


343 :C 


2 


344 :C 


2 


345 :C 


2 


346 :C 


3 


347 :C 


3 


348 :C 


3 


349 :C 


3 


3S0:C 


4 


351 :C 


4 


352 ;C 


4 


353:C 


4 


354 :C 


4 


3SS:C 


4 


356:C 


4 


357:C 


4 


358 :C 


4 


359 :C 


3 


350 :C 


2 


361:S 




362 :S 




363:0 


1 


364:0 


2 


36S:0 


-6 2 


366:0 


-10 2 


367;C 


2 


368 :C 


2 


369:C 


2 


370 :C 


3 


371 :C 


3 


372 :C 


4 


373 :C 


4 


374 :C 


3 


375 :C 


3 


376 :C 


2 



6/ 4/84] flniGO.TEXT 

1 $page3 

function coded_addr (uep; 
var 

map: map_type; 

t rack : integer; 
begin {coded_"addr > 

get map( jep, map] ; 

witF map do 
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uep_type; record_addr : integer ) : tva_type; 



coded_addr . sect 
tra 



record_addr mod sec_per trk; 
record_addr div sec_per~trk; 
if surface_mode (uep) then 

begin (select proper 7905/06 logical "volume") 

coded_addr . head := track div cyl_per_rned + 2*uep'".dv 
= track mod cyl_per_med; 



track mod 
track div 



coded_addr .cyl 
end (then) 
else 
begin 

coded_addr . head 
coded addr.cyl 
end; {else) 
end; {with} 
; <coded_addr } 



function decoded_addr (uep; uep__t ype; 
var 

map: map_type; 
t rack : itTteger; 
begin <decoded_addr ) 
get map [uep , map) ; 
witH tva, map do 
begin 

if surf ace_mode (uep) 



_cyi; 
-cyl ; 



va ; tva_type ) : integer; 



then track 
else track 
decoded addr 
end; (witK) 
end; (decoded addr > 



( head-2*uep" .dv)*cyl_per med+cyl 
= cyl*t rk__per_cyl + head; "~ 
= t rack«5ec_per_t rk+sect ; 
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396 : 
397: 
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400:C 

401 :C 

402 :C 

403 :S 

404 :S 

405 :D 
405:0 

407 :0 

408 ;0 
409:0 
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411 ;C 
Hi :C 
413:C 
414 :C 
415:C 
4 1 6 : C 
417:S 
41f :S 
419:C 
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1 (roredure seek(uep: uep_Type; 
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2 5eek_cmd_buf : 

2 packed record 

2 ftcb: ftcb_type; 

.; tva: tva__typei 

2 end; 

2 begin (seek) 

2 seek_cmd buf.tva :- coded_add r ( Lep, record addr); 

2 issue cmH(uep, seek^cmd, 5eek_cmd_buf . f tcbT; 

2 erdi (seek) 

1 procedure addr_reco rd (uep : uep^type; record_addr: integer 

2 var 



add r_record__cmd_buf : 
packed record 

ftcb: ftcb_type; 
tva: tva_type; 
end; 
begin {addr_record> 
addr__record_cmd_buf . 
issue cmd(uepj addr_ 
end; {aJdr record) 



•'unction l09ical__addr ( uep 
var 

ladd_cmd_buf : ftcbtype; 
tva: tva_tyoe; 



coded_addr (uep, record^ 
cmd , addr_record_cmd_bu 



uep_t ype] : integer 



addr) ; 
f.ftcb); 



send addr_sec - 8; 
begin '^'logical addr} 

issue_C(nd( uep, red _log_add r , ladd cmd buf ) ; 

if not MI_controller(uep) then HPTBwalt for_ppol (uep) ; 

HPIBshort rnsqe_in (uep, send_addr_sec, a(Jdr(tva), sizeof(tv 

logical_^aodr ;= decoded_add r ( uep, tva); 
end; ( loglca 1 _addr ) 



1 '-nd; (CSamigo) 
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421 : 
422: 
42? 
424 : 
42£ 
42f : 
42V 
42f : 
429 
430; 
431 : 
43: : 
43;- 
434 ; 
43E : 
43e :S 
437 :S 
435:0 
439:0 
440:0 
441 ;0 
442:0 
443:0 
444 :0 
445:0 
445:0 
447:0 



445 : 

449 

4S0 

451 : 

452 : 
459 
454 : 
45; 
450: 
457 
455:0 
459:0 
4e(:0 
461 :0 
461" :0 
469 :D 
464 :C 



46! 
46f 
467 
469 
469 
47( 
471 
47; 
47:- 
474 
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1 SpaqeS 

1 tiodule amigodvr; 

1 import 

1 s-yvgloba Is , drvasm, bkgnd, discHPIB, CSamigo; 

1 ■■.^port 

1 pfocedure get _let ter [uep: uep_type; idem: shortint; var letter: char); 

1 

1 p''-cedure amigoio(fp: fibp; request: amrequest t ype ; 

2 ai.yvar buffer: window; length, position: integer); 

1 .[np'.c-i^ent {amigodvr) 



^rocedu 

const 

ide 

var 

ind 

St a 

type 



dure used by CTPBLE for self-configuring 

e get_let te r [ uep: uep_type; ident : shortint; var lett 

nt_t able_ent ries = 7; 

sho rtint ; 
tus_bytes: status_type; 



vice^table type = array[0..3] of char; 
et = (idenf_t abie_ent ry_type ) 
reco rd 

ident : shortint ; 

letter: char; 



end; 

ident_table_type 
const 



ray [1 .. ident_table_ent ties] of itet; 



ice table = device_table Type 
(OT 'C, (1) 'P', (2) 'V, (3) 
table = ident_table_type 



[ {RP9895 
(HP8290X) 
(HP913X_fl) 
(HP913XJ3) 
(HP913Xj;> 
(MflC) 
(IDC> 
begin (get_letter> 



t[ ident 

itet[ ident 

itet[ ident 

itet[ ident 

iteti ident 

itet[ ident 

itet[ ident 



0*256+129 ($0081) 




letter 


'H' , 


letter 


'N' , 


letter 


'U' , 


letter 


' V ' , 


letter 


•Ul' , 


letter 


'X' ' , 


letter 


'y.' 



letter :- ch"(255); (initially undefined) 
for indent := 1 to ident l able_ent r ies do 
if ident = ident_t able[Tnde>;] . ident then 
letter ;-■= ident _t able [index], let ter; 
if let ter = chr [255) then io resc^bkgnd ( ue p, znodevice); 

uep". letter := letter; {for determining ppol wait in status routine) 

if d5J(uep)<>0 then {don't worry about it); 

HPIBamigo clear[uep); 

HPIBwait _for_ppol ;ijep) ; 

5taius(uep, status bytes ); 

if ds.j(uep)<>0 then loresc bkgnd[uep, /catchall); 

if sTatu5_byte5 . 5s = 2 then To ■"e 5c_bk9nd ( Ljep , znodevice); ("unit not present 



power off ) 11-200 
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2 
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2 


495:0 


2 
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2 
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2 
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2 
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2 
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2 
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2 
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2 
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2 
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2 
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507:0 


■4 2 
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•6 2 
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2 
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2 
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514:C 
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515:C 


3 
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S17:C 


3 
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3 
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3 
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3 
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if letter='X' then (determine which 7906 f ami ly member it really is) 
begin 

If not (status bytes. tttt in [0..3]) then 

ioresc^bkgndTuep, znodevice); {unrecognized unit type) 
letter ;= device table[slatus bytes. tttt]: 
end; <if) 

end; {get_ietter) 

procedure clear_unit (uep: uept ype ; 
type 

device_ident_type ^ a r rayEHPg&yS . . HP9I3X_C] of shortint; 
device_t able_t ype = array[0..3] of amigo_dev_type; 
const 

device_ident_type 
0»2S6+129, ($0031) 
1»256+ 4, ($0134) 
1»25S+ 6, ($0136) 
1«256+ 10, ($0130) 
1«256* 15 ($013F) ] ; 
■256*2; ($0002) 



[ (Oy HP7806, (1) HP7320, (2) HP790S, (3) HP7925 ]; 



device ident = 
[ (HP9895 ) 

(HP8290X) 

{HP913X ft) 

(HP913X_B> 

(HP913X_C) 
MflCJdent = 0*' 
IDC^ident = 0»256+3; {$0003) 
device table - device table type 
[ (Oy HP7806, (1) HP7320, ' '- ^ 

dev : amiqo_dev_t ype ; 
ident : shortint ; 
dumfiiy_dsj: byte; 
status bytes: status_type; 
begin (cTear^unit ) 
dev := device ( Ljep) ; 
ident := HPIBamigo_identif /(uep) ; 

if m^controller (uep) then (check for flPC or IDC controller) 
begin 

if not ( (ident = nPC_ldent ) or ( ( ident = IDC_ident ) and SimonJtIR (uep) ) ) then 
ioresc_bkgnd( uep, znodevice); 
end (then) 
else (require EXACT device/icent match) 

if ident<>device_ident [dev] then ioresc_bkgnd ( uep, znodevice); 
if dev=HP8290X then (avoid the amigo clear; it takes too much t ime 1 ) 

dunimy_d5j := dsj(uep) (just remove the power-on holdoff) 
else (go ahead and do the hard clear) 
begin 

HPIBamigo clear(uep); 
HPIBwait Tor_ppol(uep) ; 
end; (elseT 
St at us (uep, stat us_byte5) ; 

if d5j(uep)<>0 then ioresc^bkgnd ( uep, zcatchall); 

if St at us_bytes . ss=2 then loresc ^bkgnj (uep, znodevice); ("unit not present or power off") 

if Ml^cont roller (uep) then (v,e need to check the exact type of THIS particular unit) 
begin 

if not [status bytes. tttt in [0..3]] then 

ioresc bkgndXuep, znodevice}; (unrecognized unit type) 
if devodevice t3b)e[5tatus_bytes . ttt t] then 
ioresc bkgndXuep, znodevice); (wrong unit type) 
end: (then) 
end; (cjear_unit) 
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538: 

539: 

540: 

541: 

542: 

543; 

544: 

545: 

54$ 

547: 

548:0 

549 ;S 

550:3 

561:S 

562:S 

553:0 

564:0 

555 ;D 

556:0 

557:0 

658:0 

659:0 

560: 

561 : 

562: 

563: 

564: 

565: 

586: 



567:C 



568: 
569: 
570: 
571: 
572: 
673: 
574: 
575; 
576: 

577 :C 

578 :C 
579: 
580: 
581: 
582: 
583: 
584: 
585: 
586: 

587 :C 

588 :C 

589 :C 
590:0 

591 :S 

592 :C 



593 
594 
595 
696 
597 



.on 6/ 4/84] nnlGO.TEXT 
1 $page$ 



26-Dec-84 21:41:04 Page 12 «»« File name: flhIGO «»» 



procedures in the background transfer chain 



1 > 

1 procedure initialseek (uep 

1 procedure enter transfer_chain (uep 

1 procedure issue t r ansfer_reque5t (uep 

1 procedure init l'dte_data_t ransfer (uep 

1 procedure upondata^t ransfer_comp(uep 

1 procedure chec< dsj (uep 



uep_type) 
anypt r ) ; 
uep_type) 
anypt r ) ; 
anypt r j ; 
anypt r ) ; 



forwa rd; 
forwa rd; 
forwa rd; 
forwa rd; 
forwa rd; 
forward; 



main driver procedure 
> 
procedure amigoio; 

var 

uep: uep_type; 
ident : shortint; 
asynchronous: boolean; 

begin (amigoio) 

uep := add r ( unit able^[fp^. f unit ]] ; 

asynchronous := [ request = st art read ) or ( request = startwrite) ; 

if uep'\offline then 

ioresult := ord (znodevice) 
else 

try 

ioresult := ord ( inoerror ] ; 

case request of 

clearunit : 
begin 

uep" . umediavalid := false; 

unlt_wait (uep) ; 

ioresult := ord ( inoer rcr ) ; 

allocate bkgnd_ir f o [uepl ; 

HPIBcheclr_sc(uep) ; 

clear_unit ( uep) ; 

deallocate_bkgnd info(uep); 
end; ~ 

u n i t s t a t u s : 

fp'^.fbusy := unit^busy (uep) ; 

flush: 

(do nothing); 

readbytes, writebytes, startread, startwrite; 
begin (transfer operatiors) 
unit_wait [uep] ; 

icresult ;= r d { i noe r r c f ) ; (forget any previous error) 
al locate_bkgnd_info ( jep ) ; 



(forget any previous error) 



11-201 
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with bip_t ype ( uep'~ .dvrtemp)" do 

fp'.feot; {end of transfer procedure) 
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S9n;C 
S9'J:C 
600:C 
601 :C 
60.! :C 



603: 
604: 
60-5: 
6013 : 
607: 
608: 
60'S: 

610 :C 

611 :C 
612:S 
613:C 
614:C 
615:: 
616:S 
617:C 
6 1 8 : C 
610:C 
620 :C 
621:C 

622 :C 
623:C 
624 :C 
625:C 
62'i:C 
627:C 

623 :C 
623:C 
630:S 
63l:C 
632:C 
63J:C 
634 :C 
63';:C 
633:C 
637:C 
633:C 
633:C 
64):C 
641:C 
642:C 
64!:C 
644 :C 
64 3:C 
64i3:C 
64 7:C 
643 :C 
643:C 
660 :C 
651:C 



begin 

feot . ^ . - 

fibptr := fp; 

async := asynchronous; 



iparmeter to the eot procedure) 

(determines whether or not to call eot proc) 



if Simon_no„dma (uep) then 

iore5c_bkgnd (yep, zbaddma); 
if uep" . urepor tchange and not uep^. jmediavalid then 

ioresc bkgndluep, 2mediumchanged) ; 
if position mod 256<>0 then 

ioresc_bkgnd (uep, zbadmode); 
if [position<0) or (length<0) or (po5ition+length>fp^. f peof ) then 

iore5c__bkgnd (uep, ieof); 

HPIBcheck 5c(uep) ; 

ident ;= RPIBamigo_ident if y [uep) ; {confirm device present) 

if d5j(uep)<>0 then (do nothing); (remove power-on holdoff if an 

if lenqth=0 then 

deallocate_bkgnd_info(uep) (nothing to transfer) 



y) 



else 
begin 

read_ope rat ion 

xf r_chain_semaphore 

b>!_tries 

bx_st r t_rc rd 

bx_bufpt r 

bx length 

inlt ial_5eek (uep) ; 
end; (else) 
end; (with) 



= [ request=readbyte5) or [ request=sta rt read) ; 
= false; 
= 0; 

(position*fp".fileid*uep".byteoff5et) div 256; 
= addr (buffer) ; 

length; 
initiate the transfer) 



(report synchronous errors only once) 



if not asynchronous then 
begin 

unit_wait ( uep) ; 

uep".dvrtemp := ord ( inoer ro r) ; 
end; (if) 
end; (transfer operations) 

otherwise (unrecognized request) 
ioresult := o rd ( ibadrequest ) ; 

end; (cases) 

recover 
begin 

abor t_bkgnd_process (uep) ; 
ioresult := uep^.dvr temp; 
if not asynchronous then 

uep^.dvrtemp := ord ( inoe r ror ) ; (report synchronous errors only once) 
end; (recover) 



end; (amigoio) 
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5 


683:C 
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689 :C 
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691:C 
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Spage$ 

procedure init ial_5eek (uep: uep__type) ; 

5tatu5_bytes : st a tus__t ype; 
begin (init ial_seek > 

if device(uep)^HP9895 then {read status to determine single or double-si 
begin 

statU5(Ljep, status bytes); 

with status_byte5 do {specifically disallow nor HP-formatted discs) 
begin 

if f then 
begin 

uep". umediavalid := false; 
if uep^.ureportchange then 

ioresc_bkgnd (uep, zmediumc hanged) ; 
end; {if> 
if (ss=0) and not (tttt in [2 6]) then 
ioresc bkgnd(Liep, zuninit ialized] 
end; {withT 
end; (if) 

with bip_t ype(uep".dvrtemp)''' do 
begin 

if m cont roller ( Ltep) then 
begin 

set file_mask ( uep) ; 

bufTered_t ransfer := not Simon Dhfi (uep) ; 

HPIBwait_for_ppol(uep) ; {shouldn't take very long!) 
end {then) 
else 

if device(uep)=HP8290X 

then buffered^t ransfer :^ uep'^ .devid=0 {Sparrow [1) versus Chin 

else buf fered_t ransfe r := false; 

if <3evice(uep) in [HP913X_fl . .HP913X C] 

then addr_record (uep, bx_5t rt_rc rdl {allows greater overlapping 
else seek (uep, bx_st rt^rcrd ) ; 

HPIBupon_ppol_resp(uep, enter _tran5fer__chain) ; 

end; {with) 

end; {init ial_seek) 

1 procedure ente-_t ran5fer_chain (uep: anyptr); 
begin {enter t r ansfer_chain ) 

with bip_type{uep_type (uep)*^ .dvrtemp)" do 

if not te5t_dnd_t09gle (xf r_chaan_semaphore] then 
repeat " 

i5sue_transfer_ request (uep); 
until test_and_toggle(xfr_cndin_5emaphore) ; 
end; {enter_tran5fer__chain) 



ook (0)) 
ith 9914) 



11-202 
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708:D 1 tpagel 

709:S 

710:D 1 procedure i5sue_t ransfer_reque5t [uep : uep_type); 

711:0 2 consT 

7!2:D 2 5ec t_per_5urf = 400»48; (only valid for 7905/06! I !> 

713;D 2 var 

714:D -2 2 t ransfer^command : comma nd_type; 

71S:D -4 2 transfer cmd_buf: ftcb_type; 

7I6:D -8 2 maxt f r_Tength : integer; 

717:D -12 2 rernaining_5urf_bytes : integer: 

718:D -13 2 wait for_ppol: boolean; 

719:C 2 begin ^i55ue_t ransfer request) 

720;C 2 with bip_t ype ( uep'^.Hvrtemp)^ do 

721 ; C 3 try 

722:C 4 if buf fe red_t ransfer then 

723:C 5 begin 

724:C 5 if read_operation 

725:C 6 then t ransfer_command := buf_read_cmd 

726:C 6 else transfer command - buf write cmd; 

727:C 5 ma,< tfr length := 256; 

728:C 5 end (thenT 

7Z9:C S else 

730 :C 5 begin 

731:C 5 If re T-i_operatior 

732:C 6 thei- t r3nsfer_C0fnmand := unbuf_read_cmd 

733:C 6 else transfer command :- unbuf write cmd; 

734:C 5 if Ml^cont roller (uep) then 

735 :C 6 begin 

736:C 6 max_t f r_lengt h := 65536; fmax DMA burst length) 

737:C 6 if surf ace_mode (yep) then (don't try to cross a surface boundary) 

738:C 7 begin 

JJS-C 7 remaining^5urf_bytes := (sect per_surf-bx_st r t rcrd mod sect per 3urf)«256; 

740:C 7 if remainlng_surf_bytes<max_tT r^length then 

7«1;C 8 max tfr_length := remaining surf bytes; 

742:C 7 end; (tKen) »- _ / , 

743:C 6 end <then) 

744;C 6 else 

745:C 6 max tfr_length := maxint; 

746:C 5 end; <eTse)" 

747 :C 4 

748:C 4 if bx_.length<=max_t f r_length 

749:C 5 then bx_t f r_length := bx_length 

7S0:C 5 else bx tfr length := max tfr length; 

751 :C 4 -_5 __3. 

752:C 4 wait_fGr ppol := buf fered_t r ansfer or (device [ uep)=HP8290X) ; 

753:C 4 issue cmd[uep, t r ansfer_command, I ran5ter_cmd_buf) ; 

7S4:C 4 if wait for_ppol {computed above because of critical MfiC/IOC timing!) 

755:C 5 then HPIBupon_ppol_re5p(uep, initiate_data_t ransfe r ) 

756:C 5 else initiate_d3t a_t ransfe r ( uep) ; 

7S7:C 4 recover 

7S8:C 4 3bort_bkgnd process ['j'":p) ; 

759:C 2 end; <issue_t r an57er_reques t ) 
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760 :D 1 $ pages 

761 ;S 

762:D 1 procedure initiate data t ransfer (uep : anyptr); 

763:D 2 const ~ " 

764:0 2 tfr_d3ta_sec = 0; 

765;C 2 begin {initiate data_t ransfer ) 

766;C 2 with bi p_t ypeXuep_t ype ( uep) ^ . dv r temp)^ do 

767 :C 3 try 

J^^'-Z " ftPIBupon_dxf r_comp(uep, tf '_dat a_sec, bx_bufptr, bx tfr length, upon data transfer comp) ; 

76a:C 4 recover " ~ _ ^/ i 

770:C 4 abort blcgnd_proceS5 (uep) ; 

77I:C 2 end; {initiate data transfer) 

772:3 - - , 

773:3 

774:0 1 procedure upon dat a_t ran5fer_comp[ijep: anyptr); 

775:C 2 begin {upon_cfata_t ransfer^comp) 

776 ;C 2 try 

777:C 3 if bip_lype(uep_type(uep)*.dvrtemp)'.iore5<>inoerror then e5cape(-10); 

778:C 3 HPIBupon ppol resp(uep, check dsi); 

779 :C 3 recover "" *"■''■ _ JJ. 

780:C 3 abort_bkgnd_proces5(uep); 

781;C 2 end; {upon data transfer comp) 

782:3 . > >- - - _ K/ 

783:0 1 

784:D 1 procedure check d5i(uep: anyptr); 

78S:D 2 var - Ji f 

786:D -1 2 transfer successful: boolean; 

787:0 -1 2 const 

788:0 -1 2 maxtries = 10; 

789 ; D - 1 2 

790:D 2 procedure process errors(uep: uep type); 

791:D 3 var " f^ rf i , 

792:D -4 3 status^by tes : Stat Lis_type ; 

793:D -18 3 syndrome_byte5 : syndrome type; 

794:0 -22 3 cb_ptr: charptr; 

795:0 -24 3 cb index: shortint; 

796:0 -215 3 e_rcrd: integer; 

797:0 -3;> 3 possible_byte5_t ransfer red : integer; 

798:C 3 begin ( process_e rrors ) 

799;C 3 with bip t ype (uep' .dv rtemp) ~ do 

800:C 4 begin 

""':C 4 statu5(uep, status_bytes) ; 

if d5j(uep)<>0 then iore5c_bkgnd (uep, zcatchall); 



802 : C 4 



803:C 4 with status bytes do 

804 :C 5 case si oT 

805:C 6 {retryable errors) 

806:C 6 cylinder_compare_er ror , 

807:C 6 unco r rect able_d3t 3„e r ror , 

808:C 6 he3d sector_compare error, 

809:C 6 end_or cylinder, 

810;C 6 sync_bTt_not_received_in__t ime, 

811:C 6 overrun, 

812:C 6 possiblycor rectable_dat a_er ror, 

813:C 6 illegal access to jpsre track, 

814:C 6 defective^tracF, " 

815:C 6 access_not_re3dy during_dat a_operat ion : 

816:C 6 begin {retryaEle errors case) 

817;C 6 !f slioverrun 

^1§:C 7 then e_rcrd := Dx_strt_rcrd {addr untrustworthy after overrun) fi orto 

819:C 7 else e_rcrd ;= logicaLadd r ( uep) ; ll-ZUo 
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and 
and 
and 
then {it's correctable!) 



if sl-cylinder compare error then 

if ni^conl roller ( uepj" then {recalibrate S retry) 
begin 

recalibrate (uep) ; 

HPIEwait_for_ppol (uep); {shouldn't happen very oftenl) 
end { t hen ) 
else IT e re r d=bx_st r t_rcrd then (don't retry...) 

iore5C_Fk9rid (uep, znoblock); {Chinook takes 25 sees/ ret r y! ! 1 ) 

if e_rcrd< = tx_5t rt_rcrd then {careful with tlflC/IDC verify addreisl) 
begin 

bx^tries :=- bx_tries+l; 

transfer successful := false; {unless cor rect able belcw) 
if (si =po'ssibly__cor rect dble_dat a_er ror) and (b^_tries>5) then 
with syndrome_bytes do 
begin 

synd rome (uep, synd rome_byte5 ) ; 
if { sb_sl = po5sibly_correctable_data__e r ro r) 
(decoded__addr (uep, sb^tva ) =e_rcrd) 
(sb_off5et>=0) 
(sb_offset<-125) 
beqin 

cb_pt r := addr (bx_bufpr r"- ,2*5b_o f f set ) ; 

cb index := 0; 

while (cb_inclax<6) and 

( integer (cb_pt r )<inte9e r (b?<_bufpt r)-^bx_t fr^length) do 
begin 

eor ( sb_cor re : t ion_byt es [cb_index] , cb_pt r) ; 
cb__ptr := addr(cb ptr*^, 1); 
cb_index :- cb_in3ex+l; 
end; {while) 
e_rcrd := e_rcrd+l; {this record has been correctedL) 
bx__tries ;= 0; (no attempts made on the next record yet) 
trans fer successful :^ true; {at least partiallyl) 
end; {thenj 
end; {with) 
end {then) 
else 
begin 

bx_t ries := 1; (first attempt on this record) 
transfer successful := true 
end; {else^ 

if t ransfe r_bucce5SfuJ then 
begin 



{at least part ially! ) 



(e_rc rd-bx_5trt rcrd)*256; 
s_t ransfe r red tHe 
possibTelbyte5_t ransferred; 



po5sible_byt es__t ransfer red . ^ -_ ____... 
if bx_tf r_iength>possible bytes_t ransfe rred tHen 



bx tfr^Tength 
end {tKen) 
else 

if bx_t ries>-maxt ries then 

if si in [uncor rectable_data error, possib ly_cor rect able_dat a_er ro r] 
then aoresc_bkgnd (uep, zba3'bIock ] 
else ioresc_bkgnd (uep, znoblocit); 
end; {retryable errors case) 

(immediate escape errors) 
illegal_drive type , 
unit_Linavaila5'le ; 
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File name: flniGO *** 



ioresc_bkgnd (uep, znodevice); 
attempt_to write_on_protected t rack ; 
iore5C_blcgnd (uep, zprotecte^); 

(errors requiring status 2 processing) 
Stat U5_2_error : 

begin 

If f then 

uep"' . umedaavalid : = false ; 
if e then ioresc^bkgnd [ uep, zbadha rdwa re) ; 
case ss of 

1 : ioresc_bkgnd (uep, znot ready); 
2 ; ioresc_bkgnd (uep, znodevice); 
3: ioresc_bkgnd (uep, znomedium); 
otherwise {test further conditions below); 
end; (case) 

if not read_operat ion and w then 
ioresc bkgnd(uep, zprotected); 
if not mT cont roller(uep) and not (tttt in [2,6]} then 

ioresc_&kgnd (uep, zuninitialized); 
if f then 
begin 

if uep'^. ureportchange then 

ioresc^bkgnd (uep, zmediumchanged] ; 
bx tries := bx_trie5+l; 
if'*bx_t rie5>l then 

iore5c_bkgnd (uep zcatchall) ; 
t ransfer_succe55f ui := false; 
end {then) 
else 

ioresc_bkgnd(uep, zcatchall); 
end ; 
drive attention: 
begin 

if e then ioresc_bkgnd ( uep, zbadha rdw3 re) ; 
if c then 
begin 

e rcrd := logical addr(uep); 

iT e_rcrd>(bx__5t rT rcrd+(bx_tfr length-ljdiv 256) then 

t ransfer_succes5TiJl := true '{'already transferred enough bytes) 
else 

if e_rcrd>=record5 per_medium(Liep) 
then iore5C_bkgn5fuep, znosuchblk) 
else ioresc__bkgnd(uep, znoblock); 
end {then) 
else 

ioresG_bkgnd(uep, zcatchall); 
end ; 

(other errors) 
otherwise 

ioresc_bkgnd (uep, zcatchall); 
end; (case) 
end; {with) 
end; (process^errors) 
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935:0 -1 2 $page$ 

936:D -1 2 

937:C 2 begin (check_d5i ) 

938:C 2 with bip_t ype(Ljep_t ype(uep)'^ .dvrtemp)^ do 

939:C 3 try 

940 : C 4 

941 :C 4 if dsj luep)=0 then 

942:C 5 if bdx_pre_eoi 

943;C 6 then ioresc_bkgnd (uePj zcatchall) (unresolved premature eoi!> 

944:C 6 else transfer successful := true 

945:C 6 else 

946:C 5 process_er ror5{ uep) ; (will set/clear transfer successful, or escape) 

947 :C 4 

948;C 4 if t ransfer_successf ul then 

949:C S begin 

950:C 5 bx_strt_rcrd := bx strt rcrd+bx_tfr length div 256; 

951 :C 5 bx_bufptr := adOr (Bx_buTpt r", bx_tff length); 

952:C 5 bx_length ;= bx_length-bx_tf r_lengt h" 

9S3:C 5 end; (then) 

954 :C 4 

955:C 4 if bx length>0 then 

956:C 5 if Rl cont roller (uep) or not transfer successful then 

957 :C 6 begin 

9S8:C 6 If devlce(uep) in [HP913X^fi. .HP913X C, HP7905. .HP792S] 

9S9:C 7 then addr_record (uep, bx_st rt_rcr5) 

960:C 7 else seek uep, bx strt rcrd); 

961 :C 6 HPIBupon ppol resp(uep, enTer tTansfer chain); 

962:C 6 end (then)" 

983:C 6 else 

964:C 6 enter transfer cha:n(uep) 

965 ;C 6 else " _ v , 

966:C 5 deallocate bkgnd info(uep); 

967 :C 4 _ ;; _ > k, , 

968 :C 4 recover 

969;C 4 abort_bkgnd process (uep) ; 

970:C 2 end; (check dsj) " 

971:S 

972 :S 

973:C 1 end; (amigodvr) 

974 :S 

975 :S 

976 :S 

977:D 1 ( program fifllGOinit ) 

978:3 

979 :D 1 import 

980:0 1 loader; 

981 : S 

982:C 1 begin (flt1I(;0init > 

983:C 1 markuser; 

984:C 1 end. (HmGOinit) 

98S:S 

986:C 1 

No errors. No warnings. 

««««« Nonstandard language features enabled »*»«« 



11-205 



11-206 



ASCII 



Description 

ASCII contains the access method (AM) used to read and write text to a file of type ASC. ASCII 
also contains the routine necessary to install itself in the system. 



Usage 

ASCII is used by the file system to read and write .ASC files. 



Requirements 

SYSGLOBALS and ASM. 



Notes 

ASCII can do "direct access" reads on record boundaries. This is required by the Compiler to 
allow INCLUDE files. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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61 :C 
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** File name: fiSCII 



$SYSPROG$ SDEBUG OFF, RfiNGE OFF, OVFLCHECK OFF, STflCKCHECK OFF$ 

program installascii; 

module a5C iimodule; 

imp or t sysglobals, asm; 

export 

procedure a'iciiam[fp : fibp; request: amreguestt ype; 

anyvar buffer :window; bufsize, posit ion: integer) 
imp lement 
const 

buflength = fblksize; 

5ector5ize= 256; 

procedure asciiam(fp: fibp; request: amrequesttype; 

anyvar buffer: window; bufsize, posit ion: integer) 
var 

bufend : integer; 

procedure bufparams; 
begin 

with fp" do 

if [flastpos+buflen9th)>fpeof then bufend := fpeof 

else bufend := flastpos 
end; 



buflength; 



rocedure rend file; 
egin 



:= ord(ieof) 
fpos ) 



if request oreadtoeol then ioresult 
fp".fpos := fp'-.fleof; < fix 

escape (0) ; 
end; 

procedure f lushbL i'fer; 
begin 

loresult := 0; 

with fp", Linitable'^tfunit] do 

begin < write out the buffer ) 

call (tm,fp,URITEBYTES,fbuffer, bufend -flastpos, flastpos); 
if iore-5ult<>0 then escape(O); 
fbufc hanged ;= false; 
end; 
end; 

procedure loadbuffer( posit: integer); 
begin 

loresult :-0; 

with fp'^, unitable^[funit] do 

begin 

If fbufchanged then flushbuffer; 

flastpo'j := fpo5it div sectorsize) * sectorsize; bufparams; 
call (tm, fp,REfiD8VTES,fbuffer bufend-f last pos, flastpos); 
if ioresultoO then e5cape(0); 
end; 
end ; 

procedure seek posit (posit: integer); 
begin 

with fp'^ do 
begin 

if (posiKflastpos) or (po5it>-bufend) then Io3dbuffer( posit) 
fpos ;=posit ; 
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end; 
end ; 
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procedure wendbuffer; 
begin { append access only > 
with fp'^ do 
begin 

( write all but last sector } 
fbufchanged := true; 
if (bufend-flast posi>sectorsize then 
begin 

bufend := bufend - sectorsize; 
f lushbuf fer ; 

moveleft (fbuf ferCbufend-flast pos] ,fbijffer [0] , sectorsize) ; 
end 

else flushbuffer; 

fleof :- fpos + 1; fmodified := true; 

if fleof>fpeof then 

begin < move the physical end of file ) 
fpos := ((fleof + 256) div 256) * 256: 
call ( unit able-^[f unit] .dam, fp'-,f unit, STRETCHIT) : 

if fleof>fpeof then begin ioresult := ord(ieof); escape(O); end; 
fpos := fleof - 1; 
end; 

flastpos := bufend; bufparams; 
end; 
end; 

procedure wnextbyte (c ; char ) ; 
begin < append access only > 
with fp'' do 
begin 

if f pos>=-bufend then wendbuffer; 
fbuffer[fpos - flastpos] := c; 
fpos := fpos + 1; fleof := fpos; 
end; 
end; ( wnextbyte > 

procedure writeendiine; 
var 

tposit , j : integer ; 
begin 

with fp^ dc 
begin 

if freptcnt=0 then 
begin { zero length record > 

if odd(fpo5) then wnextbyte(' '); 
wnextbyte (chr[0) ) ; wnextbyte (chr (0) ) ; 
end 
else 
begin ( have some data ) 

tposit := fpos; j := tposit - freptcnt - 2; 

( rewrite the record size ) 
if i<fla5tpo5 then loadbuf fer f j ) ; 
fbuffer[i - flastpos] := chr(freptcnt div 256); 
fbuffer [{]+!) - flastpos] := chr(freptcnt mod 256); 
fbufchanged := true; 

if tpo:^it>=bufend then loadbuffer (Tposit); 
fpos :- tposn; freptcnt := 0; 



fbufchanged 
fmodified 



= true; 

= true; 
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121 :C 


5 


end; 




122:C 


4 


end; 




123 :C 


3 


end; { writeendline } 




124 :S 








125:D 


2 


procedure wendfile; 
begin 




126 :C 


3 




127:C 


3 


with fp'~ do 




128 :C 


4 


begin 




129:C 


4 


if freptcnt>0 then writeendline; 




130 ;C 


4 


{ write logical end of file marker ) 




131:C 


4 


if odd(fpo5) then wnextbyteC '); { pad to even position > 




132;C 


4 


if fleof<fpeof then 




133 ;C 


5 


begin 




134 :C 


5 


wnextbyte(chr (255)1 ; wnextbyte (chr (255} ); 




13S:C 


5 


end; 




136:C 


4 


if fbufchanged then flushbuffer; 

c al 1 ( unit able^[f unit] .tm,fp, flush, ioresult, 0,0); 




137;C 


4 




138 ;C 


4 


end; 




139;C 


3 


end; 




140 :S 








141 :D 


2 


function mi n(vl,v2,v3: integer] : integer; 




142 :C 


3 


begin 




143 :C 


3 


if vl<v2 then 




144 ;C 


4 


begin ( vl or v3 } 




14S:C 


4 


if vl<v3 then min := vl else min := v3; 




146 :C 


4 


end 




147 :C 


4 


else { v2 or v3 ) 




148 :C 


4 


begin 




149 :C 


4 


if v2<v3 then min := v2 else min := v3; 




1S0:C 


4 


end; 




151 :C 


3 


end; 




1S2:S 








153 ;D 


2 


function rnextbyte :char ; 




154 ;C 


3 


begin 




155 :C 


3 


with fp-" do 




156:C 


4 


begin 




157 :C 


4 


if fpos>=fleof then rendfile; 




1S8:C 


4 


if (f po5>=bufend) then loadbuf fe r ( f pos) ; 




169:C 


4 


rnextbyte := fbuffer[fpo5 - fiastpos]; 




160:C 


4 


fpos := fpos + 1; 




161 ;C 


4 


end; 




162 :C 


3 


end; 




163 :S 








164 :D 


2 


procedure getrecsize; 
begin 




16S:C 


3 




166:C 


3 


with fp" do 




187:C 


4 


begin 




168:C 


4 


if odd(fpos) then freptcnt := ord ( rnextbyte) ; 
freptcnt :■ ord(rnextbyte) ; 




169 -.C 


4 




170:C 


4 


if freptcnl>127 then rendfile; 




171:C 


4 


freptcnt :» (freptcnt * 256) + o rd ( rnextbyte) ; 




172:C 


4 


end; 




173:C 


3 


end; 




174 :S 








175 :D 


2 


procedure readchars; 




176 :D 


3 


var 




177:D 


-8 3 


count, i : integer; 
begirt < readchars > 




178:C 


3 




179:C 


3 


with fp* do 




180 :C 


4 


begin 
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181:C 


4 


l:-0; 




182 :C 


4 


If bufslze-1 then 




183 :C 


S 


beain < single character read ) 
if freptcnt=0 then 
begin buffer[0] := ' '; freptcnt := -1; end 




184 :C 


5 




185:C 


6 




186 :C 


6 


else 




187 ;C 


6 


begin buffer[0] := rnextbyte; freptcnt := freptcnt - 1; end; 




188 :C 


s 


end 




189 :C 


S 


else < multi character read > 




190;C 


S 


while i<bufsize do 




181;C 


6 


begin 




182 ;C 


6 


if freptcnt=0 then 




183:C 


7 


begin { end of record ) 

Bufferti] := ' '; 1 :- i ♦ 1; 




194 :C 


7 




19S:C 


7 


if i<buf&ize then getrecsize 

else freptcnt := -1; 




186:C 


8 




197;C 


7 


end 




1S8:C 


7 


else 




199:C 


7 


begin { move data bytes } 




200 :C 


7 


if fpos>=fleof then rendfile 




201 :C 


8 


else seekposit (fpos) ; 
count := min(bufsize-i, bufend-fpos, freptcnt); 
move left (fbuffer [fpos- fiastpos] ,buffer[i], count); 




202 :C 


7 




203 :C 


7 




204 ;C 


7 


i := i + count; freptcnt := freptcnt - count; fpos :- fpos + count; 




205 :C 


7 


end; 




206 :C 


6 


end; ( while > 
feoin := ( rreptcnt<0) ; 




207:C 


4 




208 :C 


4 


if not feoln then fpos := -fpos; 




209 :C 


4 


end; 




210:C 


3 


end; { readchars ) 




211;3 








212:0 


2 


procedure readstring; 




213:D 


-8 3 


var i, count : integer; 




214:C 


3 


begin 




215:C 


3 


1 := 0; 




2ie:C 


3 


with fp^ do 




217:C 


4 


begin 




218:C 


4 


if freptcnt>0 then 




219;C 


5 


while i<bufsize do 




220:C 


6 


begin { read data bytes ) 

if fpos>=fleof then rendfile else seel^posit (f pos) ; 




221:C 


6 




222 :C 


6 


count := min(buf5ize-i, buferd-fpos, freptcnt); 
moveleft(fbuffer[fpos-flastpo5],bufferCi+l],count); 




223 :C 


6 




224 :C 


6 


freptcnt := freptcnt - count; i := i + count; fpos := fpos + count; 




225 :C 


6 


bufferJO] := chr(i); 




226 :C 


6 


if freptcnt=0 then i := bufsize 




227 :C 


7 


end; 




228 :C 


4 


fpos := "fpos; 




229 :C 


4 


end; 




230 :C 


3 


end; 




231:S 








232:0 


2 


procedure writechars; 




233:0 


3 


var 




234:0 


-8 3 


a, count integer; 




235 :S 








236 :C 


3 


begin { writechars } 




237:: 


3 


with fp^ do 




238:: 


4 


begin 




239:: 
240:C 


4 
5 


if (freptcnt = 0) and (buf5ize>0) then 
begin { start a new recced > 
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241 :C 


5 


if odd(fpos) then wnextbytef *); { pad to even size > 
wnentbyte(chr(255) ) ; wnextbyte (ctir (255) ) ; ( dummy count field > 




242 :C 


^ 




243;C 


S 


end ; 




244 :C 


4 


i:=6; 




245:C 


4 


while i<bufsize do 




246 :C 


S 


begin { write data character(5) > 




247:C 


5 


if fpo5>=bLjfend then wendbuffer; 




248:C 


5 


count := min(buf 5ize~i , bufend-fpos, 32767-f reptcnt ) ; 




249 :C 


5 


if count<=0 then { too many characters for the record > 




250;C 


6 


begin ioresult := ord(ibadformat ) ; e5C3pe(0); end; 
moveleftfbuffer[i] , fbuffer [fpos-f last pos] , count ) ; 
fpos := fpos + count; freptcnt := freptcnt + count; i ;= i + count; 




251 :C 


5 




252:C 


5 




253:C 


5 


fbufchanged := true; 




254 :C 


5 


end; < while ) 




256:C 


4 


fleof ;= fpos; 




256:C 


4 


end; ( with } 
end; ( write chars ) 




257:C 


3 




258:S 








259 :C 


2 


begin < asciiam > 




260:C 


2 


ioresult :=0; 




261 :C 


2 


try 




262:C 


3 


with fp^ do 




2S3:C 


4 


begin 




264:: 


4 


if flastpos<0 then { force buffer load ) 




266 :C 


5 


begin flastpos := -buflength; fbufchanged := false; end; 




286 :C 


4 


bufparams; fpos := abs (posit ion) ; 




267 :C 


4 


case request of 




268:0 


5 


readbytes, readtoeol : 




269 :C 


5 


begin 




270 :C 


5 


if request=readtoeol then buffer[0] := chr(O); 




271 :C 


S 


if fbufchanged then 




272 :C 


6 


begin { close last record > 
fpos ;= fleof; wendfile; 




273:C 


6 




274 :C 


6 


fpos := abs (posit ion) ; { restore fpos > 




275:C 


6 


end; 




276 :C 


5 


if position<0 then 




277 :C 


6 


begin { seqential read ) 




278 :C 


6 


if request^readbytes then readchars 




279:C 


7 


else readstring; 




280:C 


6 


end ( seqential read > 




281:C 


6 


else 




282:C 


8 


begin ( positioned read > 




283:C 


6 


if position>fp'^. fleof then rendfile 




284 :C 


7 


else seekposit (position) ; 




285:C 


6 


get recsize; 




286:C 


6 


if request^readbytes then readchars 




287:C 


7 


else readstring; 




288:C 


6 


end; { positioned read ) 




289:C 


5 


end; 




290;C 


5 


writebytes: 




291:C 


5 


begin 




292:C 


S 


if positionoO then writechars ( normal write ) 




293:C 


6 


else 




294 :C 


6 


begin { rewrite > 

flastpos := 0; bufparams; freptcnt := 0; writechars; 




295:C 


6 




296:C 


6 


end; 




297:C 


5 


end; 




298:C 


5 


flush: if fbufchanged then 




299:C 


6 


begin fpos := fleof; wendfile; end; 




300:C 


5 


writeeol: { end the line ) 
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301 ;C 


5 


begin 




302:C 


5 


if positionoO then writeendline 




3C3:C 


6 


else 




304 :C 


6 


begin { zero length record at start of file > 
flastpos ;= 0; bufparams; freptcnt := 0; 




305 :C 


6 




306:C 


6 


wnextbyte(chr(0) ) ; wnextbyte (chr (0) ) ; 




307:C 


6 


end; 




308:C 


S 


end; 




309:C 


5 


otherwise ioresult := ord(ibadreque5t ) ; 




310:C 


S 


end; ( case > 
end; { with > 




3U:C 


4 




312:C 


3 


recover 




313:C 


3 


if escapecode<0 then escape(escapecode) ; 




314:C 


2 


end; { asciiam ) 




3I5:C 


1 


end; { ascii module ) 




316:S 








317:0 




import asciimodule.sysglobalsj loader; 




318:C 




begin { installascii > 




319:C 




amtable"[ftSCIIFILE] := asciiam; 




320:C 




suffixtable^LfiSCIIFILE] := 'flSC: 




321 :C 




efttable"[flSCIIFIlE] := 1; 




322:C 




markuser ; 




323:C 




end. { rev 16 R > 




No errors. No 


warnings . 






««iK 


** Nonstandard language features enabled ***** 
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BAT 



Description 

BAT provides the initialization for the battery backup (power fail) option. 



Usage 

BAT can read the date and time from the battery option, also set the timeout for power fail. 



Requirements 

SYSGLOBALS and SYSDEVS. 



Notes 

Also see module SYSDEVS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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2C: 

21 : 

2? 

25 

24: 

2E:D 

26:0 

27:0 

2f :0 
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(» 



29 
30 
31 

3? 

33 

34 

3E 

36 

37 

3E 

3S 

4C 

4) 

42 

43 

44 

4E:D 

46:0 

47:0 

48:0 

49:0 

SO:S 

51:0 

52:0 

S3:C 

54 :C 

56 :C 

56 :C 

57 :C 

58 :S 
59:0 
60:0 



(c) Copyright Hewlett-Packard Company, 1983. 
■^11 rights are reserved. Copying or other 
reproduction of this program except for archival 
Purposes is prohibited without the prior 
vritten consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Jse, duplication, or disclosure by the Government 
IS subject to restrictions as set forth in 
ijaragraph (b) (3) (8) of the Rights in Technical 
' " ■ " uter Software clause in 



Data and Comp 
DftR 7-104. 9(a) 



HEULETT-PRCKflRO COMPHNV 
t-ort Collins, Colorado 



:Emodcal$ 

:E heaped is pose off$ 

liocheck off$ 

:Brange off$ Sovflcheck off$ 

iBdebug off$ 

-BSTflCKCHECK OFF$ 

'BSEflRCH 'INITLOHD' , 'flSn' ,'INIT' 

Drogram initbat (OUTPUT J ; 

module bat; 
import sysglobals, sysdevs; 

'import 

procedure batinit; 



Impleme nt 
■ype 

statust ype 



= packed record 
case integer of 
0:(padl :0..63; 
busy :boolean: 
ready :boolean) 
l:(5tatbyte :byte 
ENO; 



var bat804l5tatjsreg[455478S 
bat8041cmdreg [4554785 
bat8041datareg [4554753 



458001 ) ] : char; 
458001 ) ] : char; 
458021 ) ] : char; 



1 procedure wait4b3t ready; 
-2 2 '^ar batstatus: statustype; 

2 begin 

2 repeat 

3 batstatL5.statbyte:=ord(bat8041statusreg); 
3 until not batstatus .busy; 

2 .!nd; 

1 procedure wait4bat readready; 
-2 2 '^ar batstatus: statustype; 
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on 


61:C 


2 


62 :C 


2 


63 :C 


3 


64:0 


3 


66 :C 


2 


66:3 




67:0 


1 


68:0 


2 


69:0 


2 


70:C 


3 


7!:0 


2 


72:C 


2 


73:C 


2 


74 :C 


3 


7b:C 


3 


76:C 


3 


77:C 


3 


78 :C 


3 


79:C 


3 


80:C 


3 


81 :C 


3 


82:C 


3 


83:C 


2 


84 :S 




85:0 


1 


86 :C 


2 


87:0 


2 


88:C 


2 


89:8 




go;0 


1 


91 :C 


2 


92:C 


2 


93:C 


2 


94 :C 


2 


95 :C 


2 


96 :S 




97 :C 


1 


98 :S 




99:0 


I 


100 :S 




101:C 


1 


102:C 


1 


103:C 


2 


104 :C 


1 


105 :S 




No e r r J r 5 . No 


war 



H/ 4/84] 8PT.TEXT 



26- 



ec-84 21: 



:44 Page 2 *** File name: BflT *** 



eg 



chr(d); end; 



l)egin 

repeat 

bat 5t 3tu5. St atbyte:=ord(bat8041statusreg) ; 

until batstatus. ready; 
nod; 

[irocedure dobatcommand (cmd : byte; numdata: integer; bl, b2 , b3 , b4, b5: byte); 

procedure batdataout (d; byte); 
begin waat4bat ready; batSOAldatar 

tjegin 

if batterypreisent then 
begin 

waitAbat ready; 
bat8041cmdreg := chr(cmd); 
if numdata >= 1 then batdataout (bl ] 
if numdata >= 2 then batdataout fb2 
if numdata >= 3 then batdataout rb3 
if numdata >- 4 then batdataout tb4 
if numdata >= 5 then batdataout (b5j 
end; 
end; 

procedure bat readbyte(var data: byte); 
begin 

waitAbatreadready; data := ord(bat8041datareg) ; 
end; 

procedure batinit; 
begin 

batcommand(167,2,23,U2,0,0,0) ; {set power fail to 60 seconds) 

batcmdhook := dobatcommand; 

bat readhook : = batreadbyte; 
(■nd; 

end; 

import bat, loader, sysdevs ; 

t'egin 

if ba tt erypresent THEN 

begin batinit; markuser; end; 

ffd . 



Nonstandard language features enabled ***** 
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BUBBLES 



Description 

BUBBLES is the TM for bubble memory mass storage. 



Requirements 

BUBDVR, SYSGLOBALS, IQDECLARATIONS, and ISR. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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(• 



File name: BUBBLES 



10; 

11 : 

12: 

13: 

14: 

IS: 

16 

17: 

18 

18 

20:S 

21 :D 

22:D 

23:D 

24 :D 

25 :D 
26:0 
27: 
28: 
29: 
30: 
31: 
32: 
33: 
34: 
3S: 
36: 
37: 
38: 
39: 
40: 
41 : 
42: 
43: 
44: 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
SO: 



(c) Copv'ight Hewlett-Packard Company, 1983. 
PIl rlgnts are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
^irilten consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
as subject to restrictions as set forth in 
paragraph (b) (3) (B ) of the Rights in Technical 
Data and Computer Software clause in 
DPR 7-104. 9(a) . 

HEULETT-PPCKHRD COtlPRNY 
Tort Collins, Colorado *) 

SSYSPROGI 

JDEBUG OFFSSRPNGE OFFI 

program bubbles; 

module bubble; 

SSEBRCH ■BUB_DVR'$ 

import bub_dvr,sysglobaIs,iodecl3ration5,i5r; 

export 

procedure bub_tm( f p: f ibp; request : amrequest type; 

any^ar buffer : window; bufsize, position : integer 

procedure bub_isr ( isrib : pisrib); 

procedure bub_init; 



IMPLENENT 

procedure xlate^e r rors (er r 
begin 

case error of 

bnoerror : ioresult 

btimeout : ioresult 

bopfailed : ioresult 

bbadinterupt: ioresult 

bbadsector : ioresult 

bbadcount : ioresult 

bnotbubble ; ioresult 

bbaddata ; ioresult 

biofail : ioresult 

otherwise ioresult := 

end ; 

end; 



berrortype ) ; 



= ord ( inoer ror ) 

= ord zbadhardw 

= ord zbadhardw 

= ord (zst rangei 

= ord (znosuchbl 

= ord (zbadmode ) 

= ord {znodevice 

= ord fzbadblock 

= ord (zt imeout ) 
ord(zcatchaH) ; 



k); 



procedure bub_tfri( f p: f ibp; request : amrequest type; 

anyvar buffer : window; bufsize, position 



integer) 



card 
info 



anypt r ; 
infopt r : 



begin 

ioresult 



ord (inoer ror ) 
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61 :C 


2 


62:C 


3 


63:C 


3 


64:: 


3 


65:C 


4 


66:C 


4 


67:C 


4 


68:C 


4 


S9:C 


5 


70:C 


6 


71 :: 


6 


72:C 


7 


73:C 


7 


74 :C 


7 


75:C 


8 


76:C 


8 


77:C 


8 


78:C 


8 


79;C 


8 


80:: 


8 


81 :C 


8 


82:C 


9 


83:: 


8 


84:: 


8 


85:C 


8 


86:: 


7 


87:: 


S 


88:C 


6 


89:: 


7 


90:: 


7 


91 :C 


7 


92:C 


3 


93:C 


8 


94:: 


8 


95:: 


8 


96:: 


9 


97:: 


9 


98:: 


8 


99:: 


8 


100:: 


8 


101 :: 


9 


102:C 


8 


103:C 


8 


104:: 


8 


105:C 


7 


106, C 


6 


107:C 


6 


108 :C 


6 


109:C 


6 


110:0 


6 


111 :C 


7 


112:C 


7 


U3:C 


6 


U4:C 


6 


115:: 


6 


116;: 


6 


117;: 


6 


118;C 


6 


119;: 


6 


120;C 


4 
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with fp'^ , unitable'^[funit] do 
begin 

ca rd :^ i scalable [sc] . carcl_ptr ; 

if i5C__table[5c] .io_tmp_pt r=NIL then ioresult := ord (znodevice ) 

else 

begin 

info := addr (isc_table [sc] . io_tmp_pt r'^.drv_fnisc ) ; 
with info'' do ~ 

case request of 
start read, 

readbytes: if runstate<>b_idle then ioresult := ord (z not ready) 

else 
begin 

if ( posit ion+bjfsize) <=fpeof then 
begin { is inside the file > 

bbuffer.brec := addr (buffer ) ; 
bstart := fileid + byteoffset + position; 
bcount ;= bufsize; 
bretry := 3; 

if bcountou then bubdoread (card , info) ; 
if request=readbytes then 

while runstateob idle do; < wait for idle > 
if runstate=b_idle tRen xlate_er rors (e rrorcode j ; 
end 

else ioresult := ord(ieof); 
end; 

ord (znot ready] 



St artwrite, 
wr itebytes : 



if runstateob^id le then ioresult 

else ~ 

begin 

if [positior+bufsize )<=fpeof then 
begin 

bbuffer.brec := addr (buffer) ; 

bstart ;= fileid + byteoffset + position; 

if bufsize>0 

then bcount := (bufsize + 255) DIV 256 * 255 

else bcount := bufsize; 

bretry := 3: 

if bcountou then bubdowrite (card, info ) ; 

if request=writebytes then 

while runstateob idle do; { wait for i'lle > 
if runstate=b_idle tTien xlate_errors (e rro i cc-,!'? ) ; 
end 

else ioresult := ord(ieof); 
end; 
flush: ; ( NO OP > 
clearunit : Fegin 

bubdo reset (card, info) ; 
xlate_errors(info".errorcode) ; 
if ioresult=ord( inoer ror) 
then umaxbytes := maxbytes 
else umaxbytes := 0; 
end; 
un it St at us : begin 

fbusy := runstateob_idle; 
if not fbusy then j<late_er rors [erro rcode ) ; 
end : 
otherwise ioresult := ord(ibadreqLjest); 
end; { caze } 
end; { if nounit > 



< set device size ) 
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121:C 
122;C 
123:D 
124:0 
12S:D 
126:0 
127:0 
128:C 



129: 

130: 

131: 

132: 

133: 

134: 

13S: 

136: 

137: 

138: 

139: 

140; 

141: 

142:0 

143:0 

144:0 

145:0 

146:0 

147 :C 

148 :C 

149 :C 



150 
151: 
152: 
153; 
154; 
155; 
156; 
157; 
158: 
159: 
160: 
161; 
162 



163:C 



164: 

165: 

166: 

167: 

168: 

169: 

170: 

171: 

172: 

173: 

174: 

175:C 

176:0 

177 :C 

178:D 

179:0 

180 :S 



end; 
end: < bub 
" 6fP] 



SDEBUG 0FP$ 
procedu 
van 
temps 

info 
begin 
temps 
info 



( with 
tm > 



■e bub_isr(isrib : pisrib); 



pio_tmp_pt r 
infopt r ; 



addr ( isrib^) ; 
addr ( temps ".drv_mi5c ) : 
bubdoisr (temps".card_addr , inf o ) : 
end; ( bijb_isr > 



procedure bub_init; 
const 

int reg = 3 ; 
type 



< interupt reg offset > 



cardrec 



sc 



packed record 
pad : byte; 
id : byte; 

end; 



integer ; 
pisrib; 
infopt r ; 
^cardrec; 



isrinfo 
info 
card 
begin 

T scan selectcode table for bubble devices > 
for sc:= iominisc to iomaxisc do 
with isc_table [sc] do 
begin 

{ fix isc_table to work for system 2.0, 2. 
if ( jcard_type=l) and (card_id=0)j or 

( (card_type=8) and (card_id^30) ) then 
beg in 

card := card_ptr; 
if C3rd^.id=30 then 
begin 

card_type := 8; { bubble memory card > 

card_id := 30; 

isrinfo := addr{io_tmp ptr 

info := addrfio tmp^ptr 

bubgetinfo(card, inTo) ; 

if info^.er rorcode=bnoer rcr then 

begin 

permisrlink (bub_i5r , < 

addr [card'", int re 
hex('CO') ,hex( 'C 
info"' .priorit y, 
isrinfo) ; 
end : 
end; 
end ; 
end; 
end; {bub_init} 



1 or 2.2 ) 



.drv_misc ) ; 



I SR PROC V 

INTERUPT REG RDDRE3S ) 



) ,{ MSSK and VALUE > 
( INTERUPT PRIORlfv 
< ISR INFO POINTER 



end; ( bub ops > 

{ bubbles installation program 

import bubble, loader ; 
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File name; BUBBLES «** 



181:C 


1 begin 

1 bub init 


182:C 


183:C 


1 marFuser 


184:C 


1 end. 



No errors. No warnings. 

***** Nonstandard language features enabled ***** 



11-215 
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CHOOK 



Description 

C_HOOK initializes the graphics CRT state variables for the Series 200 Model 236C color computer 
and provides Model 236C dump graphics procedure. 



Requirements 

SYSDEVS and SYSGLOBALS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 :D 
2:0 








( HP 9836C grapnics hooks, and workstation init module 




3:D 







< 




4:0 







{ nodule = C HOOK 




5:0 







{ Programer = BT3 




6:0 







( Date = 2-7-83 




7:0 







< 




8:0 







< Purpose: To initialize the graphics crt state variables for the HP 9836C. 




9:S 










10:0 







{ Rev history 




11:0 







< Created - 02-07-83 




12:0 







( Modified - 01-18-84 jws 




13:S 










14:S 






{ (c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 




15:S 








16:S 






reproduction of this program except for archival 




17:S 






purposes is prohibited without the prior 




13:S 






written consent of Hewlett-Packard Company. 




19:S 










20:S 










2l:S 






RESTRICTED RIGHTS LEGEND 




22:S 










23:S 






Use, duplication, or disclosure by the Government 




24:S 






is subject to restrictions as s-^t forth in 




25:S 






paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




26:S 








27:S 






OHR 7-104. 9(a) . 




23:S 










29:S 






HEULETT-PflCKfIRO COnPflNY 




30:0 







Fort Collins, Colorado } 




31:S 










32:0 







$modcal$ 




33:0 







program c_hook (out put ) ; 




34:S 










35:0 




1 


import sysdev5,sysglobals; 




36:S 










37:0 






type 




38:0 






sysflag def - packed record 




39:0 






bit7,bit6,hpib,crt_confiq, 

kbd, high, big graph, alphaSO : boolean; 




40:0 








41:0 






end; 




42:S 










43:0 






crt reg def = packed record 




44:0 






selfinit,bitl4,bitl3,topl,top2,highlite. 




45:0 






graph, alpha, 

bit7, bite, bits, bit4, bits, bit2, bitl ,bitO : boolean; 




4S:0 








47:0 






end; 




48:S 










49:0 






c map def = packed array [0. .15] of shortint; 




60:S 










51:0 






var 




62:0 






my sysflag [ hex ( ' f f f ed2 ' ) ] ; sysflag def; 




S3:D 
54:0 






crt reg [ hexf'Slfffe' ] : crt reg def; 
c map [ hex( 'SlfbOO' ) : c map def; 




55:0 






g on [ hex ('Slfffc') : shortint; 




66:0 


-8 




old toggle hook : procedure; 




67:0 
58:0 


-16 
-16 




old dump hooK : procedure; 
graphics_base ['GRPtPHICSBPSE ' ] : integer; 




59:S 










60:0 




1 


procedure dump_c; 
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61:S 










62:0 




2 


{ Purpose: To dump 'C bit map > 




63:S 










64:0 




2 


label 1; 




65:S 










66:0 




2 


const 




67:0 




2 


gwidthb = 64; 




68:0 




2 


gmaxheight = 512; 




69:0 




2 


gbuffersize - gwidthb + 6; 




70:S 










71 :0 




2 


type 




72:0 




2 


gbyte = 0. .255; 




73:0 




2 


row_def = packed array [0 . . (512«390) -1] of gbyte; 




74:S 










75:0 




2 


var 




76:0 


-4 


2 


row : ^row def; 




77:S 






" 




78:0 


-74 


2 


gbuffer : packed array [1 . .gbuf fersize] of char; 




79:0 


-82 


2 


l,j : integer; 




80:0 


-86 


2 


index : integer; 




81 :0 


-90 


2 


bit mask : integer; 




82:0 


-94 


2 


result : integer; 




83:S 










84:C 




2 


begin 




85:S 










86:C 




2 


row := anypt r(graphic5_base) ; 




87:S 










88:C 




2 


gbuffer[l 


~ chr(27); < escape sequence for graphics ) 




89:C 




2 


gbuffer[2 


= '* ' 






90:C 




2 


gbuf fer [3 


= 'b' 






91 :C 




2 


gbuf fer 4 


= '6' 






92:C 




2 


gbuffer [5 


= '4' 






93:C 




2 


gbuf fer 6 


» 'U' 






94:S 










9S:C 




2 


for j ;^ to 389 do 




96:C 




3 


begin 

for i := to 63 do 




97:C 




3 




93:C 




4 


begin 




99:C 




4 


result := 0; 

index := j*512+i*8; 




100:C 




4 




10l:C 




4 


bit mask := 256; 




102:C 




4 


for index := index to irdex+7 do 




103:C 




5 


begin 




104:C 




5 


bit mask := bit mask div 2; 




105:C 




5 


if row'-[index] <> then result := bit_mask+result ; 




106:C 




5 


end; 




107:C 




4 


gbuffer[it7] :» chr(result); 




108:C 




4 


end; 




109:C 




3 


write(gfile5 [4] ".gbuffer :gwidthb+6) ; 




110:C 




■i 


if ioresult <> ord (inoer ro r ) then goto 1; 




111:C 




3 


end; 




112:5 










113:C 




2 


write(gf iles [4]",#27'*rB' ) ; { terminate graphics sequence } 




114:C 




2 


1 : 




115:C 




2 


end ; 




116:S 










117:0 




1 


procedure toggle_c; 




113:S 










113:C 
120:C 




2 


begin 

graphicstate 


:= nc 


t graphicstate; 
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*» File name: C_HOOK »« 



121:C 
122 :C 
123:C 

124 :S 

125 :D 
126:3 
127:D 
128:0 

129:S 



130: 

131:C 

132:C 

133:C 

134 :C 

135:C 

136:C 

137:C 

138 :C 

139:S 

140: 

141: 

142: 

143: 

144: 

145: 

146: 



= hex('S20000' 
= toggle_c; 
= dump_c: 



turn off graphics screen > 
init color map is b&w ) 



No errors . No ' 



2 if graphicstate then g_on 

3 else g or 
2 end; 

1 procedure init^c; 

2 var 
2 i : integer; 

2 begin 

2 g_o n : - ; 

2 c_map[0] ;= -1; 

2 for i := 1 to 15 do 

3 c_map[i] := 0; 
2 graphics base 
2 togglegraphlcshook 
2 dumpgraphicshook 
2 end; 

1 $partial_eval on$ { check for a HP 9836C ) 
1 begin 

1 if [currentcrt = alphatype) and { iws 1/18/84 ) 

2 my_5ysflag.big_graph and my^sysf lag .cr t config and 
2 [hot crt_re9 .topi) and (c rt_re9 . 1op2 ) tKen 

2 init_c; 
1 end. 

'a rnings. 
***** Nonstandard language features enabled ***** 
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CLOCK 



Description 

CLOCK reads and sets the time using the keyboard clock. 



Requirements 

SYSGLOBALS, ASM, MISC, and SYSDEVS. 



Notes 

See also module SYSDEVS, and SYSGLOBALS for definitions. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

11-221 



6/ 4/.34] CLOl K.TEXT 



1 :S 
2:S 
3:S 



5:S 
6:S 
7:S 
8:S 
9:D 
0:S 



1 ; 

2:D 

3:D 

4:0 

5:D 

6:D 

7:0 

8:0 

9:S 

0:0 

1 :S 

2:0 

3:0 

4:0 

5:S 

6:0 

7:S 

8:0 

9:0 

'•0:0 

41 :D 

42:0 

43:0 

44:0 

45:0 

46:S 

47:0 

43:S 

49:0 

;.0:0 

ei :D 

f2:C 

f3:C 

;4:C 

t5:C 

t6:C 

i7:C 

;8:C 

;9:C 

fO:C 
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(c) Copyrighit Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purpo'^es is prohibited without the prior 
written consent of Hewlett-Packard Company. 



FESfRICTED RIGHTS LEGEND 

uplicalion, or disclosure by the Government 

ject to restrictions as set forth in 

aph (bi (3) (B) of the Rights in Technical 

nd Computer Software clause in 

104.9(a) . 



par agr 

Data 

DfiC 

HE'JLET 
Fort C 



T-PflCKf.RD COriPBNY 
ollins, Colorado 



$mo..1calS 

$heap_di5pose off$ 

Siocheck off$ 

Srange off$ Sovflcheck offS 

1) Idebuq off! 

$st ackcheck offS 

Ssearch ' INI TLORD' , " HSM' , ' INIT ' , 'SVSOEVS 'S 

" program clockinit; 

' module clock; 

1 import sysglcbals, asm, misc, sysdevs; 
: export procecure initciock; 

I implement 

' type trtckint = packed record 

case integer of 
1 : ( ipar t : intege r ] ; 

1 1 : ( byte3 : byte; 

■i byte2: byte; 

^ bytel : byte ; 

byteO: byte ) 
: end; 

; var boott ype [-576] : shortint; 

1 procedure dosvsdate (var thedate: daterec); 
-24 '.' var yr ,dd,mni, k , kl ,k2 : integer; 
-32 ;■■ Itime: rtctime; 

'?. CflLL(CLOCKIOHOOK,CGeT,LTinE) ; 
.: k : = lt ime .packeddate + l ; 
,: kl:= k«4-l; 

yr:= kl div 1461; 



= (kl-(1461«yr )*4) div 
"(S»dd-3) 



dd 

mm:nk2 div 153; 
dd:^ k2-153*mm; 
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tl:C 
e2:C 
E3:C 
04 :C 
e5:C 
C6:C 
t7:C 
f3:C 
E.9:C 
70:C 

71 :C 

72 :S 
73:0 
74:0 
75:C 
7i3:C 
77 :C 

:C 

:C 

:C 

:C 

:C 

:C 

:S 

:0 

:0 

:0 

:0 

:0 

:D 

:0 

92:C 

93:C 

94:C 

95:C 

So:C 

97:C 

S3 

Si 

103 

101 

10? 

103 

101 

105:C 

1 3 : C 
lO^C 
103;C 
10J;C 

11 ):C 
11 1 :C 
U >:C 
U !:S 
111:0 
11 5:0 
11 5:C 
11 ':C 
11 J:C 
11 ):C 
12.1:C 



79: 
SO: 
81 : 
62: 
63: 
84: 
85: 
83: 
87: 
83: 
89: 
93: 



dd:=(ddtS) div 5; 

if mm<10 then mm:-nTn+3 

else 

begin mm : =rnm-9; yr :=yr + l ; end; 
with thedate do 
begin 

year: = yr (nod 100;{to protect 
mont h:-min; 
day: =dd; 
end; 
end ; 



-16 : 
-24 2 



our file) 



.'ar the time: 
360000) ; 



t imerec) 



procedure d05y5tin-te[ 
var t : i nt ege r ; 
beg in 

t :==sysclocK mod (24* 
with Ihetimie do 
begin 

hour := t div ioOOOO: 
minute : ■= ( t - (hour»360000) ) div 6000; 
centisecond := t mod 6000; 
end; 
end ; 

procedure set rtct ime ( t het ime : rtctime); 
const 

cmmdb7=183; 

crtmd40=64; 
var 

tl,t2: trickint; 

TTlriE: RTCTII-IE; 
begin 

TTIME:=THETinE; CRL L (CLOCK lOHOOK ,CSET , TT IIIE ) ; 

tl.ipart := t he t ime . packeddate ; 

t2.ipart :- Chetime , packedtime ; 

batcommana(cnmdb7,5,tl . bytel, tl.byte0,t2,byte2,t2. bytel, t2.byte0); 

bat comma nd(cnT^d40, 0.0,0,0,0,6) ; 
end; { setrtctir.e > 

procedure dose t sysdate (t hedate : daterec): 
var Itime: rtctir.ie; yr,mth,dy: integer; 
begin 

CRLL(CLOCKlaHOOK,CGET,LTlnE) ; 

with It ime, thedate do 
begin 



yr := year; fi.th 
if mth>2 then 



= month; 
=mth-3 



<Sy 



day; 



else begin mth:=mth+9; yr:=yr-l; 
4 +(153»mth*2) 



= ((l.-.ei» yr) div 



packedda 
end; 

set rtctime ( It ime) ; 
end ; 

procedure dose t syst in.e ( thetime : timerec); 
var Itime: rtctime; hr ,min,ct sec : integer; 
begin 
(;fiLL(CL 



end; 

div S)tdy-1; 



(CL0CKI0H0OK,CGET,LTI(1E) ; 
tn Itime, the time do 
begin 

hr := hour; min := minute 



cent isecond; 
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121:C 
122 :C 
I23:C 
124 :C 
12S:S 



126: 

127: 

128: 

129: 

130: 

131:D 

132:0 

133:0 

134: 

13S: 

136: 

137: 

138: 

139: 

140: 

141: 

142: 

143: 

144: 

145; 

148: 

147: 

148; 

149: 

ISO: 

151 :S 

152 ;C 
153:C 
154 ;C 
1S5;C 
156 ;C 
157;S 

158 ;C 

159 ;C 

160 ;C 
161;C 
162: 
163: 
164: 
16S: 
166: 
167: 
168: 
169: 
170 :C 
171:C 
172:5 
173:0 
174 :C 
176 :C 



176; 
177; 
178; 
179; 
180; 



3 packed time :={(hr*3600)+min*60)»]00+ctsec; 

3 end; 

2 set rtctlme (Itime) ; 

2 end; 

1 procedure inittime; 



ar t het Ime : rtct ime; 
const 

cmmd41 = 6?j : 
cmmdf7=2<7; 
cmmdf 6=246; 
cmmdfS-245; 
cmidf4 = 244; 
crrmdf 3=243; 
cnmdf2=242; 



2 
2 
2 
2 
2 
2 
2 
2 

2 

2 var t : t rickint ; 

2 begin (inittime) 

2 t het ime . packedtlme := 0; 

2 t hetlme . packeddate := 0; 

2 if batter /present then 

3 '«ith t do 

4 begin 

4 5etintlevei(2) ; 

4 ipart ;= 0; 

4 batcommandlcmmd41 ,0,0,0,0,0,01 

4 batcomniand fcmiiidf7,0,0 ,0 ,0,0,0) 

4 batcormiand(cmmdf6,0,O,0,0,0,0) 

4 t hetime -packeddate := ipart; 

4 ipart := 0; 

bat command lcmmdfS,0,0 ,0,0,0,0) 
bat comma ndlcrmidf 4,0, 0,0, 0,0,0) 
bat command (cmmdf3,0, 0,0, 0,0,0) 
thetime . packedt ime := ipart; 



to load timer output buffer with time) 

to load data buffer with first byte> 

to load data buffer with second byte) 

to load data buffer with third byte) 

to load data buffer with fourth byte) 

to load data buffer with fifth byte) 

to load a letter 'B',or'P', or'H' for 

Basic, or Pascal, or HPL respectively) 



bytel := batbytereceived; 
byteO := batbytereceived; 



byte2 
bytel 
byteO 



= batbytereceived; 
= batbytereceived; 
= batbytereceived; 



4 
4 

4 set int ]evel (0) ;< lower cpu int level) 

4 end ; 

2 set rtct ime (t hetime) ; 

2 end; < inittime ) 

1 PROCEDURE D0CL0CK0PS(CMD:CLOCKFUNC; BNVVRR DfiTB: CLOCKOfiTfl); 

2 BEGIN 

2 CSSE CUD OF 



CCETDSTE 
CCETTIhE 
CSETDHTE 
CISETTIME 
END; 



DOSySDRTE(DHTH.DfiTETYPE) ; 
DOSYSTIMEIDFlTB.TlnETYPE) ; 
DOSETSVSDnTE(D^Tfi.OfiTETYPE) 
DOSETSYSTinE(DflTfi.TlnETYPE 



2 END; 

1 procedure initclock; 

2 begin 

2 if boottype = <powerup) then inittime; 

2 boottype := 18; 

2 CLOCKREaHOOK:=D0CLOCKOPS; 

2 end; 

1 end; { module clock ) 
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1 import clock, loader; 
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181:S 
182:0 
183:S 
184:C 
18S:C 
186:C 
187:0 
188:S 

tio errors 



1 begin 

1 initclock; 

1 markuser; 

1 end . 



No warnings. 

***** Nonstandard language features enabled ***** 
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CONVERT 



Description 

CONVERT translates to or from a memory image of a WSl.O-format page of text when reading or 
writing any kind of text file. 



Usage 

CONVERT is used by the Compiler, Assembler, and Editor. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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S : 

9; 
10: 
11 : 
IJ :S 

13 :S 

14 :S 
16:S 
16:5 
17:S 
18:S 
19:0 
20:S 

21 :S 

22 ;D 
23: 
24: 
2S: 
26: 
27: 
26: 
29: 
30:S 
31 :D 
32:S 
33:D 
34 :S 
35:D 
36:0 
37:S 
38 :D 



(c) Copyright Hewlett-Packard Company, 1983. 
nil rights are reserved. Copying or other 

eproduction cf this program except for archival 
[jurposes is prohibited without the prior 
iTitten consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure Py the Government 
.s subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
liata and Computer Software clause in 
DflR 7-104. 9(a) . 



HEULETT-PflCKflRD COMPHNY 
Tort Collins, Colorado 



«) 



39: 
40: 
41 : 
42: 
43: 
44: 
45: 
46:0 
47:D 
:S 



-134 
-135 



Smodcall 

Sdebug off, range off, ovflcheck off, stackcheck off, iocheck off$ 

nodule convert_tej<t ; 

.mport sysglobals, misc, asm; 

f'xpor t 

const pagesize = 1024; 

type pagebuftype = packed ar ray[0 . . pagesize-l ] of char; 

procedure any to_UCSD(var T; text; anyvar pagebuffer; pagebuftype); 
procedure UCS0_to_any (anyvar pagebuffer: pagebuftype; var T: text); 

:mplement 

procedure any_to_UCSD (var T: text; anyvar pagebuffer: pagebuftype); 
2 ;abel 1; 

2 const sTrsize = 120; {arbitrary choice} 

2 type str = st r inc ^st rsize] ; 
2 St rpt r = ""St r ; 

2 charptr = " char ; 

2 var i,j: integer: s: str; 

2 endline: boolean; 

2 procedure iocheck; 

3 begin 

3 if ioresult <> ord ( inoer ror ) then 

4 begin 

4 if ioresult = ord(ieof) then ioresult 
4 goto 1; 
4 end; 

3 end; 

2 tegin 

2 1 := 0; endline := false; 

2 while (i < pagesize - strsize) do 



sp: St rpt r; 



ord(inoer ror 







Pascal [Rev 


3. on 


61 :C 


3 


62 ;C 


3 


63:C 


4 


S4:C 


4 


65 :C 


4 


66:C 


4 


67:C 


4 


68:C 


4 


69 :C 


4 


70C 


4 


71 :C 


4 


72:C 


4 


73:C 


4 


74 :C 


4 


75:C 


4 


76 :C 


3 


77 C 


3 


78 :C 


4 


79 :C 


4 


80:C 


4 


81 :C 


3 


82:C 


2 


83:C 


2 


84 :S 




85:D 


1 


86. S 




87:D 


1 


88:D 


2 


89:0 


2 


90:0 


-8 2 


91 ;0 


-9 2 


92:C 


2 


93;C 


2 


94 :C 


3 


9S:C 


3 


96:C 


4 


97:C 


4 


98 :C 


5 


99 :C 


S 


100:C 


5 


101 :C 


6 


102:C 


6 


103:C 


6 


104 :C 


6 


105;C 


6 


106:C 


6 


107:C 


6 


108:C 


6 


109:C 


5 


110:C 


4 


111 :C 


4 


112;C 


S 


113:C 


6 


114:C 


q 


115:C 


6 


116:C 


5 


117:C 


4 


U8:C 


4 


119:0 


4 


120 C 


4 
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begin 

i f endline then 

begin 

sp := addr ( pagebuffer [i] , -1 ) ; 

read(T, sp^); 

j ;= St rlen Jsp") ; 

charptr(5p) := eol; iocheck; 

i := i * y, 

end 
else 

begin 

read (T , s] ; iocheck; 

move left (s[l] , pagebuffer [i] , strlen(5)); 

i ;= i + St rien (sj; 

end; 
endline := eoln(T); iocheck; 
if endline then begin 

pagebuffer [i] := eol; i ;= i + 1; 
readln [T] ; iocheck ; 
end ; 
end; 
; for i := i to pagesize-l do pagebuffer [i] := nullchar; 



1 

end 

Siocheck on$ 

procedure UCSO_to_any{anyvar pagebuffe 

label 1; 

type pageptr = "pagebuftype; 

var i , 3 : integer ; 

c ; char; 
begin 
try 

i :» 0; 
repeat 

c ;= pagebuffer [i] ; 
if c = chr(dle) then 
begin 

i := i + 1 ; 

if i =^ pagesize then begin 
else 
begin 

c := pagebuffer [i] ; 
if c > ' ' then write(T, 
i := i + 1; 

if i = pagesize then goto 1; 
c := pagebuffer [i] ; 
end; 
end; 
j ■■= i; 

while (c<>eol) and (conullchar) do 

begin 

j :- J * 1; 

if J = pag^^size then c := nullchar 

else c ;= pagebuf fer [ j ] ; 

end; 
write[T, Da9eptr(addr[pdgebuffer[i] ) )'":j-i) ; 
if c - nullchar then goto 1; 
wriTelnd) ; 
i :---]» l; 



pagebuftype; var T: text); 



rite (T, c) ; goto 1 ; end 
■ :ord(c)-ord(' ') ); 
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121:C 4 until i = paqej:ize; 

122 :C 3 1: 

123:C 3 necoven if escapecode <> -10 then escape (escapecode) : 

124:C 2 end; 

12S:S 

126:C 1 end. {moduJe convert text) 

I27:S 

I28:S 

No errors. No warnings. 

***** Nonstandard language features enabled ***** 
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CRT 



Description 

CRT is called as a transfer method (TM) by the file system, and contains the debugger window 
handler. 



Requirements 

SYSGLOBALS, ASM, MISC, and SYSDEVS. 



Notes 

See also SYSDEVS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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(* 

(c) Copyright Hewlett-Packard Company, 1984. 
Rll rights are reserved. Copying or other 




4:S 




E:S 


"eprodjction of this program except for archival 




t:S 


purposes is prohibited without the prior 




7;S 
8:S 


\L;ritten consent of Hewlett-Packard Company. 




9:3 
IC ;S 


RESTRICTED RIGHTS LEGEND 




11 :S 






U:S 


Use, duplication, or disclosure by the Government 




i; :S 


is subject to restrictions as set forth in 




14:S 


paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




IE :S 




16:S 


DflR 7-104. 9(a) . 




17;S 






ie:S 


HEULETT-PflCKHRD COFIPPNY 




19;D 


i^ort Collins, Colorado *) 




2C:S 






21 :D 


$UCSO$ 




22 ;D 


.^modcalS 




23 ;D 


Iheap dispose off$ 




24 :D 


Siocheck off$ 




26 :D 


grange offS Jovflcheck off$ 




26 :D 


Idebug offS 

'^stackcheck offl 




27 ;D 




28;D 


$search ■ INITLOflD ' , ' HSn' , ' INI T' , ' SYSDEVS ' $ 




2S;S 






3C;D 


orogram initcrt; 




31 :S 






32 :D 


1 module crt ; 




33 :D 


1 import sysglobals, asm, misc, sysdevs; 




34:0 


1 export 




36 :D 


1 function alphacrt: boolean; 




36 :S 






37 :D 


1 implement 




38:0 


1 




3S:D 


1 const 




4C:0 


1 minkana = 161; 




41 :D 


1 maxkana = 223; 




42:0 


1 yenromlocation = 128; { location of Yen symbol in old CRT rom > 




43 :S 






44:0 


1 type 




46:3 






46:5 






47:0 


1 Kanatocrtlookuptype = packed array [minkana . .maxkana] of 128.. 255; 




48:0 


1 romtokanatype = packed array[*128 . .»238] of 0..255; 




49:3 






50:0 


1 crtregtype = 0. .15; 




51 :D 


1 crtcmdwrd = packed record case integer of 




52:0 


1 0: ttopbyte, botbyte: byte); 




53:0 


1 1: (longword: shortint); 




54:0 


1 2: (pl,p2, textfield, softfield: boolean); 




55 :D 


1 end; 




56 :S 






57:0 


1 crtscreen = array [0 , .maxint] of crtword; 




58:0 


1 scrptr = ^crtscreen; 




59:S 






60:S 
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61:0 


1 const 




62:0 


1 kanatocrtlookup - kanatocrtlookupt ype [ 




63:0 


1 ( code 161 1 129,130,131,132,133,134,135, 




64:0 


1 ( code 168 136,137,138,139,140,141,142,143, 




65:0 


1 { code 176 ) 144,145,146,147,148,149,150,151, 




66:0 


1 ( code 184 ) 152,153,154,155,156,157,158,159, 




67:0 


1 ( code 192 ) 160,161,162,163,164,165,166,167, 




68:0 


1 ( code 200 > 173,174,177,178,160,188,190,191, 




69:0 


1 ( code 208 ) 224,225,226,227,228,229,230,231, 




70:0 


1 ( code 216 1 232,233,234,235,236,237,238,179 ]; 




71:S 






72:0 


1 romtokanamap = romtokanatype [ 92, 161, 162, 
1 163, 164, 165, 166, 16^, 1S8, 169, 170, 171, 172, 




73:0 




74:0 


1 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 




75:0 


1 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 




76:0 


1 193, 194, 195, 196, 197, 198, 199, 168, 169, 170, 




77:0 


1 171, 172, 200, 201, 175, 176, 202, 203, 223, 204, 




78:0 


1 181, 182, 183, 184, 186, 186, 187, 205, 189, 206, 




79:0 


1 207, 192, 193, 194, 195, 196, 197, 198, 199, 200, 




80:0 


1 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 




81 :D 


1 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 




82:0 


1 221, 222, 223, 208, 209, 210, 211, 212, 213, 214, 




83:0 


1 216, 216, 217, 213, 219, 220, 221, 222]; 




84 :S 






8S:S 






86:0 


1 b9826info=cr tirec[ 




87:0 


1 widtT :30,height:24, 

1 crtmemaddr :53I6608 { + 416), 




88:0 




89:0 


1 crtcontroladdr :5341 185, 




90:0 


1 fceybjfferaddr: 5320448 < * 416), 

1 progstateinfoaddr : 5320592 { + 416), 

1 keybjffersize; 72, 




91:0 




92:0 




93:0 


1 crtcon: 




94:0 


1 crtconsttype [114,80,76,7,26,10,25,25,0,14,76,13], 




95:0 


1 right(FS>:chr(28), 

1 left(BSl:chr 8), 

1 down(LF>:chr 10 , up{US) :clir (31 ) , 




96:0 




97:0 




98:D 


1 badcn{?>:chr 63), 

1 chardel(BS):chr (8),stop(DC3> :chr(19). 




99:0 




100:0 


1 break(DLE):chr (16), 




101 :D 


1 flU5h<flCKJ:chr(6), eof (ETX) :chr (3) , 
1 altmode(ESC>:chr (27), 
1 linedel<DEl>:chr(127) , 




102:0 




103:0 




104:0 


1 back5pace(BS):chr (8) , 

1 etx :chr (3) ,prefix:chr (0), 




106:D 




106:D 


1 prefixed:bl4[l4 of false], 




107:D 


1 cursormask : 0, spare : 0]; 




108:5 






109:3 






110:D 


1 environc=environ[miscinfo:crtfrec[ 




HI ;D 


1 nobreak : false, 




112;D 


1 stupid :false, 




U3:D 


1 slowterm: false. 




114 :D 


1 hasxycr t : t rue , 




115:D 


1 haslccr t : t rue, <?) 




116:D 


1 hascloc k : t rue , 




117:D 


1 canupsc roll : t rue . 




118:0 


1 candownscroll; t rue] , 




U9:D 
12G:D 


1 crt type :0, 

1 crtct rl:crtcrec [ 
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121:D 

122 :D 

123; 

124; 

125: 

126; 

127: 

128: 

129: 

130; 

131: 

132; 

133: 

134; 

136; 

136; 

137: 

138:D 

139;D 

140: 

141: 

142: 

143: 

144; 

145; 

146; 

147: 

148: 

149 :D 

150 ;D 
151:0 
152:0 
153:0 
154 ;S 
155;S 
158:0 
157 :S 
158:0 

159 :D 

160 :D 
1$1:S 
162 ;S 
163:0 
184 ;D 

165 :D 

166 ;S 

167 :D 

168 :D 
169:0 
170:0 
171:0 
172:3 
173:0 
174;D 
175:0 
176:0 
177:0 
178:S 
179:S 
180:0 



-4 

-8 

-12 



-18 
-22 
-24 

-26 
-27 
-32 
-36 
-37 

-37 
-37 
-37 
-37 
-37 



crtinfo:crtirec[ 
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rlf :chr(31) , 
ndfs :chr(28), 
eraseeol :chr f9) , 
eraseeos :chr (11 ) , 
home ;chr ( 1 ) . 
escape ;chr (6) , 
backspace :chr (3) , 
flllcount :10, 
clearscreen :chr (0) , 
clea rlirte :cnr (0) , 
piefixed:b9[9 of false]], 

width :50, height ;24, 
crtmemaddr :5316608, 
crtcontroladdr;5308417, 
keybufferaddr: 5319008 
pf ogst ateinfoaddr ; 5319092 
keybuffersize: 42, 
crtcon: crtconsttype 



File name: CRT **« 



riqht(FS>:chr(28) 
left(BS>:chr(8j , 
dcwn<LF>:chr 10) , 
badch{?):chr(63) . 
chardel<BS>:chr(8 
break{DLE):chr(16 
f]ush<flCK):chr[6), 
a]tniode<ESC):chr 27) , 
"■ ■ ■ r(127), 



Ipt r : scrpt r ; 
screenwidth: integer; 
sc reenheight : integer 



maxx,maxy,screensize;shortint 

sc reen ; scrpt r; 

default highlight : shortint; 

highlight ; shortint ; 
hascolor; boolean; 
pm6845addrreg ;"char ; 
Fmi6845comdreg:^char ; 
nomap; boolean; 



crtidregChexj'SlFFFE 
bl5,bl4,bl3 



[64,50,49,10, 
25,0,11,74,1 



25,9,25, 
1], 



up{US>:chr(31 

stop<DC3> ;chr( 

eof{ETX>;chr(3 



19), 



linedel(DEL):chr 
backspace<BS> :chr(8) 
etx:cnr(3),prefix:chr(0), 
prefixed:bl4[14 of false], 
cirsormask ; 0, spare ; 0]]; 



( 3.0 bug fix jws 3/20/84 ) 



] : packed record 
boolean; 
colorinfo: fcinfoO, cinfol, cinfc2, cinfo3): 
bl0,b9,b8,b7,b6,b5,b4,b3,b2,bl ,bO: boolean; 
end ; 



1 procedure dumpa; 
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181:0 
182:0 
183:0 
184:0 

185:C 



186 
187 
188: 
189: 
190: 
191: 
192: 
193: 
194: 
196: 
196: 
197: 
198: 
1! 



200 :C 



201: 

202 :C 

203:3 

204:0 

205:0 

206:0 

207:0 

208:3 

209: 

210: 

211; 

212: 

213: 

214: 

215: 

216 

217: 

218:0 

219:0 

220:0 

221:0 

222:0 

223:0 

224:0 

225:0 

226:0 

227:0 

228:0 

229:0 

230:D 

231:D 

232:0 

233:C 

234 :C 

235 :C 

236 ;C 

237 :C 
238:C 

239 :C 

240 :C 



-9 

-110 



2 label 1; 

2 var row, column : intege 

2 c ; char; 

2 line; st ring [100] ; 

2 begin with syscom .crtinfo 

3 

3 

3 

4 

4 

5 

5 

5 



-70 
-90 
-91 



do 



5 
5 
4 
4 
4 
4 
4 
3 
2 1: 



begin 

setst rlen ( line , width); 
for row ;= to height-1 do 
begin 

for column ;= to width-! do 
begin 
c := screen^[ row*width+column] .character ; 

'- >= #1281 and (c <= #238) then c := chr ( romtokanainap[c] ) ; 



if 



line [column+1 , 
end; 
column := width; 

while (column > 1) and [ line [column]= ' 
writeln(gfile5[4]'', line : column 1 ; 
if ioresult <> ord( inoerror ) then goto 
end; 
:nd ; 
end; 



' ) do column 
1; 



1 procedure toggleg; 

2 var gon [5439488(530000 HEX)] :5hortint ; 
2 goff[5472256<538000 HEX)] : shortint ; 
2 gbaset'GRfiPHICSBHSE'] : 'shortint; 

2 begin 

2 graphics! ate ;=not graphicst ate; 

2 If graphicstate then gbase : =addr (gon) 

3 else gbase : =addr (goff) ; 
2 gbase'" := gbase"; 

2 end; 

1 
2 
2 
2 
2 
2 
2 
2 



gheightb = 390; 



procedure dumpg; 

label 1; 

const gheight = 300; 

gwidth = 50; gwidthb = 64; 

gbuffersize=9widthB+6; 
gword=packed record 

dummy, growbyte ; char 
end ; 



type 



2 gdot row=packed ar ray [1 . .gwidt h] of gword; 



2 type gmemtype = packed array [1 

2 gmembtype = packed array [1 

2 gmem = "^gmemtype; 

2 gmemb = "gmembtype; 

2 var graphicsbase ['GRftPHICSBRSE'] ; anyptr; 

2 ^buffer : packed ar ray[l . .gbuf fe rsize] of char; 

2 l,3,rows.buffersize,pindex:inleger; 

2 busy :boolean; 

2 begin 

2 gbuffer[l] 

2 gbuffer[2] 

2 gbuffer 3] 

2 gbuffer[6] 

2 if sysf lag -biggraphics 

3 begin 
:3 gbu'fer[4] :='6' 



gheight] of gdotrow; 
gheightb, 1.. gwidthb] of char; 



=chr(escl {escape sequence for graphics); 
= 'b' 
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24: ;C 


3 


gbuffer [5] :='4'; 




24;: :C 


3 


rows := gheightb; 




24,! :C 


3 


buffersize := gwiclthb*-6; 




244 ;C 


3 


end 




245:C 


3 


else begin 




24B:C 


3 


gboffer [4] :.'S'; 




247 -.C 


3 


gbuffer [S] :='0' ; 




248 :C 


3 


rows :■- gheight; 




249 ;C 


3 


buffersize :- gwidth+6; 




250 :C 


3 


end ; 




25: :C 


2 


for i:= 1 to ro'ws do 




2S:J:C 


3 


begin 




25:!:C 


3 


If sysflag .biggraphics then 




254:C 


4 


for j:=l 10 gwidthb do gbuf fer[ j+6] :=gmemb (graphicsbase) "[i, j] else 




255 :C 


4 


for j:-l to gwidth do gbuffer [j+6] : =gmem[9raphic5ba5e)^ [i, j] .growbyte; 
write(gfile5[4], gbuffer :buffersize); 




256 :C 


3 




257 :C 


3 


if ioresult <> ord (inoer ror ) then goto 1; 




258:C 


3 


end; 




2S9:C 


2 


writelgf ile5 [4]'', »27'*rB'); {terminate graphics sequence); 




260:C 


2 


1: 




261:C 


2 


end; 




262:S 








26:3:0 


1 


procedure crtcomj-nand( reg : crtregtype; data; byte); 




264 :C 


2 


begin 




265:C 


2 


pm6845addrreg" :^ chrfreg)- 




26S:C 


2 


pm6845comdreg^ := chr(data); 




267 :C 


2 


end; 




26S:0 


-37 1 






269:0 


1 


procedure doupdatecur sor ; 




270:0 


-2 2 


var cursaddr: crtcmdwrd; 




271:C 


2 


begin 




272;C 


2 


cursaddr .longword:=inteqer (screen) mod 8192 div 2 + ypo5*5creenwidth+xpo5; 
cursaddr .textfield := alphastate; 




273 :C 


2 




274 :C 


2 


cursaddr .softfield;=alphastate; 




27'5:C 


2 


c rtcommand 1 14, cursaddr . topbyte) ; 




27i3;C 


2 


c r t command (16, cursaddr.botbyte); 




277:C 


2 


end; 




278:S 








279:0 


1 


procedure togglea; 




280:0 


-2 2 


var Icur saddr :crtcmdwrd; 




281:S 








282:C 


2 


begin 




28:3 :C 


2 


alphast a te:= not (alphastate); 




284:C 


2 


lcur5addr.longword:=integer (screen) mod 8192 div 2; 
leu rs add r. text field :=alpnast ate; 




285 :C 


2 




286:C 


2 


lcursaddr.softfield;=alpna5tate; 




287:C 


2 


crtcommandf 12, Icur saddr .topbyte) ; 




28B:C 


2 


crtcommdnd(13, Icursaddr.botbyte); 




289:C 


2 


doupdatecursor; 




290 :C 


2 


end; 




29l:S 








292:S 








29J:D 


1 


procedure getxy(var x,y: integer); 




294 :C 


2 


begin 




295 :C 


2 


X := xpos; y '■=' ypos; 




296:C 


2 


end; 




297:S 








293:0 


1 


procedure setxy(x, y; shortint); 




299 :C 


2 


begin 

af x>=sc reenwidth then xpos;=maxx 




300 :C 


2 
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301 :C 


3 


else if x<0 then xpos:=0 




30;? :C 


4 


else xpos := x; 




30!;C 


2 


if y>-sc reenheight then ypo5:=maxy 




304 :C 


3 


else if y<0 then ypas:=0 




305 :C 


4 


else ypos :- y; 




30ii:C 


2 


end; 




30!:S 








308:0 


1 


procedure gotoxy(x,y: integer); 




309 :C 


2 


begin 




310:C 


2 


5etxy(x, y); 




3U:C 


2 


doupdatecursor; 




312:C 


2 


end; 




313:S 








314:S 








315:0 


1 


procedure clear (numbe r : shortint); 




316:0 


-4 2 


var x,y: shortint; 




317:C 


2 


begin 




313:C 


2 


x:=xp05; y:=ypos; 
while number>0 do 




319:C 


2 




320 :C 


3 


begin 




321:C 


3 


screen'^[y»screenwidth+x] .wholeword:= ord(' '); 




322:C 


3 


n umb e r : = n umbe r - 1 ; 




323 :C 


3 


if x<maxx then x:=x+l 




324 :C 


4 


else begin x:=0; if y<maxy then y:=y+l end; 




325 :C 


3 


end; 




32S:C 


2 


end; 




327:S 








323:0 


1 


procedure scrollup; 




329:0 


-2 2 


var i: shortint; 




330:C 


2 


begin 




331 :C 


2 


move left (screen^ [screenwidth{l , 0)] , 




332:C 


2 


5creen'[0<0, 0>], 




333:C 


2 


(5creensize-5creenwidth)*2); 




334 :C 


2 


for i:=0 to maxx do 




335:C 


3 


screen'^ [maxy«5creenwidth + i] .wholeword :=ord ( ' ' ) ; 




336 :C 


2 


end; 




337:S 








333:0 


1 


procedure scrolldown; <new 4/30/81} 




339:0 


-2 2 


var i : sho rt int ; 




340 :C 


2 


begin 




341 :C 


2 


moveright [3creen'^[0{0, 0}], 

5Creen^[5creenv/idth{l , 0)], 




34:' :C 


2 




343:: 


2 


[screehsize-5creeriwidth)»2) ; 




344 :C 


2 


for i:=0 to maxx do screen^Ci] .wholeword :- ord(' '); 




345 :C 


2 


end; 




346 :S 








347 ;S 








348:S 








349 :S 








350:0 


1 


function maptocrt (c : char) : char ; 




351 :S 








352:0 


2 


const illegalchar = #223; 




353:0 


2 


{ char to disp for illegal internal codes; looks like hp } 




354:0 


2 


procedure maprorrextoc rt ; 




355:0 


3 


const 




356:0 


3 


minromex = 168; ( lookup table ranges ) 




357:0 


3 


maxromex = 255; 




353:0 


3 


type romexsettype = set of minromex . .maxromex : 

const romexset = romexsettype [168 .. 172 , 175 , 176, 179, 181 .. 187 1 89 192 . .222 ,255] : 

{ legal Romex codes ) 




359:0 
36ii:0 


3 
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361 :C 


3 


begin 




362 :C 


3 


if (ord(c) < 128) or (ord(c) in rcmexset) 




363 :C 


4 


or nomap then < 3.0 bug fix jws 3/20/84) 




364 :C 


4 


maptocrt :=c 




365 ;C 


4 


else 




366 :C 


4 


if ord(c)=183 { ROMBNS yen cnar) < jws 3/1/84 > 
then maptocrt :=chr(yenromloca1 ion) ( jws 3/1/84 ) 




367 :C 


5 




368 :C 


5 


else 




369 :C 


5 


maptocrt :=allegslchar; 




370 :C 


3 


end; 




371 :S 








372 :S 








373 :D 


2 


procedure mapkanatocrt ; 




374 :S 








375:0 


3 


const yencode == 92; 




376 :S 








377 :S 








378 :S 




( Converts Katakana codes to their correct "old" CRT rom location codes; also. 




378 :S 




converts "illegal" Kana chars to the "hp" char. Note that the Ven symbol 




380 ;D 


3 


overlays the USR3CII backslash {\), and that code 255 Is left unconverted. > 




381 :S 








382 ;S 








383 :C 


3 


begin 




384 :C 


3 


If nomap then maptocrt :=c 




385 :C 


4 


else begin 




386 :C 


4 


if ordlc) = yencode then maptocrt := chr (yenromlocat ion) 




387 :C 


5 


else if (ord(c) < 128) or (ord(c) = 255) then maptocrt:= c 




388 :C 


6 


else begin 




389 :C 


6 


if (ord(c) < minkana) or (ord(c) > maxkanal then maptocrt := illegalchar 




380 :C 


7 


else maptocrt := chr [kanatocrt lookup[ord(c) ] ) ; 




391 :C 


6 


end; 




392 :C 


4 


end; 




393 :C 

394 :S 
39S:C 


3 


end; < mapkanatocrt > 




2 


begin 




398 :C 


2 


If kbdlang = katakana_kbd then mapkanatocrt 




397 :C 


3 


else mapromextocrt ; 




398 :C 


2 


end; 




399 :S 








400 :S 








401:S 








402 :D 


1 


procedure docrtio(fp: fibp; request: smrequest type; anyvar buffer: window; 




403 :D 


2 


length, position: integer); 




404 :D 


-1 2 


var c: char; 




40S:D 


-4 2 


s : St ring[l ] ; 




408 :D 


-8 2 


buf: charptr; 




407 ;C 


2 


begin 




408 :C 


2 


ioresult := ord (inoerror ) ; 
buf := addr(buffer) ; 




409 :C 


2 




410:C 


2 


case request of 




411:C 


3 


{uwait: ; > 




412:C 


3 


setcursor: gotoxy ( f p"". f xpos , fp'^.fyposl; 




413:C 


3 


getcursor: getxy (fp^.fxpos, fp'.fypos); 
flush: {do nothing); 




414:C 


3 




41S:C 


3 


unitstatus: kbdio(fp, request, buffer, length, position); 




416:C 


3 


clearunit: highlight := def aulthighlight ; 




417:C 


3 


readtoeol : 




418:C 


3 


begin 

buf := addr(buf", 1); 




419:C 


3 




420 :C 


3 


buffer[0] :» chr (0) ; 
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421 :C 


3 


while length>0 do 




422 :C 


4 


begin 




423 ;C 


4 


kbdio(fp, readtoeol, s, 1, 0); 

if strlen(s)=0 then length := 




424 .C 


4 




425 :C 


5 


( else if s[l] = chr(etv) then length := ) 




426 :C 


S 


else begin 




427 :C 


5 


length := length - 1; 




428 :C 


5 


crtio(fp, writebytes, s[l], 1, 0); 




429 :C 


5 


buf := ad<Jr(buf", 1); 




430 :C 


5 


buffer[0] := chr (crd (buf fe r [0] )+l ) ; 




431 :C 


5 


end; 




432 :C 


4 


end; 




433 :C 


3 


end; 




434 :C 


3 


startread. 




435:C 


3 


readbytes: 




436 :C 


3 


begin 




437iC 


3 


while length>0 do 




438 :C 


4 


begin 




439 :C 


4 


kbdioffp, readbytes, buf'^, 1,0); 
if buf'^ = chr(etx) then length := 




440 ;C 


4 




441 :C 


5 


else length := length - 1; 
if buf" = eol then crtio(fp, writeeol, buf'', 1, 0) 




442 :C 


4 




443 :C 


5 


else citio(fp, writebytes, buf", 1, 0); 




444 :C 


4 


buf := addr(buf", 1 ) ; 




445 :C 


4 


end; 




446 :C 


3 


if request = startread then call (f p". feot , fp); 




447 :C 


3 


end; 




448 :C 


3 


wrlteeol: begin 




449 :C 


3 


if ypos-maxy then scrollup; 




450 :C 


3 


gotoxy(0, ypos-tl); 




451:C 


3 


end; 




452 :C 


3 


startwrite. 




453 :C 


3 


writebytes: 




454 :C 


3 


begin 

while )ength>0 do 




455 :C 


3 




456 :C 


4 


begin 




457 :C 


4 


c:=buf"; buf : =addr (buf", 1 ) ; length :=length-l ; 




468:3 








463 :C 


4 


case c of 




460 :C 


5 


homechar: setxy(0,0) ; 




461:C 


5 


leftchar: if (xpos = 0) and (ypos>0) then 5etxy(maxx, ypos-l) 




462 :C 


6 


else 5etxy(xpos-l , ypos); 




463 :C 


5 


rightchar: if (xpos = maxx) and (ypos<maxy) then setxy(0, ypos+1) 




464 :C 


6 


else setxy(xpos+l , ypos); 
upchar: begin if ypos <= 1 then scrolldown; 




465 ;C 


5 




466 :C 


5 


if ypos>0 then setxy(xpo5, ypos-l); 




467 :C 


5 


end; 




468 :C 


5 


downchar: if ypos=maxy then scrollup 




469 :C 


S 


else setxy(xpos, ypos+1); 




470 :C 


5 


bellchar: beep; 




471 :C 


5 


cteos: clear [screensize- (ypos*screenwidth+xpo5) ) ; 




472:: 


5 


cteol: clear (screenwidth-xpos) ; 




473 :C 


5 


clearscr: begin setxy(0,0); clear ( screenslze) ; end; 




474 :C 


S 


eol: 5etxy(0, ^/pos); 
chr (etx) : length :=0; 




475 :C 


5 




476 :C 


5 


otherwise if Tord(c)»128) and (ord(c)< 144) then 




477 :C 


6 


if hascolor then 




478 :C 


7 


if ord(c) >= U6 then highlight :» 




479 :C 

480 :C 


3 

8 


highlight mod 2048 ■» (ord(c) -136)«4096 
else highlight := 
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4tl:C 8 (highlight div 2048 » 8 ♦ (ord (c ) -128) )«25S 

4f:2:C 8 else highlight := (ord (c) -128 )»256 

4<:3:C 7 else with screen'^ [ypos*5creenwidth+xpos] do 

4 84 :C 7 begin 

485:C 7 wholeword : -highlight* ord (maptocrt (c) ) ; 

4E6:C 7 if xpos = ma:<)( then 

4t7:C 8 begin 

4f^8:C S if ypo; - maxy then scrollup; 

4f9:C 8 setxyiv', ypos*l ) ; 

490 :C 3 end 

4^'1:C 3 else set ,- y (xpos+1 , ypos); 

4v2:C 7 end; 

4E-3:C 5 end; 

4'4:C 4 doupdatecursor ; 

4S5:C 4 end; {while) 

4f'6:C 3 if request = startwrite then call (f p^ . feot , fp); 

4'o7:C 3 end; 

4;8:C 3 otherwise ioresult := ord (ibadrequest ) ; 

4'"'9;C 3 end; {case) 

5C0:C 2 end; 

501 :S 

5C2;D 1 procedure lineops(op: crtllops; anyvar position: integer; c:char); 

5C3:0 2 var 

5C4:D -4 2 i: integer; 

5C5:D -8 2 sptr: ■^string255; 

506:S 

507:C 2 begin 

508 :C 2 case op of 

509:C 3 cllput; Ipt r"[po5it ion] .wholeword;=ord(niaptocrt (c) ) ; 

SlO:S 

S11:C 3 cllshiftl: 

512:C 3 begin 

513:C 3 for i:=0 to (maxx-S) do Ipt r"[i] :=Jpt r" [i-H ] ; 

514:C 3 Ipt r'tmaxx-S] .wholeword;=ord(' '); 

515:C 3 end; 

516:S 

517:C 3 cllshiftr: 

5]8:C .1 begin 

5i9:C 3 for i:^0 to (maxx-9) do Ipt r^ [maxx-8-i] : = Ipt r-^[maxx-9-i] ; 

520:C 3 Ipt r^[0] .wholeword:=ord(' '}; 

521 :C 3 end; 

522 ;S 

523:C 3 cllclear: 

524:C 3 for i:=0 to (maxx-8) do Ipt r'^[i] .wholewo rd : =ord ( ' '); 

525:5 

526:C 3 cUdisplay: 

527 :C 3 begin 

523:C 3 spt r : = add r ( pos it ion} ; 

529:C 3 for i: = l to lengt h ( spt r-~) do 

530:C 4 lptr"[i-l] .wholeword:=ord(maptocrt (sptr'Li] 1 ) ; 

531:C 3 for i :»lengt h( spt r") to (maxx-8) do 

532:C 4 lptr*[i] .wholeword:!=ord(' '); 

533:C 3 end; 

534:S 

535 :C 3 putstatus: 

536:C 3 beqin { position should be in range 0..7 ) 

537:C 3 Ipt r^ [m3xx-7+posi t ion] . wholewo rd :=o rd (c ) ; 

638:C 3 end; 

S39:S 

640:C 3 end; { case) 
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541 :S 

542:C 2 end; { lineops ) 

54 3:3 

544:D 1 procedure crtdebug(op: dbcrtops; var dbrec: dbcinfo ); 

545 ;S 

546:D 2 type iptr - "iarray; 

547:D 2 iarray = arraytO . .maxint] of shortint; 

543:3 

543 :D 2 var 

550:0 -4 2 xtemp, ytemp: shortint; 

551:0 -10 2 i,j,k: shortint; 

652:0 -12 2 len: shortint; 

553:0 -14 2 inc: shortint; 

554:0 -174 2 temp: array[0..79] of shortint; 

555:3 

653:3 

6ST:C 2 begin 

553:C 2 with dbrec do begin 

553:0 3 case op of 

560:5 

561:C 4 dbinfo: savesize : - (xmax-xmin+1 )* (ymax-ymin+1 )*2; 

652:S 

663:C 4 dbgotoxy: 

664 :C 4 begin 

565;C 4 xtemp:=xpo5; ytemp:-ypos; 

56i3:C 4 xpos:=cur5x; ypos:=cursy: 

567;C 4 doupdatecursor; 

563:C 4 xpos:=xtemp; ypos : =ytenip; 

563;C 4 end; 

573:5 

571:C 4 dbscrollup.dbscrolldn: 

57.>:C 4 begin 

573;C 4 len: = (xinax-xmin+l )*2; 

574:C 4 if op=dbsc rollup then begin 

57>:C 5 j: = yrTtin; 

57i3;C 5 inc :=screenwidt h; 

S77:C 5 end 

578:C 5 else begin 

573:C 5 j:=ymax; 

680:C 5 inc : =-screenwidth; 

68l:C 5 end; 

582:C 4 j : =j*screenwidth+xmin; 

58J:C 4 for i:-(yTnin+l) to ymax do begin 

584:C 5 k:=j: l:=j+inc; 

58'>:C 5 moveief t ( sc reen'^t j] , screen"[k], len); 

S8i>:C 5 end; 

587:C 4 for i:=0 to (xmax-xmin) do 

58B:C 5 screen^[j+i] ,wholeword:=ord(' '); 

68'1:C 4 end; 

590 :S 

59l:C 4 dbscrolll.dbscrollr : 

692:C 4 begin 

59i:C 4 ]en:=(xmax-xmin*l)«2-2; { fixed 4/13/84 ) 

594;C 4 j : = (ymin-1 )*screenwidth+xmin ; 

59'J;C 4 if op-dbscrolll then begin 

59i>:C S i: = i + I; 

59':C 5 k :=xmax-xmin-l ; 

59«:C 5 end 

593:C 5 else begin if OQ/I 

60O:C 5 k:=0; II-ZO* 
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601 :C 


S 




end; 




602 :C 


4 




for i:=ymin to ymax do begin 




603 :C 


5 




i : = j + ;icreenwidth; 




604 :C 


5 




if op=dbscrolll then 




605 :C 


6 




move left [ &creen^[j]. scree n'^[j-l], len) 




608 :C 


6 




else 




607 :C 


6 




move right (5creen''[j],screen'^[i + l], len); 
screen''[j + k] .wholeworo :=ord ( ' ' } ; 




608 :C 


5 






609 :C 


5 




end; 




610:C 


4 




end; 




611;S 










612:C 


4 




dbhighl : 




613:C 


4 




begin 

i:==cur:;y*5creenwidth+cursx; 




614 :C 


4 






61S:C 


4 




screen"! i] .u/holeu/ord: =o rd ( =c reen-"[i) . character ) -Herd (c) -128 J «256; 




616:C 


4 




end; 




617:S 










618 :S 










619:C 

620 :S 

621 :C 


4 




dbput : screen'^[cur5y* scree nwidth^cursx] .wholeword : =ord (c) ; 




4 




dbclear : 




622 :C 


4 




for ^:=ymia to ymax do 




623 :C 


5 




for i:"?<min to xmax do 




624 :C 


6 




:jcreen'"[i*screenwidth + j] .wholeword : =ord ( ' ' ) ; 




625 :S 










626 :C 


4 




dbcline : 




627;: 


4 




for i :-cur5x to xmax do 




628 :C 


5 




scfeen"[cursy*screenwidth+i} .wholeword :=ord ( ' ' ) ; 




629 :S 










630 :C 


4 




dbinit : 




631 :C 


/, 




begin 

for i:==0 to (savesize div 2)-3 do 




632 :C 


4 






633 :C 


5 




iptr(savearea)'^[i] :=ord{ ' ']; 




634 :C 


4 




cur5x:=xmin; cursy:=ymin; 




635 :C 


4 




a resisdbcrt : =true ; 




636 :C 


4 




end; 




637 :S 










638 :C 


4 




dbexcg: 




639 :C 


4 




begin 

i. :=xmax-xmin+l; 




640 :C 


4 






641 :C 


4 




for i:=ymin to ymax do begin 




642 :C 


5 




moveleft (3creen'^[i«5creenwidth+xmin , temp, k*2); 




643 :C 


5 




moveIeft(iptr(savearea)'^[(i-ymin]*k , 




644 :C 


5 




screen'^[i*5creenwioth+xmin , k*2) ; 




645 :C 


S 




moveleft (temp, ipt r ( savearea j'- [ (i~ymin)*k] , k*2); 




646 :C 


S 




end; 




647 :C 


4 




if areaisdbcrt then begin 




648 :C 


5 




xtemp:=xpos; ytemp:=ypos: 




649 :C 


5 




xpos:=cur5x; ypos:=cursy; 




6S0:C 


S 




doupdatecursor; 




6S1:C 


5 




xpos:=xtemp; ypo5:=ytemp; 




6S2lC 


5 




end 




653 :C 


5 




else doupdatecursor: 




654 :C 


4 




areaisdbcrt :=not areaisdbcrt; 




655 :C 


4 




end; 




656 :S 










657 :S 










658 :C 


4 








6S9:C 


4 


end; { of case } 




660 :C 


3 


end 


; { of with > 
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661 :C 
662:3 
663 :[) 


2 


end 


; ( procedure crtdebug > 




1 


pro 


:edure alphac rt init ; 




664 :D 


-10 2 


va 


r cursaddr: crtcmdwrd; i,k: integer; 




665 :C 


2 


be 


3in 




666 :C 


2 




vith 5yscom''.cr tinfo do 




667 :C 


3 




legin 




668 :C 


3 




screen :=anypt r (crtmemadd r ) ; 
screerwidth:=width: 
screerheight :=height ; 




669 :C 


3 






670 :C 


3 






671 :C 


3 




maxx : =width-l ; 




672;C 


3 




maxy : =height-l ; 




673 rC 


3 




sc re ensize:=width« height; 




674 :S 










675:C 


3 




for i:=0 to screensize-l do screen"[i] .wholeword : =ord{ ' '); {clear screen) 




676 :C 


3 




pm6845addrreg :=anyptr(crtcontrol3ddr)- 
pni6845comdreg : = anyptr(crtcontroladdr+2); 
cursaddr . longword:=integer (screen) mod 8192 div 2; 
cursaddr.textfield:-alphastate; 




677 -.C 


3 






678 :C 


3 






679 :C 


3 






680 :C 


3 




curs ad dr. soft field : = alpha5tate; 




681 :C 


3 




crtcommand(12, cursaddr. to pbyte); 




682 :C 


3 




crtcommand(13, cursaddr. bo tbyte); 




$83 :C 


3 




defaulthighlight := 0; highlight := 0; 




684 :S 










685 :C 


3 




idle:=2S0; 
nomap:=fai5e; 




686 :C 


3 






687 1 C 


3 




if sysflag .crtconf igreg then begin 

if crtidreg.bia tfien begin ( 3.0 bug iws 3/20/84 > 
nomap:=true; ( 3.0 bug jws 3/20/84 ) 
idle:»245; ( 3.C bug iws 3/20/84 ) 
end; ( 3.0 bug Jws 3/20/84 ) 




688 ;C 


4 






689 :C 


5 






690 :C 


5 






691 :C 


5 






692 :C 


4 




hascolor := c rtidreg .color info > cinfoO; 




693 :C 


4 




end 




694 :C 


4 




else hascolor := false; 




695:3 










696 :C 


3 




gotoxy (0,0) ; 
dumpalphahook := dumpa; 




697 :C 


3 






698 :C 


3 




dumpgraphicshook := dumpg; 
togglealphahook := togglea; 
togglegraphicshook := toggleg; 




699 :C 


3 






700 :C 


3 






701 :C 


3 




u pdatecu r so r hook := doupdatecursor; 




702 :C 


3 




crtiohook:=docrtio: 




703 :C 


3 




crtllhook :=laneops; 




704 :C 


3 




dbcr thook :=crtdebug; 




70S:C 


3 




crtinithook:=alphacrtinit; 




706 :C 


3 




lptr:=anyptr(keybufferaddr); 




707 :C 


3 




keybuf fer" .maxsize :=maxx-8 ; 




708 :C 


3 




currentcrt:=alphatype; 




709 :C 


3 




:nd; 




710:C 


2 


en 


1; 




711:D 


37 1 








712:D 


1 


fun 


:tion alphacrt :boolean; 
i[hex('5120O0')] :shortint ; 




713:0 


2 


var 




714:0 


-2 2 




1: shortint; 




71S:C 


2 


be9 


in 




716:C 


2 


alp 


iacrt:=true; { assume we have alpha screen > 




717:C 


2 


try 






718:C 


3 


j 


=i; ( attempt read from alpha screen ram ) 




719:C 


3 


s 


/scom":=environc; { setup for my kind of environment > 
^ not sysf lag . alphaSO then syscom". cr t info :=b9826info ; 


11-235 


720 :C 


3 


i 
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7il 


r 


722 


c 


723 


i; 


724 


r 


72S 


c 


726 


c 


727 


s 


728 


n 


729 


s 


730 


s 


731 


1) 


732 


s 


733 


c 


734 


c 


735 


i: 


736 


s 


No errors 



'.' slphac rt init ; 
3 recover 

3 if escapecode=-12 then 

4 aiphac rt : =f al5e { bus error 
4 else escape (escapecode) ; 

2 end; 

1 end; { of module ) 

1 import crt , loader ; 

1 begin 

1 if alphacrt then markuser; 

1 end . 



tvanings . 
***;** Nonstandard language features enabled 



no alpha screen ) 
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CS80 



Description 

CS80 is a transfer method (TM) for all supported Command Set '80 and Subset '80 discs. 

Usage 

CS80 supports the following CS/80 discs: 

• 7908 

• 7911 

• 7912 

• 7914 

• 7935 

• 7941 

• 7944 (tape drive only; no disc) 

• 7945 

CS80 supports the following SS/80 discs: 

• 9133 

• 9134 

Requirements 

DISCHPIB, DRVASM, IDDECLARATIONS and DISC_INTF 
Optionally: DMA 

Notes 

CS80 does support the 7933 discs (see AMIGO). 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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[c i Copyright Hewlett-Packard Companyj 19:33. 
^11 rights ar-; reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
vi/ritten consent of Hewlett-Packard Company 

RRSTRICTED RIGHTS LEGEND 

Use, duplicat:icn, or disclosure oy the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B ) of the Rights in Technical 
Data and Computer Software clause in 
OfiR 7-104, 9(a) . 



HEULETT-PflCKflKD COnPfiNY 
Port Collins, Colorado 



«] 



tmodcalS 

tdebug off, range off, ovflcheck offt 

SstacRcheck off, iocheck offj 

tcopyright 'COPYRIGHT (C) 1983 BY HEULETT-PflCKHRD COMPflNY'S 



■IOLIB:KERNEl '$ 



2t':S 



31' 
3: 
3: 
3 
34 
3! 
3f : 
3- : D 
3( :D 
3! :D 
4f :D 
4! :D 
:D 
:D 
:D 
:D 
:0 
:D 
4f :0 
4t:D 
5C :S 
SI :D 
5r:S 



4: 
44 : 
4t : 
4[ : 



-10 
-14 
-18 



C Ssearch 'DRVHSM', 'DISCHPIB 

:irogram CSSOinit ; 

1 nodule tapebuf ; 

import 
sysglobals, bkgnd; 

!:<por t 

const 

tapebuf^maxsize = 1024; 

type 

tapebuf_type = packed ar ray [0 .. tapebuf maxsize-1] of byte: 
tapebuf_5tate_type = (undefined, unmodified, modified); 

tapebuf_ptr: ^tapebuf type; 
tapebuf_5tate: t apebu7_st atetype; 
tapebuf_uep: uep_type; 
t apebuf_block : integer; 
t apebuf_size : integer; 
procedure init_tapebuf ; 

mplement {tapebuf) 

:irocedure init_t apebuf ; 

2 begin {init tapebuf) 

2 if tapebu? ptr=nil then 

3 new(t ape&uf_pt r j ; 

2 tapebuf_stdte := undefined; 

2 end; {init_t apebuf ) 

1 t-nd; {tapebuf) 
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61 


:D 


62 


:S 


63 


:D 


64 


:S 


66 


:D 


66 


:0 


67 


:S 


68 


:D 


69 


:S 


70 


:D 


71 


:0 


72 


.D 


73 


:0 


74 


.D 


75 





76 


D 


77 


D 


78 


D 


79 


D 


80 


D 


81 


D 


82 


D 


83 


D 


84 


D 


85 


S 


86 





87 





88 





89 


D 


90 


a 


91 





92 





93 


D 


94 


D 


95 


D 


96 


D 


97 


D 


98 


D 


99 





100 


D 


101 


D 


102 





103 





104 


D 


105 


D 


106 


D 


107 


D 


108 





109 


D 


110 


D 


111 





112 





113 





114, 


D 


115. 


D 


116- 


D 


117: 


D 



3. on t./ 4/84] CS80.TEXT 

3 pages 

nodule CS80; {Command Set '80> 

:mpor t 

sysglobals, okgndj discHPIB; 



26-Dec-84 21:42:04 Page 2 **» File name: CS80 



type 

signedie 
signedS 

un5gn24 

unsgnS 

unsgn4 



"32768. .32767; 
-128. .127; 

0. .16777215; 
0. .255; 
0. .15; 



"^t^fype = (controller type field in describe) 
packed record 

b7, b6, b5, b4, b3: boolean; 

SLibsetSO ; boolean; 

multiport : boolean; 

multiunit : boolean ; 
end; 

sva_type = {single-vector address (6 bytes)) 

packed n^cord 

utb: 5.ignedl6; fupper two bytes) 

Ifb: integer; {lower four bytes (all we manage internally)) 
end ; 



desc ribe_t ype = {info rei 
packed record 



iu: 


5ignedl6; 


mit 


: 5ignedl6; 


ct : 


ct_type; 




{UNIT 


dt: 


siqnedS; 


dn; 


unsgn24; 
: ^ignedl6; 


nbpC 


nbb 


unsgnS; 


rbs 


unsgnS; 


bloc 


ktime: siqnedl6; 
: signedlb; 


cat r 


ort 


signedlS; 


at p 


signedlS; 


mif 


ur.sgnS; 


f vp . 


ursg.iS; 


rvb: 


unsgnS; 




{VOLUME 


maxcadd; uriS9n24; 


maxhadd : unsgnS ; 


maxsadd : signedl6 ; 


maxs 


vadd : sva t ype ; 


cur rentif : unsqnS ; 


end ; 





urned by describe of unit other than controller) 

{CONTROLLER DESCRIPTION FIELD) 

{installed unit word: 1 bit per unit) 
{max instantaneous xfr rate (Kbytes)) 
{controller type) 
DESCRIPTION FIELD) 

{generic device type) 
(device number (6 BCD digits)) 
(# of bytes per block) 
{tt of blocks which can be buffered) 
{recommended burst size) 
{block time in microseconds) 
■fcontinLous avg xfr rate (Kbytes)) 
{optimal retry time in centiseconds) 
{access t ime parameter in centiseconds) 
{maximum interleave factor) 
(fixed volume byte: 1 hit/volume) 
{removeable volume byte: 1 bit/vol) 
DESCRIPTION FIELD) 

(maximum cylinder address) 
{maximum head address) 
{maximum sector address) 
{maximum single-vector address) 
{current interleave factor) 
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118:0 

119:D 

120:0 

121:0 

122:0 

123:0 

124:0 

125:0 

126:0 

127:S 

128:0 

129:0 

130:0 

131 :D 

132:D 

133:0 

134:0 

135:0 

136:0 

137:0 

138:0 

139:0 

140:0 

141:0 

142:0 

143:0 

144:0 

145:0 

146:0 

147:0 

143:0 

149:0 

160:0 

ISl :0 

152:0 

163:0 

154:0 

155:0 

156:0 

157:0 

158:0 

159:0 

160:0 

161 :0 

162:0 

163:0 

164:0 

165: 

166: 

167: 

16 

16 

170; 

171: 

172: 

173: 

174: 

175: 

176: 

177: 
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evu_type = {encoded volume/unit [1 byte) - status & copy commands) 
packed record case integer of 

0: (vvvv: un5gn4: {volume number) 

uuuu: un5gn4); (unit number} 
1: (evu_byte: signedS); {for -1 test) 
end; 



errorbit_ 
( 



type - {error bit assignments in status & status mask) 

{REJECT ERRORS FIELD) 
ebO, 
ebl, 

channel_parity_error , 
.'•i3, 
eb4, 

illeqal_opcode, 
module_3ddressing, 
address_bounds, 
parameter_bound5 , 
i]legal_paramete r , 
message^sequence , 
ebll, 

me5sage_length, 
ebl3, 
ebU, 
ebl5, 

{FAULT ERRORS FIELD) 
ebl6, 

cross_unit , 
ebI8, 

cont roller_f ault , 
eb20, 
eb21 , 

unit_f ault , 
eb23, 

diagnostic_result, 
eb25, 

operator_release_requifed, 
daagnostTc_reIease_reqijired , 
internal_maintenance_required, 
eb29, 

power_f ail , 
ret ransmit , 

{fiCCESS ERRORS FIELD) 
illegal_pa rallel operation, 
uninitialized^mecJia, 
no_spare5_avaTlable, 
not_ready, 
write_protect , 
no data_fourd, 
eb58, 
eb39, 

unrecoverabIe_data_overf low, 
unrecoverabIe_data, 
eb42, 

end_of_file, 
end_of_volume , 
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!78:D 
179:D 



II 

181: 

182 

183 

184 

185: 

188: 

187: 

188 

189: 

ISO: 

191: 

192: 

193: 

194: 

195:0 

196:0 

197:0 

198:D 

199:0 

200 :D 

201:0 

202:0 

203:0 

204:0 

205:0 

206:0 

207:0 

208:0 

209:0 

210:0 

211:0 

212:0 

213:0 

214:0 

215:0 

216:0 

217:0 

218:0 

219;D 

220:D 

221:0 

222:0 

223:0 

224 :0 

225:0 

226:0 



eb45, 
eb46, 
eb47, 

{INFORflflTION ERRORS FIELD) 
operator^request, 
diagnostTc_reque3t , 
internal_maintenance_request , 
media_wear , 
latency induced, 
eb53, 
eb54, 

auto sparing invoked, 
eb56, 

recoverable_dat a_ove rf low, 
marginal data, " 
recovera51e_data , 
eb60, 

maintenance_t rack_over flow, 
eb62, 
eb63 



Stat us_mask_type = 

packed array [errorbit_type] of boolean; 



statu5_type = 
packed record 

{lOENTIFICHTION FIELD) 
current vu: evu_type; 
requesting unit: slgnedS; 

{ERROR REPORTING FIELDS) 
errorbits: status mask type; 

{PRRPMETER FIELD) 
case integer of 

{positive cases correspond to error bits) 
-1; (nta: sv3_type; 

faultlog: integer); 
-2: (aaa: sva_type; 
afl: integer); 
17: fuee: packed array[l. 
24: (dor: packed arrayil. 
38: (ta: sva^type): 
41 : ( bba : sva type) ; 
48 . . 50 : (urr: packed array[1..6] of signed 
58: ibtbs: 5va_type) ; 
59 : ( rba : sva_type) ; 



.6] of signedS) ; 
.6] of unsgn8) ; 



end; {case) 



{current volume/unit) 
(unit requesting service) 



{new target address) 
{fault log) 

{affected area address) 
{affected field length) 
{units experiencing errors) 
{diagnostic results) 
{target address) 
{bad block address) 
{units requesting release) 
{block to be spared) 
{recoverable block address) 
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221 


D 


228 


D 


229 


D 


230 


D 


231 


D 


232 


D 


233 


D 


234 





235 


D 


236 





237 


S 


238 


D 


23 9 





240 


D 


241 


D 


24 2 


D 


24 3 





244 


D 


245 


D 


246 


D 


24 7 


D 


248 


D 


24 9 


D 


260 


D 


261 


D 


2S2 


D 


263 


D 


254 


D 


255 


D 


256 


D 


267 


D 


263 


D 


25 3 


D 


260 


D 


261 





262 


D 


26 J 


D 


264 


D 


265 


D 


263 


D 


267 


D 


265 





269 


D 


270 


D 


271 


D 


27 > 


D 


27 3 


D 


274 


D 


27i 


D 


276 


D 


27 f 


D 


273 


D 
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t_type = ('T' parameter in SET_RELEnSE) 

( aIlow__relea5e_t imeout . {power-on default) 

suppres5_relea5e~t imeout ) ; 

z_type = <';:' parameter in SETRELEflSE) 

(disable _auto_release , {power-on default) 

enable__auto_ re lease i ; 



CMD_type - {enumi 
(CnDiocate_and._re.-id 
CnDlocate_and_ver 
CMDcopy data 
CI-ID12 

Ct1D5et_addres5_lV 
CnD20 

CnOset length 
CM028 

Cn05et_unit 
cnD5et_unit_4 
CMD5et_unit_8 
ChDset_unit 12 
CnDinlt_utiT_NEn 
CnOno_op 
Cn05et_opt ions 
CMOset burst I.BO 
CnOset_vol_0 
CnD5et_vo]_4 
CUDset ret add mode 
CM076 

cnoso 

CI1084 
CnD88 
CnD92 
CMD96 

cnoioo 

CnD104 
CMD108 
Ct1D112 

cnDiie 

CMD120 

CnD124 



erated opcodes for 
CMDl 
CMOS 
CnD9 

cnDrequest_st at us 
CnD5et_addres5_3V 
Ct1D21 
CM025 
Cn029 

CMOsetunit^l 
CnD5et_unit_5 
CI1Dset_unit_9 
CMDset_unit 13 
CMOinit_utiT_l?En 
CnDdescribe 
CMOset_rps 
CM05et_burst_fiBT 
Cn05et_vol_l 
CnDset_vol_5 
ChDwrite fTle mark 
CriD77 
Ct1D81 
Ct1D85 
CriD89 
CMD93 
CMD97 
CMDIOI 

cnoios 

CMOIOS 
CnD113 
CMDl 17 
CMDISI 
CnD12S 



CnD128 {the field width is forced to 

const 

t ranspa retit^sec - 18; 
command_5ec = 5; 
execution_sec = 14; 
repor ting_5ec = 16; 



device commands) 
CMDlocate and wrt 
CMDspare ElocF 
criDcold_Toad_read 
CMDrelease 
CMDset block disp 
Cn022 
Cn026 
CnD30 

CI1Dset_unit_2 
Ct1Dset_unit_3 
Ct1D5et_unlt_10 
crlDset_unit 14 
CMDinit util SEM 
CM054 

Cn05et_retry_time 
CMDset^st atus_mask 
CnD5et_vol_2 
CMDset_vol_6 
CriDunload 
CnD78 
CnD82 
CnD86 
CMD90 
CriD84 
C'^D98 
C;-D102 
CriOlOe 
cnoiio 

CMDl 14 

CM0H8 

CnD122 
CnD126 
bits for packing con 



CMOS 
CnD7 

cnDii 

CMDrelease denied 
CHOI 9 
CMD23 
CnD27 
CnD31 

CMD5et_unit_3 
CMDset_unit_7 
CMDset^unit^U 
CMDset_unit_15 
CMOinit_diaqnostic 
CMDinit_media 
CnDset release 
CnD63 

CMDset vol 3 
CMDset~vol~7 
Cn07S 
CnD79 
CM083 
Cf1087 
CMD91 
CnD95 
CMD99 
CMDl 03 
CMD107 
CMDl 11 
CMDUS 
ChD119 
CMDl 23 
CMDl 27 
siderations) ); 
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[Re 


27!) 


:D 


280 


:D 


281 


:D 


28;' 


:D 


28 1 


:D 


284 


:D 


28', 


:D 


28B 


:D 


28' 


:D 


28ii 


:0 


280 


:D 


290 


:D 


29; 


:D 


29;; 


:D 


29;i 


:D 


294 


:D 


29!. 


:D 


296 


:D 


297 


:D 


29!! 


:0 


299 


:D 


300 


:D 


301 


:D 


30? 


D 


30'f 


D 


304 





30'-. 


D 


30( 


D 


307 


D 


308 





309 


D 


310 


D 


311 


D 


312 


D 


313 


D 


314 





315 


D 


316 


D 


317 


D 


318 





319 


D 


32C 


D 


321 


D 


322 


D 


323 


D 


324 


S 


326 





326 


D 


327 





328 





329 





330 


D 
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er rorbits_owning_parmfield = {errorbits which set the parameter field) 



{REJECT ERRORS FIELD) 
ebO, 
ebl, 
eb3, 
eb4, 
ebll, 
ebl3, 
ebl4, 
ebl5, 

{FRULT ERRORS FIELD} 
ebl6, 

cross unit, 
ebl8, 
eb20. 
eb21, 
eb23, 

diagnostic result , 
eb25, 
eb29, 

{fiCCESS ERRORS FIELD) 
eb38, 
eb39, 

unrecoverable data, 
eb42, 
eb45, 
eb46, 
eb47, 

{INFORMfiTION ERRORS FIELD) 
operator request, 
diagno5tTc_request , 
internal_maintenance_request , 
eD53, 
eb54, 
eb56, 

marginal data, 
recovera5"le_dat a, 
eb60, 
eb62, 
eb63 



(unknown, 
{unknown, 
{unknown, 
{unknown , 
{unknown, 
(unknown, 
(unknown, 
{unknown. 



but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed} 

but assumed) 



{unknown, but assumed) 



but assumed^ 

but assumed) 

but assumed > 

but assumed) 

but a5sumed> 

but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed) 

but assumed) 




(unknown , 
(unknown , 

(unknown, 
(unknown, 
( unknown , 
(unknown, 



(unknown, but assumed 
(unknown, but assumed 
(unknown, but assumed 



(unknown, but assumed 
(unknown, but assumed 
( unknown, but assumed 



errorbits^request ing_release ^ (errorbits which request release) 

(48) operator request, 

(49 > diagnostTc_reqLjest, 

(50 ) internal_maintenance_reque5t 
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331 ;D 

332;D 

333:S 

334:3 

335:S 

336:S 

337 :S 

338:D 

339:D 

340 :D 

341:0 

342:0 

343:0 

344:0 

345:0 

346:0 

347:0 

348:S 

349:S 

3S0:S 

351:3 

352:3 

353:3 

354 :D 

355; 

358: 

357: 

358: 

359: 

360: 

361: 

362:0 

363:S 

364:5 



365 
356 
367 
368 
369 
370 
371 
372 
373 
374 
37S 
376 
377 
378 



1 Spaces 

< 

NOTE: 



f unctio 
f unctio 
f unctio 
f unctio 
f unctio 
f unctio 
f unctio 
f unctio 
f unctio 



the following functions each perform a COHPLETE transaction. They: 

issue a (device or transparent) cormand (Command message) 

transfer data if applicable (E'^ecutior message] 

return the resulting QS'fll (Reporting message) 



chan_indep_clr 
set_ijnit 
set_unit vol 
St at ys 

n release 
desc ribe 
5et_ release 
set_options 

n set 



(uep: 
(uep: 
(uep: 
(uep: 



uep_type) 

:p_'ype; 

:p_type) 
uep_type; 
(uep: uep_type; 
(uep: uep_type; 
iuep: uep_type; 



unsgn8; 
unit: unsgn4): unsgnS; 

unsgn8; 
var status_bytes : st atus_type) : unsgnS; 
unit: unsgn4) : unsgnS; 

var describe_byte5 ; describe type): unsgn8 
'" ^_type; Z'- z„typel: unsgnj 



(uep: uep_type; opt ions_byte: unsgn8): unsgnB: 



.statu5_mask (uep: uep_type; statu5_ma5k: st atu5_maslc_type ) : unsgnS; 



NOTE; The following routines do not, in themselves, perform a complete 
transaction. They provide some of the messages necessary for 
transactions which are broken apart to allow overlapped transfers. 



procedure ICuvalc 
function qstat 



uep; 

uep: 



uep_type, address, len: 
uep_typ^' unsgn8: 



integer; cmd : CMO_type); 



1 implement <CS80) 



1 var 

-20 1 mo5t_recent_5tatus : 5tatus_type; <for post-mortem diagnostic purposes only!!!) 

1 function qstat (uep: uep_type): uns^nS; 

receive 3 REPORTING message 
return the QSTRT byte 

2 > 

2 var 

2 qstat byte: <the 1 byte in the reporting message) 

2 pacFed record 

2 b: unbgn8; 

-2 2 end; 

2 begin (qstat) 

2 HPIBshort_msge_in(uep, report ing_sec, addr (qstat^byte) , sizeofCqstat byte)); 

2 qstat := qstat_byte .b ; 

2 end; (qstat) 



Pascal [Rev 


3.0M 


379:0 


-20 1 


380:3 




381:0 


1 


382:5 




383:3 




384:3 




38S;D 


2 


386:0 


2 


387:D 


2 


388:0 


2 


389:0 


2 


390:0 


2 


391:0 


-2 2 


392:C 


2 


393:C 


2 


394 ;C 


2 


395:C 


2 


396:C 


2 


397;C 


2 


398;C 


2 


399:3 




400:3 




401:0 


1 


402:3 




403:3 




404:0 


2 


405:0 


2 


406:0 


2 


407:0 


2 


408:0 


2 


409:0 


-2 2 


410:C 


2 


411;C 


2 


412;C 


2 


413:C 


2 


414:0 


-20 1 


415:0 


-20 1 


416:0 


1 


417:3 




418:S 




419:0 


2 


420:0 


2 


421:0 


2 


422:0 


2 


423:0 


2 


424:0 


2 


425:D 


-2 2 


426;C 


2 


427:C 


2 


428:C 


2 


429;C 


2 


430:C 


2 
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function chan_indep_clr (uep; ueD_t ype) 
{ 

issue the CHANNEL INOEPENDENT_CLEPR command 
return the QSTPlT Eyte 

var 

cic: (the 2 bytes in the channel inideperdent clear command message) 
packed record 

setunit: CMD_type; 
ci_clr : unsgnS; 
end; 
begin {chan^indep clr> 

cic . set unit := Cf1D_t ype(5ignedl6(i:ri0set_unit_0) + uep'^.du); 
cic.ci_clr ;= 8; 

HPIBshort msge_out (uep, t ransparent_5ec , addr[cic), 5izeof(cic)); 
HPIBwait_for ppol(uep); 
chan_indep_cTr := q5tat(uep); 
end; {chan_indep_cl r > 

procedure ICc (uep: uep__type; cmd : CMD_type) ; 

Issue the specified command 

var 

c: {the 1-byte command message) 
packed record 

cmd: Cno^type; 
end : 
begin <ICc) 
c .cmd := cmd; 

HPIB5hort_m59e_out (uep, comma nd_sec , addr(c), sizeof(c)): 
end; {ICc) 

procedure I Cue (uep: uep_type ; unit: unsgn4; cmd; CMD^t ype) ; 

issue the specified SET UNIT & command 
) 
var 

uc : (the 2-byte command mes5age) 
packed record 

setunit: cno^type; 
cmd: cnD_type; 
end; 
begin (iCuc) 

uc. set unit := CnD_t ype (signedl 6 [CMOse t_unl t_0 ) + uni t ) ; 
uc.cmd ;= cmd; 

HPIBshort_msge_out (uep, comma nd_sec, addr(uc), 5izeof(uc)); 
end; {ICuc) 
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431:0 
43? :D 

433 ;0 

434 :S 
436:3 
436 :S 



437: 

438: 

439: 

440: 

441 : 

442: 

443: 

444: 

446: 

446: 

447: 

448: 

449: 

450: 

451 : 

452: 

453:C 

4S4:C 

45i:S 

456: 

457 

456: 

459: 

460: 

461 : 

462: 

463 

464: 

465: 

466 :C 

467 :C 



466 
469 
470 
471 
47? 
473 
474: 
47S 
476: 
477 
478; 
479: 
480: 
481: 
482; 



3.0M li/ 4/84] CSS 
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1 function set^unil (uep: uep^type; unit: unsgn4): unsgn8; 



( 



Issue the SET UNIT command 

return the QSTflT byte 
) 
begin {set_unit) 

ICc(uep, cnD_type(5i9nedl6(Cn05et_unit_0)»unit)) 

HPIBwait_for_ppol (uep) ; 

set unit := qstat (uep) ; 
end; Tset_unit> 



unsgnS; 



1 function 5et_unitvol (uep: uep_type) 

issue the SET UNIT & SET_VOLUME commands 
return the OSTPT byte 

2 ) 

2 begin f set_unitvol > 

2 lCuc(uep, uep'.du, CnD_t ype ( signedie (CMD5et_vol_0)*uep".dv) ) ; 

2 HPIBwait_for_ppol(uep): 

2 set unitvol := q£tat(uep); 

2 end; T5et_unitvoI > 

1 function status(uep: uep^type; van 5tatus_byte5 : status_type) : unsgnB; 

issue the RECIUEST_STflTLIS command 

place the 20 bytes of status in the passed variable 'st atus^bytes' 

return the QSTPT byte 

2 > 

2 begin {status) 
2 ICc(uep, cmrequest^status); 
2 HPIBwait_for_ppoI(uep) ; 
2 HPIBshort_msge_in (uep, execution_sec , addr (st atus_bytes J , sizeof (5tatus_bytes 
2 most_recent_stat us := st at U5_byte5; {for post-mortem diagnostic purposes onl 
2 HPIBwait_for_ppol(uep) ; 
2 status := qstat ( uep) ; 
2 end; {status) 



y!ll) 



1 function release(uep: uep_type: unit: unsgn4) 

SETJNIT S issue the RELEfiSE command 
return the QSTRT byte 

2 > 

2 begin (release) 

2 ICucjuep, unit, CflDreiease); 

2 HPIBwait_for_ppol(uep) ; 

2 release := qstat (uep); 

2 end; {release) 



unsgnS; 
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[Re 


483 


D 


484 


S 


486 


D 


486 


S 


487 


S 


488 


S 


48S 


S 


490 


D 


491 


C 


492 


C 


493 


C 


494 


c 


495 


c 


496 


c 


497 


c 


498 


s 


499 


s 


SOC 


D 


501 


D 


502 


D 


503 


D 


504 


D 


506 


D 


506 





507 


D 


508 





509 





51C 


C 


511 


C 


512 


C 


513 


C 


614 


C 


516 


C 


516 


C 


517 


C 


518 


C 


519 


C 


520 


s 


521 


s 


622 


D 


523 


D 


524 


D 


525 


D 


526 


D 


527 


D 


628 


D 


629 


C 


530 


C 


531 


C 


532 


C 


533 


c 


534 


c 


535 


c 
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1 



"unction describe (uep: uep^type; van describe^bytes : describe_type) : unsgnS; 

issue the DESCRIBE command 

place the 37 bytes of description in the passed variable 'describe_byte5' 

return the QSTRT byte 
> 
begin {describe > 

iCc{uep, cnodescribe) ; 

HPIBwait for_ppol[uep); 

HPIBsho rt m5ge_in (uep . execut ion_sec, addr (describe_bytes) , sizeof [describe_byte5) ) ; 

HPIBwai t_Tor_ppol (uep) ; ~ 

describe := qstat(uepj; 
end; (describe) 

"unction set^releasefuep: uep__type; t: t_type; z: z_type ) : unsgnS; 
var 

sr; {the 3 bytes in the SET__UNIT & SET_RELEflSE command message} 
packed record ~ 

set unit : CUD^t ype ; 
setrel: CnO_type; 
Tbit : t type ; 
Zbit : z^type ; 
pad: 0. .63; 
end ; 
begin {set^release 



r . setunit 
5 r . setrel 
sr.Tbit 
s r . Zb i t 
5 r . pad 



= CriDset_unit_15; {always addressed to the controller) 
CnDset_release; 
t : 



z ; 

:= 0; 
HPlfeshort m5ge_out{uep, cormand_sec, addr(5r), 5izeof(sr)); 
HPIBwait__To~_ppol(uep) ; 
■jet. release T= qstat(uep); 
end ; {set^release) 



1 '"unction set optiDns(uep: uep type; option5_byte : unsgnS): unsgnS; 

2 var 

2 so: (the 2 bytes in the SET_OPTIONS command message) 

2 packed record 

2 setoptn: criD_type; 

2 ob : unsgnS ; 

2 end; 

2 begin (set^options) 

2 50. setoptn := CflDse t_opt ions ; 

2 so. Ob :- opt ions_byte; 

2 HPIBshort msge__ouT (uep, comnand sec, addr(so), sizeof(so)); 

2 HPIBwait_7or_ppol[uep) ; 

2 set options := q5tat(uep); 

2 end; Tset_opt ions) 
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SpageS 
function 5et_51 al us^mask (uep : uep_type; status_mask: 5tatu5_mask_t ype) : unsgnS; 



536 -.D 

537:S 

538:D 

539:" 

540: 

541 : 

542: 

543: 

544: 

545: 

546: 

547: 

548: 

549: 

550: 

551: 

552: 

553: 

554: 

55S: 

556: 

557: 

558 :S 

559 :S 
560:5 
561 :S 
562:3 

563 :S 

564 :D 

565 :D 
666 :D 
567 :D 
568:0 
569:0 
570:0 
571 :0 
572:0 
573:0 
574:0 
575:0 
576:0 
577:0 
578;C 
S79:C 

580 :C 

581 :C 

582 :C 
583:C 

584 :C 

585 :C 

586 :C 

587 :C 

588 ;C 
589:C 

590 :C 

591 :S 
S92:C 



ssm: {1he 10 bytes in the SeT_STflTUS_MflSK command message) 
packed record 
nop: CMC type; 
setstsmsF: CnD_type; 
stsmsk: status mask_type; 
end; ~ 

begin {set_b1 at us_mask> 
ssm. nop := CMDno_op; 

ssm. setst smsk := CMDset_st atus_mask ; 
ssm.stsmsk := status_mask; 

HPIBshort msge_out (uep, corrttiand_sec , addr(ssm], sizeof ( ssm) ) ; 
HPIBwalt_Tor_ppol (uep) ; 
set status_mask ;= qstat[uep); 
end; 7sel_status_mask) 



1 procedure ICuvalc(uep: uep_type; address, len: integer; cmd : CMD_type) 

issue the following command sequence: 

SET UNIT (u) 

SET VOLUME (v) 

SET BDDRESS ai 

se:t~length (d 

specified COntlfiNO (c I 



> 
van 



vale: (the 17 bytes in the command message) 
packed record 



setunit : cnD_type; 

setvol: CMD_type; 

nopl: CfID type; 

set add: CRO_type; 

svs: sva type; 

nop2: CMtJ type; 

setlen: cnD_type; 

length: integer; 

cmd: cnD_type; 
end; 
begin <ICuvalc) 
uvalc . setunit 
uvalc . setvol 
uvalc . nopl 
uvalc . setadd 
uvalc . sva. utb 
uvalc . sva. Ifb 
uvalc . rop2 
uvalc . setlen 
uvalc . length 
uvalc.cmd 

HPIBshcrt msge_out(uep 
end; (ICuvalc) 



(set bnit ) 

{set volume) 

(nop) 

(set address) 

(single vector addre 

(noo5 

(SfM length) 

(length) 

(specified cormand) 



= CriD_type(signedl6(CnD5et_unit 0) tuep'.du) ; 

= CMD_type(signedl6 (CnD5et_vol_^)+uep^ .dv) ; 

= CMDno_op; 

= CMDset address IV; 

= 0; 

= address; 

= CnDno_op; 

= Cn05et_length: 

= len; 

= cmd; 

corrvnand^sec , addr(uvalc), sizeof [uvalc ]) : 



1 end; (CS80) 
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593:0 
594 ;S 
595:0 
696 :S 
597:0 
598:0 
599 :S 
600:0 



601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614:0 

615:C 

ei6:C 

617:C 

618:C 

619:C 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 



Driver Support Routines) 



1 import 

1 sysglobals, bkgnd, tapebuf, CS83; 

1 export 

1 procedure invalidate_stateinfo (uep: uep_type); 

1 procedure hardle_bad__status [ uep; uep_type; ok_to_conf ig : boolean; var ret ry_required : boolea 

1 procedure cor figure (uep : uep_type); 

1 implement (CSSCdsr) 



1 procedure invalidate_stateirifo (uep . uep_type); 

2 var 
lun: unitnum; 
scanner^uep: uep_type; 

begin (invalidaf e_stateinfo) 
for lun := 1 to maxunit do 
begin 

scanner_uep := addr ( unitabie^Clun] ) ; 
if (scanner_uep^ . let ter= 'Q ■ ) and 
{ scanner^uep"^ . sc = uep" sc) and 
1 scanner_uep" ,ba = uep".ba) and 
4 (scsnner_uep^ .du = uep" du) 

4 (dor't qualify dv becau<ie all volumes PRE affectedl) 

4 then (invalidate all CS80 state infol) 

4 begin 

4 5canner_uep" . umediavalid := false; 

4 sc5nner_uep" .dvr temp2 := -1; 

4 if scanner_uep=t apebuf_ uep then 

5 tapebuf state := undefined; 
4 end; (if) " 

3 end; (for) 
2 end; (invalidate_stateinfo ) 



(media possibly changed) 
(block size possibly changed!) 
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633:D 1 Spagel 

634 :S 

635:D 1 firocedure handle bad status(uep: uep type; ok to config: boolean; var ret ry_required : boolean) 

$36 :D 2 " ~ 

637:0 2 var 

638:D -2 2 iorval To_report: iorsltwd; {to hold the first reportable error) 

639:0 -4 2 wor king_io rval : iorsltwd; (cleared each time status is read) 

640:D -24 2 st a tu3_byt es : status type; 

641:0 -28 2 eb_scanj par ameter_fTeld owner : er rorbit_type; 

642:0 -29 2 reconfiguration needed: boolean; 

643:0 -29 2 

644:C 2 begin {handle„bad_status) 

645 :C 2 

646:C 2 iorval to report := inoerror; 

647 : C 2 

648:C 2 repeat 

649 :C 3 

6S0:C 3 if status[uep, status bytes)<>0 then 

6S1:C 4 iorescbkqnd(uep, zFadhardware); 

6S2:C 3 

653 :C 3 working_iorval := inoerror; 

654:C 3 paramete r_f ield^owner := channel_parit y error; {doesn't REALLY own itl> 

65S:C 3 reconfiguration needed := false; 

656 :C 3 

657:C 3 for eb_scan := eb63 downto ebO do 

6S8:C 4 if status_byt€5.errorbit5[eb_scan] then 

659:C 5 begin 

660 :S 

661:C 5 if eb_scar in errorbit 5_owning_parmf ield then 

662 : C 6 par ame t e r fie ld_owne r : = eb_sc a n ; 

663 :S 

664 :C 5 ca^e eb__scan of 

665 :S 

666:C 6 {specific fatal errors) 

S6'f' : r 6 channel parity error, 

668 ' 6 cont rolTer_fauTt , 

669-: 6 unit_fajlt. 

670:C 6 diagnost ic_result : 

671 :C 6 working_iorval := zbadhardware ; 

672;C 6 illega l_opcode , 

673:C 6 parame te r__bounds , 

674:C 6 illegal parameter: 

$75 : C 6 woriring_iorval := zbadmode; {some cmds optional in SS/80) 

676 : C 6 modu le^addressing ; 

677:C 6 wor king_io rval := znodevice; 

$78:C 6 addre5s_bound5, 

679:C 6 end_of_voIume : 

680:C 6 wor kin9_iorval := znosuchblk; 

681:C 6 uninit ial ized_media : 

682:C 6 if st at U5_bytes . er ro rbit s [powe r_fail] 

683:C 7 then {probably an uncertified tape; allow access anyway) 

684:C 7 else working^iorval := zuninit ialized ; 

685;C 6 no_spares_ava liable : 

686;C 6 working_iorval ;= zinitfail; 

687:C 6 not_ready: 

688:C 6 worki ng_iorval := znotready; 

689:C 6 wri t e_protect : 

690:C 6 working iorval := zprotected; 

691:C 6 no data found, 

692:C 5 &r\'^__of_fils: 
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working iorval := znoblock; 
unrecoverabTe_dat a_overf low, 
unrecoverable_data: 

working_iorval := zbadblock; 

{power fail ) 
power_fail; 
begin 

invalidate_5tateinfo (uep) ; 
if uep" . ureportchange then 

worKing_iorval := zmediumchanged; 
reconfigurat ion__needed := true; 
ret ry_requi red T= true; 
end ; 

{retryable errors) 

operate r release_requi red, 
diagnostTc_release_requi red, 
internal^mainten3nce_required, 
ret ransmTt : 

ret ry_reqijired ;= true; 

{errors indie at ing release requested) 
operator_^reque5t , 
diagno5tTc_request , 
internal_maintenance_reque5t : 

{do nothing here; release below if parmeter field owned); 

{errors indicating reconfiguration needed) 

media_wear, ^supposed to be masked out) 

latency_induced, (supposed to be masked out) 

eb53, {supposed to be masked out> 

eb54, (supposed to be masked out) 

auto sparing invoked, (supposed to be masked out) 

eb567 " (supposed to be masked out) 

rpcoverable_data_overf low, (supposed to be masked out) 

marginal data, {supposed to be masked out) 

recovera5'le_data, {supposed to be masked out) 

eb60, (supposed to be masked out) 

main tenance_t rack_overf low, (supposed to be masked out) 

eb62, {supposed to be masked out) 

eb63 : {supposed to be masked out) 
reconfigurat ion_needecl := trje; 

{errors not covered by the above cases) 
othe rwise 

{ specifically including: 
mesS3ge_sequence , 
mes-sage^leng th, 
c ro55_ur!'it , 

1 llegal_parallel_oper at ion ) 
working_iorval := zcatchall; 

end; (case) 

end; {if) 



693:C 


6 


694 :C 


6 


695 :C 


6 


696 :C 


6 


697 :S 




698:C 


6 


699 :C 


6 


700 :C 


6 


701:C 


6 


702:C 


6 


703:C 


7 


704 :C 


6 


705 ;C 


6 


706 ;C 


6 


707:S 




708 :C 


6 


709:C 


6 


710;C 


6 


711 :C 


6 


712:C 


6 


713;C 


6 


714:S 




715:C 


6 


716:C 


6 


717:C 


6 


718;C 


6 


719:C 


6 


720 :S 




721:C 


6 


722 :C 


6 


723 :C 


6 


724 :C 


6 


726 :C 


6 


726 :C 


6 


727 :C 


6 


728 :C 


6 


729 :C 


6 


730 :C 


6 


731;C 


6 


732 :C 


6 


733 :C 


6 


734 :C 


6 


735 :C 


6 


736 :S 




737:C 


6 


738 :C 


6 


739 S 




740 :S 




741 ,S 




742 :S 




743;C 


6 


744 :C 


6 


745 :S 




746 C 


6 


747 'S 




748 ;C 


5 
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749 :C 




3 


750:S 






751 ;C 




3 


7S2;C 




4 


7S3:C 




3 


754 :C 




3 


755:C 




4 


756:C 




5 


757 ;C 




S 


758:C 




6 


759:S 






760 :C 




3 


761 :C 




4 


762 :C 




3 


763:C 




3 


764 :C 




2 


765:C 




2 


76S:C 




3 


767:C 




2 


768:C 




2 


769:S 






770:5 






771:0 




1 


772:D 




2 


773:D 




2 


774 :D 


-1 


2 


77S:D 


-2 


2 


776:0 


-3 


2 


777:0 


-40 


2 


778:0 


-40 


2 


779:0 


-40 


2 


780:0 


-40 


2 


781:0 


-40 


2 


782 :P 


-44 


2 


783:D 


-44 


2 


784:0 


-44 


2 


78S;D 


-44 


2 


786:0 


-44 


2 


737:D 


-46 


2 


788:0 


-48 


2 


789:0 


-50 


2 


790:D 


-50 


2 


791 ;D 


-50 


2 


792:0 


-50 


2 


793:0 


-50 


2 


794:0 


-SO 


2 


79S:D 


-SO 


2 


796:0 


-50 


2 


797:0 


-SO 


2 


798:0 


-SO 


2 


799:D 


-SO 


2 


800:D 


-SO 


2 


801:0 


-SO 


2 


802:0 


-50 


2 


803:0 


-50 


2 


804:0 


-50 


2 


80S.D 


-SO 


2 


806:0 


-50 


2 


807:0 


-SO 


2 


808:0 


-50 


2 
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if 2orval_to_report=inoer ror Then (none previously found; report this one) 
ior^al_to_report := working_io rval; (it can be inoerror also!) 

if parameter_field_owner in errorbits reque5ting_relea5e then 
if not (status bytes. urr[l] in [0..T5]) then 

ioresc_bkgndXLJep, zcatchaH) 
else if release(uep, status_bytes . urr [1 ] )<>0 then 

{handle the bad qstat elsewiere; worry not, the device won't forget!}; 

if reconf igur at ion_needed and o<_to_config then 
configure (uep) ; 

until set_unit [ uep, st atus_bytes .cijrrent_vu . uuuu)=0; {restore original command unit) 

if iorval to_report<>inoerror then 
ioresc_5'kgnd (uep, iorv3l_to„report ] ; 

e nd ; {hand 1 e_b ad_s t a t u s ) 

procedure configure (uep: uep_type); 

var 

e5cape_c aught : boolean ; 
5 aved_u report change : boolean; 
retry required: boolean; 
de5crTbe_bytes : desc ribe_t ype; 
bcd_prod_nufti: {within the describe bytes) 
packed record case integer of 
0: (dn: unsqn24) ; 

1: (bed: packed arr^y(1..6] of unsgn4); 
end; 
fixed volunne_byte : 

paclTed record case integer of 
0: (b: unsgnS); 

1: (bit: packed array[0..71 of boolean); 
end; 
prod_num: signedlS; 
index : signedlS; 

const 

masked = true: 
unmasked = false; 

my 5tatu5_n'iask = st at us_mask_t ype 

(REJECT ERRORS FIELD) 
ebO: 
ebl : 

channel_parit y__er ror : 
eb3 : 
eb4 : 



illegal_opcode : 
module^addressing : 

address^bounds : 
par3meter_bound5 : 
illegal^parameter : 
mess age^seque nee: 



unmasked , 
unmasked , 
unmasked , 
unmasked , 
unmasked , 
unmasked , 
unmasked , 
unmasked , 
unmasked, 
unmasked, 
unmasked , 
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809:0 


-50 


2 ( 


11 


810:0 


-50 


2 I 


12 


811:0 


-50 


2 \ 


13 


812:0 


-50 


2 < 


14 


813:0 


-SO 


2 < 


15 


814:0 


-SO 


2 




815:0 


-50 


2 < 


16 


816:0 


-50 


2 < 


17 


817:0 


-50 


2 < 


18 


818;0 


-50 


2 < 


19 


819:0 


-50 


2 { 


20 


820:0 


-SO 


2 ( 


21 


821:0 


-SO 


2 < 


22 


822:0 


-so 


2 


23 


823:0 


-so 


2 


24 


824:0 


-so 


2 


25 


825:0 


-so 


2 


26 


826:0 


-50 


2 


27 


827:0 


-50 


2 


28 


828:0 


-SO 


2 i 


29 


829:0 


-50 


2 


30 


830:0 


-50 


2 


31 


831:0 


-50 


2 




832:0 


-SO 


2 i 


32 


833:0 


-50 


2 


33 


834:0 


-50 


2 


34 


835:0 


-50 


2 


35 


836:0 


-SO 


2 


36 


837:0 


-SO 


2 


37 


838:0 


-50 


2 


38 


839:0 


-50 


2 


39 


840:0 


-SO 


2 


40 


841:0 


-SO 


2 


41 


842:0 


-50 


2 


42 


843:0 


-50 


2 


43 


844:0 


-50 


2 


44 


845:0 


-SO 


2 


45 


846:0 


-50 


2 


46 


847:0 


-50 


2 


47 


848:0 


-50 


2 




349:0 


-50 


2 


48 


850:0 


-50 


2 


49 


8S1:D 


-50 


2 


SO 


852:0 


-50 


2 


51 


853:0 


-50 


2 


62 


8S4:0 


-50 


2 


53 


855:0 


-50 


2 


64 


856:0 


-SO 


2 


55 


857:D 


-50 


2 


56 


858:0 


-50 


2 


67 


869:0 


-50 


2 


58 


860;D 


-SO 


2 


59 


861:0 


-50 


2 


60 


862:0 


-SO 


2 


61 


863:0 


-SO 


2 


(62 


864:0 


-SO 


2 


'63 


865:0 


-60 


2 
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ebll; ) 


unmasked, 






message lengt h : 


unmasked, 






ebl 3: ) 


unmasked. 






ebl4: ) 


unmasked , 






ebl5: ) 


unma5ked , 






{FAULT ERRORS FIELD) 








ebl6: 


unmasked. 


(unmaskable 


error 


cross unit : ) 


unmasked , 


{ unmaskable 


error 


ebl8: 


unmasked , 


{ unmaskable 


error 


con t roller fault : 


unmasked , 


{ unmaskable 


error 


eb20: " ) 


unmasked. 


{ unmaskable 


error 


eb21: } 


unmasked, 


{unmaskable 


error 


unit fault: 


unmasked, 


(unmaskable 


er ror 


eb23T 


unmasked. 


{unmaskable 


error 


diagnostic result : 


unmasked , 


(unmaskable 


error 


eb25: 


unmasked , 


{unmaskable 


error 


operator release required: 


unmasked , 


{unmaskable 


error 


diagnostic release required; 


unmasked , 


(unmaskable 


error 


internal maintenance required: 


unmasked. 


{unmaskable 


error 


eb29: 


unmasked, 


{unmaskable 


error 


power_fail: 


unmasked , 


{unmaskable 
{unmaskable 


error 


ret ransmit : 


unmasked , 


error 


(fiCCESS ERRORS FIELD) 








illegal parallel operatior: 
uninitialized meHia : 


unmasked. 






unmasked. 






no_5pares_avaTlable : 


unmasked. 






noT ready: 


unmasked, 






wriTe_protect : 


unmasked. 






no data found: 


unmasked, 






ebJ8: 


unmasked. 






eb39: 


unmasked, 






unrecoverable_dat a_overf low: 


unmasked. 






unrecoverable data: 


unmasked. 






eb42: 


unmasked. 






end of file: 


unmasked. 






end of volume: 


unmasked. 






eb4!^: ~ 


unmasked, 






eb46: 


unmasked , 






eb47: 


unmasked , 






{INFORMATION ERRORS FIELD) 








opc-ator request: 


unmasked, 






dlagnostic_request : 


jnmasked. 






internal_maintenarce_request : 


jnmasked. 






media_wear : 


masked. 






latency induced: 


masked, 






eb53: 


masked, 






eb54: 


masked, 






auto sparing invoked: 


masked, 






eb56T 


masked. 






recoverable data overflow: 


masked, 






marginal data: 


masked. 






recoverable data: 


masked. 






eb60; 


masked, 






maiTtenance track overflow: 


masked, 






eb62: 


masked, 






eb63: 


■ masked 
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866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
863 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 



900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921:C 

922 :C 

923:C 

924 :S 

925:C 



-50 
-50 



5 pages 

begin {confi'^ure) 



2 with uep" do 

3 begin 

3 escape^c augh t := false: 

3 saved_Ljreportchange ;- urepo r tch.^jnge ; 

3 try 

4 urepor Ichange := false; {NEVER report media change while in configure) 

4 {configure the control unit} 

4 repeat 

5 re t r y_requi red := false; 

5 if set release(uep, allow release_t imeout , di5able_auto_release)<>0 then 

6 hardTe_bad_status (uep, Talse, ret ry_required) ; 
5 until not ret ry_requi red; 

4 repeat 

5 retry^requi red := falsn; 

5 if set St at us_ma5k ( uep, my^stat us_mask)<>0 then 

6 handTe_bad_statu5 ( uep, false, ret ryrequired ) ; 
5 until not ret ry_required ; 

4 {configure the required unit) 

4 repeat 

5 ret r vrequi red := false; 

5 if cnan_indep_clr [uep}<>0 then 

6 handle_bad_3tat us (uep, false, ret ry_required) ; 
5 until not ret ry_requi red; 

4 repeat 

5 retry_requi red := false; 

5 if set unit vol (uep) <>0 then 

6 handTe_bad_5tatus (uep, false, ret ry_required) ; 
5 until not ret ry_required; 

4 repeat 

5 ret ry_re9ui red ;= false; 

5 if describe (uep, describe bytesJoO then 

6 handle„bad_statu5 [uep, Talse, ret ry_required ) ; 
5 until not ret ry_required; 

A with descr ibe_bytes do 

5 begin 

5 bed prod_num.dn := dn; 

5 pro3^num := 0; 

5 for Index ;= 1 to 5 do 

6 prod_num := prod_num*10+bcd_prod_num.bcd [inde?<] ; 

5 If ( (devid<>prod_num) and (devid<>-l) ) {wrong product number) 

6 or ( dt<0 ) {car-* detect media change) 
6 then io resc_bkgnd (uep, znodevice); 

5 dvrtemp2 := 0; 
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926 

927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 



index := nbpb; 

while [index>0) and not odd(index) do 
begin 

dvrtemp2 := dvrtemp2+l; 
index := index div 2; 
end; {while) 
If indexol then {blocksize isn't a power of 2i) 

dvrtemp2 := -1; {don't panic; might be just no medium present) 

fixed_volLJme byte.b := fvb; {fixed volume byte) 
uisfixed := Tixed_volume_byte .bit [7-dv] ; 

if devid=-l then {variable-sized removeable volume; set its size) 
umaxbytes :- (maxsvadd . lfb+ 1 ) *nbpb; 

if dt=2 then {it's a tape) 

-^epeat {enable auto-jump sparing) 
ret ry requi red ;~ false; 
if set options(uep, 4 ) <>0 then 

handTe_bad_5tat us (uep, false, ret ry_required] ; 
until not ret ry_required ; 



repeat 

ret r y_required := false; 

:Lf set 5tatus_mask (uep, 
handTe_bad_5tat us ( uep, 
until not ret ry_requi red; 

end; {with) 



iy_st at us_mask)<>0 then 
false, ret ry_requi red) ; 



recove r 

escape caught := true; 
urepor tcTiange := saved_ureportchange ; 
if escape^caugh t then 

escape I escape code); 



end; {with; 
end; {configure) 
end; {CSSOdsr) 
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967:D 
9S8:S 
969:D 
970:S 
971 :D 
972:0 
973:S 
974 :D 
975:0 
976:0 



977 
978 
979 
980 
981 
982 
983 
984 
985 



990 
991 
992 
633 
994 
995 
996 
997 
99S 



1000 

1001 

1002 

1003 

1004 

1005:C 

1006:C 

1007:C 



1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017:D 

1018:D 

1019:C 

1020:C 

1021 :C 

1022:C 

1023:C 

1024:C 



import 

sysglobals, asm, mini, drvasm, bkgnd, discHPIB, tapebjf, CS80, CSSOdsr; 



1 export 



I t ype 

1 mp_type = (media parameters} 

I record 

1 tpm: integer; (tracks per medium) 

1 bpt: integer; (bytes per track) 

1 end; 

1 procedure 9et_let ter (uep: uep_type; ident : shortint; var letter: char); 

1 procedure get_parms (var devtype: byte; var devid: integer; 

2 var hardvols: shortint; var mp: mp_type); 

1 procedure CS80io(fp: fibp; request: amrequest type; 

2 anyvar buffe': window; length, position: integer); 



1 implement <CS80dvr) 

1 var 

1 CS80_devtype: byte; 

1 CS80 devld: integer; 

1 CS80_hardvol5: shortint; 

1 CS80_mp: mp_type; 



1 procedure clear_unit ( uep: uep_type); 

2 begin (clear_unit) 

2 try 

3 allocate bkgnd_info (uep) ; 
3 HPIBcheclk sc(uep); 

3 if HPIBamigo_identify(uep) div ; 

4 ioresc_bfcgnd [ uep, znodevice); 
3 configure (uep) ; 

3 deallocate_bkgnd_info(uep) ; 

3 recover 

3 abort bkgnd_process (uep) ; 

2 end; (clear_unit) 



b6<>2 then 



-16 1 ) 



procedures for CTflBLE self -configurat ion 



1 procedure get_parm5 (var devtype; byte: var devid: integer; 

2 var hardvols: =hortint; var mp; mp_type) 
2 begin (get_parms> 

2 devtype := CS80_devtype; 

2 devid := CS80 devid; 

2 hardvols := C^80_hardvol5 ; 

2 mp := CS80_mp: 

2 end; (get^parms) 
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1025:0 


-16 


1 


1026:S 






1027:0 




1 


1028:0 




2 


1029:0 


-1 


2 


1030:D 


-38 


2 


1031:D 


-38 


2 


1032:0 


-38 


2 


1033:0 


-38 


2 


1034:0 


-38 


2 


1035:0 


-42 


2 


1036:0 


-44 


2 


1037:0 


-44 


2 


1038:0 


-44 


2 


1039:0 


-44 


2 


1040:0 


-44 


2 


1041:0 


-46 


2 


1042:C 




2 


1043:C 




2 


1044 ;S 






1045 :C 




2 


1046:C 




3 


1047;C 




3 


1048:C 




4 


1049 :C 




3 


10SO:S 






1051 :C 




2 


1052 :C 




3 


1053 :C 




3 


1054 :C 




4 


1055:C 




3 


10S6:S 






1057 :C 




2 


1058 :C 




3 


1059:C 




3 


1060:5 






1061 :C 




3 


1062:C 




3 


1063:C 




3 


1064 :C 




4 


106S:S 






1066:0 




3 


1067:C 




3 


1068:C 




3 


1069:C 




4 


107O:S 






1071:C 




3 


1072 :C 




4 


1073:C 




4 


1074:C 




4 


107S:C 




5 


1076:0 




S 


1077:C 




4 


1078:3 






1079:C 




3 


1080:C 




2 


1081 :C 




2 
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procedure get_letter( uep: uep_type; ident: shortint; var letter: char); 
var 

ret ry_^requi red: boolean; 
descrTbe^bytes : describe_t ype; 
bcd_prod_num: {within the describe bytes) 
packed record case integer of 
: (dn : un59n24) ; 

1: (bed; pacfeed array[l.,6] of unsgn4); 
end; 
index: signedlS; 

volumes, byt e: {with the describe bytes) 
packeiJ record case integer of 
0: (vb: unsgnS) ; 

1: (bools: packed array^O. .7] of boolean); 
end; 
begin {get__letter } 

uep"^ . u reportchange := false; {don't report media changes/power-on now!!l) 

repeat {cmd w/o execution msge avoids escape if in power-on holdoffl) 

ret ry._requi red := false; 

if sef unitvol ( jep)<>0 then 

handTe_bad_5t atus(uep, false, retry_required]; {don't configure]]!) 
until not ret ry_requi red; 



{don' t configu rel i ! ) 



repeat 

ret r y^requi red := false; 

if describe (uep, describe bytes)<>0 then 

handle_b3d_st atus(uep, Talse, retry_required); 
until not ret ry_requi red ; 

with de5cribe_bytes do 
begin 

CS80_devt ype := dt ; 

bed prod num.dn := dn; 

CS85_devid := 0; 

for Tndex ;= 1 to 5 do 

CS80_devld := CS80_„dev id* 10+bcd_prod_num. bed [index] ; 

volume5_byt e . vb := fvb + rvb; 
CSSO^hardvols := 0: 
fo r Tndex := to 7 do 

CS80_hardvols := CS80_hardvols+ord{volumes_byte .bools [index] ) ; 

with CS80_mp do 
begin 

tpm ;= (maxcadd+1 ] * (maxhadd+1 ) ; {tracks per medium) 
if tpm=l {only single -vec to r addressing info given) 
then bpt := (maxsvado . lfb+1 )*nbpb {bytes per track) 
else bpt := (maxsadd^-1 )*nbpb; {bytes per track) 

end; {with) 

end; {with) 
letter := 'Q' ; 
end ; {get,_let ter) 
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1082:D -IS 1 EpageS 

1083:S 

1 084 : S ( 

1085:S lou/-levei read/write routines 

1086:D -16 1 > 

1087 :S 

1088:D 1 procedure flagit(Liep; anyptrj; 

108?:C 2 begin (fiagit) 

1090:C 2 bip type[uep type (uep}^ -dvrtemp) "^.xf r_chain_semaphore := false; 

1091:C 2 end; {'flagit) 

1092:S 

1093:S 

1094:D 1 procedure xfr(uep: uep_type; request; amrequest type; 

109V^:D 2 bufptr: anyptr; block_addres5, length; integer); 

109f:D 2 var 

1097:D -2 2 command: CW^type; 

1098;D -3 2 ret ry_required : boolean; 

1099:C 2 begin (xfr) 

1100:C 2 aIlocate__bkgnd_info[uep) ; 

1101:C 2 with bip type fuep"^. dv rtemp)^ do 

1102:C 3 try 

1103;C 4 if HPlBamigo_identlfy(uep) dlv 2S6<>2 then 

1104 :C 5 ioresc bk9nd(uep, 2nodevice); 

110S:C 4 

1106:C 4 read_operation := [ reque5t = readbytes) or ( reque5t = st art read) ; 

1107:C 4 if read^operation 

1108:C 5 then command := ChDlocate_and_read 

1109:C 5 else command :- CnDIocate_and_wrt ; 

1110:C 4 lCuvaIc(uep, block_addres5, length, command); 

1111 :S 

1112:C 4 if lergth>0 then 

1113;C 5 begin 

1114:C 5 HPI8wait_for_ppol(uep) ; 

1115;C 5 xfr chain semaphore :- true; {merely a flag for xfr busy here) 

1116:C 5 HPl5upon_3xf r_^comp[uep, execut ion_sec , bufptr, length, flagit); 

1117:C 5 while xf r_chaTn_semaphore do 

1118:C 6 (nothing); 

1119:C 5 if ioresoinoer ro r then escape(-10]; 

1120:C S end (if) 

1121:C S else 

1I22;C 5 bdx_pre_eoi ;= false; 

1123:S 

1124:C 4 HPIBwait_for_ppol (uep); 

1125:C 4 retry^required := false; 

1126:C 4 if qstat(uep)<>0 then 

1127;C 5 handle bad_3t at us (uep, true, ret ry_requi red) 

1128:C 5 else if l3dx_pre_eoi then 

112S:C 6 ioresc bkgnd[uep, zcatchall); (unresolved premature eoi!) 

1130:S 

1131:C 4 deallocate_bkgnd_info (uep) ; 

1132:C 4 recover 

1133:C A abor t_bkgnd_proce55 (uep) ; 

1134:C 2 loresult :- uep". dvr temp; 

1135;C 2 if (ioresult<>ord( inoer ro r) ) or retry required then 

1136:C 3 escape(-lO); 

1137:C 2 end; <xfr> 



Pascal [Rev 3.0M (./ 4/84] CSSO.TEXT 26-Dec-84 21:42:04 Page 22 «»« File name: CS80 «»» 

1138:0 -15 1 SpageS 

1139:S 

U40:S 

1141:3 tapebuf manipulation routines 

1142:0 -15 1 ■■ 

1143:S 

1144:0 1 firocedure flush tapebuf; 

1146:0 2 var 

1146:0 -1 2 escape_caught : boolean; 

1147:0 -2 2 saved ureportchange : boolean; 

1148:C 2 begin (7lush_:apebuf ) 

1149:C 2 If tapebuf_5tate=modified then 

1150:C 3 with tapebuf uep'' do 

1151 :C 4 begin 

1152:C 4 e5cape„caught := false; 

11S3:C 4 saved ureportchange := ureportchange; 

1154:C 4 try 

1155:C 5 ureportchange := true; (don't flush out to different media!) 

1156:C 5 tapebuf_5tate := undefined; (while attempting the write) 

1157:C 5 xf r ( tapebuf_uep, writebytes, tapebuf_ptr, tapebuf_bIock, tapebuf_size) ; 

1158:C 5 tapebuf_state := unmodified; (write was successful!) 

11S9:C 5 recover 

1160:C 5 escape caught := true; 

1161 :C 4 ureportcHange := savedureportchange; 

1162:C 4 if e5cape_caught then 

1163:C 5 escape (escapecode ) ; 

1164:C 4 end; (with) 

1165:C 2 end; (flush tapebuf) 

1166:S 

1167:S 

1168:0 1 procedure load tapebuf(uep: uep_type; request: amrequest type; block: integer); 

1169:0 2 var 

1170:0 -1 2 xfr__required: boolean; 

1171:C 2 begin {load_tapebuf ) 

1172:C 2 xfr_required := (tapebuf_uep<>uep) or ( tapebuf_block<>block) or (tapebuf st ate=undef ined ) ; 

1173:C 2 if xfr_requlred then 

1174:C 3 begin 

117S:C 3 flush_tapebuf ; 

1176:C 3 tapebuf uep := uep; 

1177:C 3 tapebuf/block := block; 

1178:C 3 tapebuf state :^ undefined; 

1179:C 3 end; (if)" 

11S0:S 

1181 :C 2 if not xfr_required (then confirm media present 5 unchanged) 

1182:C 3 or ( reque5t=writebytes ) (then confirm media not write protected) 

1183:C 3 then 

1184:C 3 begin 

1185:C 3 xf r ( tapebuf_uep, request, nil, t apebuf_block, 0); 

1186:C 3 if tapebuf st ate=undef ined then 

1187:C 4 xfr required :- true; 

1188:C 3 end; (iT> 

1190;C 2 if xfr_required then 

1191:C 3 begin 

1192:C 3 tapebuf^size := shif led^lef t (1 , uep" , dvrtemp2) ; 

1193. C 3 xf r ( t ape'buf_uep, readbyTes, tapebuf_ptr, tapebuf_block , t apebuf^size) ; 

1194:C 3 tapebuf^ St aTe := unmodified; (read was successful!) 

1195:C 3 end; (if > ■ 

1196-C 2 end; ( load_1 apebuf > i. nAO 
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1197:D -16 1 $paqe$ 

1198:3 

1199:S { 

1200:S read/write routine 

1201:S 

1202;S The new Subset/SO devices coming out which support multiple block 

1203:S sizes have forced us to abandon the 2.X driver's essentially never- 

1204:S used asynchronous capabilities. !:'& simply too difficult to handle 

1205:S the media change situation wheri The media's block size also changes. 

1206:S For instance, an asynchronous transfer started on the 256-byte block 

1207:S assumption might discover new media formatted to 1024-byte blocks, in 

1208:S which ca^e entire transfer would need re-starting, this time using 

1209:5 tapebuf for buffering. This situa'ion would not be detected until 

1210:S well into the asynchronous transfer chain, at which point we could 

1211 :S be deadlocked 

1212:D -16 1 > 

1213:S 

1214:D 1 procedure tran sfer (uep: uep^type; fp. fibp; request: amrequestt ype; 

1215:D 2 bufptr: charptr; abs position, length: integer); 

1216:D 2 var h' - _k - s y ^, 

1217:D -1 2 retry_ required; boolean; 

1218:D -4 2 blockpower: shortint; 

1219:D -8 2 blocksize: integer; 

1220:D -20 2 block, intra block offset, partial length: integer; 

1221 :S - - . K _ 3 3 , 

1222:C 2 begin {t ransfer) 

1223:S 

1224 :C 2 repeat 

1225:C 3 retry required := false; 

1226 :S 

1227:C 3 try 

1228;C 4 if uep'^.dvrtemp2<0 then {block size unknown: try to determine} 

1229:C 5 begin 

1230:C 5 clear_unit(uep); 

1231 :C 5 ioresult := uep'~ . dvr ternp ; 

1232:C 5 if ioresultoord (inoer ror i then 

1233:C 6 escape(-lO); 

1234:C 5 end; (if) 

1235:S 

1236;C 4 blockpower := uep"^ .dvriemp2; 

1237:C 4 if baockpower<0 then 

1238;C 5 iore ijc (znomedium) ; (this or block size isn't a power of 2!!!> 

1239:S 

1240:C 4 blocksize := shifted_lef t ( 1 , blockpower); 

1241 :C 4 if block5ize>tapebuf_maxsize then 

1242:C 5 ioresc (zuninit i alized) ; {our buffer is too small to handle) 

1243:S 

1244:C 4 block := shif ted_right ( ats^ posi t ion , blockpower}; 

1245:C 4 in t ra_block_o f f set := moG_power__of_2 ( abs_posit ion, blockpower); 

1246 :S 

1247:C 4 if blockpower<=8 then 

1248:C 5 begin (handle a 256-byte or smaller block media) 

1249:C 5 if int ra_block_of f set<>0 then ioresc (zbadmode) ; 

1250:C 5 xfr(uep, request, bufptr, block, length); 

1251 :C 5 end {handle a 256-byte or ;.naller block device) 
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SpageJ 

else 

begin {handle buffering for up to tapebuf_maxsize block media) 

pa rt ial^length := blocksize-int ra_block_of fset ; 

if partTal_length>Iength then partial_Iength := length; 

case request of 

readbytes, start read: 
begin {read operations) 

if int ra_block_offset>0 then {partial block at front) 
begin 

load tapebuf(uep, readbytes, block); 

moveleft (tapebuf^pt r-^[int ra_block_of f set] , bufptr", par tial_length) ; 
bufptr := addr (bufptr"^, partial_lenqth) ; 
abs_posit ion :^ ab5__position+partial_length; 
block := shifted^ right (abs_posit ion , blockpower) ; 
length := length- partial lerigth; 
end; (if) 

if lengt h>=block5ize then {one or more blocks remain) 
begin 

flush_tapebuf ; (because we may travel far, far away) 

>:fr(uep, readbytes, bufptr, block, length); 
end 
else if length>0 then (partial block at back) 
begin 

load tapebuf(uep, readbytes, block); 

moveTeft (tapebuf ptr^, bufptr"^, length); 
end; "" 

end; (read operations) 

writebytes, startwrite: 
begin (write operations) 

if int ra_block_offset>0 then (partial block at front) 
begin 

load tapebuf (uep, writebytes j block) ; 

tape&ijf_state ;= modified; 

moveleft (bufptr"", tapebuf_pt ^[int ra_block_of f set ] , partial_length) ; 

bufptr ;= addr (bufpt r", part ial_lenqt h ) ; 

abs_position := abs_position+par tial length; 

block := shif ted_right (abs posit ion, "blockpower) ; 

length := length-pa rtial_length; 
end; (if) 

partial^length :- lenqth-mod_power_of 2(length, blockpower); 
if partTal_lengt h>0 then (one or more whole blocks remain) 
begin 

f lush_tapebuf ; (because we may travel far, far away) 

t apebuf_5t ate := undefined; (in case this overwrites!) 

xfr(uep, writebytes, bufptr, block, partial_length) ; 

bufptr := addrtbufptr'^, partial__lenqth); 

ab5__po5i t ion : = abs_p05i t ion+par t ial_leng t h; 

block ;- shi f led_right (ab5_posi t ion , blockpower); ff Ovlfh 

length := le ngt h - pa rt ial^lengt h ; Il-Z'lr7 



Pascal [Rev 3. on 


1252:C 


5 


1253:S 




1254 :C 


5 


12S5;C 


5 


1256:S 




1257:C 


S 


1258:C 


5 


1259:3 




1260:C 


S 


1261:S 




1262:C 


6 


1263:C 


6 


1264:S 




1265:C 


6 


1266:C 


7 


1267:C 


7 


1268:C 


7 


12$9:C 


7 


1270:C 


7 


1271:C 


7 


I272:C 


7 


1273:C 


7 


1274:S 




127S:C 


6 


1276;C 


7 


1277:C 


7 


1278;C 


7 


1279:C 


7 


1280iC 


7 


1281 :C 


8 


I282:C 


8 


1283;C 


8 


1284;C 


8 


1285:S 




1286:C 


6 


1287;S 




1288:C 


e 


1289:C 


6 


1290:S 




1291 :C 


6 


1292 -.C 


7 


1293:C 


7 


1294 :C 


7 


1295:C 


7 


1296:C 


7 


1297:C 


7 


1298:C 


7 


1299:C 


7 


1300:C 


7 


1301 :S 




1302:C 


6 


1303;C 


6 


1304:C 


7 


1305 .-C 


7 


1306:C 


7 


1307:C 


7 


1308:C 


7 


1309:C 


7 


1310:C 


7 


1311:C 


7 
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1312:C 


7 


end; (if) 






1313:S 










13I4:C 


6 


if iength>0 then {a partial block remains) 






131S;C 


7 


begin 

load tapebLtf (uep, writebytes, block): 






1318:C 








1317;C 


7 


tapeEuf state := modified; 






1318:C 


7 


movelef t (bLJfpt r^, tapebuf ptr"^, length); 






13I9:C 


7 


end; <lf) 






13J0:S 










1321:C 


6 


flush_tapebuf : <bo errors get reported in the right 


place! ) 




13J2:S 










1323:C 


6 


end; {write operations) 






1324:S 










132S;C 


6 


end; (case) 






132S:S 










1327:C 


5 


end; (handle buffering for up to tapebuf_maxsize block media 


> 




1328:3 










1329:C 


4 


recover 






1330;C 


4 


begin 






1331:C 


4 


if escapecodeo-lO then 






1332:C 


5 


escape (escape code) ; 






1333:C 


4 


if iore5ult=ord (inoerror ) then (media charged; restart) 






1334:C 


5 


retry required := true; 






1335:C 


4 


end; (recover) 






1336:3 










1337:C 


3 


until not ret ry_reqLJi red; 






1333:3 










1339:C 


2 


if (request-start read) or ( request = star twrite) then 






1340:C 


3 


call(fp''. feot , fp) (call the end of transfer procedure) 






1341:C 


3 


else 






1342:C 


3 


uep^.dvrtemp := ord (inoerror ) ; (report synchronous errors only 


:nce) 




1343 :S 










1344 :C 




end; (transfer) 
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134S:D 


-16 1 


SpageS 






1346:S 










1 34 7 : S 




( 






J348:S 




CS80 transfer method request handler 






1349:D 


-16 1 


) 






1360:S 










13S1:D 


I 


procedure CS80io; 






13S2:D 


2 


var 






13E3:D 


-4 2 


uep: uep type; 






13S4:C 


2 


begin (CSSOio) 






13SS:S 










1366:C 


2 


ioresult := ord ( inoerror ) ; 






1367:C 


2 


uep := addr(unltable'-[fp~.funlt] ); 






13E3:S 










13S9:C 


2 


if uep". offline then 






13eO:C 


3 


ioresult := ord (znodevice ) 






1 36 1 : C 


3 


else 






1362:C 


3 


case request of 






1.563:3 










1364:C 


4 


clearuhit : 






1365:C 


4 


begin 






13t.3:C 


4 


clear_unit (uep) ; 
ioresult := uep .dvrtemp; 






:367;C 


4 






1363 :C 


4 


uep'^.dvrtemp := ord (inoerror) ; (report synchronous errors 


only once) 




1369 :C 


4 


if uep=tap6buf uep then tapebuf_5tate := undefined; 






1370:C 


4 


end; 






1371:3 










1372;C 


4 


unitstatus: 






1373:C 


4 


fp^.fbusy := unit_busy(uep) ; 






1374:3 










1375:C 


4 


flush: 






1376:C 


4 


begin 

If uep=t apebuf_uep then 






1377:C 


4 






1373 :C 


5 


try 






1379:C 


6 


flush tapebuf; 






1380:C 


6 


recover 






1381:C 


6 


if escapecodeo-lO then escape (escapecode) ; 






1382:C 


4 


uep'^. dvrtemp := ord(inoe rror ) ; (report synchronous errors 


only once) 




1383:C 


4 


end; 






1384:3 










1385:C 


4 


readbytes, writebytes, startread, startwrite: 
begin 






1386:0 


4 






1387:C 


4 


uep". dvrtemp := ord (inoe rror ) ; (report synchronous errors 


only once) 




1383:C 


4 


if Simon no Dnfl(uep) then 






1389:C 


5 


ioresult := ord(zbaddma) 






1390:C 


5 


else if uep^.ureportchange and not uep". umediavalid then 






1391:C 


6 


ioresult := ord (zmediumchanged) 
else if (po5ition<0) or (length<0) or (posit ion+length>fp" 






1392:C 


6 


fpeof) then 




1393:C 


7 


ioresult := ord(ieof) 






1 394 : C 


7 


else 






139S:C 


7 


transfer (uep, fp, request, addr (buffer ) , posit ion+fp". fi 


eid+uep".byteoff5et, 


length); 


1396:C 


4 


end ; 






1387:S 










1 39 3 : C 


4 


otherwise (unrecognized request) 






139 ):C 


4 


ioresult := ord (ibadrequest ) ; 






1400:5 










1401:C 


4 


end; (cases) 
end; (CSSOio;' 






1402 :C 


2 






140 !:S 
1404:C 


1 


end; (CSSOdvr) 
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I Spaces 

1 ( program CSSOmit } 

1 import 

1 t apebuf , loader ; 

1 begin {CSSOlnii ) 
1 init_tapebuf ; 
1 markuser; 

1 end. {CSSOinit} 
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No warning;;. 

*♦*** Nonstandard language features enabled ***** 
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CTABLE 



Description 

CTABLE is the automatic-configuration program, whose code file (named TABLE) is executed at 
boot-up. 



Notes 

Refer to the Pascal 3.0 Workstation System manual for details on how to modify this program. 
TABLE can be re-executed at any time to re-initialize the device table. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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a [Rev 3.1)1' 6/ 4/84) CTBUfl.TEXT 



1 :E 
2:S 
3:S 
4:S 
5:S 
6:S 
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File name: CTBETfl 



7.E 



9:5 
10:S 
; I:S 
12:S 
13:S 
14;S 
15;S 
16;S 
17:S 
18:S 
19:D 
;>0 : S 
:l:S 



{'--} Copyright Hewlett-Packard Company, 1983. 
ft! 1 rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



PESTRICTEO RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

Paragraph (b) (3) (B) of the Rights in Technical 
ata and Computer Software clause in 
DSR 7-104. 9(a) . 



HEULErT-PflCKBRD COMPfiNV 
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32:D 


33:0 


34:0 


3S:S 


36:0 


37:S 


33:0 


39:S 


40:0 


41:0 


42:D 


43:D 


44:D 


45:S 


46:0 


47:0 


43:S 


49:0 


SO:S 


Sl:D 


62:0 


53:0 


B1:D 


B;:S 


5>:S 


57:0 


S):0 


53:0 


6):0 


61:0 


6^:0 


6!:0 


6t:S 


65:3 
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6':0 


6.!:0 


6 !:0 


7'):D 


71:0 


7 2:0 


7i:0 


74:3 
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(» 
(. 

(1 (. 



(« 

[ * 







Note: Vou will need to use the following 
compiler directive if the 'INTERFACE' 
file is not in your current LIBRfiRY. 
Modify the volume name as necessary for 
your configuration. 



i* 



J s- arch 'CONFIG :1NTERFPCE, '$ 

program < self -configuring > ctable; 
module options; 



(* Choose the desired configuration options *t 
(* by editinq the CONSTant declarations in *j 



(* by ed 
{* this 



import 

sysglobals; 



export 



<power-up system unit) 
const 

specified ^iystem^unit = 

0; {oO" overrTdes auto-assignment) 



(local mass storage directory access method} 
type 

lms_dam_type = {local mass storage dam) 
( LIF, UCED ) ; 
const 

primary ims dam = 
L I F ; 



(floppy/ harddisc unit number slot tradeoff's) 
const 

floppy_uni1 pair^ = {[1..10]) 

3; 
first harddisc lun = (do not editl) 

7+(Tloppy_unTt _pair5-l)*2; 
last harddisc lun = 
40; 
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7S;D 
76:S 

77 :D 

78 :D 
79:D 
80:D 
81:D 
82:3 
83:S 
84:0 
8S:S 
86:3 
87:S 
88:S 
89:S 
90:3 
91:S 
92:S 
93:S 
94 :S 
95:S 
96:3 
97:S 
98:3 
99:D 

100:D 

101 :D 

102: 

103: 

104: 

lOS: 

106: 

107: 

108: 

10 

110: 

111 : 

112: 

113: 

114 

115:0 

116:0 

117:0 

118:0 

119:0 

120:0 

121 ;D 

122:D 

123:0 

124:0 

12S:D 

126:0 

127:0 

128:3 
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{local printer type option} 

local_printer_t ype = (HPIB, 
const 

local_printer_opt ion = HPIS 



1 {local printer timeout) 
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File name: CTBETP ** 



Tiaximum allowed delay between any two bytes: 
>0 specifies milliseconds (up to one hour) 
=0 specifies infinite timeout 



ecommiended values: 






- HP2630 series 


HP-IB) 


3000 


- HP2670 series 


HP-IB) 


3000 


- HP987e 


HP-IB 


7000 


- HP82905 


HP-IB) 


12000 



Note: the HP82905 is currently NOT supported 
due to its improper response to interface 
clear [IPC), and its incompatible graphics 
dump sequence. 

1 const 

1 local_prin ter_t imeout = 

1 $IF local_printer_option-HPIB$ 

1 12000; {milliseconds) 

1 SENDS 

$IF local_printer_option=RS232$ 
0: (infinite) 

1 SENDS 



1 {default day's for devices not found by scanning) 



type 

dav_type = (device address vecto-) 
packed record 

sc, ba, du, dv: -128. .127; 
end; 
const 

HP9885_default_dav = 

dav_type[sc: 12, ba: -1, du: 0, 
SRt1_default_dav = 

dav_type[sc: 21, ba: (node) 0, 
du: (unit) 8, dv: -ij ; 
BUBBLE default dav = 



dav_type[sc: 30, ba 
local^HPIB, printer_default_da 



aav_typersc : • , ua . x , 
local_RS232_printer default^dav 
dav_type [sc : ' '" 



ba: 
r de 
Ea: 



0, 
lt_ 
1, du: 
da 
0, 3u: 



dv: 
dv: 
dv: 



-n; 

0] 
-1] 
-1] 
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129:0 

130:S 

131:0 

132:0 

133:0 

134:0 

135:D 

136:0 

137:0 

138:S 

139:3 

140:3 

141 :S 

142:3 

143:3 

144:3 

145:S 

148:3 

147:3 

148: 

149: 

150: 

151: 

152: 

163: 

154: 

155: 

156: 

157:3 

158:3 

159:S 

160:3 

181:S 

162:3 

163:3 

164:3 

165:3 

166:0 

167; 

16 

16 

170: 

171: 

172: 

173: 

174:0 

175:0 

176:0 

177:D 

178:0 

179:0 
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(local hard disc partitioning parameters) 
type 

pp_type = (partitioning parameters) 

reco rd 
mvs: integer; {min vol size in bytes) 
mnv; shortint; (max number of volumes) 

end; 
( In gener.3l, MNV puts an upper bound on the 
number of logical volumes that a physical 
volume can be partitioned into. Depending 
upon MNV s range, however, several types of 
behavior can occur. 

If nNV=0, then no logica'. volumes will ever 
be assigned for the device. 

If ab5(nNV)=l, then exactly one logical 
volume will be assigned per physical volume 
of the device. This corresponds to the 
2.x CTRBLE's "single volume" mode. 

If nNV>l , then parTltioning will always be 
performed, subject to meeting the minimum 
volume size restrictions. Tliis corresponds 
to the Z.X CTPBLE's "multi_volLme" mode. 

If nNV<-l, then partitioning will be 
performed, but afterwards any logical volume 
that does not contain a valid directory will 
be coalesced with a previous adjacent logical 
volume if that one DOES contain a valid 
directory. Rs an extreme casC; if only a 
single directory exists, and it is at the 
beoinning of the physical volume, then all 
following logical volumes will be coalesced 
with the first, providing the same behavior 
as the 2.x ClnBLE's "auto volume' mode. Uith 
the less extreme cases, a~wide variety of 
partitioning options are now possible without 
modification to CTflBLE. ) 

const 

min size = {in bytes [l..maxint]) 

1500000; 
max vols = {[-30.. 30]; <0 means autocoalesce) 

-50; 



HP913X__fl_pp 



pp type[mvs: min size, mnv: 
HP913X_§_pp = 

pp type[mvs: min size, mnv: 
HP9lJX'.C_pp = 

pp type[rnvs: min^size, mnv: 
CS803isc_pp - 

pp_type[mvs; min_si2e, mnv; 



max_vols] ; 
max_vols] ; 
max_vols] ; 
max_vols] ; 
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[Re 


18J 


D 


181 


S 


1B2 


D 


183 


D 


184 


D 


185 


D 


18S 


D 


187 


D 


188 





183 


D 


190 


D 


191 


D 


192 


D 


193 


D 


194 





I9S 


D 


196 


D 


197 


D 


188 


D 


199 


S 


200 


s 


201 


D 


202 


D 


203 


D 


204 


D 


205 


D 


206 


D 


207 


D 


203 


D 


209 


D 


210 


D 


211 


D 


212 


D 


213 


D 


214 


S 


215 


S 


216 


D 


217 


S 


213 


C 
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{system unit auto-search declarations) 
const 

5ysunit_list_length = 
7; 
type 

sysunit list_type = 

arrayll . , sy5unit_list_length] of unitnum; 
const 

sysunit _^li St = 

sysunTt _list_t ype [ 

firsts h3rddisc_lun, 

45, <srm, prefixed to user's sysvol) 
4, (floppy unit 1, primary DflM) 

44, {floppy unit 1, secondary Ofin) 
3, {floppy unit 0, primary DflM) 

43, {floppy unit 0, secondary Dfltl} 
42]; (bubble) 



<HP-IB select code scanning declarations) 
const 

sc list^length = 
J; 
type 

5C__list type = 

a rr ayTl . ■ sc_list_length] of shortint; 
const 

5C_list = 

sc list_type[ 

7, (internal HP-IB) 

8, (default sc for HP98624 HP-IB) 
14]; (default sc for HP9e625 HP-IB) 



1 implement (options) 
1 end; (options) 
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Spage, range off, ovflcheck off, partial^eval on$ 
module ctr; (ctable routines) 
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219:D 
220:S 
221:D 
222:S 
223:0 
224:0 
225:0 
226:0 
227:0 
228:0 
229:S 
230:0 
231 :0 
232:S 
233:0 
234 :S 
235:0 
236:0 
237:0 
238:0 
239:0 
240:0 
241:0 
242:0 
243:0 
244:0 
245:0 
246:0 
247:0 
248:0 
249:0 
250:S 
2S1:S 
252:0 
253:0 
254:0 
255:0 
266:0 
267:S 
2SS:D 
259:0 
260:0 
261:0 
262:0 
263 :S 
264:0 
265:0 
26-5:0 
26 7:0 
263:0 
269:0 
270:0 



(* Warning: 

(* This module should not be modified! 



import 

sysglobals, loader, options, Idr; 



export 




const (mass 


storag 


INTERNPL 


= 'n'; 


HP8290X 


= 'N'; 


HP9885 


= 'F'; 


HP989S 


= 'H'; 


HP913X fi 


=■ 'U'; 


HP913X B 


= 'V; 


HP913X C 


= 'U'; 


CS80 " 


= 'Q'; 


SRM 


= 'G'; 


PRINTER 


= 'J'; 


RAM 


= '«' ■ 


BUBBLE 


= 'B' ; 


EPROn 


» 'E'; 


NODEVICE 


= #25^ 



t ype 

^lpy_'fl99S-lyp^ = <flags governing floppy unit pair assignments) 
packed record 

a5sign_even_unit , as5ign_odd_unit : boolean ; 
end; - - 

const 

a5sign_neiTher_f Ipy unit = 

flpy_flaqs t ype[a55i9n_even_unit : false, assign_odd_ijnit : false]; 
assign_botn_Tlpy__units =" 

f lpy_flags_type [a5sign_even_unit : t rue, a5Sign_odd_unlt : t rue] ; 

type 

MSUS_type ^- <f1a55 Storage Unit Specifier) 
record 

flpy flags: flpy flags type; 

letter: char; {7rom tfe above mass storage letter specifiers) 
dav: dav^type; 
end; 
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271:0 
272 :S 
273:D 
274:0 
275:0 
276:0 
277:0 
278:S 
279:0 
280:0 
231 :0 
282:0 
283:0 
284 :S 
285:0 
288:0 
287:0 
288:S 
289:S 
290:0 
291:0 
292:0 
293:0 



294 

295 

296 

297 

298 

299:0 

300:0 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

31S 

316 

317:D 

318:D 

319 

320 

321 

322 

323 

324 

325 



326:0 



r^iP-type = (medium parameters) 
record 

tpm: integer; {tracks per medium} 
bpt: integer; {bytes per track) 
end; 

ds type = {Directory access method Specifier for local mass storage) 
( primary_dam, {either LIF or UCSD, as specified in options) 
5econdary_dam, {the one not selected as primary) 
LIF dam, ^^^^A regardless of primary/secondary choice) 
UCSL)_dam ); (UCSD, regardless of primary/secondary choice) 

var 

bootde«_nsUS: nsU3_type; 
bootdev_lun: unitnum; 

procedure create_temp_unit able; 

procedure assign_and_clear_unit ( lunit ; unitnum); 

procedure assign_temp_unit able; 

function sy5unit_ok (system_unit : unitnum): boolean; 

procedure zap_as5igned_unit ( lunit : unitnum); 

function on_same_medium{lunl , lun2: unitnum): boolean; 

procedure remove~e>:t raneous volumes ( first^lun, Iast_lun: unitnum); 

function medium_^parameter5 [Tetter : char): mp_type; 

function par t itToning_parameters (let ter ; chaFj : pp_type; 

function number^volsTmp: mp_type, pp; pp_type): shortint; 

function svol bytes (let ter : char): integer; 

function vol_^ytes (cur rent_vol , number_vol5: shortint; mp: mp_type): integer; 

function vol_of f set (cur rent_vol, number_vols: shortint; mp: mp_type): integer; 

function block boundarie5(mp: mp type): mp_type; 

function valueTsymbol : String255y: integer; 

function MSUSs match(nSUSl, MSUS2: 1SUS type): boolean; 



{ table entry assignment procedures ) 



procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 



tea 
tea 
tea 
tea" 
tea 
tea 
tea 
tea" 
tea" 
tea 
tea 
tea" 
tea 
tea 
tea 
tea" 



memo r y_v 
boot ( un : 
srm(un: u 
crt (un:u 
|kbd{un: u 
|local_pr 
mini ( un : 
■HP9885(u 
■HP889S(u 
;hP8290X( 
.f Ipy ( un : 
'amiqo_sv 
'CS80 mv( 
■CS80 sv 
"BUBBrE(u 
■EPROh(un 



Lume_ddm(ds:d5_type) ; 

lit num) ; 

Ltnum; sc, ba.du ; short int ) ; 

L t n urn ) ; 

L t n urn ) ; 

ite r ( un : unit num ; 5c,ba: short int ;uvid:vid;bto: integer); 

iitnum;ds:ds type;du : short int ) ; 

unit num; ds :'?s_t ype; sc,du,block_os : short int); 

unit num; ds :d5_type ; sc,ba,du,block__o5 : short int ) ; 
1 : unit n urn ;d5:ds type; sc,ba,du:shortint); 
iitnum;lr-:char;Ss :ds_type;sc,ba,du : short int J; 

Jn:unitnum;d5:ds_t ype; sc,ba,du: shortint ;os: integer ;lr:char:mb:integer) 
1 : unit n urn ;ds :d5_type; sc,ba,du,dv: short int ;os, id, mb:integer); 
i:unitnum;d5 :ds_type; sc,ba,du,dv;shortint]; 

unit num; ds :ds_t ype;sc:shortint) ; 
jnitnum;ds:d5_type;5n:shortint); 
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327: 

328: 

329: 

330: 

331: 

332: 

333; 

334: 

335:0 

336:0 

337:0 

338:0 

339:0 

340 ;D 

341:0 

342 :S 

343:0 

344:0 

345:0 

346:0 

347:0 

348:0 

349:0 

350; 

351: 

352: 

353: 

354: 

355: 

356: 

357: 

358: 

359: 

360: 

361: 

362: 

363: 

364: 

365: 



-8 
-12 



1 SpageS 

1 implement {ctr) 

1 const {abbreviation for tea procedure 
1 T ' true; 
1 F • false; 

\ const 

1 NO Dnn name 

1 B05T OBM name 

1 LIF UfiM name 

1 UCSC OfiFl name 

1 LIN8LiJCKEC_DSn name 

1 SRtlJfln name 



calls) 



{actual driver entry point names) 

'INITUNITS NODfltl'; 
'BOOTDfiMMonuLE BOQTDfin' 
'LIFMODULE LIFCSn'; 
'UCSDMODULF UCSO DPin'; 
'MISC UNBLOCKEDOffn' ; 
'SRHDHnnODULE SRHOntl'; 



NLlLL_TM_name 
BOOT TM_name 
CRT„Tf1_name 
KBD TM name 
MINT TR_name 
SRfl Tn name 
PRIfJTEU Tn_na™e 
F9885_TF! name 
flMIOO TM name 
CS80 Tm name 
BUBBrE TM name 
EPROn Tn name 



'INITUNITS NOUNIT' ; 
'BOOTDBMnOPULE BOOTTM' 
'SYSDEVS_CRTIO"^; 
'SVSDEVS KBDIO' ; 
'MINI ninilO"; 
'SRnoFtnODULE SRnflM' ; 
'PRTDVR PRTI(3' ; 
•F9885DVR F9885I0'; 

'finiGODVR""finii;oio'; 

'CS80DVR CS80I0' ; 
'BUBBLE^ffUB Trl' ; 
■EPROnS EPRffM in' ; 



1 var 

1 temp_unitable : unitableptr; 

1 procedure check (parameter , lowe-_bcund, upper bound: integer); 

2 begin "" 

2 If (pa rame ter<lo\wer_bound) or [pa -ameter>upper_bound) then 

3 halt(-8) {value range error) 
3 end; 
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367 D 

368 :S 

369 :D 

370 :D 

371 :D 

372 ;D 
373 -D 
374 :C 



375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
386 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 



-12 1 IpageJ 



-256 
-256 
-260 
-268 
-269 



t TuncTion value (symbol : Strang255): integer 



modp; modde;.cpt r ; 
pt r , valuepir; addrec; 
found: boolean; 
begin {value) 
value :• 0; 
found := false; 
rrtodp := sysdefs; 

while [modponii) and not found do 
with modp" do 
begin 

ptr := defaddr; 

while (pt r . a<def3ddr . a+def size) and not found do 
begin 

found :- pt r. 5yp'"=bymbol ; 

pTr.a := pt r . a+st r len [pt r . syp^) +1 ; 

ptr. a := pt r , a^ord (odd (pt r . a] ) ; 

valuept r . a :- ptr. a*-2; 

if found then 

value := valuept r .vep^. value; 
ptr. a := pt r. a+pt r .gvp^. short ; 
end; (while) 
modp := link; 
end; {with modp") 
end; {value) 



-12 1 function nSUSs^match (nSUSl, nSUS2: rlSUS_type): boolean; 



begin {nsUSs_match > 

MSUSs_match := (nSUSl .let ter = rlSUS2 , let ten ) and 

MSUSl .dav.5C = nSU32.dav.5C) and 

(MSUSl .dav.ba = nSUS2 .dav .ba) and 

(tlSUSl .dav.du = nSUS2 .dav .du) and 

(MSUSl .dav. dv = nsus2.dav.dv) : 
end; (nSUSs_match) 
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405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
426 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
4f4 
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-530 
-530 
-530 
-530 
-530 
-538 

-538 
-538 
-538 
-538 
-546 



1 rrocedure tea (lowest-level Table 



( un:unitnum; 

dam_name: Strinq255; 

tm_name: 5tring255; 

p_sc ; shortint; 

p_ba : shortint ; 

p_du: shortint; 

p_dv; shortint; 

p_byteof f set : integer; 

p_devid: integer; 

p_uvid: vid; 
( p_drvtemp: integer 
( p_drvtemp2: shortint; 

p_let ter : char ; 
{ p_offline: boolean 

p_uisinteractive : boolean; 
{ p_urriediavalid : boolean; 
( p_uuppercase : boolean; 

p__:i: ^f ixed : boolean; 
( p eportchange: boolean; 
{ p_pad: 0. .1 

p_uisblkd: boolean; 

p_umaxbytes: integer ); 



Entry fissignment procedure) 
'unit number) 
'directory access method) 
'transfer method (driver)) 

select code) 
|bu5 address) 

disc unit) 

disc volume) 

'physical starting byte of volume) 
^device identifier (driver dependent)) 
'volume id) 

driver temp) 

second driver temp) 

device specifier letter) 

unit offline flag) 

device echos input} 

open files are valid) 

volume name should be uppercased) 
'medium not removable flag) 

driver directive to report/Ignore medium changes) 

[not used) ) 

blocked volume flag) 

'olume size in bytes) 



dam_proc : 

packed record case integer of 
: (dam: damt ype ] ; 
1: (value, slink: integer); 
end ; 



tm_proc : 

packed record case integer of 
( tm: amtype) ; 
(value, slink: integer); 





1 

end; 



(unassigned pointer) 



begin (tea) 

if temp_unitable=nil then halt(-3) 

damproc .value := value (dam_name ) ; 
dam_proc . slink := 0; 

tm_proc .value := value( tm_name ) ; 
tm_proc . slink := 0; 

if [dam_proc . valueoo ) and ( tm_proc . valueoO) then (assign the entry) 
begin 

with temp^unit able'' [un] do 
begin 



dam 


= dam proc.dam 


tm 


= tm proc . tm; 


sc 


= p sc 




ba 


^ p b3 




du 


- p du 




dv 


= p dv 




b> teof f set 


■^ p_t'y 


eof fset 
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46S;C 
466:C 



467: 
468: 
469: 
470: 
471: 



:C 
:C 
:C 
:C 
:C 
:C 
473:C 
474 :C 
47S:C 
476:0 
477:0 
478:0 
479:0 
480:0 
481 :S 
482:0 
483:0 
484:0 
485:0 
486:0 
487:0 
488:S 
489:0 
490:C 
491 :S 
492:S 
493:D 
494 ;C 



495: 

496: 

497: 

498: 

499: 

500: 

501; 

502:0 

503:0 

504 :C 

50S:C 

506:0 

507:0 

508:0 

509:0 



devid 


= 


p_deviij ; 


uvid 


= 


p uvid; 


dvrtemp 


= 


0; 


dv r temp2 


= 


-1 ; 


letter 


^ 


p lei tar; 


offline 


= 


false; 


uisinteract ive 


- 


p uisinteract ive ; 


umediavalid 


= 


false; 


uuppercase 


^ 


no: p uisblkd; 


uisf.ixed 


= 


p u^sTiied; 


ureportchange 


- 


t rue , 


pad 


= 


0; 


uisblkd 


- 


p_u35bl<d; 


if uisblkd then 






utnaxbytes 
end; {with} 


- 


p_urriaxb/tes; 



^always initially zero!) 
(always init ially -1 ! } 



{always initially online') 



{never valid to start with) 
{assume case is significant) 



{do report media changes) 
{not used) 



with bootdev_MSUS , dav do {see if this entry points to it) 

if (p_let ter=letter] and {wish we could use MSUS5_match function) 
(p ijc^sc) and [p ba^ba) and (p_du=du) and (p_dv=dv) and 
f (d(3m_name=LIF DR'M nan-e) cr ( p_let te r = SRn) ) and 
( p_byteof f set^O") tRen < -ijmember this unit number ! ) 
bootdev_lun := un; 



end; (if) 
end; (tea) 



1 function daiTi(d5: ds_t ype ) : s t ring2£5; 



begin 

case ds of 
primary dam: 

if prTmary_Ims dam=LIF 
then ddm :- UlF Dflri name 
else dam := UCSD_DPFJ_naiTie ; 
5econdary_dam: 

if prim3ry___lms dam=LIF 

then d<am := QCSD DflM_name 
else dam := LIF_[5fl!1_name ; 
LIF__dam: 

dam := LIF_Ofiri name; 
UCSD_dam: 

dam := LJCSD_DFiri_name ; 
end; (case) 
end ; 



B^cal [Rev 3.0M 6/ 4/84] CTBETfi.TEXT 



26-De::-84 21 :17:24 Page 12 



*** File name: CTBETfi ** 



510:D 


12 1 


511:S 




S12:D 


1 


613:D 


2 


514:0 


2 


S15:D 


2 


516:0 


2 


517:D 


2 


518:0 


2 


519:D 


2 


520:D 


2 


521:D 


2 


522:0 


2 


523:D 


2 


624:0 


2 


625:0 


2 


526:0 


3 


627:0 


3 


528:C 


3 


529:0 


3 


530:0 


3 


531:0 


3 


632:0 


3 


533:0 


3 


634:0 


3 


635:0 


3 


636:C 


2 


637:S 




638:S 




539:0 


1 


640 ;D 


2 


541:0 


2 


542:0 


2 


643:0 


2 


644:0 


3 


645:0 


3 


546:0 


3 


647:0 


3 


548:0 


3 


549:0 


3 


560:0 


2 



1 SpageS 

function medium 
const (LOGICH 
INTERNflL_mp 
HP8290X mp 
HP9S86_inp 
HP9895_mp 
HP913X fl mp 
HP913X B mp 
HP913X_C_mp 
BUBBLE mp 
(BUBBLE mp 
null_mp 
begin 

case letter 
INTERNAL : 
HP8290X: 
HP9885: 
HP9895: 
HP913X fl 
HP913K B 
HP913K C 
BUBBLE: 
othe rwise 
end; {case) 
end ; 



.parameters (let te r : cha-): mp type; 



»1S2, 
*305, 

»305, bpt: 
bpt: 



r sizes unless other' 
" mp_type [tpm: 2* 3 
= mp_type [tprn: 2* 3 

- mp_type [tpm: 1* 7 
= mp_type [tpm 
~ mp_type [tpm 
= mp_type [tpm 

- mp_type[tpm 
= mp_type[tpm: 1*512. 
= mp_type[tpn: i#512i bpt: 
" mp_type[tpm: 0, bpt; 



of 
medium_par.imeters 
medium_par meters 
medium_par.tmete rs 
nedium_par.imeters 
mediuin_pa Trimeters 
medium_parameters 
medium_parameters 
medium_parameters 
medium_pa name tens 



note?) 

bpt: 16»25S]; 

bpt: 16*256); 

bpt: 30*256]; 

bpt; 30*2561; 

bpt; 31*256]; 

bpt: 31*256]; 

31*256] ; 

1*256] ; 

1*256];) 

01; 



= :NTERNfiL_mp; 

= HP8290X_mp; 

= HP9885_mp; 

= HP9895 mp; 

= HP913X_fi_mp; 

= HP913X_B mp; 

= HP913X_C_mp; 

= BU8BLE_mp; 

= null_mp; 



{physical size) 
{physical size) 



(1 megabit unit) 
(4 megabit unit ) 



1 function partit ioning_parameters ( let ter ; char); pp,_type; 



const 

null_pp = pp t ype [m 
begin 

case letter of 



HP913X_fi 
HP9131<_B 
HP913X C 
0S80 ; 
othe rwise 
end; {case) 
end; 



part it ioniny^paramete rs 
part it ionlng_paramete rs 
part it ioning_paramete rs 
part it ioning_par3mete rs 
partitioning_parameter5 



= HP913X_fl_pp; 

= HP913X 8 pp; 

= HP913X_C_pp; 

= CS80di5c_pp; 

= null_pp: 
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551 :D 


-12 


1 


$page$ 




552 :S 










553 :D 


-14 


1 


function number vol5(mp: mp type; pp: pp type): shortint; 




554 :D 


-14 


2 


van 




SSS:D 


-16 


2 


nvols: shortint; 




556 :C 




2 


begin 




557 :C 




2 


If pp.mnv<0 then (negative implies autovolume feature; use absolute value) 




558 :C 




3 


pp.mnv := -pp.mnv; 




559 :C 




2 


if pp.mvs<=0 then pp.mvs := 1; {guard against div's by 0> 
if mp.bpt<=0 then mp.bpt := 1; (guard against div's by 0) 




560 :C 




2 




561 :C 




2 


nvols := mp.tpm div ( (pp.mvs*mp. bpt-1 ] div mp.bpt); 




56? :C 




2 


If (nvols=0) and (mp.tpm>0) then 




563 :C 




3 


nvols := 1; (physical vol smaller than the specified minimum vol size) 




564 :C 




2 


if nvol5>pp.mnv then (cut back, even to zero if specified) 




566 :C 




3 


nvols := Dp.mnv; 




566 :C 




2 


number__vols := nvols; 




567 :C 




2 


end; "* 




568:5 










569 :S 










570 :D 




1 


function svol_bytfts ( let ter : char): integer; 




571:[) 




2 


var 




572 :D 


-8 


2 


mp: mp type; 




573 :C 




2 


begin 




574 :C 




2 


mp := medlum_parameters(letter) : 




575 :C 




2 


svol_bytes := mp . bpt*mp.t pni; (single volume bytes) 




576 :C 




2 


end; 




577 :S 










578 :S 










579 :D 


-8 


1 


function vol bytes [current vol, number vols: shortint; mp: mp type): integer; 




580 :D 


-8 


2 


var " ~ 




581 :D 


-12 


2 


tracks: integer; 




S82:C 




2 


begin 




583 :C 




2 


tracks := mp.tpm div number vols; (each vol gets this much) 




584 ;C 




2 


if current_vol=numbe r_vols-r then 




586 ;C 




3 


tracks := t racks^mp.t pm mod number vols; (last vol gets any extra) 




586 :C 




2 


vol bytes ;- t rack5*nip.bpt ; 




587 ;C 




2 


end; 




588 :S 










589 :S 










590:0 


-8 


1 


function vol of f set (current vol, number vols: shortint: mp: mp_type); integer; 




591 :C 




2 


begin 




592 :C 




2 


vol_offset := (mp.tpm div number_vols)*current_vol«mp.bpt ; 




593 :C 




2 


end; 




594 :S 










596 :S 










596 :D 


-8 


1 


function block boundaries (mp: mp type): mp type; 




597 :C 




2 


begin 




596 :C 




2 


Block boundaries. tpm := mp. tpm*mp. bpt div 512; 




599 :C 




2 


block~boundaries.bpt := 512; 




600 :C 




2 


end; 
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601 :D 


-12 


1 


$page$ 




602 :S 










603:0 


-12 


1 


{ standard driver-oriented table entry assignment procedures ) 




604:3 










605:5 










606:0 




1 


procedure tea nounit (un :unitnum) ; 




607 :C 




2 


begin 




608 :C 




2 


tea[un,NO_0fiI1_name,NULL_Tn_name,O,O,O,O,O,O,' ' ,«0, F, F,F,0) ; 




609 :C 




2 


end; ~ ~ ~ " 




610:S 










611 :S 










612:0 




1 


procedure tea memory volume dam(ds:ds type); 




613:C 




2 


begin " ~ 




S14:C 




2 


tea(0,dam(ds) .NULL Tn_name,0,0,0,0,0,0, " ,Rfl«,F,T,T,0) ; 




615:C 




2 


end; 




616:5 










617:5 










618:0 




1 


procedure tea crt (un : unit num) ; 




619:C 




2 


begin 




620 :C 




2 


tea(un, UNBLOCKED DRU name, CRT TM name, 0,0, 0,0, 0,0, 'CONSOLE' ,#0,T,T,F,0) ; 




62I:C 




2 


end; 




622:5 










623 :S 










624:0 




1 


procedure tea_kbd (un :unit num) ; 




625 :C 




2 


begin 




626 :C 




2 


tea(un,UNeLOC<ED_Dfin_name,KBD_Tri_name,0,0,0,0,0,0, 'SYSTERM' ,#0,F,T,F,0) ; 




827 :C 




2 


end; 




628:3 










629 :S 










630 :D 




1 


procedure tea mini (un : unitnum;ds :ds_type ;du: short int ) ; 




631 :C 




2 


begin 




632 :C 




2 


check(du, 0, 1); 




633 :C 




2 


tea(un,dam(ds),nlNI ^n name, 0,0,du,0 ,0,0, ", INTERNAL ,F, F,T , svol_bytes ( INTERNAL )) ; 




634 :C 




2 


end; 




636:5 










636 :S 










637:0 




1 


procedure tea boot(un: unitnum); 




638:C 




2 


begin 




539 :C 




2 


tea(un,BOOT OOn name, BOOT TM name, 0,0, 0,0 ,0,0, " ,#0, F, F,T,maxint ) ; 




640 :C 




2 


end; 




841:S 










642:5 










643 :D 




1 


procedure tea srm(un : unit num; sc , (node)ba, (unit )du : shortint ) ; 




644 :C 




2 


begin 




645 :C 




2 


check{sc, 7, 31); 




646:0 




2 


check(ba, 0, 63j; 




647 :C 




2 


if duoO then cbeck(du, 7, 26); 




648 :C 




2 


tea(un,SRM DflM name,SRM Tn name, sc ,ba,du ,0,0,0, " ,SRM, F,T, T.maxint ) ; 




649 :C 




2 


end; 




650 :S 










651 :S 










652:0 


-18 


1 


procedure tea_local_print er (un : unit n um :sc,ba: short int ;uv id :vid;bto: integer ) ; 




653 :C 




2 


begin 




654 :C 




2 


check(sc, 7, 31) ; 




655 :C 




2 


check ba, 0, 30) ; 

check(bto, 0, 60*60*1000); (one hour should be enough!) 

tea(un,UNSLOCKEO_DRn_name,PRlNTER_Tn_name,5C,ba,0,0,i5,bto,uvid,#0,F,T,F,0) ; 




656 :C 




2 




6S7:C 




2 




658 :C 




2 


end ; 
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6S9:D -12 1 SpageS 

660:5 

661;D 1 procedure tea HP9885 (un : Linit num;os :dE. type; sc.du, block 05 ; short int ) : 

662:D 2 var - . . _ 

663:D -4 2 05: intege"; 

664 :C 2 begin 

6e5:C 2 check(5c, 8, 31); 

6e6:C 2 check(du, 0, 3); 

667:0 2 os := block_os«512; 

668:C 2 check(os, 0, svol bytes (HP9''?S ) -1 ' ; 

669:C 2 tea ( un ,dam (ds ) , FS^: ;. TM name , 5c ,0 ,du,0, os.O, " ,HP9885, F,F,T, svol bytes (HP9885) -05) ; 

670:0 2 end; ~ ...._/ i 

671:S 

672:S 

673:D 1 procedure tea_HP9895 (un : unit num; ds :d!i type; sc.ba.dj, block 05: short int ) ; 

674:0 2 var _ . _ ;, 

675:0 -4 2 os: integer; 

676:0 2 begin 

677:0 2 checkfsc, 7, 31); 

678:0 2 check ba, 0, 7); 

679:0 2 checkidu, 0, 3): 

680:0 2 OS :« block os«612; 

681:0 2 check(os, 07 svol bytes (HP9e9S ) -1 ) ; 

682:0 2 tea(un .darn (ds) ,finTGO Tn name, 5C,ba,du,0,os,0, '' ,HP989S, F, F.T, svol bytes (HP989SI -05) ; 

683:0 2 end; ~ ~ -..._/ i 

684 :S 

685 :S 

686:D 1 procedure tea HP8290X ( un: unitnum;d5 :05 type;sc .ba.du : short int ) ; 

S87:C 2 begin " .-/»-,,, 

688:0 2 check(sc, 7, 31); 

689:0 2 checkfba, 0, 7); 

690:0 2 check(du, 0, 3): 

691:0 2 tea(un,d6m(d5) ,nniGO TM name, 5c,ba,du ,0,0,0, " ,HP8290X, F, F.T, svol bytes (HP8290X) ) : 

692:0 2 end; 

693:S 

694:5 

69S:D 1 procedure 1 fta_afrigo_sv (un : unit num;ds :ds type; sc,ba ,du : short int ;os : integer ; Ir :char :mb : integer ) ; 

696:0 2 var 

697:D -4 2 medium size: integer; 

69a:C 2 begin 

699:0 2 checkfsc, 7, 31); 

700:0 2 check ba, 0, 7); 

701:0 2 checkidu, 0, 7); 

702:C 2 if not (ir in [HP913X_fl, HP913X_E, HP913X 0]) then 

703:0 3 halt(-8); (value range error) 

704:0 2 medium size := svol_bytes ( Ir) ; 

705:0 2 check(os, 0, medium_5ize-l ) ; 

706:0 2 if os mod 2S6<>0 then halt(-8) (value range error); 

707:0 2 check(mb, 1, medium size-os); 

708:0 2 tea(un,dam(as) .SniGtJ TM name, sc.ba, du,0,os,0, ", Ir , F.T, T,mb 1 ; 

709 :C 2 end: " " 
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710:D -12 1 SpageJ 

711:5 

712:D 1 procedure 1ea_CS80„mv (un : unit num;d^; :ds_type ; sc,ba, du,dv: shortint ;os, id, mb : integer ] ; 

713:S ( 

714:S CS80 multiple (logical) volume assignment procedure: 

715:5 1) devid must match the actual HP product number as found in describe 

716:S 2 offset and umaxbytes are fi.<ed 

717:5 3) the uisfixed field is assigned by the driver in the clearunit procedure 

718:0 2 ) 

719:0 2 begin 

720:0 2 check(sc, 7, 31); 

721:0 2 check ba, 0, 7); 

722:0 2 checkidu, 0, 14); 

723:0 2 check(dv, 0, 7): 

724:0 2 tea(un,dam(d5) ,CS80 TM name, sc ,ba,du,dv,05, id, " ,CS80, F,F,T ,mb) ; 

725:0 2 end; " ^ 

726:S 

727:S 

728:0 1 procedure tea CS80 sv (un; unitnum;ds : ds type; 5c,ba, du,dv: shortint ) ; 

729:5 ( - - V ._ /K , , , , 

730:5 CS80 single (logical) volume assignment procedure: 

731:5 1) byteoffset always assumed to be zero 

732:5 2) umaxbytes is dependent upon the media loaded, thus it is set by the 

733:5 driver at clearunit time and whenever it detects a media change. 

734:5 BOTTOM LINE: the medium CANNOT be partitioned into multiple volumes! 

735:5 3) the uisfixed field is assigned by the driver in the clearunit procedure 

736:3 4) device can either be a disc (presumably a floppy) or a tape 

737:0 2 ) 

738:0 2 begin 

739:0 2 check(sc, 7, 31); 

740:0 2 checkiba, 0, 7); 

741:0 2 checkidu, 0, 14); 

742:0 2 checkidv, 0, 7); 

743:0 2 tea (un ,dam(d5) ,0380 Ttl name , sc ,ba,du, dv ,0, -1 ,'' ,0580, F. F.T ,0) ; 

744:0 2 end; " " 

745:5 

746:5 

747:D 1 procedure tea f lpy(un : unit num; Ir :char ;d5 :ds type; sc,ba ,du :short int ) : 

748:0 2 begin ~ . - ;r . . . 

749:0 2 case Ir of 

750:0 3 INTERNAL: tea_mini (un,ds ,du) ; 

751:0 3 HP8290X: tea_HP8290X ( un,ds, sc ,ba,du) : 

752:0 3 0580: tea CS80 sv i un,ds, sc ,ba,du,0) ; 

753:0 3 HPgSeS; tea_HP9855 (un, ds, sc,du,0) ; 

754:0 3 HP9895: tes_HP9895 {un, ds, 5C,ba,du ,0) ; 

755:0 3 otherwise halt(-8) (value range error) 

756:0 3 end; (case) 

757:0 2 end; 

758:5 
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759 D 

760 S 

761 D 

762 C 

763 C 



-12 



$pag«$ 



764 
765 
786 
767 
768 
769 
770 
771 
772 
773 
774 



1 procedure tea_BUBBLE ( un : unitnum;ds :ds_type; 5C :sho rt int ) ; 

2 ^i NOTE THfiT UrlfiXBVTES IS ASSIGNED fiT CLFRRUNIT TIME ) 
2 .;heck(5c,7,31); 

2 tea |un, dam Ids) ,BUBBLE_Tn_name, 5C ,0 ,0 , 0,0 , 0, ' ' .BUBBLE , F, T,T ,0) 
2 end; 

1 procedure tea_FPROri( un ; unit nun;d5 :db _t ype ; sn : shortint ) ; 

2 begin 

2 { NOTE THAT UMBXBYTES IS ASSIGNED ST CLEBRUNIT TIME > 

2 check (sn,0,MfiXUNIT) ; 

2 tea(un,darrid5],EPROn_Tn_nanie,0,0,0,sn,0,0, " ,EPROM, F,T , T,0) ; 

2 end : 
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775 :D 


-12 1 


776 :S 




777:0 


1 


778 :D 


2 


779 :D 


-2 2 


780 :C 


2 


781 :C 


2 


782 :C 


2 


783 :C 


2 


784 :C 


3 


786 :C 


2 


786 :S 




787 :S 




788 :D 


1 


789:0 


2 


790:0 


-662 2 


791:C 


2 


792 :C 


2 


793 :C 


2 


794 :C 


3 


795 :C 


4 


796 :C 


4 


797 :C 


4 


798 :C 


4 


799 :C 


4 


800 :C 


4 


801 :C 


2 


802 :S 




803:S 




804:0 


1 


805:0 




806:0 


-2 2 


807 :C 


2 


808:C 


2 


809 :C 


2 


310:C 


2 


81I:C 


3 


812:C 


2 


813:S 




814:S 




815:D 


1 


816:C 


2 


817:C 


2 


818:C 


2 


819:C 


2 


820 :C 


3 


821 :C 


2 


822:5 




823 :S 




824 : 


1 


825 : C 


2 


826 :C 


2 


827:C 


2 


828:-: 


2 
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loageS 

procedure c reaie_temp_uni table; 
var 

lunit: unitnum; 
bey in 

new (temp ur.i table); 

tea_nounTt (0 ) ; (assign one duimiy entry) 

for lunit := 1 to maxunit do (copy others' avoid symbol table search each timei) 



t emp_uni t able^[luni t] ; = temp__unit able^ [6] ; 



procedure assign_and_clea r_ijnit (lunit; unitnum) ; 
var 

f: fib; 
begin 

if temp unitable=nil then halt(-3); {unassigned po inter) 
with unTt able'Tluni t ] , f do 

if (letteroRnn) or (lunit-O) then 
begin 

unit able'^[ lunit] := temp_uni table"" [lunit]; 
f uni t := luni t ; 

call(tm, addr[f), clearunit, lunit, 0, 0); 
offline := uisblkd and ( ioresult<>6 ) ; 
end; (with) 
end; 

P'ocedu re assign_temp_unitable; 
va r 

J u n i t : u n i 1 n jm ; 
beqin 

i f temp_unit able = nil then halt (-3); (unassigned pointer) 
lockfiles; (close all standard system files) 
for lunit := to maxunit do 
a55igii_and_clear_unit (lunit ) ; 
end; 

f.inction sy5unit._ok[ system_unit : unitnum); boolean; 
begin 

sy^unit := 5ystem_unit; 

ini t sysuni t ■ " 

with unit able"" [system unit] do 

sysunit_ok := uisbil<^d and not offline and (uvid<>' ' ) ; 
end; 

procedu re zap^as signed^unit (lunit: unitnum); 
begin 

tea_nounit ( lunit ) ; (zap the temp unitable entry) 

uni table'" [lunit ] ;= temp unit able^ [lunit ] ; (now zap the real one[) 

end; 
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829:0 


-12 1 


830:S 




831 :D 


1 


832:0 


2 


833:0 


-4 2 


834 :C 


2 


83S:C 


2 


836:C 


2 


837:C 


3 


838:C 


3 


839;C 


3 


840 ;C 


2 


841 :S 




842:3 




843:0 


1 


844:0 


2 


845:0 


-1 2 


846:0 


-4 2 


847 :C 


2 


848 :C 


2 


849:0 


2 


850:C 


3 


851 :C 


4 


852:C 


4 


853:C 


4 


854 :C 


S 


85S:C 


6 


856:C 


6 


857:0 


7 


858:C 


7 


859:C 


7 


8S0:C 


7 


861 :C 


6 


862:0 


6 


863:C 


4 


864 :C 


4 


865:0 


4 


866:0 


5 


867 ;C 


5 


868:0 


5 


869:0 


2 


870 :S 




871:0 


1 
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function on_5ame__medium( lunl , 
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lun2: unitnum): boolean; 



File name: CTBETR ** 



uep: "^unitent ry; 

begin (on_5ame_medium) 

uep := idd r (uni table" [Iun2] ) ; 
with Ljnitable'[lunl] do 

on_same_n-iedium := (sc=uep'^. sc ) 
(du=uep'"'.dL ) 
( let ter-uep"" . 
end ; {on_same__medium) 



and (ba=uep".bal 
and (dv-uep'^.dv) 
letter); 



and 
and 



1 procedure remove_e>; t raneou5_vo lurries (first _lun, la5t_lun: unitnum); 
va r 

f irst_lun_ok : boolean ; 
lun: unitnum; 
begin {remove ext raneous_volume5 ) 
Tir5t_Iun_oK := false ; 
while first lun<l35t_Iun do 
if first_Tun_ok then 
begin 

lun := fir5t_lun+l; 

with unitable^'Tfirst^lun] do 

while ( lun<=last_lun) and not sysufiit_ok[lun) do 
begin 

if unitable^nun] .byteof fset = byteoff set + umaxbytes then 
begin 

Umax byte? := umaxbytes+unitable^Clun], umaxbytes; 
zap_as5i ' ' " ' 

end ; 
lun : = lun+1 ; 
end; {while} 
f i rst lun : = lun ; 



te5 := umaxbytes+u 
5igned_unit [ lun ) ; 



end (then) 
else if 



5y!junit_ok(fir5t_iijn) then 
fi rst_Iun_ok := t rue 
else 

first^lun := first _lun+l; 
end; { remove_ext raneous^volumes) 

1 end; {ctr) 
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872:D 
873:3 
874 :D 
875:3 
876:D 
877:D 
878:0 
879:0 
880:0 

881 :D 

882 :S 
883:D 
884 :D 
885:3 
886:0 
887:0 
888:0 
889:0 
890:0 
891:3 
892:0 
893:0 
894:3 
895:0 
896:S 
897 :D 
898:0 
899 ;D 
900:3 
901:0 
902:0 
903:3 
904 :D 
905:D 
906:D 
907:S 
908:D 
909:D 
910:D 
911:0 
912:0 
913:0 
914:0 
915:0 
916:0 
917:0 
918:0 
919:D 
920:0 
921:5 
922:0 
923:0 
924:0 
925:S 
926:0 
927:0 
928:S 
929:0 
930:0 



[* Uarning : * J 

(* This module should not be modified! *) 
f # *i 

import 

sysglobals , options, ctr; 

e?<port 
const 

INTERNPL^hSUS - MSUS_t ype 

[ f lpy_f lags: a5sign_neither_f lpy_unit , letter: INTERNAL, 
dav: dav_type[sc: -1, ba: -1, du: 0, dv : -1] ]; 

function inte rn3l_mini_presen-: : boolean; 

procedure get_bootdevice_nsuS ;va r MISUS: MSUS_type); 



implement {BRstuff) 

type 

si9ned4 
sl9ned8 



-8. .7; 
-128. .127; 



fmit type = {format field in The msu5 byte) 
(TO.fl ,f2,f3,f4,fS,f6,f7); 

dev_type = {device field in the msus byte) 

( dO, dl, d2, d3, d4, dS, d6, d7, dS, d9,dl0,dll ,dl2,dl3,dl4,dl5, 
dl6,dl7,dl8,dl9,d20,d21,d22,d23,d24,d25,d26,d27,d28.d29,d30,d31); 

BR_m5us type = {BOOTROM's mass storage unit specifier) 
packed" record case boolean of 
false; {8-bit unit number) 

( fmt : fmt_type; directory ■f'ormat) 
dev: dev__type; {device) 
un: signed©; {8-bit unit number) 

s: ; 5igned8; {select code) 

ba: 5iqned8 {bus addres;;) ); 

true: {4-bit volume / 4-bit unit number for CS80 discs) 
( pad: 5igned8; {format/device byte) 
vn4: 5igned4; {4-bit volume number) 

un4: signed4; {4-bit unit number) ); 

end; {BR_m5u5_t ype) 

ar 

ROn IDC16382]: {BOOTROM identification word) 
sITortint ; 

nc rives [-296] : {Maximum Unit for Internal hini-Floppy) 
packed record b: signedS; end; 

def ault_msus [ -292] : {boot device's msus) 
BR_msus_t ype ; 
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931:0 




] 


SpageS 




932 :S 










933 :D 




1 


function internal mini present: boolean; 




934 :C 




2 


begin 




935 :C 




2 


If Ron ID<0 




936 :C 




3 


then internal_mini_present := true (1.0 BOOTROn on 9826} 
else internal~mini present := ndrives .b<>-l ; (2.0 or greater BOOTROM) 




937 : C 




3 




938 :C 




2 


end; 




939 :S 










940 ;S 










9*1 :D 




1 


procecJure get bootdevice nSUS(var ttSUS : MSUS type); 




942:0 




2 


type 




943:0 




2 


letter table type = array[dev type] of char; 




944:0 




2 


const 




946:0 




2 


letter table = (BOOTROn dev to Pascal letter conversion table) 




946:0 




2 


letter taole type 

[ INTERNflL, NOOEVICE, NODEVICE, NOOEVICE, HP9895, HP8290X, HP9885, HP913X fl, 
HP913X B, HP913X C, NODEVICE, NODEVICE, NODEVICE, NOOEVICE, NODEVItE, NODEVICE, 




947:0 




2 




948:0 




2 




949:0 




2 


CS80, " CS80, ~ NODEVICE, NODEVICE, NODEVICE, NODEVICE, BUBBLE , NOOEVICE, 




950:0 




2 


NODEVICE, NODEVICE, NODEVICE, NODEVICE, NODEVICE, NOOEVICE, NOOEVICE, NODEVICE ] 


; 


951 :C 




2 


begin 




952 :C 




2 


If Ron I0<0 then (1.0 Boot Ron on 9826; internal minifloppy only) 




953 :C 




3 


MSUS := INTERNfiL nSUS 




9Si:C 




3 


else (2.0 or greater Boot Ron) 




956 :C 




3 


with default msiis do 




956 :C 




4 


begin 




957 :C 




4 


If fmt=f7 then (non sector-oriented device) 




9S8:C 




6 


if dev=dl 




9SS:C 




6 


then MSUS. letter := SRn 




960 : C 




6 


else nSUS. letter := NODEVICE 




961 :C 




6 


else (sector-oriented device) 




962:0 




5 


nsUS. letter := letter table[dev]; 




963 :C 




4 


nsus.dav.sc := sc; 




964 :C 




4 


nSUS.dav.ba :» ba: 

if nSUS.letter=CS80 then 




965 :C 




4 




966 :C 




6 


begin 




967 ;C 




5 


nsUS.dav.du := un4; 




988 :C 




5 


nSUS.dav.dv :■ vn4; 




969 :C 




5 


end (then) 




970 :C 




5 


else 




971 ;C 




5 


begin 

nSUS.dav.du := un; 




972 :C 




5 




973 :C 




5 


nsuS.dav.dv :- 0; 




974 :C 




5 


end; (else) 




976 :C 




4 


end; (with) 




976 :C 




2 


end; 




977 :S 










978 :C 




1 


end; (BRstuff) 
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979:0 




1 


Spagel 




980 :S 










981 :D 




1 


nodule scans tuff; 




982 :S 










983:0 




1 


(***)««*******«*****#*******♦**»**#*#«**#«*«*♦) 




984:0 




1 


(* *) 




985:0 




1 


(» Warning: » 




986:0 




1 


(* This module should not be modified! * 




987:0 




1 


I* * 




988:0 




I 


(»***«***««******x««* *«*«***«***»* ***#****«»# 




989 :S 










990:0 




1 


import 




991:0 




1 


sysglobals, options, ctr; 




992:3 










993:0 




1 


export 




994 :S 










996:0 




1 


procedure ini- scanstuff; 




996:0 




1 


function scdnneddevice letter(scan dav : dav type): char; 




997:0 




1 


procedure get CS80 parm3(CS80dav : 3av type; 




998:0 




2 


var CSSOdt: Eyte; var CSSOid: integer; 

var CSSOhardvols: shortint; var CSSOmp: mp type); 




999:0 




2 




1000:S 










1001:D 
1002 :S 
1003 :S 




1 


implement (scanstuff) 












1004 ;D 




1 


type 




1006:0 




1 


uep_.lype = '^unitentry; 




1006 : S 










1007 :D 




1 


uep proc type = procedure (uep: uep type); 

HPlEqet amigo ident type = procedu re (uep: uep type; var ident: shortint); 

get letter type = procedure (uep: uep tvpe; ident: shortint; var letter: char); 

get CS80 parms type = procedure (va r CSSOdt: byte; 




1008 :D 




1 




1009:0 




1 




1010:0 




1 




1011:0 




1 


var CSSOid: integer; 

var CSSOhardvols: shortint; 




1012:0 




1 




1013:0 




1 


var CSSOmp: mp_type); 




1014:S 










1015:0 




1 


proc type = 




1016:0 




1 


packed record case integer of 




1017:0 




1 





value, slink: integer); 




1018:0 




1 


1 


up: uep proc type) ; 

gai: HPTBget amigo ident type); 




1019:0 




1 


2 




1020:0 




1 


3 


(gl: get_letter_type) ; 




1021 :D 




1 


4 


(gcp: qet CS80 parms type); 




1022:0 




1 


end; " 




1023:S 










1024 ;S 










1025:0 




1 var 




1026:0 


-8 


1 


allocate bkgnd info proc: proc type; 




1027:0 


-16 


1 


deallocate bkgnd iriTo proc: proc type; 




1028:0 


-24 


1 


abort bkgn? process_proc : proc type; 
HPIBcneck sc proc: proc type; 




1029:0 


-32 


1 




1030:0 


-40 


1 


HPIBget_amigo„ident_proc: proc_type; 




1031 :S 










1032:0 


-48 




get amigo letter proc: proc type; 
get CS80 Tetter proc: proc type; 




1033:0 


-56 


i 




1034:0 


-64 


1 


get_CS80_parms_proc: proc_type; 




1035:S 










1036:0 


-65 


1 


bkgnd_and_dischpib_pre5ent : boolean; 
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1037:D 


-65 


1 


Ipagel 






1038:S 












1039:D 
1040:S 
1041 :D 




1 


function •rcanneddevice_letter(scan_dav : dav_typej: char; 








2 


type 






1042:D 




2 


amigo_clas5_type = {upper three bits of the first ident byte) 






1043:D 




2 


(storage, display, date communication, processor, 
stimulus, mesasurement , unassignedB, unassignea?) ; 






1044 :D 




2 






104S:S 












1046 :D 




2 


van 






1047:D 


-58 


2 


ue : unitentry; 






1048:D 


-68 


2 


ident : 






1049:D 


-58 


2 


packed record case integer of 






lOSOlD 


-58 


2 


: (word: shortint ) ; 






1051 :D 


-58 


2 


1: (upper byte, lower byte: byte): 
2: (amigo class: amigo class type); 






1052;D 


-58 


2 






10S3:D 


-60 


2 


end; 






1054 :S 












1055 :D 


-8 


2 


procedure set_5canneddevice_letter (get_letter proc: proc type); 






1056:D 


-3 


3 


van 






1057:D 


-9 


3 


device letter: char; 






1058:C 




3 


begin (set scanneddevice letter) 






10S9:C 




3 


If get letter proc.valueoO then 






1060:C 




4 


begin 






1061 :C 




4 


call(get letter proc.gl, addr(ue), ident. word, device letter); 






1062:C 




4 


scanneddevice letter ;= device letter; 






10e3:C 




4 


end; <if) 






1064 :C 




3 


end; {set scanneddevice letter) 






ioes:s 












1066:C 




2 


begin {scanneddevice letter) 

scanneddevice letter := NODEVICE: {until proven otherwise) 






1067:C 




2 






1068 :C 




2 


if bkgnd and cjischpib present then 






1069:C 




3 


try 






1070:C 




4 


ue . sc := scan_dav.5c 








1071 :C 




4 


ue .ba : = scan dav .ba 








1072:C 




4 


ue .du := scan_dav .du 








1073:C 




4 


ue.dv := scan_dav.dv 








1074:C 




4 


call (allocate bkgnd info proc. up, addr(ue)); 






1075:C 




4 


call(HPIBcheclc sc proc. up, addr(ue)]; 






1076:C 




4 


call(HPIBget amigo ident proc.gai, addr(ue), ident. word); 
if ident. amigo class=5torage then 






1077 :C 




4 






1078:C 




5 


if ident . upper byte=2 






1079 :C 




6 


then set_scanneddevice„letter fget_CS80_letter_proc) 






1080 -.C 




6 


else set_scanneddevice._letter (get_amigo_let ter„proc) 






1081 :C 




6 


else if ident. amigo class=display then 
scanneddevice letter := PRINTER; 






1082:C 




6 






1083:C 




4 


call(deallocate bl<gnd info proc. up, addr(ue)); 






1084 :C 




4 


recover 






108S:C 




4 


call(abort bkgnd process proc. up, addr(ue)); 






1086;C 




2 


end; {scanneddevTce_let ter ) 
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1087:D 


-65 


1 


$page$ 






1088:S 












1089:0 




1 


procedure get C380 parms(CS80dav : da" type; 






1090:0 




2 


var CSSOdt: tjyte; var CSSOid: integer; 

var CSeOhardvols: shortint; var CSSOmp: mp type); 






1091 :D 




2 






1092:C 




2 


begin {get CS30 parms) 






1093:C 




2 


if (scanneddevice let ter (CSSOdav i=CS80) and (get CS80 parms proc.valueoO) then 




1094 :C 




3 


calKget CS80 parms proc.gcp, CSSOdt, CSSOid, CSSOhardvols, CSSOmp) 






109S:C 




3 


else 






109e:C 




3 


begin 

CSSOdt := 255; 






1097:C 




3 






1098:C 




3 


CSSOld ;= 0; 






1099:C 




3 


CSSOhardvols := 0; 






1100 :C 




3 


CSSOmp := medium parameters (NODEVICE) ; 






1101 :C 




3 


end; (else) 






U02:C 




2 


end; (get CS80 parms) 






U03:S 












n04:S 












1105:D 




1 


procedure init scanstuff; 






1106:S 






( 






1107:S 






NOTE: all procedure variables are GLOBflL, so their static links are 
guaranteed to have been cleared 9 load time 






1108:S 










1109:0 




2 


) 






1110:C 




2 


begin {init scanstuff) 






1111:C 




2 


allocate Fkgnd info proc. value := value 'BKGND flL(.OCflTE BKCND INFO'); 
deallocate Jkgnd inTo proc.value := value 'BKGND DEPLLOCflTE BKGND INFO') 






IU2:C 




2 


' 




1113:C 




2 


abort bkgn3 process proc.value : ■= value 'BKGND HBORT BKGNlJ PROCFSS'); 
HPIBcKeck sc proc.value :- value 'DISCHFIB HPTBCHECI? SC ' ) ; 






ni4:C 




2 






U1S:C 




2 


HPIBget amigo ident proc.value := value 'OISCHPIB HPIBGET BFIIGO IDENT" 


); 




1116:S 












1U7:C 




2 


get amigo letter proc.value := value 'BMIGODVR GET LETTER'); 
get CS80 Tetter proc.value :> value 'CS80DVR CET TETTER'); 






1118:C 




2 






1U9:C 




2 


get_CS80_parms_proc. value := value 'CS80DVR_GET_PnRnS' ) ; 






1120:S 












1121:C 




2 


bkgnd and dischpib present := (allocate bkgnd info proc.valueoO) and 






1122:C 




2 


~ (deallocate bkgnd inTo proc.valueoO) and 






U23:C 




2 


(abort bkqn(J_proce5s_proc .valueoO) and 
(HPIBcneck sc proc.valueoO) and 






U24:C 




2 






112S:C 




2 


(HPIBget amigo ident proc.valueoO); 






1126:C 




2 


end; {init_5Canstuf f ) 






U27:S 












1128:3 












1129:C 




1 


end; (scanstuff) 
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1 1 ; : D 

I131:S 

1132:D 

1133:S 

1134: 

1135: 

1136: 

1137: 

1138: 

1133: 

1140: 

1141:D 

U42:D 

1143:3 

1I44:D 

I145:D 

1146:0 

1147:D 

1148:D 

1149:D 

1150:D 

11S1:D 

1162:D 

1163:3 

1154:D 

11S5:D 

1166:D 

1167:3 

1168:D 

1159:D 

1160:D 

1161:D 

1162:D 

1163:S 

1164:D 

1165:D 

1166:0 

1167:3 

1163:D 

1169:0 

1170:0 

1171:0 

1172:0 

1173:0 

1174:0 

1175:0 

1176:S 

1177:3 

1173:0 

1179:C 

1180:C 

1181:C 

1182:C 



-60 
-120 
-130 
-186 

-190 
-194 
-198 

-206 
-212 
-214 
-218 
-220 
-228 
-234 
-235 



SpageJ 

{program ctable} 

Caution: *) 

Modify this section only if the desired *) 

configuration cannot be achieved by *) 

modifying the OPTIONS module. *) 

import 

sysglobals, fs, Idr, options, ctr, BRstuff^ scanstuff, bootOflMmodule; 



'/WORKSTHTIONS/SYSTEtl' ; 
-1, ba; -1, du: -1, dv: 



const 

s rmsyspref ix 
null_dav = 

dav type[sc: -1, ba: -I, du: -1, dv: -1]; 
null nsus = 

n3US_type[flpy flags: a55ign_neither_flpy_urit , letter: NODEVICE, dav: null dav]; 
HP9885_default_n5uS = 

nsus_type[flpy_flag5: a55ign_neither_f lpy_unit , letter: HP9885, dav: HP9885_def ault_dav 1 ; 
riSU3_array_5ize = 10; 

type 

nsus array_type - array [1 . .nSUS_a rray_size] of nSUS_type; 

Iog_nsu3_opt ions = (search_for_other_unit 5, do_not_search_for_other_unit s) ; 

var 

flpy nSUS: nsus array_type; 
hard3"isc_MSUS: I^SUS_ar ray_t ype ; 
CSSOtape MSUS : MSUS_ar ray_t ype; 
scanner FiSUS: nSUS_type; 

local_printer dav: dav_type; 
SRM dav : dav Type; 
BUB?LE_dav: 3av_type; 



shortiht ; 



index, bus_addres5, i, nvols: 
lun, lunl, lun2: unitnum; 
CSBOdt: byte; 
CSSOid: integer; 
CSSOhardvols: shortint; 
fnp: mp_type; 
pp: pp_type; 
ok: boolean; 



1 function increment_and_te5t_lun : boolean; 

2 begin { increment_and_test_lun) 
2 lun : = lun+l ; 

2 inc rement_and_test_lun := lun<=la5t_harddisc_lun ; 
2 end; { increment~and_t est_lun) ~ 
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1183:0 

1184:S 
11BS:D 
1188:D 
1187:D 
1183:D 



118-3 

1190 

1191 

1192 

1193 

1194 

119^1 

1196 

1197 

119H 

1193 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207:C 

1208:C 

120:):C 

1210:C 

1211:C 

12l:::C 

1213:C 

1214:C 

121'.:C 

1216 

1217 

1218 

121fl 

1220 

122 

122 

122 



1224:0 
122f.:C 



1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

123;-: 

1236 



-235 1 $page$ 

-122 1 function unit prefix successful (dirname: fid): boolean; 

-122 2 var 

-126 2 uritnum: integer; 

-144 2 kvid: vid; 

2 begin {unit pref ix_successf ul > 

2 dopref ix (Hirname , kvid, unitnum, true); 

2 unit_pref ix_succe5sful := iore5ult=ord ( inoer ror) ; 

2 end; {ijnit_oref ix^successf ul> 



1 procedure zero_out_Nfi_f ield5(var devlce_MSUS: nsUS type); 

2 const 
clear = true; 
retain = false; 

procedure zero_f ields (sc, ba, du, dv : boolean); 
begin {zero^f ields) 

if sc then device_MSU3. dav .sc 
if ba then device_nSUS. dav .ba 
if du then device MSUS. dav .du 
if dv then device_MSUS. dav.dv 
end; {zero_f ields) 
begin (zero_cut Nfl^fields) 
case device nJUS. letter of 
INTERNA!, :~ 

zero_f ields ( {sc > clear 
HP988S: 

zero_f ields ( {sc > retain, <ba} clea. , v«w, ._,-., 
HP989S, HP8290X, HP913X_B, HP913X_B, HP913X C, SRM. 

zero fields({sc} retaTn, {ba) retain, {du7 retain, (dv) clear 
BUBBLE: 

zero_f ields [{ sc } retain, (ba) clear 



{ba> clear 



<du> retain, {dv> clear 
{du> retain, (dv) clear 



EPROn: 

zero fields[{5c> clear , 
otherwise {includes CS80> 
{do nothing); 
end; (case) 
end; {zero_out_Nfi_f ie !-:l5> 



{ba) clear 



{du> clear 
{du) clear 



(dv) clear 
{dv> retain 



1 procedure assign f lpy_unit_pair (lun: unitnum; dam: ds_type; index: shortint); 



begin {assign Tlpy_unit_pai r ) 

with flpy_nSUS [index] , flpy_flag5, dav do 
begin 

if a55ign_even_unit then 
begin " " 

tea_f Ipy ( lun, letter, dam, sc, ba, du); 
lun := lun+l ; 
end; (if) 
if assign odd_unit then 

tea flpy(lun, letter, dam, sc, ba, du+1); 
end; (with) 
end; (assign_f lpy_unit_pair ) 
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-235 1 tpageS 

-6 1 prccedure log_t1SUS (MSUS : nSUS_type; log_nSUS_opt ion ; log_MSUS_cptions) ; 



1237:D 
1238:S 
1239:D 
1240:S 
1241 :S 
1242:D 
1243:D 

1244 :S 

1245 ;S 

1246 :D 

1247 :D 
1248:0 
1249:D 
1250:C 
1251 :C 
1252:C 
1253 :C 
1254:C 
1255: 
1256: 
12S7: 
1258: 
12S9: 
1260: 
12S1: 
1262: 
1263: 
1264: 
1265: 
1266: 
1267:S 
1268:D 
1269:D 
1270:D 
1271 :C 
1272:C 
1273:: 
1274:C 
1275:C 
1276:C 
1277:C 
1278 :C 
1279:C 
1280: 
1281: 
1282: 
1283: 
1284: 
1285; 
1286: 
1287: 
1288: 
1289: 
1290: 
1291 :C 
1292:C 



-■6 2 type 

-6 2 log_flpy_M5US_options ^ la5sicn_bot h_unit 5, assign_only_this_unit ] ; 



procedure Iog_5pecif ic_nsus ( v 



var 



5pecific_nSUS : nSUS_array_type) ; 



index: shortint ; 
found: boolean; 
begin <log_specif ic_f1SU3) 
index := 0; 
repeat 

index :- index+1; 

found := nSUSs match (specif ic nSUS[index], HSUS); 
until found or (Tndex=MSUS_a r ray_size) ; 
if found 

then M;3US.flpy_flags :- specif ic_n3U3 [index] . flpy_f lags (preserve) 
else MSUS.f Ipyf lags :- as5ign_neither_f lpy_unit ; (initialize) 

while index>l do 
begin 

specific_MSUS[index] := specif ic_nSUS[index-l ] ; 
index :- index-!; 
end; (while) 
specific MSc)S[l] := MSUS: 
end; { log_specif ic_MSUS ) 

procedure log_f lpy_I1SUS ( log_--lpy_nSUS_opt ion : l09_flpy MSUS options); 
var 

odd_unit : boolean; 
begin (log flpy^nSUS) 
with nSUS.dav do 

begin (since floppy unit 
odd_unit :- odd(du); 
du : ■- du-ord(odd_unit ) ; 
end; (with) 
log ispecific t1SUS(flpy MSUS); 
witW flpy MSnS[l] do Tupdate the flpy_flag5) 
if iog_Tlpy_MSUS_option=a55ign_both units then 

flpy^flags := a55ign_bot h_f lpy_unTt5 
else (set only this unit's assignment flag) 
if odd_unit 

then flpy_f lags . assign _odd_unit := true 
else flpy flags. assign even unit := true; 
end; ( log_f lpy_MS[JS ) 

procedure log harddisc MSUS; 
begin (log_Trarddi5c_FSUS ) 

MSUS. day. dv := 0; (all vols will be assigned, so log only volume zero) 
log specific i1SUS(harddlsc_,NSUS ; 
end; ^Jog harddisc MSUS) 



are assigned in pairs...) 

(remember which unit this actually is...) 

(but log only the even-numbered unit!) 



Pascal [Re 


V 3. on 


1293:D 


-6 


2 


1294 :S 






1295:D 




2 


1296:D 




3 


1297:D 


-4 


3 


1298:D 


-5 


3 


1299:C 




3 


1300;C 




3 


1301 :C 




3 


1302:C 




3 


1303:C 




4 


1304 :C 




4 


130S:C 




4 


1306:C 




3 


1307:C 




3 


1303:S 






1309:S 






1310:0 




2 


1311:0 




3 


1312:0 


-6 


3 


1313:C 




3 


1314:C 




3 


131S:C 




3 


13ie:C 




4 


1317:C 




5 


1318:C 




5 


1319;C 




S 


1320:C 




S 


1321:C 




5 


1322:C 




5 


1323:C 




3 


1324:S 






1325:S 






1326:0 




2 


1327:0 




3 


1328:0 


-2 


3 


1329:0 


-S 


3 


1330:0 


-3 


3 


1331:0 


-18 


3 


1332:0 


-16 


3 


1333:0 


-16 


3 


1334:0 


-16 


3 


1335:C 




3 


1336:C 




3 


1337:C 




3 


1338:C 




4 


1339:C 




4 


1340:C 




S 


1341 :C 




5 


1342:C 




S 


1343:C 




3 



3. on 6/ 4/84] CfBEin.TEXT 
2 SpageS 
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function any__9895_uni t^missing : ooolean; 
var 

temp dav ; dav type; 
u n i t '^tn i s s i n q : "b o 1 e a n ; 
begin Tany_9895 uni t_mi55ing} 
temp dav := nS'US.dav; 

temp^dav.du := 3; {start vith unit 3 and work down) 
repeat {see if all fojr units are present) 

unit_mis5ing := scanneodevice letter (temp dav)<>HP9895; 
temp dav.du := temp_dav .du-1 ;' 
untiJl Tt *:^rrp_^dav .du<0 ) or uni t ^missing; 
any 9895 unTt_mi55ing ;= uni t^^missing; 
end; '^dny_?5'895_unit_mi5 5inc) 

procedure se a re h__hig he renumbered _CS80_units ; 
var 

temp MSUS: MSUS type; 
begin Tsearch higher numbered CSeo units) 
temp__nSUS := flSUS ; 
with temp nsus, dav do 

if du<l3' then {potential!/ there are higher-numbered units) 
begin 

du := du+1 ; 

dv := 0; (always look for volume 0) 
letter := scan neddev ice letter (davl; 

loq nsuS( temp__MSUS, se 3Tch_for_ot her__unit s ) ; {recurse!) 
end; J'if} 
end; ( search_hagher_numbered_CS80_units ) 



procedure log_CS80_riSUS ; 
var ~ 

CSSOdt : byte; 
CS80id: integer; 
CSSOhardvols: shortint; 
CSSOmp: mp_type; 
const 

tape dt = 2; 
min_Tid_5ize = 10000000; 
begin Uog_CS80_riSUSJ 

get CS80 parm5(riSUS .dav, CSSOdt, CSSOid, CS80hardvols, CSSOmp); 
If CS80dtstape_dt then 

log^specific_riSUS{CS80tape_MSUSl 
else if (CS80hardvols=l) and (CS80mp.bpt*CS80mp. tpm<min_hd_si2e) then 

109_flpy_f1SUS (a5sign_only_thi5_unit ) 
else 

loq harddisc nsus ; 
end; {lo9_CS80_n^US) 



(device type) 
(HD product number) 
{number of volumes) 
{media parameters) 



(bytes) 
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1344:0 -6 2 

1345:S 

1346: C 2 

1347:S 

1343:C 2 

1 34 9 : S 

1350:C 2 

1351 :S 

1352:C 3 

1353:C 3 

1354:S 

135S:C 3 

1366:C 3 

1367:S 

!3S3:C 3 

13S9:C 3 

1360:C 4 

1361:C 4 

1362 :C 4 

1363:S 

1364:C 3 

1 36S : C 3 

1366:C 3 

1367:C 4 

1368:C 3 

1369:C 3 

t370:S 

1371:C 

1372: 

1373: 

1374: 

1375: 

1378: 

1377: 

1373: 

1379: 

1380: 

1381: 

1382: 

1383: 

1384: 

1385: 



6/ 4/84] CTBETFl.TEXT 
Spagel 

begin (log_MSUS) 

zero_out_NS_field5(nSUS) ; 

case hSUS . letter of 

INTERNAL, HP8290X, HP9SS5: 

log_f lpy_riSUS (as5ign_both_unit s) ; 

HP913X fl. HP913X B, HP913X_C: 
log_Harddi5c_nJuSj 
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HP989S: 

if any 9895 unit_missing then {ultimately assign only two units > 

log_Tlpy nsuS(assign_6oth units) 
else {ultimatelv assign all four units (probably a 913X)) 
log_harddi5C_nSU" 



SUS; 



CS80: 
begin 

If log_nSUS_opt ion=search for_other_units then 

search_higher_numbered_rs80_units; 
log_CS80_MSUS; {distinguishes tapes, floppies, & hard discs!) 
end; 

SRM: 

SRn_dav 



PRINTER: 

local_printer_d3V 

BUBBLE: 

BUBBLE_dav 

otherwise 

{do nothing); 

end; {case) 

end; {log_n3US> 



fISUS.dav; 

MSUS.dav; 
- nSUS.dav; 
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Pascal [Rev 3.0M 6/ 4/84) CTBETfl.TEXT 
$page$ 
begin {ctable) 

{ various initializations ) 

caIl(cleariohook] ; {init 10 cards in case the SOOTROh drivers touched them) 

init_scanstuff ; 



1386 
1387 
1388 
1389 
1390 
1391 
1392 

139 3 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 

140 3 
1404 
1405 
1406 
1407 
1409 
1409 
1410 
1411; 
1412; 
1413 
1414 
1415 
1416 
1417 
1413; 
1419; 
1420; 
1421; 
1422; 
1423; 
1424; 
1425: 
1426; 
1427; 
1428; 
1429; 
1430; 
1431; 
1432: 
1433: 
1434; 
1435; 
1436; 
1437; 
1433; 
1439; 
1440; 
1441: 
1442: 
1443: 



for index := 1 to nSUS_ar ray_si2e do 
begin " 

ripy nsu3[index] := null_nsUS; 

hard3isc_nsUS [index] ;= nun_f1SUS; 

CSSOtapa h3US[index] := null_nSUS; 
end; (forT 



SRn_dav 
BUBBLE_dav 



SRn_default_dav; 
BUBBLE default dav 



{overridden if bootdevice) 
{overridden if bootdevice) 



if local printer option=HPIB 

then local printer_dav := local HPIB printer default dav {scan may override) 
else iocallprinter^dav ;= local"RS235_printeT_def aulT_dav; {scan may override) 

{ log the default 9885 floppy pair, since HP-18 scanning won't include it ) 
log_nSUS(HP9885_default_l1SUS, search_for_ot her_units) ; 

{ scan the HP-IB's for mass storage devices and possibly a local printer ) 

with scanner_hSUS, dav do 

for index := 1 to sc_list_lergth do 
for bus_address := to 7 do 
begin 

sc := sc^list [index] ; 
ba := bu?_address; 
du := 0; 
dv := 0; 

letter := 5canneddevice_letter (dav) ; 
log MSUS (3canner_hSUS, search_for_other_unit s) ; 
end; Jfor) ~ 

{ log internal mini if present, since HP-IB scanning didn't include it ) 

if internal mini present then 

log_MSUS(TNTERWL_MSUS, search_for_other_unit5) ; 

{ get the bootdevice nsus & log it ) 

get_bootdevice_MSUS(bootdev nsUS); 

zero out Nfl_fields (bootdev_RSUS) ; {for tea routine comparisons) 

ao9_RSUSTbootdev_nsUS, do_not_search for_other units); 

bootdev_lun := 0; (set otherwise if/when bootdevice is assigned in tea) 
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SpatjeS 

< Create a temporary table & fill it with dummy entries } 
c reate_temp_unitable; 



File name: CTBETfi *>; 



1444 :C 
144S:S 
1446 :C 
1447 :S 
1448 :C 
1449 :S 
14S0:S 

1451 :C 

1452 ;S 
14S3:C 
1464 :S 
145S:C 

1456 :C 

1457 :S 
1458:C 
1459:3 
1460 ;C 
1461 :C 
1462:3 
1463:C 
1464 :C 
1485 :S 
1466:3 
1467 :C 
1468:S 
1469:C 
1470:C 
1471:3 



{ standard assignemnts : avoid ch.3nging > 

t e a_memo r y_v o 1 ume_d am ( p r ima r y_d ari 1 ; 

tea_crtl 1); 
tea_kbd( 2); 

assign_f lpy_uni1_pair( 3, primarv_dam, ( f lpy_nSUS [] ) 1); 

with SRn dav do 

tea_srm( 5, sc, ba, du); 

with local printer_dav do 

tea_locaT_printer ( 6, sc , ba, \uvid} 'PRINTER', local_printer_tifiieDut ) ; 

< optional floppy unit pairs > 

for index := 2 to floppy unit pairs do 

a5sign_flpy_unit_pair (T> (in3ex-2)*2, primary_dam, < flpy_MSUS[] > index); 
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1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484: 

1485 

1486 

1437 

1488 

1489; 

1490 

1491 

1492 

1493; 

1484; 

1495; 

1496; 

1497; 

1498 

1499 

1500 

1501 

1502; 

1503; 

1504; 

1505 

1506; 

1507; 

1508; 

1509; 

1510 

1511 

1512 

1513 

1S14 

1515 

1516 

1517 

1518 

1519 

1520 

1521; 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

153-. 



$pat]e$ 

{ local hard discs } 
Sif trues 

lun := first_harddisc_lun-l ; 

for index := 1 to MSU3_ar ray_s3ze do 

2 with harddisc_hSUS[index] , dav do 

3 case letter of 

4 HP9895: {9895 ident with all four units present; probably a HP913X) 

4 for i := to 3 do 

5 if increment and_te5t_lL]n then 

6 tea_HP989STluh, primary_dam, sc, ba, (du) i, <block_of f set ) 0) 

4 HP913X_P, HP913X B, HPgiSXj:: 

4 begin ~ 

4 mp := medium parameters (letter J ; 

4 pp := partitioning parameters (let ter) ; 

4 nvols := number_voTs (mp, pp); 

4 for i := to nvols-l do 

5 if increment_and_test lun then 

6 tea_amigo_sv ( lun , p'ri(nary_dam, sc, ba, du, 
6 vol_of f set (1, nvols, mp), 
6 letter, 

6 vol_bytes(i, nvols, mp)); 

4 end; 

4 CS80: 

4 begin 

4 pp ;= partit ioning_parameter5 (let ter) ; 

4 repeat 

5 get_CS80_parm5(dav, C380dt, CSSOid, CSSOhardvols, mp); 

5 If mp.tpm=l then <tracK partitioning info unavailable...) 

6 mp := block_boundaries (mp) : (will have to fake itl> 
5 nvols := number_vol3 (mp, pp); 

5 for i := to nvols-1 do 

6 if increment_and_.test^lun then 

7 tea_CS80_mv [ Juri, prTm3ry_dam, sc, ba, du, dv, 
7 vol_of f set (i, nvols, mp) , 

7 (devid) CSSOid, 

7 vol_bytes(i, nvols, mp)); 

5 dv := dv+1: 

5 until dv>=CS80hardvols; 

4 end; 



4 
4 

1 $e 



otherwise 

(no local hard disc logged); 



end; (case) 
nd$ ( local hard discs ) 



I ( CS30 tapes ) 
1 $if true! 
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with CSSOtapG MSUStl], dav do 
if Ietrer=C580 then 

tea_CS80_sv(41, LIF_dam, sc, ba, du, dv); 

with CSSOtape nsuS[21, dav do 
if letter=C^80 then 

tea_CS80_sv(42, LIF_dain, sc, ba, du, dv); 

$end$ { CS80 tapes ) 

{ secondary directory access method entries for highest priority floppies > 
as5ign_f lpy_unit_pair [A3, secondary_dam, {f lpy_MSUS [] ) 1 ) ; 

{ duplicate entries for prefixing down the SRM > 

(« NOTE: fidditional duplicate SRM entries may be assigned here, then *) 

(« prefixed down below after assigning the temp_unitable . However *1 

(* for correct behavior in assigning the system unit^ specifically *) 

(* if booting off the SRM, unit MS must be the assigned RFTER all *) 

(* the other SRM units have been assigned! *) 

with SRn_dav do 
begin 

( tea_srm(46, sc, ba , du); (free) 

tea srm(45, sc, ba, du); {for possible use as the system unit) 
end; Twith} 

{ secondary directory access method entries for additional floppies ) 
assign_f lpy_unit_pair (47, secondary_dam, (f lpy_NSUS [] > 2); 
assign_flpy_unit_pair(49, second a ry_dam, <f lpy_MSUS [] ) 3 ) ; 



lS:i2:C 


1 


1533:C 


2 


1534 :C 


'I 


1535:S 




1536:C 


1 


1537:C 


2 


1538 :C 




1539 :S 




1540:: 


1 


1541 :S 




1542:S 




1543:C 


1 


1544 :S 




1S4S:C 


1 


1546 :S 




1S47;S 




1548 :C 


1 


1549:S 




1 5S0 : C 


1 


15S1:C 


1 


15S2:C 


1 


1553;C 


1 


15S4:C 


1 


15SS:C 


1 


15S6:C 


1 


15S7:S 




1SS8:C 


1 


15S9:C 


2 


1SR0:C 


2 


15l;l:C 


2 


1562:C 


2 


1S63:S 




1564 :S 




1565:C 


1 


1566 :S 




1567 :C 


1 


1568 :S 




1569 :C 


1 
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1570;C 1 $page$ 

1571 :S 

1572;C 1 { templates for "manually" specifying mass storage table entry assignments > 

1573 :S 

1574:S 

1S75:S lif falsel ( internal minifloppy in a 9826/9836 > 

1576;S tea_iirini( 3, primary_d£inj {duj 01; 

1577;S tea_niini( 4, primary_damj {du) 1); 

1578 :C 1 lends 

1579 :S 

1580:S $if false! ( HP8290X, HP9121, or the floppy in an HP913X ) 

1581:S tea_HP8290X( 3, primary^dam, (sc) 7, <ba> 0, (du) 0); 

1562:S tea_HP8290X( 4, pramary_dam, {sc> 7, <ba) 0, (du) 1); 

15e3:C 1 lends 

1584 :S 

158S:S $if falseS < HP9895 ) 

1S86:S tea_HP989S( 7, primary_d8m, (sc) 7, (ba) 0, (du) 0, {block_of fset ) 0); 

1587:S tea HP9895( 8, primary dam, {sc) 7, (ba) 0, (du) 1, {block_of fset > 0); 

1588:C 1 Sends" 

1S89:S 

1590:S $if false* ( HP913X (four volume 9885 look-a-like version) ) 

1591:S for i := to 3 do 

1592:3 tea_HP9895(ll»i, primary_dam, (5c> 7, (ba) 0, (du) 1, (block_of fset ) 0); 

1593:C 1 Sends 

1594:S 

1595:S Sif falseS < HP913XJ (5 Mbyte single volume version) ) 

1S96:S mp :• medium_paramete rs (HP913X_fl) j 

'597:S nvols := 4; 

lu98:S for i := to nvols-1 do 

1599:S tea_amigo_sv(ll+i, primary_dam, (sc) 7, (ba) 0, {du) 0, 

1600:S vol off5et{i, nvols, mp), 

1601 :S Hpgraxj, 

1602:S vol_bytes(i, nvols, mp) ) ; 

1603:C 1 Sends 

1604:3 

160S:S Sif falseS { HP913X_B (10 Mbyte single volume version) ) 

1606:3 mp := medium_par amete rs [HP9 13X_B ) ; 

1607:S nvols ;= 9; 

1608:3 for i := to nvols-1 do 

16C9:S tea_amigo_sv(ll+i, primary_dam, (sc) 7, (ba) 0, (du) 0. 

1610:S vol offset(l, nvols, mp), 

1611:3 HP9T3XJ, 

1612:3 vol_bytes[i, nvols, mp)); 

1613:C 1 Sends 

1614:3 

1615:3 Sif falseS { HP913X_C (16 Mbyte single volume version) ) 

1616:3 mp :■ medium_parameters (HP913X_C) ; 

1617:3 nvols := 14; 

1618:3 for i := to nvols-1 do 

1619:3 tea amigo__5v [1 1 + i , primary_dam, (sc) 7, (ba) 0, (du) 0, 

1620:S ~ vol off5et(i, nvols, mp) . 

1621:3 HP9r3X_C, 

1622:3 vol_byte5(i, nvols, mp)); 

1623:C 1 Sends 
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1624:C 

1S2S:S 

1626:S 

1627:S 

1628: " 

1629; 

1630; 

1631; 

1632; 

1633; 

1634; 

163S;S 

1636;S 

1637;S 

1638:S 

1639;C 

1640:S 

1641:S 

1642:S 

1643:S 

1644:S 

1645:S 

1646;C 

1647;S 

1648;S 

1649:S 

1650;S 

1651 ;C 

1652:S 

I6S3:S 

1654;S 

165S:S 

1656:C 

1857;S 

1658;S 

1659;S 

1660:S 

1661 ;S 

1662 ;S 

1663:C 

16 

1665; 

16 

1667; 

1668; 

1669; 

1670; 

1671; 

1672: 



1 Spagel 



rrent CS/80 aisc? 



Jif faiseS 

CSSOid ;= 7908; nvols ;= 16; 

{ CS801d := 7911; nvols := 27; 

{ CS80id := 7912; nvols := 30; 

{ CSSOid ;= 7914; rivols ;= 30; 

< CSSOid ;= 7933; nvols ;= 30; 

( CSSOid := 7935; rvols ;= 30; 
{ mp := blockboundaries (mp) ; 
to nvol5-l do 



"sof f 
tfxn 



partitioned by the host } 



tpcti 
tpm 
tpfr 
t pm 
tpm 



ride 



5* 370 
3» 572 
7« 572 
7*1152 
:3»1321 
13»1321 



ap.bpt 
np.bpt 
mp.bpt 
mp.bpt 
mp.bpt 
mp.bpt 



= 3S»256 
= 64*256 
= 64*256 
64*256 
92*256 
= 92*256 



tea_CS80_mv(ll+i, 



(sc> 



primarydan 
vol_of f set (i , nvols , 
(devid) C:530id, 
vol_bytes(i, nvols, r 



track, boundary partitioning} 

<ba> 0, <du) 0, {dv> 0, 
mp). 



$if falsifij { current CS/SO discs "hard" partitioned by the device } 
CSSOhardvols ;» 3; 
for i := to CSSOhardvols-l do 

tea_CS80_5v (11+i, primary dam, {sc} 7, (ba) 0, {du) 0, {dv> i); 
1 $end$ 



$if falseS < Command Set/80 floppy > 
tea_C580 sv[ 3, primary_dam, (sc) 
1 Send! 



7, <ba> 0, <du) 0, <dv) 0); 



$if faiseS ( Command Set/80 tape ) 

tea_CS30_5v(41, LIK_,dam, ( sc > 7, <ba) 0, {du> 1, <dv) 



Slf falseS { BUBBLE memory ) 

(watch for conflicting uses of unit 42) 

{BUBBLE DflV.SC default is 30 but may have been chanued to boot SC> 
tea_BUBBLE (42 , primar y_dam,BUBBLE_dav .SC) ; 
1 Sends 

«if falset { EPROtI DISC > 

{watch for conflicting uses of unit 42) 
tea_EFR0ri(42,primary_dam,{ sequence number } 0); 
1 Sends 



{ end of templates ) 
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1673:C 


1 


1674:5 




1675;C 


1 


1678;S 




1677;C 


1 


1678:S 




1679;S 




1680;C 


1 


1681;S 




1682;C 


1 


1683:C 


2 


1$84;S 




1685;C 


1 


16S6:S 




1687 ;C 


1 


1688:C 


2 


1689;C 


3 


1680;S 




1691:S 




1692;C 


1 


1693;S 




1694 ;C 


1 


1695:0 


1 


1696;C 


2 


1697;C 


2 


1698;C 


2 


1699;C 


3 


1700;C 


3 


1701;C 


2 


1702;C 


2 


1703:C 


3 


1704:C 


2 


1705:S 




1706:S 




1707:C 


1 


1708:S 




17C9:C 


1 


1710:C 


2 


1711:C 


2 


ni2;C 


3 


1713;C 


3 


1714:C 


3 


1715:C 


3 


1716:C 


3 


1717:C 


4 


1718:C 


4 


1719:C 


4 


1720;C 


3 


1721 ;C 


4 


1722:C 


3 


1723;S 




1724;S 




1725;C 


1 


1726:S 




1727;C 


1 


1728;C 


2 
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3.0M 6/ 4/84} CTBETP.TEXT 
1 $page$ 

i assign the new unitable and jnitclear all units > 
*issign__temp_uni table; 

{ prefix the primary and secondary SRH unit entries > 

if not unit_prefix_successful ( ' #5 :/' ) t hen 

(do nothing); {tries to set up uvid for possible default unit assignment below) 

( if not uni t _prefix_SLJCces5ful( '#46 :/?' ) then zap_as5igned_unit (4S) ; {free) 

if not unit^prefix^successfull '#45: ' +srmsyspref ix+srmnode [unit able'^[45] . sc ) ) then 
if not unit_prefax_5LJccessftJl ( '#45 : ' + 5 rmsys prefix ) then 
zap_a55igned_LJnit (45) ; 

{ remove extraneous local hard disc entries if necessary ) 

}un2 := fir5t_harddisc_lun; 
while lun2<last_harddisc_lijn do 
begin 

lunl := Iun2; 
repeat 

lun2 := lun2+l; 
until Uun2>last_harddi5c_lun) or not on 5ame_medium(lunl , lun2); 
pp := partit ioning_parameter s( unitable'^ [Tunl ] .letter) ; 
if pp.mnv<-l then 

remove _ext raneous_volumes (lunl, lun2-l); 
end; (while) 

( assign the system unit > 



if spe 

ok : 

else i 

ok : 

else 

begi 

in 

re 



cified_sy5tem_unit<>0 then 

= sysunit_ok (specif ied_5yst em unit ) 

f (DOOtdev_lun<>0 3 and ( unit.35'le'[bootdev_lun] .umaxbytes>300000) then 

= sy5Lnit_ok (bootdev_lun) 

{search for a more suitable system unit) 

dex := 0; 

peat 

index := index+1; 

ok := sysunit ok (sysunit_li5t [index]): 

til ok or (in3"ex>=sysunit list lengthjj 

not ok then (revert bac^ to Foot device, hoping it was identified) 
ok ;= sysunit Qk(bootdev lun); 

(else) 



( special case for default unit assignment ) 

if sysunit=45 then (set the default unit to the primary SRH unit entry) 
dkvid := unitable'*'t5] .uvid; 
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172',-:C 1 EpageS 

173C ; S 

1731 :C 1 { re-open the standard system files > 

1732:S 

1733 :C 1 openf lies; 

1734:S 

173S:C 1 'ind. (ctable) 

No errors. No warnings. 

♦*««* Nonstandard language features enabled ***** 
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DCDRV 



Description 

DC_DRV pnjvides low-level driver support. 



Usage 

DC_DRV is used for the following interfaces: 

• 98628 (Data Comm) 

• 98629 (SRM) 



Requirements 

DC and the I/O hbrary kernel (lODECLARATIONS, etc.) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9{a). 
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1 :S 




2:S 




3;S 




4 :S 




5;S 




6:S 




7;S 




8:S 




9:S 




10:S 




11 :S 




12 S 




13:S 




14:S 




15:S 




les 




17:S 




18. S 




19:D 





20 :S 




21 :S 




22 :D 





23 :D 





24 :D 





25 





26:0 





27:0 
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35 


II 
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39 
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(c) Copyright Hewlett-Packard Company, 1983. 
!U1 rights are reserved. Copying or other 
' iproduction of this program except for archival 
pjrposes is prohipited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
15 subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
D^R 7-104. 9(a) . 

HEUILETT-PflCKHRD COtlPHNY 

Fort Collins, Colorado «) 

S10DC0L 0N$ 
SOPRTIRL EVfiL 0N$ 
SSTHCKCHKK 0N$ 
SRflNGE OFF$ 
$3EBUG OFF$ 
IOVFLCHECK 0FF$ 
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S'^flGEI 

SJEflRCH ■IOLIB:KERNEL'S 

I ':)C«»>k****«»#*»t***«*J««««)«****««****»*«*)li>K****ff ****««*: + **«**«***«* «**»***) 

! > 

(• RELEfiSEO VERSION 3.0 

( < 

(« 

(' 

I « lOLIB DC DRIVERS 

(« 

(. 

(- 

(.. 

(« library - lOLIB 

(< name - DC DRIVERS 

(- module (5) - inlt_dc 

[- - eKtd 

(« 

['' author 

i ' phone 

(» 

(« date - Oct 20 , 1981 

[' update - Rug 11 , 1983 

(^ release - 7?=5->7?7->^9->?7? 

(« 

(» source - I0L1B:DC DRV. TEXT 

(« object - 10LIB:DC_ORV.COOE 

h 

(- 

(>*****3k«******»*j*********«*****)li;*****»***#*«*»***:***«******#*«******** 
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61: 
62: 
63: 
64: 
66: 
66: 
67: 
68: 



D 
D 
D 
D 

D 
D 



70:D 
71:D 

72 :D 

73 :D 

74 :D 
7S:D 
76:D 
77:D 
78:D 
79:D 
80 :D 
81:0 
82:0 
83:0 
84 :D 
85:0 
86:0 
87:0 
88:0 
89:0 
90:0 
91 :D 
92:D 
93:D 
94 :D 
95:0 
96:0 
97:0 
98:0 
99:0 

100:0 



IPBGEJ 

(»*».»» 



x»««>K»X ««««»««: 



File name: 



BUG FIX HISTORY 
BUG # BY / ON 

1283 

01/08/82 

zzzz 

06/16/82 

bbbb 

07/12/82 

cccc 

08/16/82 

367 

09/22/82 

UUULI 

09/28/82 



- a f t e [ 

LOG 



release 1 .0 

DESCRIPTION 



idc_wt c 



idc^init 
init dc 



init__dc 
intdc 



dc inii ialize 



IOCONTROL(s,0,n gives 
error, but should work. 
I0C0NrR0L(s,513,x) 
would give an error. 

fln error during init 
can blow away the work 
Stat ion , 

No bug sheet . 
Setting up a machine 
number ID if card is a 
Ganglia . 

No bug sheet . 

Hunting for 98629 and 

98828 dsndl. 

See mOECLnRflTIDNS also. 

Allow execute of driver 
and have it install 
itself in the system. 

Differentiate between 
628 and 629 card for 
the card type. 
See lODECLARflTIONS alsc*) 
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101:0 


SPflGEJ 


102:0 





***** 


103:0 





* 


104:0 





* 


105:0 





* 


106:0 





* 


107:0 





* 


108:0 





* 


109:0 





* 


110:0 





* 


111:0 





* 


U2:D 





* 


113:0 





* 


114:0 





* 


115:0 





* 


116:0 





* 


117:0 





* 


118:0 





* 


119:0 





* 


120:0 





* 


121:0 





* 


122:0 





* 


123:0 





* 


124:0 





* 


125:0 





* 


126:0 





* 


127:0 





* 


128:0 





* 


129:0 





* 


130:0 





* 


131:0 





* 


132:0 





* 


133:0 





* 


134:0 





* 


135:0 





* 


136:0 





* 


137:0 





* 


138:0 





* 


139:0 





* 


140:0 





* 


141:0 





* 


142:0 





« 


143:0 





***** 



M*iii*X:H***Vf:t^:t- 



********* 



This is the source code for an external procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



1. 
2. 

3. 



KERNEL modules 
drive r modules 
lOLIB modules 



The KERNEL modules consist of the following modules - 



1. 
2. 
3. 



iodec larat ions 

iocomasm 

general^O 



( contains static r/w space ) 



The KERNEL modules also have an 
that gets e?<ecuted at the time i 
initializes the static read/writ 
allocates the temporary storage 
independent of whether there is 

The driver modules consist of thi 
routines that deal with a specif 
alsr, dn executable program segme 
Thi'j, program searches the select 
initialized by the KERNEL genera 
that have the right interface ca 
for the 98624 interface ). This 
driver tables to point to the co 

The rest of the lOLlB modules ar 
used by an end user in his/her a 

The KERNEL and some set of dri 
SYSTEM. INITLIB file as object cc 
expert text will reside on the S' 
of the library will reside on ihi 



[ init ializat io 
routines liKe 
executable pro; 
t is loaded. 
e memory. This 
for any card th 
or is not a dri 

e actual assemb 
ic interface ca 
t for each dri 
code table in 
1 module for 
3 ( HPIB drive 
program will 1 
rect drivers. 

e high-level moi 
pplication prog 

modules will 

1 t not EXPORT 

YSTEM. LIBRARY f 

e SYSTEM. LIBRflR 



) * 



n S low level 

ioread/iowrite 
ram segement 
his program 

program also 
at exists - 
f r it. 

ly or PftSCftL 

There is 
ver module . 
the static r/w 
all select codes 
r s will search 
hen set up the 

dules that are 
ram. 

exist in the 

text 1. The 
ile . the rest 



**y).*A:*'*******^tX* ) 
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14.: :D 


tPfi&ES 




14'. :D 





*»♦**! 


*** 


14t.:D 









14 •:D 









14o:0 







RF 


14h;D 









150:0 









ISi :0 







1 


1S;::D 









1S<;D 







2 


15'; :D 









16'. ;D 







■^ 


15ti:D 









157:0 







A 


15H:D 









15i):0 







s 


16(1 ;0 









161 :D 







B 


16:' :D 









163:0 







7 


164:0 









16'i:D 







K 


16«:D 









16? :0 







3 


16h:0 









16<J:D 









17(i:D 





****** 


*** 



File name: DC DRV 



«***«***«****) 



3826 I/O Designers Guide 
68O00 Manual 
Pascal alpha site ERS 
Pascal I/O Library ERS 

9825 HPL EIO & lOD listings 

9826 HPL Misc. I/O Ooc. 
9826 card documentation 
Pascal 1/0 Library IRS 
38628 Data comm documentation 



notorola ) 



) 



Mfg. Specs. ) 
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171 :D 
172:0 



tPSGES 

PROGRftM dc_initialize ( INPUT 



26-Dec-84 21:23:45 Page 6 
OUTPUT ); 



**« File name: DC DRV *** 
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i 


173:0 






SPHGEJ 




174:0 






(**»***«** ***#******«««*n<**«******** ■**«***♦**«********«*«****#*«****** ««»! 




175:0 






(• » 




176:0 






* * 




177:0 






* DHTn conn orivers » 




178:0 






I * * 1 




179:0 






l,« » 




180:0 






EXTERNfiL nODULE extdc; 




181:0 








182 :S 
183:S 














date 10/20/81 




184 :S 

185 :S 






update 11/03/81 




186:3 






purpose This module is a declaration of the importation text for 




187:3 






the external drivers . 




188:3 










189 :S 






note The assembly language code that is imported needs to be 




190 :S 






called 'extdc'. The routines need to be called 




191:S 






'extdc <mmm' 




192:0 






) 




193:S 










194:0 






IMPORT sysglobals, iodeclarat ions ; 




195:3 










198:0 






EXPORT 




197 :S 










198:0 






PROCEDURE alvinit temp : flNVPTR ): 




199:0 






PROCEDURE alvinisr temp : PISRIB ; 




200:0 






PROCEDURE enter data temp : flNVPTR ; x : BNYPTR : 




201:0 






VflR c: INTEGER : 




202:0 






PROCEDURE output data ( temp : HNYPTR ; x : flNVPTR : 




203:0 






cnt : INTEGER ); 




204:0 






PROCEDURE output end ( temp : flNVPTR ); 




205:0 






PROCEDURE direct status ( temp : flNVPTR ; req : io word: 

VflR X : io word) ; 




206:0 








207:0 






PROCEDURE direct_control ( temp : flNVPTR ; req : io word; 

val : io word ) ; 




208:0 








209:0 






PROCEDURE control_bfd ( temp : flNVPTR ; req : io_word; 

val : io word ) ; 




210:0 




2 




211:0 






PROCEDURE start tfr in ( temp : flNVPTR ); 




212:0 






PROCEDURE start_tf r_out ( temp ; flNVPTR ); 




213:3 










214:0 




1 


END; ( of extdc ) 
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215:0 






$PHGE$ 




216:0 






f«***K!«*X«*»(»» *»!«*«*******«********#*****#«»****»**«**«*«#»****** ****«*«* 




217:0 






« » 




218:0 






« » 




219:0 






(» DHTfl conn DRIVERS » 




220 :D 






« « 




221:0 






« » 




222:0 






(****##***«#*****#**«**********-***#***«*«**«*«*««««*«« «***«*»»«**«*«!(C*X«« 




223:0 






nODULE intdc; 




224:3 
225:3 














{ by 

date 10/20/81 




226:3 
227:3 
223 :S 






update 08/16/82 








purpose This module contains the internal drivers. 




229:8 










230:0 




1 


> 




231:3 










232:0 






IMPORT sysglobals , 




233:0 






iodeclarations ; 




234:3 










235:0 






EXPORT 




238:3 










237:0 






TYPE dc_err_type = PACKED flRRflV f zzzz TM 6/16/82 > 




238:0 






[minrealisc, .maxrealisc] OF io word ; < zzzz TM 6/16/82 ' 




239:0 
240-3 






dc_err__ptr = -dc_err_type ; ( zzzz TM 6/16/82 > 




241 !o 


-1 




VflR dc_init_fault : BOOLEAN ; { zzzz TM 6/16/82 ) 
dc__error : dc_err_ptr ; { zzzz TM 6/16/82 > 




242:0 
243 :S 
244:0 


-6 






-6 




PROCEDURE idc init temp : flNVPTR 1; 




245:0 


-6 




PROCEDURE idc isr temp : PISRIB ); 




246:0 


-6 




PROCEDURE idc rdb temp : flNVPTR : VflR x 


CHAR); 




247:0 


-6 




PROCEDURE idc wtb temp : flNVPTR ; val 


CHAR); 




248:0 


-6 




PROCEDURE idc rdw temp : flNVPTR ; VRR x 


io word) : 




249:0 


-6 




PROCEDURE idc wtw temp : flNVPTR ; val 


io word) : 




260:0 






PROCEDURE idc rds temp : flNVPTR ; reg 

VflR X 


io~word : 




251:0 


-6 




io_word) ; 




2S2:D 






PROCEDURE idc wtc ( temp : flNVPTR ; req 

val 


io word; 




253:0 


-6 




io word ) : 




254:0 


-e 




PROCEDURE idc_tfr ( temp : RNYPTR ; bcb 


flNVPTR ) : 




255 :S 










256:0 


-6 




IMPLEMENT 




257:3 










258:S 










259:D 


-6 




IMPORT isr , 




260 :D 


-6 




qeneral , 




261:0 


-6 




extdc ; 




262 :S 










263:0 




1 


PROCEDURE idc_init ( temp : flNVPTR ); 




264:0 


-2 


2 


VflR dunmyword : io word; 




265:0 
266 :C 


-8 


2 
2 


dummy_i5c : INTEGER; { bbbb TM 7/12/82 ) 
BEGIN 




267 :C 




2 


control bfd ( temp ,0,1); 




268:3 






" 




269 :C 

270 ■ 3 




2 


dummy_:isc := io_f ind_isc [ temp ) ; { bbbb TM 7/12/82 ) 




27i:c 




2 


( make sure card is still async ] 




272:3 










273 :C 

274 :C 




2 

2 


direct statu5( temp , 3 , cumm/wcrd ); 
UlTH isc_table[ dummy^isc ] DO BEGIN 
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275:C 




card id := hp datacotwn; 


in 7/8/82 ) 




276:C 


3 


IF dumrnyword = 1 THEN card id := hp98628 async; 


TM 7/8/82 > 




277:C 




IF dummyword = 2 THEN card id :- hp98628 dsndl; 


cccc TM 8/16/82 > 




278;C 


3 


END; ( of WITH DO BEGIN ) 


TM 7/8/82 > 




279;S 










280;C 


2 


IF dc iniT fault 


2ZZZ TM 6/16/82 ) 




281 :C 


3 


THER BEGIN 


Z2ZZ TM 6/16/82 > 




282;C 


3 


IF dc error-^tdummy isc]<>0 


zzzz TM 6/16/82 ) 




283:C 


4 


THEN BEGIN 


zzzz TM 6/16/82 ) 




284 :C 


4 


io_escape (dc_error'~[dijmmy_a5c] , 


zzzz TM 6/16/82 ) 




285;C 


4 


dummy isc ) ; 


zzzz TM 6/16/82 > 




286:C 


4 


END; { of IF dc error <> ) 


zzzz TM 6/16/82 > 




287:C 


3 


END; { of IF dc_init_f ault ) 


zzzz TM 6/16/82 ) 




288:S 










289:C 


2 


{ set up Ganglia card ID > 


bbbb TM 7/12/82 ) 




290:C 


2 


IF ioread bytefdummy isc .HEX ( ■402F' ) )=3 


bbbb TM 7/12/82 ) 




291 ;C 


3 


THEN BECIN 


bbbb TM 7/12/82 > 




292;C 


3 


{ card is ganglia > 


bbbb TM 7/12/82 ) 




293:C 


3 


isc table[ dummy isc ].C3rd id := hp98629; 


cccc TM 8/16/82 } 




294 :C 


3 


{ iowrite byte(dufmiy isc , 

( HEXCToei') , io model_number DIV 256 ); 


bbbb TM 7/12/82 } 




295:C 


3 


bbbb TM 7/12/82 ) 




296:C 


3 


( iowrite byte (duitiny isc , i 
( HEX (^4081') t ? , io model number MOD 266 ); 


bbbb TM 7/12/82 ) 




297:C 


3 


bbbb TM l/l2/n2 ) 




298:C 


3 


END; ( of IF > ( 


bbbb TM 7/12/82 ) 




299:S 










300:S 










301:C 


2 


END; { of idc_init } 






302:S 










303:S 










304:S 










305:0 


1 


PROCEDURE idc isr ( temp : PI3RIB ); 






30e:C 


2 


BEGIN 






307:C 


2 


alvinisr( temp ): 






308:C 


2 


END; ( of idc isr > 






309:S 










310:S 










311:S 










312:0 


1 


PROCEDURE idc rdb ( temp : fINVPTR ; VHR x : CHAR); 






313:0 


-4 2 


VfiR count : IRTEGER; 






314:C 


2 


BEGIN 






31S:C 


2 


< this can escape with an eod escape > 






316:C 


2 


count := 1; 






317:C 


2 


enter data( temp , RDDR(x) , count ); 






318:C 


2 


END; < of idc_rdb > 






319:S 










320 :S 










321 :S 










322:D 


1 


PROCEDURE idc wtb ( temp : fINVPTR ; val : CHAR); 






323:C 


2 


BEGIN 






324 :C 


2 


{ this can escape with an eod escape > 






32S:C 


2 


output d3ta( temp , fiDDR(val) , 1 ); 






326:C 


2 


END; ( o7 idc_wtb > 






327;S 










328:3 










329:S 










330 :D 


1 


PROCEDURE idc rdw ( temp : SNYPTR ; VfiR x ; io word); 






331 :D 


-4 2 


VRR count : INTEGER; 






332:C 


2 


BEGIN 






333:C 


2 


< this can escape with an eod escape > 






334:C 


2 


count := 2; 
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335:C 


2 


enter data( temp , flDDR(x) , count ); 






336:C 


2 


END; ( of idc rdw > 






337:5 




~ 






338:S 










339:3 










340:D 


1 


PROCEDURE idc wtw ( temp : HNYPTR ; val : io word); 






341 :C 


2 


BEGIN 






342:C 


2 


{ this can escape with an eod escape ) 






343:C 


2 


output data( temp , flDDR(val) , 2 ); 
END; ( oT idc_wtw ) 






341 .C 


2 






345:3 










340:3 










;47:S 










348:D 


1 


PROCEDURE idc rds ( temp : HNYPTR ; reg : io word; 

VfiR X : io word) ; 






3493 


2 






3S0:C 


2 


BEGIN 






351 :C 


2 


direct status [ temp , reg , x ); 






352:C 


2 


END; < oT idc_rds > 






353:3 










354 :S 










3SS:S 










356:D 


1 


PROCEDURE idc wtc ( temp : HNYPTR ; reg : io word; 

siAl : io_word ); 






357:0 


2 






358:0 


-2 2 


VfiR durrmyword : io word; 






3S9:C 


2 


BEGIN 






360:3 




{ range of valid registers - 






361 :S 










362:3 




000-127 buffered control 






363:3 




257-383 direct control 






364:3 




512 abrt tfr in 






365:3 




513 abrt tfr out 






366:3 










367:C 


2 


> 






368:3 










369:C 


2 


IF ( ( reg >- 257 ) HND ( reg <- 383 ) ) OR 






370:C 


3 


( reg > 512 ) OR ( reg ' 513 ) < bug 1283 


- TM:l/8/82> 




371:3 










372:C 


3 


THEN BEGIN 






373:S 










374:C 


3 


direct_control ( temp , re9-256 , val ); 






375:3 










376:C 


3 


END 






377:C 


3 


ELSE BEGIN 






378:3 










379:C 


3 


IF ( ( reg >= 000 ) fiND ( reg <= 127 ) ) < bug 1283 
THEN BECIN 


- TM:l/8/82) 




380:C 


4 






381 :3 










382:C 


4 


control_bfd ( temp , reg , val ); 






383:3 










384::; 


4 


IF ( reg = ) 






385::: 


5 


THEN BEGIN 






386:3 










387:.; 


5 


( make sure card is still async > 






388:3 










389:C 


5 


direct statu5{ temp , 3 , dummyword ): 
UITH isc table[ io find I5c(temp) ] DO 






390 :C 


S 






391 :; 


6 


IF dumrr.yword - 1 TfTEN card id := hp98628 async 






392 :i; 


7 


ELSE card id := hp datacomm; 






393 :C 
394:3 


5 


END; ( c' IF reg=0 ) 
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39S 
396 
397; 
398 
399 
400: 



END 

ELSE BEGIN 



401 :S 



402: 

403: 

404: 

405: 

406: 

407: 

408: 

409: 

410: 

411: 

412; 

413: 

414: 

415: 

416: 

417: 

418: 

419: 

420: 

421: 

422: 

423: 

424: 

425 :C 

426:0 

427 :C 

428 :C 

429 :C 

430 :C 
431:S 



4 io_e scape (ioe_misc , io_f ind^isc (temp) ) ; 

4 END; < of IF reg<=127 > 

3 END; < of IF >=2S7 ) 

2 END; < of idc_wtc > 



PROCEDURE Idc tfr ( temp : 

VflR b_info : '^buf_info_type; 

io_isc 

tmppt r 

tmpcnt 

mycount 

done 

fSEGIN 

b_info 

tmppt r 

10 isc 



type_3 5c 
pio Tmp ptr; 
INTEGER ; 
INTEGER ; 
BOOLEfiN ; 



= flMYPTRr bcb ) 
<• flNYPTR ( temp 
= tmppt r".my_i5c 



W 



432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 

445 :C 

446 :S 
447 
448 
449 
450 
451 
452 
453 
454 



UITH b_info' DO BEG 

F ( U5r_tfr = 5erial_Dnfl ) OR 
usr tfr = overlap_DMfl ) OR 
( b w mode - TRUE ) 
THEN BKIN 
{ error > 
IF direction = from meiiory 

THEN tmpptr'.out Fufptr := NIL 
ELSE tmpptr'.in Eufptr := NIL; 
ic_escape( ioe_ba3_tfr , io_i5c ); 
END; 



3 < mark buffer busy > 

3 active isc := io isc 



< word ) 



IF usr_tfr < overlap_INTR 
THEN BEGIN 

( serial transfer - handled here > 
IF direction = from_memory 
THEN BEGIN 

{ serial output tfr > 

output_data ( temp , buf_empty , term_count ); 

buf_empty :» RNYPTR( INTEGER (buf_empty) + term_count); 
term_count := 0; 

IF end_mode THEN output_end( temp ); 

END 

ELSE BEGIN 
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455 :C 


5 


456 :C 


5 


457 :C 


5 


458 :C 


5 


459 :C 


5 


460 :C 


6 


461:C 


7 


462 :C 


7 


463 :C 


7 


464 :C 


8 


466 :C 


8 


466:: 


8 


467 :C 


8 


468 :C 


8 


469 :S 




470 :C 


8 


471 :C 


8 


472 :C 


9 


473 :C 


9 


474 :C 


9 


475 :C 


9 


476 :C 


9 


477 :C 


9 


478 :C 


9 


479 :C 


10 


480 :C 


10 


481 :C 


10 


482 :C 


9 


483 :C 


9 


484 :C 


9 


485:0 


9 


486:C 


8 


487 :C 


7 


488:C 


7 


489 :C 


7 


490 :C 


7 


491 :C 


8 


492 :C 


S 


493 :C 


9 


494 :C 


9 


485 :C 


9 


496:: 


9 


497 :C 


9 


498:: 


9 


499 :C 


8 


500 :C 


8 


501:S 




502:0 


8 


503 :C 


8 


604:0 


9 


505:0 


9 


506:0 


9 


507:0 


9 


508 :S 




509:0 


9 


610:S 




511:0 


9 


512:0 


9 


513:0 


9 


514:0 


10 
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< serial input tfr > 

done := false; 
mycount := term count; 
REPEHT 

IF term char = -1 

THEN Begin 



( tfr size ) 



{ serial input - no term ) 
TR-- 



TRY 

enter_data( temp , buf_fill , mycount ); 

term count := term count - mycount; 

buf_TlIl := flNVPTR( INTEGER (buf_f ill ) + mycount); 

done := TRUE; 



= ioescapecode ) fiND 
= ioe eod seen ) RND 
= io_Tsc T 

= term count - mycount; 

= flNYPTR( INTEGER(buf_fill) * mycount) 

= term_count; 



RECOVER BEGIN 
IF f escapecode 
f ioe_result 
( ioe isc 
THEN BfGIN 
term count 
buf_TiU 
mycount 
IF end_mode 
THEN BEGIN 

done ;= TRUE; 
END; < of IF end_mode ) 
END 
ELSE BEGIN 

escape (esc apecode) ; 
END; < of IF ) 
END; { of TRY RECOVER BEGIN > 
END 
ELSE BEGIN 

< serial input - termination > 
TRY 

REPEfiT 

tmpcnt :=1 ; 

enter data( temp , buf fill , tmpcnt ); 

buf_fTll := BNYPTR( INTEGER (buf_f ill) ♦ 1 ) ; 

term count := term_count -1; 
UNTIL T term count » ) OR 

( CHRRPTR(INTEGER(buf_fill)-l)^=CHR(term_char) ) 



done := TRUE; 

RECOVER BEGIN 
IF ( escapecode 
ioe_result 
ioe isc 
THEN BEGIN 



= ioescapecode 
- ioe eod seen 
= io_T5C y 



AND 
fiND 



{ I use ttrpcnt because the eod may or 
been cauglit with the character > 

term count - tmpcnt; 
fiNYPTR( INTEGER(buf_fill) 



buf_TUl 
IF end mode 
THEN^BFCIH 



may not have 
tmpcnt ) : 
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615;C 


10 


S16:C 


10 


51 7:C 




518:C 


!^ 


519:C 


9 


523;C 


9 


521 :C 


8 


522;C 


7 


523:C 


6 


524 ;S 




525:C 


J, 


52o;S 




527:S 




523:C 


4 


523:S 




630 :C 


4 


531:C 


5 


S32:C 


5 


633:C 


4 


534 :C 


4 


535:S 




53a ;C 


4 


537:C 


5 


539 :C 


5 


539 :C 


S 


640 :C 


5 


54 US 




542:S 




54J:C 


4 


544 :C 


4 


54-5 ;C 


4 


54-5 :C 


4 


547:C 


4 


54 9:C 


4 


549:C 


5 


650 :S 




65l:C 


5 


55.; :S 




55 ):C 


5 


5S4:C 


5 


55';;S 




55ii:C 


5 


557 :S 




55ii:C 


5 


55^):S 




56i):C 


4 


561 :C 


3 


56:! :C 


2 


66i:S 




564 ; S 




56'; :C 


1 
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done := TRUE; 
END; < of IF end mode ) 
END 
ELSE BEGIN 

e5cap 
END; 
END; < of TRY REC6vER BEGIN > 
END; { of IF term char > 
UNTIL done; 



cape (escapecode ) 
{ of IF ) 



END; < of IF direction > 



{ mark buffer not busy > 

IF direction = from memory 

THEN tmpptr-'.out f uf pt r := NIL 
ELSE tmpptr~.in_Eufptr := NIL; 

activeisc := no isc; 

drv_tmp_ptr := NlT; 

IF eot_proc .durrvny pr <> NIL 
THEN BEGIN 

■^ call user eot procedure } 
CfiLL [ eot proc.real proc, eot parm ); 
END; ( of IF > 



END 

ELSE BEGIN 



{JPC 02/22/82) 
(JPC 02/22/82> 



IF direction 
THEN BEGIN 



lap transfer - handled by drivers > 
t o_memo r y 



temp ) ; 



END 

ELSE BEGIN 



5itart_t f r_out ( temp ); 

END; < of IF direction ) 

END; ( of IF overlap > 
END; < of WITH b info > 
END; < of idc_tfr T 

1 END; { of intdc > 
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56r. :D 
56 -^S 
56P;S 
569: 
57(^ 
571 : 
57: : 
57; 
674 : 
57E. : 
576 :D 
577:S 
57t : 
579: 
580 
581 : 
58; 
58? 
584 : 
58E : 
686: 
587:0 
588:5 
589 :S 
590:S 



691 
592 
593 
594 
596 
596 
697 
59f 
599 
60C:D 

601 :D 

602 :D 

603 :D 

604 ;D 

605 :S 
606:C 

607 :S 

608 :C 

609 :S 
610:C 
611:5 
612:C 
613:C 
614:C 
615:C 
616:C 
617:C 
618:: 
619:C 



620 
621 
622 
623 
624 
625 



1 $PfiGE$ 



1 10DULE init_dc ; 
( 



date 10/20/81 

update 08/11/83 vers number only 

purpose This module initializes the data comm drivers. 



iodeclarations 



1 IMPORT 
1 EXPORT 



1 VHR 
-120 1 dc_drlver5 : drv_table_type ; 

-120 1 PROCEDURE lo_init_dc; 



-120 1 inPLEflENT 



-120 1 IMPORT sysglobals , 

-120 1 isr , 

-120 1 general_0 , 

-120 1 extdc , 

-120 1 intdc ; 



PROCEDURE io init dc; 
VBR 

io_isc : type_isc; 

dunnyword ; io_word; 

io__lvl : io^byte; 

BEGIN 



io_revid + 



53.0' 
{ set up the driver tables ) 



UITH dc^drivers DO BEGIN 

dc_d rivers := durrvny_^d r ive rs 



( SERIAL revision added 2/5/82 m > 



ocJ_init 
iod^isr 
iod_rdb 
lod_u/tb 
iod_rdw 
iod_wti» 
iod_rds 
iod_wtc 
iod tfr 



END; T of UITH ) 



idc_init : 
idc_is r ; 
idc_rdb; 
idc_wtb; 
idc_rdw; 
idc_wtw; 
idc^rds ; 
idc wtc; 
idc tfr; 
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3 on 6/ 


626 :C 


2 


627 ;S 




628 :C 


2 


629 :C 


3 


630 :S 




631 :C 


4 


632 :C 


5 


633 :C 


6 


634 :C 


5 


635 :C 


5 


636 :C 


5 


S37:C 


5 


638 :S 




639 :C 


4 


640 :C 


5 


641 :S 




642 :C 


5 


643 :S 




644 :C 


6 


645 :C 


5 


648 :S 




647 :C 


5 


648 :C 


5 


649 :C 


6 


650 :C 


6 


651 :C 


6 


652 :C 


6 


6S3:C 


6 


654 :S 




655 :C 


5 


656 :C 


5 


857 :C 


5 


658 :C 


6 


659 :C 


5 


660 :C 


5 


661:C 


5 


662 :S 




663 :C 


4 


664 :S 




865 :S 




666 1 C 


2 


667 :S 




668 :C 


2 


669 ;C 


2 


670 :C 


3 


671 :C 


4 


672 :C 


5 


673 :S 




674 :C 


5 


875 :S 




676 :C 


6 


677 :S 




678 :C 


6 


679 :C 


6 


680 :C 


6 


681:S 




682 :C 


6 


683 :C 


6 


684 ;C 


7 


685 :C 


7 
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{ set up drivers for the interfaces > 

FOR io isc :=iominisc TO iomaxisc DO 
UITH isc_table[io_i5c] DO BEGIN 

IF ( card_id » hp98628_async ) OR 
( card_id = ^ip98628_d5nol ) OR 
( card id = hp98629 ] 
THEN BECIN 

card_id := hp_datacomm; 
card'~type := serial card: 
END; 

IF card id = hp datacomm 
THEN KOIN 

lo_drv_ptr:=nDDR(dc_drive-3); 

{ if the card exists then link In an ISR for it } 
< ??? - what happens if an ISR fires during init > 

io_lvl:= nioread_byte(io isc, 3) DIV 16) nOD 4)-f3; 
IF io tmp ptr^.myisrib.lRTREGflODR <> NIL 
THEfl BECIN 

( if isr exists then unlink it > 
ISRUNLINK{io_lvl , 

fiDDRfio tmp pt r" .rnyisrib) ) ; 
END; < of JF T 



File name: DC DRV ««» 



< uuuu Tn 9/28/82 ) 



( level 

< isrib info 



PERf1ISRLINK(io drv ptr'.iod isr, 

flNYPTRTlNTf5ER(ca-d ptr +3), 
192, 
192, 
io ivl, 

fiDUR(io_tmp_pt r'^.myisrib) ); 
END; < of IF card_type = hpdatacomm > 

END; { of FOR io_isc UITH i5c_table [io_isc] BEGIN > 



< isr 

< card address 

< intr. mask 

< intr. value 

< level 

{ isrib info 



( call the actjal driver initialization > 

dc init^fault := FALSE: ( set fault flag 

FOl? io_isc : = iominisc TO iomaxisc DO 

UITH isc^table[io_i5c] 00 

IF card Td = hp datacomm 
THEN BEGIN 

TRY 

alvinit( io_tmp_ptr ); 

direct_st at us ( io tmp_pt r , 3 , dummyword ); 
IF dummyword = 1 THEN card_id := hp98628_async; 
IF dummyword = 2 THEN card_id :> hp98628_dsndl; 

( set up Ganglia card ID > 
IF ioread bytelio isc.HEXf '402F' ) )=3 
THEN BEfflN 

( card is ganglia ) 



zzzz TM 6/16/82 ) 



< zzzz Tn 6/16/82 > 



< cccc TM 8/18/82 ) 

< bbbb Tn 7/16/82 ) 
i bbbb Tn 7/16/82 } 

< bbbb Tn 7/18/82 ) 
I bbbb Tn 7/18/82 > 
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686 :C 


7 


687 :C 


7 


688 :C 


7 


689 :C 


7 


690 :C 


7 


691:C 


7 


692 :C 


7 


693 :S 




694 :C 


6 


695 :S 




696:0 


6 


697 :C 


6 


698 :C 


6 


699 :C 


6 


700 :C 


7 


701:C 


7 


702 :C 


7 


703;C 


7 


704 :C 


8 


70S:C 


7 


706 :S 




707 :C 


6 


708:S 




709:C 


6 


710:3 




7n:C 


5 


712:8 




713:C 


2 


714 :S 




71S:C 


1 



END; 
1 END; < 



card_id := hp98629; 
card type := srm card; 
<iowrTte byte(io Isc , 

(HEXCJoei' ) , io_model_number DIV 256 ); 
(iowrite byte(io_isc , 

<HEX('T061') + 2 , io model number nOD 256 ); 
END; ( of IF ) 

RECOVER BEGIN 

IF ESCPIPECODEoloescapecode THEN ESCftPE (ESCflPECODE 
IF ioe_isc <> io_l5C THEN ESCAPE (ESCflPECODE 

IF NOT dc init fault 
THEN BE5IN 

dc init_fault := TRUE ; 

NEtII[dc_erro r ) ; { get space > 

FOR dummyword :=minrealisc TO maxrealisc DO 
dc_er ror^[dummyv;ord] :=0; < clear space > 

END; < of IF NOT dc_init _f aul t > 

dc_error^[io_isc] := ioe_result; { set this err) 

END; ( of RECOVER BEGIN > 

END; ( of UITH IF ) 

( of io_init_dc > 

of nODULE init_dc ) 




Tn 6/16/82 > 
Tn 6/16/82 ) 
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716:0 


717 


S 


718 


11 


719 


11 


7.!0 


S 


7.M 




7.>2 


i: 


7.?3 


i: 


7?4 


c 


7.! 5 


c 


No e-r 


rs . 



6, 4/84J OC_Qf;V'.TEXT 

IPSGES 

IMPORT init dc , 

LOflDE'R ; 



1 BEGIN 

1 10 init dc ; 

1 nfilfKUSElf; 

1 END. < of dc_inltialize ) 
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{ 367 TM 9/22/82 ) 



( 367 TM 9/22/82 ) 



vai nings , 
*»*** Nonstandard language features enabled 
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DGL C IN 



Description 

DGL_C_IN provides selection of different input device handlers. 



Requirements 

GLE_TYPES, GLE_HPGL_IN, GLE_UTLS, GLE_HPIB_IO, GENERAL_0, IDDECLARATIONS, SYSGLOBALS, 
lOCOMASM, GLE_KNOB_IN, DGL_TOOLS, DGL_VARS, DGL_KNOB, DGL_TYPES, GLE.GEN, GLE_GENI, DGL_GEN, 
and DGL_CONFG_OUT. 



Notes 

See also LIB. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B ) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:0 
2:D 
):D 
4:D 
S:D 
1>:D 
?:D 
3:C 
9:S 
10:0 
U:0 



12; 

13:S 

14:S 

15:S 

19;S 

17:S 

13:S 

19:S 

20:S 

21:S 

22:S 

23;S 

24: 

2>: 

23: 

21: 

23: 

2J: 

30: 

31: 

3? 

3J:D 

34 :D 

3'i:D 

3<):D 

3?:D 

3^:D 

3 3:D 

3'3:D 

40 :S 

41:S 

4:^:D 

41:3 

44:0 

4S:0 

4i5:0 

47 :D 

4!!:S 

4'J;S 

50 :S 
S1:S 
5;!;D 
12000:0 
1200 1:S 
12002:0 
1200 f:S 
12004:0 
1200S:S 
12006:0 



C { Graphics Lo'-v End 

< 

C ( noduie = GLE_CONFG_IN 

C ( Programer = BJ3 

C { Date = 10-10-82 

C { 

C { Purpose: To provide selection of differnt input device handlers. 

C ( Rev history 

C { Created - 10-10-82 

{ Modified - 02-17-84 BOS - Changed from dynamic allocations to global 

{ (c) Cop/right Hewlett-Packard Cortipany, 1983. 

Rll rights &vft reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DftR 7-104.9 (a) . 

HEWLETT -PBCKflRD COTIPflNY 
Fort Collins, Colorado > 

SSEHRCH 'GLE LIB' , 
'TVPFS', 

'OGLJ/flRS', 

'OGL.rOOLS', 

■DGL_KNOB', 

'DGL_HPGLI'$ 

Jmodcall 

linclude 'OPTICiNS'I 



*****«*******»« 



COMPILER OPTIONS »»»««»««««»**»« 



{ This include file specifies range checking, debug and other compiler 
options for the graphics library ) 

Sdebug OFF$ 

Jrange OFF$ 

tcopyrlght 'COPYRIGHT 1984 BY HEULETT-PfiCKHRD COMPANY'S 

tFLORT HOU TESTS 



{include 'OPTICNS'S 
SLINENUM 12000$ 

module DGL_CONFG_IN; 

1 import gle_types: 
1 export 



»««»«»« COMPILER OPTIONS 
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12007:0 




12008;S 




1200't:D 




12010:S 




12011:0 




1201:':D 




1201 J:D 




12014:D 




1201'i:D 




1201H:D 




12017 :D 




12018:0 




12010:0 




12020 :S 




1202. :0 




1202.^:0 


-264 1 


12023:0 


-284 1 


12024:0 


-302 1 


1202'j:3 




1202fi:D 


1 


12027:S 




12028:0 


2 


12020:0 


-4 2 


12030 :S 




12031 :C 


2 


12032:0 


2 


12030:0 


3 


12034:C 


3 


1203!>:C 


3 


12036:0 


3 


12037 :C 


2 


12038:S 




1203»:D 


1 


12040 :S 




12041 :0 


2 


12042:0 


-4 2 


12043:0 


-6 2 


1204'. :D 


-10 2 


1204;,:S 




12041 :C 


2 


12047:C 


2 


1204h:C 


3 


12040 :C 


3 


12050 :C 


3 


12051 :C 


4 


12052:C 


4 


120S:::C 


4 


12054 :C 


4 


I20St ;C 


4 


1205f:C 


4 


120S7:C 


4 


12058:0 


5 


12060:0 


5 


12060:0 


5 


12061 :C 


4 


1206; :C 


4 


12063:0 


4 


12064 :C 


3 


120$f :C 


2 


1206f :S 
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%%% File name: DGL C IN **« 



procedure conf igure_input_gle ( gcbi : graphics_input_cont rol_block_pt r 
implement 



import gle_hp(}l_in. 
gle_hp"ib_io, 
gle_knob_inj 
gle_utl5, 
dgl_tools, 
dgl_¥ar5, 
sysglobais, 
dgl__knob, 
dgl^hpgli; 



( hpgl plotter support > 

( plotter HPIB support > 

{ knob support } 

{ general gle tools ) 

( general gle and dgi tools ) 

( global dgl variables > 

global pascal information ) 
knob device dependent DGL code > 
plotter device dependent DGL code ) 



ascii buffer _s pace 

knob^H'evice^rec^space 

hpib_iocb_5pace 



ascii buffer; 
knob_3'evice_rec; 
hpib_iocb ; 



procedure termknob ( anyvar iocb_ptr : anyptr ); 



knob_rec : krob_device__rec_pt r ; 
1 gl 

no 



Oegin 

with gle_gcbi'^ do 
begin 

knob rec := dev__dep stuff; 
{dispose (knob_rec ) ;"y 
end; 
end; 

procedure setupknob ( gcbi ; graphics^inpu t_cont rol_block__pt r ); 

var 

knob__rec : knob_device_rec__pt r ; 

cnt : gie_shortint ; 
address : integer; 

!3egin 

with gcbi'' do 
begin 

address := gle read intege r (device._info char count ,device_info , cnt ) ; 
if (address = ?) an3 (not sysf lag . nokeyFoardJ then 
begin 

io_terni := termknob; 

knob rec := add r ( knob_device_rec_5pace ) ; 

dev 5ep_5tuff := knob~rec; 

knoE rec'*".knob type ;= ret u rn_machine_type; 

gle__Tnit_knob_Tnput ( gcbi ) ; 

if error_return = then 

dgl_knob_init 
else 

release (knob_rec) ; 
end 
else 

e rror_re t urn i= 1 ; 
end : 
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1 procedure lermhpgl ( anyvar iocb^ptr ; anyptr ;; 



File name: OGL_C_IN »• 



12067:D 
12068:S 
12069:0 
12070:0 
12071:0 
12072:S 
12073:C 
12074:C 
1207S:C 
12076:C 
12077:C 
12078:C 
12079:C 
12080:C 
12081 :C 
12082:C 
12083 :S 
12084:0 
12085:S 
12086:0 
12087:0 
12088:0 
12089:0 
12090:0 
12091 :S 
12092 :C 
12093 :C 
12094:C 
12095:C 
12096 ;C 
12097:C 
12098:S 
12099 :C 
12100:C 
12101 ;C 
12102:0 
12103:S 
12104:0 
12105:C 
12106:C 
12107:C 
12108:0 
12109:C 
12110:C 
12111:0 
12112:0 
12113:0 
12114:0 
12115:C 
12116:0 
12117:0 
12118:0 
12119:C 
12120:0 
12121 :C 
12122:C 
12123:0 
12124:S 
12125:0 
12126:S 



2 
-4 2 
-S 2 

2 
2 
3 
3 
3 
3 
3 
3 
3 
2 



iocb_pt r^ hpib 
bijf 



hpib iocb ptr; 
ascil_buf7er_pt r 



begin 

with glegcbi^ do 
begin 

npib_.term(iocb_pt r ) ; 
iocb_pt r_^hpib := iocb; 
<di5F)0 5eTiocb_pt r_hpib ) ; ) 
buf := device_buf; 
{dispose 1 buf) ; > 
end; 
end; 



( perform io term tnen release mem > 



1 procedure setuphpgl ( gcbi : graphites input_cont rol_block_pt r ); 



iocb_pt r hpib 
buf 



address 



hpib iocb ptr; 
ascil bufTerpc r ; 
gIe_5}ior tint: 
integer ; 



begin 

with gcbi/^ do 
begin 

er ro r_ret urn :- 1 ; 
try 

address : = gle_read_intege r [device_info_char_count ,device_info,cnt ) ; 

buf := addr (a5cii_buf fer_space ) ; 

device_buf := buf; 
4 iocb_ pT r^hpib := addr [ hpib_iocb_5pace) ; 

4 iocb := rocb_pt r_hpib; 

4 io_write := hpib_write; 

4 io__read := hpib read; 

4 io~term := termFpgl; 

4 io_"inq_ timeout :- hpib_inq_t imeout ; 

4 io set timeout := hpib_set ^timeout ; 

4 wilh iocb_pt r_hpib^ do 

5 begin 

5 device addr := device_info; 

5 name_sTze := device_info char_count; 

5 hpib_init ( iocb ptr_hpiB ); 

5 error_return ;= J^; 

5 if error = then gle ini t_hpgl_input (gcbi) 

6 else error_return := I; 

5 if error_return - then oql hpgli_init 

6 { otherwise clean up the hpTb bus ( 2.1 bug fix ) > 
6 else hpib_irit ( iocb_pt r_hpib ); 
5 end; 

4 recover 

4 { ignor io, and value range errors > 

4 if (escapecode <> -26) and [escapecode <> -8) then escape (escapecode) 

<if error return <> then 
3 begin} { clean up ) 

{dispose ( iocb_pt r_hpib) ; dispose(buf); 
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12127:C 
12128:C 
12129:0 
12130:S 
12131 :D 
12132:S 
12133:0 
12134:0 
12135:0 
12136:0 
12137:S 
12138:0 
12139:S 

No errors. No warnings. 

***** Nonstandard language features enabled ***** 



3 

3 end; 

2 end; 

1 procedure conf :Lgure_input_gle ( gcbi : graphic5_input_cont rol_block_ pt r ); 

2 begin 

2 set upknob ( gcbi ) ; 

2 if gcbi*^ .error_return <> then setuphpgl ( gcbi ); 
2 end; 

1 end. { of modu.le ) 
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DGL_C_OUT 



Description 

DGL_C_OUT provides selection of different output device handlers. 



Requirements 

GLE_TYPES, SYSDEVS, SYSGLOBALS, GLE_HPGL_OUT, GLE_STEXT, GLE.ASTEXT, GLE_ASCLIP, GLE.SCLIP, 
GLE_SMARK, GLE_AUTL, GLE.UTLS, GLE_RAS_DUT, GLE_ARAS_OUT, GLE_FILE_IO, GLE_HPIB_IO, 
GENERAL_0, lODECLARATIDNS, IDCOMASM, DGL_TOOLS, DGL_RASTER, DGL_TYPES, DGL_VARS, ASM, LOADER, 
GLE_GEN, DGL_GEN, and DGL.HPGL. 



Notes 

See also LIB. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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File name: DGL C OUT 



1:D 
2:D 
3;D 
4:0 
5:0 
6:0 
7:0 
D 
S 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

?8 

29 

30 

31 

32 

33:0 

34:0 

35:0 

36:0 

37:0 

38:0 

39:0 

39:0 

40:S 

41:S 

42:D 

43:S 

44 

45 

46 

47 

48 

49 

50 

61 

52 
11000 
11001 
11002:0 
11003:3 
11004:0 
11005:3 
11003:0 



( 

( Graphics Library 

° i 

< Module = DGL_CONFG_OUT 

( Programer » BJS 

( Date = 10- 5-82 

C ( 

C { Purpose: To link device dependent drivers with the graphics library. 



{ Re 

{ ■ 

{ 
< 



history 

Created - 10- 5-82 

riodified - 1-12-84 BOS -Added Gator black-white support 

Modified - 2-17-84 BOS -Changed dynamic to global storage for Pfl3C 3.0 

{ (c) Copyright Hewlett-Packard Company, 1983. 

fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (8) of the Rights in Technical 
Data and Computer Software clause in 
DflR 7-104.9(3) . 

HEULETT-PfiCKflRD COnPPNY 
Fort Collins, Colorado > 

SSEBRCH 'OLE LIB', 
'TVPFS', 

'OGL VPRS', 

'DGl TOOLS', 

■DGL_RflS', 

'OGLJPGL's 

C JmodcalS 
Sinclude 'OPTIONS'! 



( compiler options ) 



< This include file specifies range checking, debug and other compiler 
options for the graphics library 

Idebug OFF$ 

$ range OFF$ 

Scopyright 'COPYRIGHT 1984 BV HEULETT-PRCKflRD COHPflNY'S 

IFLOflT HDD TEST$ 



tlnclude 'OPTIONS'S 
tLINENUn 11000$ 

module DGL_CONFG_OUT ; 

1 import gle_types, sysdevs; 
1 export 



( compiler options ) 
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1 1 00 ? : 

1100^:3 

11009:0 

11013:3 

11011:0 

11012:0 

11013:0 

11014:0 

11015:0 

11016:0 

11017:0 

11013:0 

11013:0 

11020:0 

1 1 02 1 : 

11022:0 

1 1 02 3 : D 

11024:0 

11025:0 

11026:0 

11027:0 

11023:D 

11029:D 

11030:D 

1103l:D 

11032:D 

1103!:D 

11034:0 

11035:0 

11036:0 

11037:0 

11038:0 

11039:0 

11040:0 

11041:3 

1104 .i:S 

11043:S 

11044:3 

11045:0 

11046:3 

1 1 04 / : D 

1104 !!:S 

1104):0 

llOSO: 

llOSl: 

llOS,! 

1 1 053 : 

11054: 

1105!; 

llOSfi 

11057: 

11 OSS: 

11059: 

11060: 

11061 : 

1106:;: 

1 1 06 ! : 

1 1 064 : 

1106:i 

no6h 



-12 

-13 

-16 

-17 

-22 

-26 

-30 

-32 

-550 

-552 

-816 

•1488 

1506 

■1507 

■1508 

■1509 

■1510 



-4 
-5 



procedure conf igure_gje ( gcb : g raphiC5_cont rol_block_pt r ) ; 
implement 
import gle_hpgl out, { hpgl plotter support > 



gle_ra3_out , 

gle_file_io, 

gleIhpib_io, 

gle_ut Is, 

dgl_tools, 

sysglobals J 

iodeclarationSj 

dgl raste r , 

dgl_hp9l, 

dgl__vars; 



raster support , 

plotter spooling io l 

plotter HPIB support ) 

general tools ) 

used to get machine type > 

address for GRPPHICSSHSE > 

used to get min, max selectcode ranges > 

DGL device dependent raster init code > 

DGL device dependent HPGL init code ) 

DGL global data ) 



crthook; crtlltype; 
7fi_address : anyptr; 
found_gator: boolean; 
select code : shortint; 
has_coTor : boolean; 
frame_buffer : integer; 
Stat : ^shortint; 
ptr: '^shortint; 
int_ext gator ; shortint; 
raster_3evice_rec__5pace 
hpgl device_rec_space 
ascii buffer_space 
f iIe_Tocb_space 
hpib~iocb~space 
took_type_ahead 
reduced^screen 
secondary 
moon 



{ holds adr of first graphics plane > 



< 0=neither, l=internal, 
raster_device_rec ; 
hpgl device_rec; 
ascil buffer; 
file^iocb; 
hpib_iocb; 
boolean; 
boolean; 
boolean; 
boolean; 



2=external> 



(procedure dummy_crthook (dum^op : crtllops; anyvar dum_pos 

dum_c : char); 
begin 
1 end; ) 

1 procedure termraster ( anyvar iocb_ptr : anyptr ); 



ptr : ra5ter_device_rec_pt r ; 
charvar ; char; 



2 begin 

2 with gle^gcb'' do 

3 begin 

3 ptr := dev_dep__5tuf f ; 

3 if reduced_screen then 

4 begin 

4 with gcb'^, raster_device_rec_pt r (dev_dep_st uf f ) '^ do 

5 begin " ~ 
5 reduced_screen := true; 

5 n^glines := 752; 

5 hard_ymax ;= 751; 

5 end; 

4 end; 

3 if took t ype_a head then 
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11067:C 




4 


begin 




11068;C 




4 


crtllhook := save crthook; 




U0B9:C 




4 


keybufops(kdi5pl3y,charv;}r): 




n070:C 




4 


end; 




11071 :C 




3 


((Ji5pose(ptr) ;> 




11072:C 




3 


end; 




11073:C 




2 


end; 




11074:S 










11075:S 










11076:S 






<Look for gator present. Assume only one gator is on the bus and that 




11077:0 - 


1510 


1 


an internal one overrides an external one if multiples present.) 




11078:S 










11079:0 




1 


procedure gato rcrtt ype(var found^gator , has^color :boolean; 




11080:0 




2 


var frame_buffer :Tnteger: 




11081:0 




2 


var select code.int ext gator :5hortint); 




11082:S 










11083:0 




2 


conrst 




11084:0 




2 


gatorid=25; 




11085:0 




2 


var 




11086:0 


-2 


2 


i: shortint; 




11087:0 


-4 


2 


dummy: shortint; 




11088:S 










11089:3 










1109O:C 




2 


begin 




11091 :C 




2 


control 5p3ce:=0; 




11092:C 




2 


found_gatcr :=fal5e; 




11093:C 




2 


int ext gator := 0; 

ptr : = anyptr(hex ('560000' )} ; 




11094:C 




2 




11095:S 










11096:C 




2 


try 




11097:C 




3 


dummy:=ptr^; 




11098:C 




3 


if (dummy mod 128) = gatorid then (look for internal gator } 




11099:C 




4 


begin 




11100:C 




4 


found_gator:=t rue; 

cont rol_space :-in1eger(ptr); 




UlOllC 




4 




11102:C 




4 


end; 




11103:C 




3 


recover 




11104:C 




3 


if e5capecode<>-12 then escape (escapecode) ; 




1110S:C 




2 






1110e:C 




2 


if found gator then {if there, find frame buffer) 




in07:C 




3 


begin 




11108:C 




3 


int ext gator := 1; 




11109:: 




3 


5tat := anyptr [cont rol space + 16384): 
frame_buffer := ((stat^) mod 16)»1048S76; 




U110:C 




3 




11111:C 




3 


end 




11112:5 










11113:C 




3 


else 




11U4:C 




3 


begin 




11115:C 




3 


pt r : = anypt r ( hex ( '680000') ) ; 




11U6:C 




3 


1:=S; 




11117:C 




3 


while (i<=31) and not found_gator do begin {look for external gator) 




11118:C 




4 


select code := i; 




11119:C 




4 


try 




11120:C 




5 


dummy : = ptr'^; 




11121:C 




5 


if (dummy mod 128) = gatorid then begin 




11122:C 




6 


found gator:=true; 

control 5pace:=integer (pt r) ; 




in23:C 




6 




11124:C 




6 


end; 




1112S:C 




5 


recover 




11126:C 




5 


if escapecodeo-12 then escape (escapecode) ; 
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11127:5 










11128:C 




4 


ptr:=anyptr(integer(ptr)+655361; 




11129:C 




4 


i:=itl; 




11130:C 




4 


end; 




11131 :C 




3 


if found gator then 




11132:C 




4 


begin 




11133:C 




4 


Stat := anyptr (cont rol space + 16384): 
frame buffer := ((stat'') mod 16)«104SS7e; 
int ext gator := 2; 




11134:C 




4 




1U35:C 




4 




11136:C 




4 


end; 




11137:C 




3 


end; 




11138:5 










11139:5 










11140:5 






{if found_gator then begin 




11141:3 






nas_color :=false; assume no color 




11142:5 








11143:5 






pt r :=anypt r (cont rol_space+hex [ ■410E ' ) ) ; read colormap id 




11144:3 






dutTifly : =pt r"; 




11145:3 






has_color;=true; set true if color there 




11146:5 






recover 




11147:3 






if e5capecode<>~12 then escape (escapecode) ; 




11148:C 




2 


end;) 




11149:3 










11150:C 




2 


end; 




11151:8 










11152:3 










11153:0 




1 


procedure setupraster ( gcb : graphics_cont rol_block_pt r ); 




11154:3 










11155:0 




2 


var 




1U56:D 




2 


graphics base [ 'GRflPHICSBHSE ' ] : anyptr; 




111S7:D 


-4 


2 


device work area : raster device rec ptr; 




11158:0 


-6 


2 


cnt 


gle shortint; 




11159:0 


-10 


2 


address 


integer; 




11160:0 


-14 


2 


control 


integer; 




11161 :D 


-15 


2 


knob echo_gcb 


boolean; 




11162:0 


-20 


2 


g ptr 


'^shortint; 




11183:0 


-22 


2 


g dummy 


shortint ; 




11164:0 


-23 


2 


g'raphics bd 


boolean; 




11165:0 


-23 


2 


graphicsTate t'GRflPHIC5FLftS' ] : boolean; 




11166:5 










11167:0 




2 


procedure dummyl ( anyvar iocb ptr, data ptr : anyptr ); 




11158:C 




3 


begin 




11169:C 




3 


end; 




11170:5 










11171:0 




2 


procedure expand_screen; 




11172:3 










11173:C 




3 


begin 




11174 :C 




3 


with gcb'^ do 




1117S:: 




4 


begin 




1117e:C 




4 


info3 := 0; 




U177:C 




4 


if [int ext gator = 1) or (irt ext gator = 2) then 




11178:C 




5 


begin 




11179:C 




5 


reduced screen := false; 




11180:C 




5 


info3 := 1; {l=expand; 0=leave reduced) 
end; {send on to expand screen) 




11181:C 




5 




11182:C 




4 


end; 




11183:C 




3 


if [currentcrt = bitmaptype) and ( int_ext_gator =1) then 




11184:C 




4 


begin 




11185:C 
11186:C 




4 
4 


save crtho 
crtlThock 


5k := crtllhcok; 
= duirmycrtll; 
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11187:C 


4 


{9ator_clear (gcb);} 




1 1 1 88 : C 


4 


took type ahead := true; 




1118S:C 


4 


end; 




11190:C 


3 


r-nd; 




I119]:S 








11192:0 


2 


procedure ck_for_g raphic5_board; 




11193:3 








1119«:C 


3 


begin 




U195:C 


3 


graphics bd := t rue; 




11196:C 


3 


if graphTcstate then g pt r := anypt r (hex ( '530000 ') ) 
else g pt r := anypt r (TTex ( '5380OO' )) : 




11197:C 


4 




11198:C 


3 


try 




11199:C 


4 


g_dummy := g_ptr^; 




11200:C 


4 


recover 




11201:C 


4 


begin 




U202:C 


4 


if escapecode <> -12 then escape (escapecode ) 




11203:C 


5 


else graphics_bd := false; 




11204:C 


4 


end ; 




11205:C 


3 


end; 




1 1 206 : S 








11207:S 








11208:S 








11209:S 








11210:0 


2 


procedure setup_internal; 




11211:S 








11212:0 


3 


procedure toggle graphics; 

var gon [5439485 (530000 HEX>] : shortint; 
goff [5472256 {538000 HEX)] : shortint; 




11213:0 


4 




11214:0 


4 




I121S:D 


4 


g on36c [ hexr'Sl FFFC ' ) ] : shortint; 
gEa5e['GRflPHICSBftSE'] : 'shortint; 




11216:0 


4 




11217:C 


4 


begin 




11218;C 


4 


If gcb'^.infol = m9836c then begin 
if graphicstate then g on36c;=l 




11218:C 


S 




H22C:C 


6 


else g_on36c:=0; 




11221 :C 


5 


gbase : = anypt r (hex ( 'S20000' ] ) ; 




11222:C 


5 


end 




11223:C 


5 


else begin 




11224:C 


5 


if graphicstate then gbase := addr(gon) 
else gbase := addr(goff); 




11226:C 


6 




11226:C 


5 


gbase*^ := gbase"^; 




n227:C 


S 


end; 




11228:C 


4 


end ; 




11229:S 








11230:C 


3 


begin 




11231:C 


3 


with gcb' do 




11232:C 


4 


begin 




11233:C 


4 


graphicstate := true; 




11234:C 


4 


infol := return machine type; 




1123S:C 


4 


toggle_graphic5: 

info pt rl := addr (graphics base); 




11236:C 


4 




11237:C 


4 


info pt r2 := anypt r(0) ; 
if infol = m9836c then 




11238:C 


4 




11239:C 


S 


begin 




11240:C 


S 


info2 :• hext'Slfffd' 1; 




11241:C 


5 


lnfo3 := hexi'SlfbOO'i; 




11242:C 


S 


end; 




11243:C 


4 


end; 




1 1 244 : C 


3 


end; 




11245:S 








11246:3 
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11247:0 


2 


procedure set gator vals; 




11248:3 








11249:C 


3 


begin 




I1250:C 


3 


with gcb' do 




11251:C 


4 


begin 




11252:3 




(if has color then 




11253:C 


4 


infoT := mgator c) 




112S4:C 


4 


{else) 




112SS:C 


4 


Infol := m9837a: (display type) 

info2 :■= control space; :top of control space) 




n256:C 


4 




112S7:C 


4 


anfo3 := 0; {By default dont expand ! SJS 5-29-84) 




H2S8:C 


4 


info ptrl := addr(frame buffer); {start of control space) 




H259:C 


4 


info pt r2 := anypt r(0) ; 




11260:C 


4 


end; 




11261:C 


3 


end; 




11262:3 








11263:5 








11264:C 


2 beqin 




11265:C 


2 


with gcb'^ do 




1126B:C 


3 


if spooling = then 




112e7:C 


4 


try 




11268:C 


5 


gatorcrt type (found qator, has color, 

frame^buffer, select code,int ext gator); 
ck for graphics board; 




11268:C 
11270:C 


5 
5 




11271:C 


S 


secondary := false; 




11272:C 


5 


moon := false; 




11273:C 


5 


reduced__screen := true; 




11274;C 


5 


took_t ype_ahead := false; 

contTol := infol; ( control passed in infol ) 

knob_echo gcb := anro2 = 1; < GCB for knob echos ) 




I1275:C 


S 




11276:C 


S 




11277:C 


5 


io^write := dummyl; 




11278:C 


5 


io term := termraster; 




11279:C 
11280 :C 


5 
5 


adcfress := gle_read_integer (device_info_char_count ,device_info ,cnt ) ; 
device work area := addr(raster device rec space); 




11281:C 


S 


dev dep stuTf := device work area; 




11282:C 


5 






11283:3 








11284 :C 


S 


if address = 3 then {indicates primary) 




I128S:C 


6 


begin {display) 
if ((currentcrt * alphatype) or (currentcrt = nocrt)) 
and [graphics bd) then setup internal 




11286:C 


6 




11287:C 


7 




H288:C 


7 


else if ((currentcrt = bitmaptypey and (int ext gator = 1)) 




11289:C 


8 


or ((not graphics_bd] and ( int_ext~gdtor = 1)) then 




11290:C 


8 


set gator vals; 




11291:C 


6 


end 




11292:3 








11293:C 


6 


else if (address = 6) then (indicates secondary ) 
begin (display) 




11294:C 


7 




11295:C 


7 


secondary := true; 




U296;C 


7 


if ((currentcrt = alphatype) or (currentcrt = nocrt) 
and (int ext gator <>0)) then 




11297:C 


8 




11298:C 


8 


set gator vals 




11299:C 


8 


else 




11300:C 


8 


if (graphic5_bd) then setup_internal; 




11301 :S 








I1302:C 


7 


if (currentcrt = bitmaptype) then {console = gator so) 
begin {set secondary to ) 

(small screen) 




11303:C 


8 




1I304:C 


8 




11305:C 
I1306:C 


8 

9 


if" (graphics bd) then 5etijp_inte mal 

else {if fails set second,) 


11-290 



ascal [Rev 3. On 6/ 


11307:C 


9 


1130S:C 


10 


11309:C 


8 


U310:C 


7 


11311:C 


7 


11312:C 


7 


n313:C 


7 


11314:0 


7 


1131S:C 


8 


n31S:C 


8 


11317:C 


8 


11318:C 


8 


11319:C 


8 


11320:C 


8 


11321 :C 


8 


11322:C 


8 


11323:C 


8 


11324:C 


8 


1132S:C 


8 


11326:C 


8 


11327:C 


7 


11328:S 




11329:: 


S 


11330:C 


5 


11331 :C 


6 


H332:C 


7 


11333:C 


7 


11334:C 


7 


1133S:C 


7 


11336:C 


7 


11337:C 


7 


11338:C 


7 


11339:: 


7 


11340:S 




11341 :C 


5 


11342:C 


5 


11343;C 


6 


11344:C 


6 


1134S:C 


6 


11346;C 


6 


11347;: 


6 


11348:: 


6 


11349:S 




113S0:S 




11351:: 


5 


113S2:S 




11353;S 




11354:: 


5 


113S5:S 




11356:5 




11357:: 


5 


11358:: 


5 


11359:3 




11360:: 


5 


11381:: 


S 


11362:: 


6 


11363:: 


6 


11364:: 


4 


1136S:: 


2 end 


11366:5 
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{to gator . > 



{ must be moonunit or gator ) 



if (int_ext_gato r =1) then 
5et__gator"'vals ; 
end; 
end 
else 
begin 

if (address < minrealisc) or [address > maxrealisc) then escape[I); 
if [address - 5eIect_code) and (inT_e>;t gator = 2) then 

set_gator_vals 
else 
begin 

info3 := control div 25d; { get monitor type information (part of control) > 
if [info3 > 6) or (info3 < 1} then info3 := 1; 
moon := true: 

infol := m98627a; < set display type to 98627fl > 

info2 ;= address * 65536 + 6291456; { i/o card address > 
hp98627a address ;^ 3nyptr(info2 + hex ( '8000' )) ; { first plane adr ) 
info_ptrT := addr (hp98627a_addre55) ; 
info_ptr2 := anyptr(O); 
end; 
end; 

^control set) 

if [odd(control DIV 256)] and (not moon) then 
if 

[(currentcrt = bitmaptype) and ( int_ext_9ator 
(not secondary) ) 



1) and <is bitmap, primary, 
{ gator there 
or {or 

Mcurrentcrt = alphatype) or (currentcrt = nocrt)) and {is alpha/none ,qr bd, 
(gr3phics_bd) and (secondary) and (int_ext_gator = 1)) (second, gator there 



text, gator there 



[address > 6) and (int_ext._gator = 2) 
then expand_5creen; 

^control not set, but gator i:i not console) 
if (Mcurrentcrt = alphatype) or (currentcrt = nocrt)) and 
(int_ext_gator <>0) and 
(secondary) ) 

or 
(((currentcrt = alphatype) or (currentcrt = nocrt ) ) and 
(not graphic5_bd) and (lnt_ext_gator <>0)) 
then expand_screen; 



gle,_ini t._raster_out put (gcb) ; 

if (er ror_ret urn = 0) and (not knob_echo_gcb) then d9l_raster_init (cont rol) ; 

<if error_return <> then 

dispose (device_,vuork_a rea ); ) < clean up ) 
recover ~ 

{ ignore all escapes (except litop key), user may look at 

escapecode to determine error ) 
if escapecode = -20 then e5c3pe(-20) 
else e r ror_return := 1 
else 

error_return := 1; < raster devices may not be spooled > 
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11367:0 




1 


11368:5 






11369:0 




2 


11370:0 


-4 


2 


11371:0 


-8 


2 


11372:0 


-12 


2 


11373:0 


-16 


2 


11374:0 


-20 


2 


11375:5 






11376:: 




2 


11377:: 




2 


11378:0 




3 


11379:: 




3 


11380:: 




4 


11381:0 




4 


11382:0 




4 


11383:: 




4 


11384:0 




4 


11385:: 




4 


11386:: 




4 


11387:0 




4 


11388:0 




4 


11389:0 




4 


11390:0 




4 


11391:: 




4 


11392:0 




4 


11393:0 




3 


11394:0 




3 


11395:0 




3 


11396:0 




3 


11397:0 




2 


11398:5 






11399:0 




1 


11400:8 






11401:0 




2 


11402:0 


-4 


2 


11403:0 


-8 


2 


11404:0 


-12 


2 


11405:0 


-16 


2 


11406:0 


-18 


2 


11407:0 


-22 


2 


11408:0 


-23 


2 


11409:0 


-28 


2 


11410:0 


-32 


2 


11411:0 


-36 


2 


11412:5 






11413:0 




2 


11414:0 




2 


11415:0 




3 


11416:0 




3 


11417:0 




3 


11418:0 




3 


11419:0 




4 


11420:0 




4 


11421:0 




4 


11422:0 




4 


11423:3 






11424:0 




3 


11425:0 




3 


11426:0 




3 
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procedure termhpgl ( anyvar iocb__pt r : anypt r ) ; 



iocb_pt r_f ile 

iocb_ptr hpib 

buf 

device_work area 

5ave_iore3uTt 



f ile_iocb_pt r ; 
hpib iocb pt r ; 
asciT_buf7er_pt r ; 
: hpgl_device_rec_pt 
integer ; 



{ I fix clobbering ioresult 



12/83) 



begin 

with gle_gcb^ do 
begin 

if spooling <> then 
begin 

5.3ve_iore5ult ;= ioresult; 
file_term [iocb_pt r ) ; 
ioresult := save__ioresuit ; 
iocb„pt r file := locb; 
{di5poseTiocb_pt r f ile) ; ) 
end 
else 
begin 

npib_term [iocb_pt r ) ; 
iocb_pt r hpib := iocb; 
{disposeXiocb ptr_hpib);) 
end; *" 

buf :■= device_buf; 
devicii__work. area := dev dep_stuff; 
{dispose (buT) ; dispose i3'evlce_y/ork area) ; > 
end; "~ 

end; 

procedure sutuphpgl ( gcb : g raphics._cont rol_block_pt r 



( I ioresult problem fix 12/83~-B0S> 
{ perform io term then release mem > 
< I ioresult problem fix 12/83--BDS> 



{ perform io term then release mem ) 



file_iocb_pt r ; 

hpib^iocb ptr; 

asciT bufTe r_pt r ; 

hpgl_3'evice_rec_pt r 

9le_short int ; 

integer; 

boolean ; 

integer; 

integer ; 

integer ; 



{ I fix clobbering ioresult -- 12/83> 



var 

iocb ptr file 

iocb"pt r'hpib 

buf 

device_work area 

cnt 

address 

address_found 

cent rol" 

save_iore:jult 

save 

begin 

with gcb'' do 
begin 

control := infol; { control passed in infol > 

address found := false; 

try 

address : = gle_read__inttige r (device_info_char_count .device info,cnt ) ; 
add''ess_found := true; ~ 

recoviir 

if escapecode <> -8 < value range error ) then escape (escapecode) ; 

bjf :■= addr (a5cii_buffer_s pace); 

devicii_buf := buf; 

devici;_work_a re a := addr (hpql_device_rec space ) ; 
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{ do not save file by default > 



{ save file ) 



<| ioresult fix 12/83--B0S} 

{| ioresult fix 12/83--BDS} 
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dev__dep_st uf f := device_work_area; 

if spooling = 1 then 
begin 

iocb_pt r___f ile : = addr (f ile_iocb_space) ; 
iocb :~ Tocb ptr_file; 
io_write ;= file_wrlte; 
io_term := termhpglj 
io_inq_t imeout := file_inq_t imeout ; 
io_set "timeout := f ile_5et_t imeout ; 
with iocb_pl r_f lie" do 
begin 

Tile_name := device_info; 

name_size : = device_info_c ha recount ; 

try 

lock_on close := 0; 
file init ( iocb_pt r_f ile ) ; 
gle_Tnit_hpgl_output [gcb) ; 
If error_return = then 
begin 

dgl hpgl_init (cont rol) ; 
Iocir_on_close := 1 ; 
end 
else 
begin 

save_ioresult := ioresult; 
file„term ( iocb_pt r_file ) ; 
ioresult := save_io result ; 
end ; 
recove r 

if escapecode <> -10 then escape [escapecode) 
else error_return := 1; 

end; 

if error return <> then 
begin J clean up ) 

save_ioresult := ioresult; <| ioresult fix 1/84--BDS) 

{dispose [iocb_pt r_file); dispose (buf); dispose (device_work__areaj ; ) 
ioresult := save_ioresult ; { | ioresult fix 1/84--B0S) 

end; 
end 
else 

if addres5_found then 
begin 

iocb_ot r_^hpib : = addr (hpib_iocb__space) ; 
iocb :- Tocb ptr_hpib; 
io_write := Kpib_write; 
io_read := hpib read; 
io_terrn := termlipgl; 
io_inq_t imeout := hpib__inq_t imeout ; 
io_5et_t imeout := hpib_set_t imeout ; 
with iocb_pt r_hpib'^ do 
begin 

device addr := device_info; 
name_sTze := device_info_c ha recount ; 
end; 
hpib_init ( iocb ptr_hpib ); 
if iocb_pt r_hpib^.e r?or = then 
begin 

gle_init_hpgl__out put (gcb) ; 



11427:C 


3 


11428:5 




114ZS:C 


3 


1143C:C 


4 


1143] :C 


4 


11432:C 


4 


1U3j:C 


4 


1 1434 : C 


4 


11436:C 


4 


1I436:C 


4 


11437:: 


4 


11438:C 


5 


I1439:C 


6 


11440 :C 


5 


11441 :C 


5 


11442:C 


6 


I1443:C 


6 


il444:C 


6 


1144t;C 


6 


n446:C 


7 


1I447:C 


7 


11448:C 


7 


11449:C 


7 


1!4S0:C 


7 


11461 :C 


7 


1I45?:C 


7 


114S3:C 


7 


11454:C 


7 


11*56:C 


7 


11456:C 


6 


1US7:C 


6 


114S8:C 


7 


11459:C 


5 


11460:S 




11461 :C 


4 


1I462;C 


5 


11463:C 


5 


11464:C 


5 


11465:C 


5 


11466:C 


6 


11467 :C 


4 


11468:C 


4 


11469:C 


4 


1147C:C 


5 


11471 :C 


5 


1147?:C 


5 


1I473;C 


5 


11474 :C 


S 


1I47B:C 


5 


11476 :C 


5 


11477:C 


5 


11478:C 


5 


11479:C 


6 


11480:C 


6 


11481:C 


6 


11482:C 


6 


11483:C 


5 


11484:C 


5 


11485:: 


6 


11486:: 


6 
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11487: 

11488: 

11489: 

11490: 

11491 : 

11492: 

11483: 

11494:C 

H49S:C 

11496;: 

11497:: 



11498 
11499 
11500 
11501 
11502 
11503: 
11504 
11 SOS 



H506:S 



11507: 

11508: 

11509: 

11510: 

11511: 

11512: 

11S13: 

11S14: 

11S16:C 

11516:5 

11517:5 



if error_return = then dgl hpgl^init (control ) 

{ if error then clean up npTb bus r2.1 bug fix) ) 
else hpib_init ( iocb ptr_hpib ); 

end 
else error_return := 1; 
if error return <> then 
begin J clean up > 

(dispose (iocb_pt r_hpib) ; dispose (buf ) ; dispose (device_work_area) ; ) 
end; 
end 
else 

error^return := 1 ; 
end ; 



5 

6 
6 
6 
5 

6 
5 

3 

2 f-nd 

1 procedure conf igure_gle ( gcb ; graphiC5_control_block_pt r ); 

2 VPR 

2 save ; integer; 

2 begin 

2 With gcb'' do 

3 begin 

3 setupraster ( gcb )■ 

3 if error_return <> then setuphpgl ( gcb ); 

3 end; 

2 end; 

1 end. < of module > 



No warnings. 

***** Nonstandard language features enabled ***** 
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DGL_HPGL 



Description 

DGL_HPGL provides device-dependent initialization of HPGL devices, input/output escape func- 
tions, and HPGL plotter setup utilities. 



Requirements 

DGL.TYPES, DGL_TYPES, DGL_VARS, GLE_TYPES, GLE_GEN, GLE_UTLS, SYSGLOBALS, and LOADER. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name: DGL HPGL **• 



; 

■; 

{ 

( 



DGL device d^:pendenT init routine 

Module = DGL_HPGL 

Programer = BJS 
Date = 10- S-82 

Pur-po:e- To provide device dependent initialization for HPGL devices. 

Rev history 
Created ■- 1 - S-82 BJS 

nodified - 4 -03-84 BDS Changes dynamic allocations to globals for 3.0 
fidded identifiers for 7586,7550,7475 







[cl Copyright Hewlett-Packard Company, 1983. 
flli rights are reserved. Copying or other 
reproduction of this program e:<cept for archival 
purposes is prohibited without the prior 
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Isearch 'GLE LIB' , 

'TYPFS' 

•OGL_«BRS't 

$modcal$ 

$include 'OPTIONS'* 



COMPILER OPTIONS »« 



{ This include file specifies range checking, debug and other compiler 
options for the graphics library 

Sdebug OFF$ 
Irange OFF$ 
Scopyright 'COPYRIGHT 1984 BY HEULETT-PHCKflRD COnPflNY'S 

sfloAt hdu tests 



jK***!^************* COMPILER OPTIONS 



linclude 'OPTIONS'S ( 
Slinenum 17000$ 

module OGL_HPGL; 

1 e<port 

1 procedure dgl_hpgl_init [cont rol 
1 implement 



integer ) ; 
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17010:D 
17011:D 
17012:0 
17013:0 
17014:0 
1701S:S 
17016:0 
17017:D 
17018:0 



17019 

1702O 

17021 

17022 

17023 

17024 

17025 

17026 

17027 

17028 

17029 

17030 

17031 

17032 

17033 

17034 
«««USRMNG 

1703S:C 
•«»UBRNING 

17036:C 
»«»UFIRNING 

17037:C 
»««UflRNING 

17038:C 
»««UfiRNING 

17039:C 
«««URRNING 

17040:C 

17041 :C 

17042:C 

17043:C 

17044 :C 
»««USRr:ING 

1704S 
17046 
17047 
17048 
17049 
17050 
170S1 
17052 
17053 
17054 
170SS 
17056 
17057 
17058 
17059 
17060 
17061 
17062 



import dgl_type5, 
dql^vars, 
gle_gen, 
gle_ut Is , 
asm; 

1 procedure hpgl_input__e5c ( opcode 

2 isize 
2 rsize 
2 anyvarilist 
2 anyvarrlist 
2 var ierr 
2 

2 { Purpose ; To perform an input escape function 

2 
2 
2 
2 



integer; 
integer; 
integer; 
gint list ; 
greaT_list ; 
integer ) ; 



2 
2 

3 

3 
(line 

3 
(lire 

4 
(line 

4 
(line 

4 
(line 

4 
(line 



5t ring [40]; 
: intege r ; 
char ; 

begin 

with gle_9Cb^ do 
beg-- 



17035) 
17036) 
17037) 
17038) 
17039) 
17040) 



gin 

if 5 poo 

'HDOR' 
if ((gl 

'fiOOR' 

'PD§R* 

gle 
R'' 



le 

R'' 

le 

R' 

gle 

(ope 

begin 

If 



'BDO 
■RDO 



ling 
of a 

e ma 
of 
mate 
of a 
mate 
of 

mate 
of 
mate 
of a 

_matc 

ode = 



4 
4 
4 
5 
(linel7046): 'flDDR 

5 
S 
6 
5 
5 
5 
5 
S 
4 
4 
4 
3 



2 end; < input_esc ) 



1 then ie 

constant ma 
ch(4,addr(di 

constant ma 
h(4,addr(dis 

constant ma 
h(4,addr(dis 

constant ma 
h(4,addr(di5 

constant ma 
h(4,addr (dis 

constant ma 
h(4,addr(dl5 

2050) then 

= 0) then 



:= 4; 
y not be supported on other implementations 
splay_hame) ,4 . addr ( '7580' ] ) or 
y not be supported on other implementations 
play_name),4,addr ('7550' 1) or 
y not be supported on other implementations 
play_name) ,4,addr ('7475' ) ) or 
y not be supported on other implementations 
play_name) ,4,addr ( '7090' ) ) or 
y not be supported on other implementations 
play_name) ,4,addr ('7585' ) ) or 
y not be supported on other implementations 
play_name),4,addr ('7586' ) ))) and 



( ie - r 
eg in 
of a constant may not be supported on 
info pt rl := addr('0T' ) ; 
infoT := 2; 

gle_output escapeo( gle_gcb ); 
gle_flu5h_Euffer (gle gcb); 
info_ptrl := addr(s[iy}; 
gle out put_escapei ( gle_gcb ); 
se: St rlen [s , infol ) ; 
5trread(5,l,cht,ili5t[l],c,ilist[2]); 
end; 



other implementations 



1 p/ocedure hpgl ^output _esc ( 
2 



opcode 
isize 



integer ; 
integer ; 
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*** 


17063 :D 




2 


rsize : integer; 




17064:D 




2 


anyvar ilist : gint list; 




I7065:D 




2 


anyvar rlist : greaT list; 




17066:D 




2 


var ierr : integer ); 




17067:S 










17068:D 




2 


{ Purpose : To perform an output escape funtion ) 




17069:S 










17070:D 




2 


var 




17071:D 


-22 


2 


s : string[201; 




17072:D 


-26 


2 


cnt : integer; 




17073:S 










17074:D 




2 


procedure set _aLito„pen; 




1707S:S 










17076;C 




3 


begin 




17077:: 




3 


strwrite(5,l,cnt , 'fiP' ,ill5t [1] :1 ); 




17078: C 




3 


end; 




17079:S 










17080:D 




2 


procedure con rol_cut te r; 




17081 :S 










17082:C 




3 


begin 




17083 :C 




3 


i := 'EC; 




17084:C 




3 


if ilist [1] = then 




1708S:C 




4 


begin 5e t :it rlen (s,3 ) ; 5[3] := 'C; end; 




17086 :C 




3 


end; 




17087 :S 










17088:0 




2 


procedure advance_page; 




17089:S 










17090:C 




3 


begin 




17091 :C 




3 


if ilist [1] = then s := 'OH' 




17092 :C 




4 


else s := 'flF'; 




17093 :C 




3 


end; 




17094 :S 










17095:0 




2 


procedure set^veloclt y; 




17096:5 










17097 :C 




3 


begin 




17098 :C 




3 


strwrite{5,:L,cnt 'VS' .ilist [1] :1); 

if [iliijt[2;i > 0) and [ili5t[2] <= qle_gcb". gamut ) then 
5trwrite(iijCnt,cnt, ' , ' , ilist [2] : 1); 




17099 :C 




3 




17100:C 




4 




17101:C 




3 


end; 




17102:5 










17103:0 




2 


procedure set._force; 




ni04:S 










1710S:C 




3 


begin 




17106:C 




3 


5t rwrite(5,l, cnt, 'FS', ilist [1]:1); 

if (ili!5t[2;i > 0) and (2listt2] < qle gcb". gamut) then 




17107:0 




3 




17108:C 




4 


St rwrite(;ijcnt ,cnt , ' , ' .iJist [2] : 1 ) ; 




17109:C 




3 


end; 




17U0:5 










17111:0 




2 


procedure set__accelerat ion ; 




17112:5 










17113:C 




3 


begin 




17114:C 




3 


5trwrite(s.l,cnt/flS' .ilist [1] :1 ); 

if (iJiiit[il > 0) and (ili5t[2] < gle gcb''. gamut ) then 
strwrite(s,cnt,cnt, ',' ,ilist[2]:l); 




1711S:C 




3 




17116:0 




4 




17117:C 




3 


end; 




17118:5 










17119:0 




2 


begin 




17120:0 




2 


with gle gcb"^ do 




17121:0 




3 


begin 




17122:0 




3 


5 := ' ' ; 
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*#* 


»»»WRRNING 


(1 


inel7123): 'ODOR' of a constant nay not be supported on other implementations 




17123:0 




3 


if gle_match(4,addr (display name ) ,4,addr [ '9872' ) ] then 




17124:0 




4 


begin 




17125:0 




4 


If (opcode = 1052) then 




17126:0 




5 


begin if (ierr = 0) then control cutter; end 




17127:0 




5 


else 




17128:0 




5 


if (opcode = 1053) then 




17129:0 




6 


begin if (ierr = 0) then edvance page; end 




17130:0 




6 


else 




17131:0 




6 


if (opcode =^ 2O50) then 




17132:0 




7 


begin if (ierr = 0) then set velocity; end 




17133:0 




7 


else 




17134:0 




7 


ierr ;= 1; 




17135:0 




4 


end 




17136:0 




4 


else 




«««WflRNING 


(1 


inel7137) : 'POOR' of a constant may not be supported on other implementations 




17137:0 




4 


if ((gle match(4,addr(display name ) ,4, add r ( '7470' ) 1 ) or 




»«*UfiRNING 


(1 


lnel7133) : 'POOR' of a constant may not be supported on other implementations 




17138:0 




5 


(gle mdtch(4,addr(display name) ,4 , addr ( '7440' ) ) ) ) then 




17139:0 




S 


begin 




17140:0 




5 


If (opcode = 2050) then 




17141:0 




6 


begin if (ierr = 0) then set velocity; end 




17142:0 




6 


else 




17143:0 




6 


ierr := 1; 




17144:0 




5 


end 




17145:0 




5 


else 




••♦UBRNING 


(1 


inel7146) 


'RDDR' of a constant may not be supported on other implementations 




17146:0 




5 




if (gle_match(4,addr (display_name) ,4, addr ('7580' ) ) or 
'PiDOR' of a constant may not be supported on other implementations 




• »»UlfiRNING 


(1 


inel7147) 




17147:0 




6 




gle match [4, addr (display name) ,4 , addr ( '7550' ) ) or 
'flDDR' of a constant may not be supported on other implementations 




««*U)flRNING 


(1 


inel7148) 




17148:0 




6 




gle_match[4,addr (di5play_name) ,4, addr ( '7475' ) ) or 
'fiODR' of a constant may not be supported on other implementations 




»«*UPflRMING 


(1 


inel7149) 




17149:0 




6 




qle mijtch[4, addr (display name) ,4 , addr ( '7090' ) ] or 
'ADDR' of a constant may not be supported on other implementations 




•««UHRNIING 


(1 


lnel7150) 




17150:0 




6 




qle match[4,addr(di5play name) ,4 , addr ( '7585' ) ) or 
'flODR' of a constant may not be supported on other implementations 




«««UflRNING 


(1 


ineniSl) 




17151:0 




6 


gle match[4,addr(di5play name) ,4 . addr ( '758$' ) ) ) then 




17152:0 




6 


begin 
if (opcode = 1052) then 




17153:0 




6 




17154:0 




7 


begin if (ierr = 0) then set auto^pen; end 




17155:0 




7 


else 




17156:0 




7 


if ( (opcode = 1053) and 




»««U)flRNING 


(1 


inel7157) : 'POOR' of a constant may not be supported on other implementations 




17157:0 




8 


f(gle match(4,addr(di5play name) ,4, addr (' 7586' J) ) or 
7158); 'PiDDR' of a constant may not be supported on other implementations 




»»*UflRNING 


(1 


inel 




17158:0 




8 


[gle match(4,dddr(di5play name) ,4, addr ( '7550' )))) ) 




17159:0 




3 


then 




17160:0 




8 


begin if (ierr = 0) then advance page; end 




17161:0 




8 


else 




17162:0 




8 


if (opcode = 2O50) then 




17163:0 




8 


begin if (ierr = 0) then set velocity; end 




17164:0 




9 


else 




17165:0 




9 


if (opcode = 2051) then 




17166:0 




10 


begin if (ierr = 0) then set force; end 




17167:0 




10 


else 




17168:0 




10 


if (opcode = 2052) then 




17169:0 




11 


begin if [ierr = 0) then set acceleration; end 




17170:0 
17171:0 




11 
11 




else 

ler- := 1; 
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»»» File 


name : 


DGL_HPGL *»» 


1717::C 


6 


end 






1717 i:C 


6 


else 






1717.; :C 


6 


ierr ;= 1 ; 






1717^>;C 


3 


if ierr = then 






I717f.:C 


4 


begin 






1717 -iC 


4 


info .ptrl := acldr(5[l]); 






1717,. :C 


4 


infol := St rlen (s) ; 






17n!):C 


4 


gle output escapeo(gle gcb); 






1718(i:C 


4 


end; 






1718; :C 


3 


end; 






1718;::C 


2 


end; { output^esc > 






1718J:S 










1718a:D 


1 


procedure hpgj_linestyle [ inde;< : integer); 






1718'.:S 










1718t:D 


2 


{ Purpose: To set the linestyle that primitives are drawn with 




) 


1718V :S 










17188:D 


2 


type 






17180:0 


2 


Is map def = packed array [1..13] of gbyte; 






17190:0 


2 


const 






17191 :0 


2 


ls_map = ls_hiapjef [0,2,3,4,5,6,1,2,3,4,5,6,1]; 






1719;::S 










17193:C 


2 


begin 






17194 :C 


2 


with gle_gcb'*" do 






1719S:C 


3 


begin 






1719(i:C 


3 


infol := Is map[index]; ( map OGL to GLE def > 






17197 :C 


3 


info2 := 4; { repeat rate 4X > 






1719«:C 


3 


if (indeK > 7) then info3 := 1 






1719'.i:C 


4 


else infc3 := 0; { linestyle mode > 






1720O:C 


3 


info4 :^ 0; 






17201 :C 


3 


gle_linestyle { gle_9cb ); 






1720;- :C 


3 


end; 






1720:t:C 


2 


end; < hpgl_lire5tyle > 






17204:S 










1720S:0 


1 


procedure hpgl color ( index : integer ); 






1720ii:S 




■ 






1720'' :C 


2 


begin 






1720ii:C 


2 


gle_gcb". infol := index; 






1720'i:C 


2 


gle index color [ gle gcb ); 






1721.:C 


2 


end; 






1721: :S 










1721. ::D 


1 


procedure hpgl color table ( index : integer; 






1721;j:D 


2 


parml : real; 






17214:0 


2 


parm2 : real: 






172i;,:D 


-24 2 


parm3 : real); 






1721ti:S 










1 72 1" : C 


2 


begin 






172le:C 


2 


end; 






1721H;S 










17220:0 


1 


procedure dgl_hpgl_init (cont rol : integer); 






17221 :S 










1722;:0 


2 


type 






17223:0 


2 


default_poly_table_def = array[1..16] of poly_ent ry_def ; 






17224:S 










1722S:D 


2 


const 






1722t.:D 


2 


default_poly_table = default _.poly table_def [ 






17227:0 


2 


poly entry def [ density 


0.0 , orient 


0.0, edge 


true ] , 


i ' } 




1722R:D 


2 


poly entry def [ density 


0.125, orient 


90.0, edge 


true ] , 


2 ) 




17220:0 


2 


poly entry def [ density 


0.125, orient 


0.0, edge 


true ] , 


3 > 




17230:0 


2 


poly entry def [ density 


-0.125, orient 


0.0, edge 


true ] , 


4 > 




1723: :0 


2 


poly_entry_def [ density 


0.125, orient 


45.0, edge 


true ], 


5 > 
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name : 
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1723; :D 


2 


poly ent ry def 


dens 


ty : 0.12S, orient : -45.0, edge : true ], 


( 6 > 




1723, :D 


2 


poly ent ry def 


dens 


ty 


-0.125, orient 


45.0, edge 


t rue , 


( 7 > 




17234:0 


2 


poly ent ry def 


dens: 


ty 


0.25 , orient 


80.0, edge 


t rue , 


< 8 > 




1723; :D 


2 


poly_ent ry_def 


dens 


ty 


0.25 , orient 


0.0, edge 


t rue 


< 9 > 




1723f,:D 


2 


poly_ent ry_def 


dens 


ty 


-0.25 , orient 


0.0, edge 


t rue , 


< 10 




1723V :D 


2 


poly_ent ry_def 


dens 


'y 


0.25 , orient 


45.0, edge 


true , 


( 11 




17231:: D 


2 


poly entry def 


dens 


ty 


0.25 , orient 


-45. 0, edge 


t rue , 


\ 12 




1723;,:0 


2 


poly entry def 


dens 


ty 


-0.25 , orient 


45.0, edge 


t rue , 


{ 13 




1724(1:0 


2 


poly entry def 


dens 


ty 


-0.5 , orient 


0.0, edge 


t rue , 


< 1* 




17241 :D 


2 


poly entry def 


dens 


ty 


1.0 , orient 


0.0, edge 


false , 


I 15 




1724;- :0 


2 


poly_entry_def 


density 


1.0 , orient 


0.0, edge 


true J, 


( 16 




1724;- :S 










17244 :0 


2 


type 






1724'. :D 


2 


control_def = packed record 






17241 ;0 


2 


case gshortint of 






17247:0 


2 


: (whole ; gshortint): 






17241- :0 


2 


1 : (part : packed record 






17240:0 


2 


bl5,bl4,bl3,bl2. 






1725C:D 


2 


bll,blO,b9, b8. 






17251 :D 


2 


clr inhibit ,b6,b5,b4, 
b3,E2,bl,bO : boolean; 






1725/ :D 


2 






1725? :D 


2 


end); 






17254:0 


2 


end; 






1725t, :S 










17256:0 


2 


var 






17267:0 


-2 2 


temp control : control def; 






17258:0 


-6 2 


1 : Integer; 






17259:S 










1726G:C 


2 


begin 






17261 :C 


2 


with gcb'^ do 






17282 :C 


3 


begin 






17263:C 


3 


di5p_jy5t := lowerleft; 






17264 :C 


3 


clipping_^suppor t := true; 






17260 :C 


3 


retroactTve color support := false; 






17266 :C 


3 


retroactive polygon support := false; 






1726V:C 


3 


maximum polygon vertices := 0; { no hardware support > 






17268 :C 


3 


if gle^gcb^.vect linestyles <> then number dgl linestyles := 1 


3 




172eS:C 


4 


else number_dgl_linestyle5 := 7 


; 




1727C:C 


3 


number_marker s := 19; 






17271 :S 










17272 :C 


3 


proc_output_esc := hpgl_output_esc: 






17273:C 


3 


proc_input_esc := hpgl_input_esc; 






17274 :C 


3 


proc_linest yle := hpgl_linesTyle; 






17276:C 


3 


proc color := hpgl~color; 






17276 :C 


3 


proc color table := hpgl color table; 






17277 :C 


3 


color_table_si2e := 0; 






17278 :S 










17279:C 


3 


< allocate polygon table space ) 






17280:5 










17281 :C 


3 


number polygon styles := 16; 






1728?:C 


3 


{newbyte£{poly table ptr, number polygon styles * 18);> 
poly table_ptr := ad3r(poly tabTe_def space); 






17283 :C 


3 






17284 :C 


3 


for T := 1 to poly table size do 






17280 :C 


4 


poly_table_pt r-^tl] := default__poly_table [i] ; 






17286:3 










1728'; :C 


3 


display_echo_mult := 8; 






17288;S 










1728S:C 


3 


temp^cont rol .wliole := control; 






1729C:C 
17291 :C 


3 

4 


if not temp cc 
with gle gcc 


ntrol 
" do 


part 


.clr^inhibit ther 
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17292 ;C 

17293:C 5 infol := -1; { clear all planes > 

17294:C ^ ■ -' •---.----... 

17295:C 
17296 :C 
17297 :C 
17298 :C 
17299:S 
17300:C 
17301:S 

No errors. 18 warnings. 

**x«* Nonstandard language features enabled ««*** 



5 




begin 












5 




mfol 


; = 


-1 








b 




info2 


: = 


1 


background 


index; 


b 




gle cJ 


ear 


qle 


gcb ]; 




S 




end; 












■J 




end; 












2 

1 


end 
end 


< dgl_.hpgl > 
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1 '.D 
2;D 


{ OGL device dependent init routine > 




3;0 


° < ) 




4:0 


( nodule = DGL HPGLI ) 




S:D 


{ Programer = BJS > 




6:0 


( Date = 2 -10-83 




7:0 


( 




8:0 


{ Purpose: To provide device dependent initialization for the knob. ) 




9:S 






IO:D 


{ Rev history ) 




1 1:0 


< Created - 2 -10-82 BJS ) 




12:0 


{ Modified - XX-XX-XX ) 




13:S 






14:S 


{ (c) Copyright Hewlett-Packard Company, 1983. 
Rll rights are reserved. Copying or other 




15:S 




16:S 


reproduction of this program except for archival 




17:S 


purposes is prohibited without the prior 




18:S 
19:S 
:0:S 


written consent of Hewlett-Packard Company. 








£1:S 
22:5 
t3:S 


RESTRICTED RIGHTS LEGEND 




Use, duplication, or disclosure by the Government 




24 :S 


is subject to restrictions as set forth in 




25:3 


paragraph (b) (3) fB] of the Rights in Technical 
Data and Computer Software clause in 




26 :S 




27 :S 


DRR 7-104.9(3) . 




28:S 






29:S 


HEWLETT -PflCKBRD COMPHNY 




30:0 
31 :S 
32:0 


Fort Collins, Colorado > 




Ssearch 'GLE LIB' , 




33 :D 


'TVPFS' 

'DGL vnfts'. 




34:0 




35:0 


'GEN''', 

'DGL C OUT'S 




36:0 




37:0 


SmodcalS 




37:0 
38 :S 
39:3 


tinclude 'OPTIDNS'S { «««««»««»««*««««»«»« COMPILER OPTIONS «»»«««««»««»««»»«« ) 




{ This include file specifies range checking, debug and other compiler 




40:D 


options for the graphics library } 




41:3 






42:0 


Sdebug OFF$ 




43:0 


$range OFF$ 




44 :D 


Scopyright 'COPYRIGHT 1984 BY HEULETT-PHCKPRD COtlPPNY'S 
SFLOAr HDU TESTS 




45:0 




46:3 






47:3 






48:S 






49:3 






50:0 


$include 'OPTIONS'S { **»*«**:*«*««**«*«*** COMPILER OPTIONS )|<*=i<*«>k*!«««»:x**«*«* ) 




18000:0 


Slinenum 18000$ 




18001:3 






18002:0 


module OGL HPGlI; 




ie003:S 






18004:0 


1 export 




18005:3 






18006:0 


1 procedure dgl_npgli_lnit ; 




18007:3 






18003:0 


1 implement 
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18009:3 






18010:0 


1 import dgl types, 




18011 :0 


1 dgl vars, 
1 gle types. 




18012:0 




18013:0 


1 gle gen. 




18014 :D 


1 gle_gen:i, 




18015:0 


1 dgl gen; 




1801S:S 


~ 




18017:0 


1 procedure hpgl:i_5ample_locator ( echo : integer; 




18013:0 


2 va r rx , ry : real ) ; 




18013:3 






18020:0 


2 { Purpose : To sample the locator device > 




18021:3 






18022:0 


2 var 




1802 3:0 


-8 2 ax, dy : integer; 




18024 :S 






18025:C 


2 begin 




ie02S:C 


2 with gle gcbi'' do 




ie027:C 


3 begin 




18023:C 


3 gle_5ample(gle_qcbi ) ; 

3 convert_ltoo[infol,info2,dx,dy]; 




18023:C 




18030:C 


3 convert dtowfdx ,dy, rx, ry) ; 




18031:C 


3 ififol ;= echo; 




18032:C 


3 gle input echo (gle gcbi); < echo on locator device ) 




18033:C 


3 end; 




18034:C 


2 end; < 5ample_Iocator > 




18035:5 






18035:0 


1 procedure hpgli_aw3it_locator (var echo : integer; 




18037:0 


2 var button : integer; 




18033:0 


2 var rx, ry : real ) ; 




1803 J:S 






1804O:S 






1804 1:0 


2 { Purpose : To activate the locator, and wait for operator termination > 




1804:; :S 






1804i:D 


2 var 




18044:0 


-1 2 echoerror ; boolean; 




18045:0 


10 2 dx,dy : integer; 




1804*-. :D 


18 2 last x.last y : integer; 




18047:3 






1804U:C 


2 begin 




1804'i:C 


2 if (echo < 0) or (echo > 8) then echo := 1; ( ck echo range > 




18060;C 


2 { ck for display echo, and display not enabled > 




18051:C 


2 if (not dis;i init) and (echo >1 ) then 




1805,;:C 


3 begin 




180Si:C 


3 echoerror := true; 




18054 :C 


3 echo := 1 ; 




18055 :C 


3 end 




1805():C 


3 else 




1805':C 


3 echoerror := false; 




1805rt:S 






1805:S:C 


2 with gcb'^,gle_gcbi'^ do 




1806O:C 


3 begin 




1806; :C 


3 current echo type :- echo; 




1806;::3 






18063 :C 


3 info2 := 0; 




18064:0 


3 gle_start_digati2e (gle_gcbi); 




1806'':S 






18061. :C 


3 last X := -32768; 




1806 •■£ 
1806>::S 


3 la5t_y := -32768; 
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18068 


:C 


18070 


:C 


18071 


:C 


18072 


:C 


18073 


:C 


18074 


:C 


18075 


:C 


18076 


:C 


18077 


:S 


18078 


;C 


18079 


:C 


18080 


:C 


18081 


:C 


18082 


S 


18083 


c 


18084 


c 


18086 


c 


18086 


c 


18087 


c 


18088 


c 


18089 


c 


18090 


c 


18091 


c 


18092 


c 


18093 


c 


18094 


c 


18095 


c 


18096 


c 


18097 


s 


18098 


c 


18099 


c 


18100 


s 


18101 


c 


18102 


c 


18103 


c 


18104 


s 


18105 


c 


18108 


c 


18107 


c 


18108 


c 


18109 


c 


18110 


c 


18111 


s 


18112 


c 


18113 


c 


18114 


c 


18115 


c 


18116 


c 


18117 


c 


18118 


s 


18119 


c 


18120 


s 


18121 


c 


18122: 


s 


18123: 


D 


18124: 


s 


18125: 


c 


18126: 


c 


18127: 


c 


18123: 


c 
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if echo > 1 then 
with gle^gcb'^ do 
begin 

.-*■--. — d 2oc echo 



5 

5 infol 

5 info2 

5 irifo3 



d_loc_echo_y. 
-- .- 1; { on > 

^ gie_cursor ( gle_gcb ; ; { perform first echo at iep > 

5 end; 

3 repeat 

4 9Je_5ample ( glegcbi ); 

4 convert_ltod f anfoT, info2 ,dx, dy) ; 
4 button ; = inro3 ; 

4 if (dx <> last_x) or (dy <> la5t_y) then 

5 begin 

5 last_x := dx; 

5 lastly := dy: 

5 if {echo > 1) and [not di5p_eq_loc) then 

^ with gle_gcb" do 

begin 



7 



7 infol := dx; 

f info2 := dy; 

7 info3 := 1; 

7 gle_cursor ( gle_gcD ); 

' end; 

5 end; 

4 until button = -1 ; 

3 gle_get_digitize(gle_gcbi) ; 

3 button : = info3; 

3 convert_ltodf infol , info2,dx,dy) ; 

3 convert_dtow(dx,dy,rx,ry]; 

3 adiust_ret urn_echo ( rx, ry ); 

3 if echo > 1 then 

4 with gle_gcb^ do 

5 Degin 

5 info3 := 0; 

5 qae_cur5or(gle_9cb); ( remove cursor from screen > 

5 end; ^ 

3 if echo = 1 then 

4 be:^in 

4 infol := echo; 

4 gIe_input_echo ( gle gcbi i; 

4 end; 

3 end; 

2 if echoerror then error (er r_echo_di5_int ) ; 

2 end; { awa:it__Iocato r ) 

1 procedure dgl_hpgU_init; 

2 begin 

2 with gcb" do 

3 begin 

3 proc._await_locator := hpgl i_awaiit locator ; 
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}IH^"^ I proc_.5ample_locator :- hpgli _5cmple_locator ; 

loloO : C 3 end ; 

18131:C 2 end; 

18132 ' S 

18133:C 1 end. < dgl hpgli init ) 

18134:3 ^ 3 „ k:^ _ / 

No errors. No warnings. 

«*«** Nonstandard language features enabled ***** 
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DGLJNQ 



Description 

DGL_INq provides user inquiry code for DGL. 



Requirements 

DGL_TYPES, DGL.VARS, GLE.TYPES, GLE_RAS_OUT, SYSGLOBALS, SYSDEVS, GLE_ARAS_DUT, GLE_ASCLIP, 
GLE.STEXT, GLE_ASTEXT, GLE.SCLIP, GLE_ASCLIP, GLE.SMARK, and GLE.AUTL. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1 :D 

2;D 

3:D 

4:D 

S:D 

6:D 

7:S 

8:D 

9:S 

10:S 

11 :S 

12;S 

13;S 

14:S 

15:S 

16;S 

)7:S 

ie:S 

19:S 

;0:S 

21:S 

f2:S 

23:S 

?4:S 

;5:S 

26:D 

;7:S 

;8:D 

^9:D 

30:D 

;l :D 

!2:D 

52;D 

33:S 

34:S 

35:D 

:.6:S 

:.7:D 

:-8:D 

39 :D 

40:D 

41 :S 

42:S 

43:S 

44:S 

4S:D 

60CO:D 

60C1 :S 

60C2;D 

60C3:S 

6004 ;D 

eocs;s 

6006:0 
60C7:S 
60C8:0 
6009 ;D 
6010:D 
6011:D 
6012:0 
6013:0 



( 



< Pascal worf: station graphics library 

< 

<! < Module = DGL_1NQ 

( Programer = BIS 

( Date « 4/13/82 



{ Purpose: 



Holds all code for user inquires to the DGL system. 







(cl Copyright Hewlett-Packard Company, 1983. 
Rll rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Sottware clause in 
DflR 7-104. 9(a) . 

HEULETT-PflCKflRD COMPSNY 
Fort Collins, Colorado 



SmodcalS 

Isearch 'TYPES' , 

'DGL VBRS', 

'GEN'", 

'GLE LIB'S 

linclude 'OPTIONS'I 

{ This include file specifies range checking, debug and other compiler 
options for the graphics library 

tdebug OFFI 

u Srange OFFI 

Scopyright 'COPYRIGHT 1934 BY HEULETT-PHCKfiRD COMPflNY'S 

tFLOHT HDU TESTS 



Sinclude 'OPTTDNS'S 
Slinenum 6000$ 



module dgl_inq; 

1 import dgl_types; 
) export 

1 procedure inq_ws ( 



anyvar 
anyvar 



opcode 

ssize 

isize 

rsize 

slist 

ilist 



integer ; 
integer ; 
integer ; 
integer ; 
gchar list ; 
g i n t _Ti 5 1 ; 
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6014 :D 

6015:0 

6016:S 

6017: 

6018: 

6019: 

6020: 

6021; 

6022: 

6023: 

6024: 

6025; 

6026; 

6027:0 

6028:S 

5029:0 

B0;<0:D 

6031:0 

6032 :S 

S033:S 

8034:0 

6035:0 

6036:0 

6037:0 

6C39;S 

6039:0 

6140 :S 

eo41:C 

6042 :C 



6043: 

6044: 

604 5: 

604 S: 

6047: 

6048 

6049; 

6050: 

60SI: 

6052: 

60S3: 

60E4: 

6055: 

6068: 

6067:C 

6058 :C 

6069 :S 

6060:0 

6061 :0 

6062 :D 
6063:0 
6064 ;S 
6065:0 
6065:S 
6067:0 
8063:C 
6069 ;C 
6070 :S 
6071 :C 
6072:C 
6073:C 



anyvar rlist 
var ierr 
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: greal_list; 
: integer ) ; 



«»« File name; DGL INQ 



procedure inq_color_t able ( index ; integer; 
var parml ; real; 
var parm2 : real: 
var parm3 : real) 

procedure inq_pgn_t able ( index ; integer; 

pdensity : real; 



var porient 
var pedge 



real ; 
integer ) 



1 implement 

1 import dql^vars, 
1 gle_ras_out, 

1 dgl_gen; 

1 procedure inq_color_t able ( index : integer: 

2 var parml ; real; 
2 var parm2 ; real' 
2 var parm3 ; real) ; 

2 < Purpose: To return information about a color table location 



> 



2 begin 

2 ck__systeni_in it; 

2 ck^display init ; 

2 with gcb^ 3o 

3 begin 

3 if color table_size = then error (err_no_ctable ] ; 

3 if (index < 0) or (index > color_table_5ize) then error (err_bad_pa rms) ; 

3 with color_table_pt r^ [index] do 

4 if dgl_current color_model = 1 { rgb > then 

5 begin 

S parml := red; 

S parm2 := green; 

S parm3 ;= blue; 

5 end 

5 else 

5 convert rgb to_hsl ( red, g reen, blue , parml , parm2, parm3) ; 

3 end; 

2 end; 

1 procedure inq._pgn_table ( index : integer; 

2 var pdensity : real; 
2 var porient ; real; 

2 var pedge ; integer); 

2 < Purpose; To return information about a polygon table location > 

2 begin 

2 ck_system_init ; 

2 ck_display_init ; 

2 with gcb^ do 

3 begin 

? if (index < 1) or (index > number__pQlygon_st yles ) then e r ror (e r r_bad_parm5 ) ; 
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6074 :C 
6075:C 
6076 :C 
6077 :C 
6078 :C 



6079: 

6080: 

6081: 

6082: 

6083: 

6084: 

6085: 

6086 :D 

6087 :D 

6088:0 

6089 :D 

6090 :D 

6091:0 



6082: 

6093: 

6094: 

6096: 

6096: 

6097: 

6098: 

6099: 

6100:0 

6101:0 

6102: 

6103: 

6104: 

6105: 

6106; 

6107: 

6108: 

6109: 

6110: 

6111:0 

6112:S 



6113: 

6114: 

6115: 

6116:0 

6117:0 

6118:0 

6119:S 

6120:0 

6121:0 

6122:0 

6123:D 

6124:0 

612S:D 

6126:0 

6127:0 

6128:D 

6129:0 

6130:0 

6131:0 

6132: 
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3 


with poly table ptr'" [ index 1 do 


4 


begin 




4 


pdensity := density; 




4 


porient := orient; 




4 


if edge then pedge := 




5 


else pedge := 0; 




4 


end; 




3 


end; 




2 


end; 




1 


procedure inq__ws ( opcode 


integer; 


2 


asize 


integer; 


2 


isize 


integer; 


2 


rsize 


integer; 


2 


anyvar slist 


gchar list 


2 


anyvar Hist 


gint list; 


2 


anyvar rlist 


9reaT_li5t 


2 


var ierr 


in tege r) ; 
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2 { Purpose: To return information some part of the DGL graphics system. ) 

2 label 1; 

2 const numopcodes = 40; 



6133:0 



:ype 
opco 



_type def = (inq_250, 
inq_255, 
inq_450 . 
inq_1050, 

inq_1060, 

inq_1065, 

inq_1070, 

inq_1075, 

inq_n050, 

inq_12050, 

inq_13052 



inq 251, 
inq2 256, 
inq 451, 
inq 1051 , 
inq_1056, 

inq 1066, 
inq 1071, 
inq__ 1076, 
inq__ 11052, 



inq_252, 
inq_257, 

inq_1052, 
inq_1057, 
inq_1062, 
inq 1067, 
inq"*1072, 



inq_253, 
inq_258, 

inq_1053, 

inq_1063, 
inq_1068, 
inq_1073. 



inq_2S4, 

inq_259, 

inq_1054^ 
inq_1059, 
inq_1064, 
inq_1069, 
inq_1074, 



opcode_def ■-- 0. .32767; 

opcode_.list _ent ry_def = packed record 

opcode : opcode_def; 

opcode_t)'pe : opcode_Type_def ; 
end ; 
opcode_Iist_def = packed array [1 .. numopcodes] of opcode_list_ent r y_def ; 



const 
opcode^ 
opcode^ 
opcode 
opcode_ 
opcode_^ 
opcode^. 
opcode. 
opcode, 
opcode' 
opcode 
opcode' 
opcode^ 
opcode_. 



opcode^ 
iist^ent ry_ 
list_entry 
list_ent ry" 
li5t_ent ry' 
list_ent ry_ 
li5t_ent ry 
l:ist_ent ry" 
list^ent ry" 
list_ent ry" 
li5t_entry_ 
1 i s t _e n t r y_ 
list_entry 



Ii5t_def[ 
.def [opcode 
def [opcode 
def [opcode 
def [opcode 
.def [opcode 
def [opcode 
^def [opcode 
|def [opcode 



opcode 
opcode 
'opcode 
opcode 



250, 
251, 
252, 

253, 
254, 
255, 
256, 
257, 
258, 
259, 
^50, 
451, 



opcode. 
opcode 
opcode 
opcode 
opcode 
opcode 
opcode 
opcode 
opcode, 
opcode 
opcode^ 
opcode' 



-type 

-type 
-type 
_type 

-type 
-type 
-type 
-type 
-type 
-type 
-type 
Jype 



inq_250 
inq_251 
inq_252 
inq 253 
inq_254 
inq_255 
inq 256 
inq_257 
inq_258 
inq_259 
inq_450 
inq_451 
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6134:0 


2 


6135:0 


2 


6136:0 


2 


6137:0 


2 


6138:0 


2 


6139:0 


2 


6140:0 


2 


6141 :0 


2 


6142:0 


2 


6143:0 


2 


6144:0 


2 


6145:0 


2 


6146:0 


2 


6147:0 


2 


6148:0 


2 


6149:0 


2 


6150:0 


2 


6151:0 


2 


6152:0 


2 


6153:0 


2 


6154:0 


2 


6155:0 


2 


6156:0 


2 


6157:0 


2 


eiS8:0 


2 


61S9:D 


2 


6160:D 


2 


6161:0 


2 


ei82:S 




6163:0 


2 


6164:0 


-2 2 


6165:0 


-14 2 


6166:D 


-18 2 


6167 :S 




6168:C 


2 


6169:C 


2 


6170:S 




6171:C 


2 


ei72:S 




6173:C 


2 


6174:C 


2 


6175:C 


3 


6176:C 


2 


6177:3 




6178:C 


2 


6179:S 




6180:C 


2 


6181 :C 


3 


6182:C 


4 


6183:C 


S 


6184;C 


5 


6185:C 


S 


6I86:C 


5 


6187:C 


5 


6188:C 


5 


6189:C 


S 


6190:C 


5 


6191:C 


5 


6192:C 


5 


6193:C 


5 
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opcode, 
opcode, 
opcode^ 
opcode' 
opcode, 
opcode, 
opcode' 
opcode! 
opcode 
opcode 
opcode, 
opcode, 
opcode 
opcode 
opcode, 
opcode, 
opcode 
opcode 
opcode, 
opcode 
opcode, 
opcode 
opcode. 
opcode 
opcode' 
opcode, 
opcode, 
opcode. 



list 
"list" 
"list" 
"list" 
"list" 
"list' 
"list" 
"list" 

list 
"list" 

list 
'list" 
"list" 
'list 

list 
"list" 
"list" 

list 
"list" 
"list" 
"list' 

list 
"list" 
'list" 
"list" 

list 
'list" 
'list" 



ent ry 
ent ry 
.entry 
ent ry 
ent r y. 
ent ry 
^e n t r y' 
entry 
ent ry 
entry, 
entry 
ent ry 
entry 
ent ry 
ent ry 
.entry, 
ent ry 
entry' 
entry, 
entry" 
e n t r / 
ent ry 
entry, 
entry, 
e n t r y] 
'entry" 
ent ry 
entry 



def 
'def 
'def 
"def 
^def 
"def 
'def 
"def 
'def 
"def 
"def 
"def 
"def 
"def 
"def 
"def 
"def 
"def 
'def 
"def 
'def 
'def 
"def 
'def 
'def 
'def 
'def 
'def 



[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 
[opcode 



1050, 

1051 , 

1052, 

1053, 

1054, 

1056. 

1057, 

1059. 

1060, 

1062, 

1063, 

1064, 

1065, 

1066, 

1067, 

1063, 

1069, 

1070, 

1071, 

1072, 

1073, 

1074, 

1075, 

1076, 

11050, 

11052, 

12050, 

13052, 



opcode^ 
opcode' 
opcode, 
opcode_^ 
opcode^ 
opcode" 
opcode_ 
opcode 
opcode' 
opcode' 
opcode 
opcode 
opcode_ 
opcode^ 
opcode" 
opcode, 
opcode_ 
opcode_ 
opcode" 
opcode 
opcode_ 
opcode 
opcode" 
opcode^ 
opcode 
opcode_^ 
opcode" 
opcode^ 



type 
type 
type 
.type 
type 
type 
.type 
.type 
.type 
.type 
type 
type 
type 
.type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 



inq„1050 

inq_1051 

inq 1052 

inqll053 

inq_1054 

inq_1056 

inq_1057 ^ 

inq_i059 

inq_1060 "■ 

inq__1062 

inq_1063 

inq 1064 

inq~1065 

inq_1066 

inq_1067 

inq 1068 

inq~1069 

inq_1070 

inq 1071 

inq_1072 

inq 1073 

inq~1074 

inq_1075 

inq_1076 

inq 11050 

inq 11052 

inq_12050 

inq_13052 



2 var 

index : gshor t int ; 
workstring : 5tring[10]; 
St rent : integer; 

2 begin 

ck_sy5tem_ini t ; 

ierr := opcode„ck [ opcode , isize , rsize) 

( Find opcode in list } 
for indf;x :- 1 to numopcodes do 
if opcode 1 ist [index] .opcode - 
ierr := 1; 



< ck for good parms > 



opcode then goto 1; 



if ierr = then 

with gcb^.gle Qcb"^ do 

case opcode_list [index] .opcode t 
inq_2S0 : { retu " " " ■" ' " ' " "' 
begin 

rli5t[l] 
riist[2] 
end; 



ilh 



of 

cell' size"(250) > 



gcb^.dgl_char_width; 
gcb^.dgl_cha r_height ; 



inq 2i 


1 : ( 


ret 


jrn ma 


ker 


ce 


11 


Size 


(251] ) 


beg 


n 
















r 


ist[l] 


: = 


marke 


sise 


X * 


xdtow scale; 


r.ist[2] 


; = 


marke 


si 


-e 


V * 


ydt 


Dw scale; 


end 
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inq 252 : { return displa/ resolution [252) } 
if di5p_init then 
begin 

with gcb^, raster_device_rec_pt r (dev_dep_stuf f )'^ do 
begin 

rlist[l] :^ display_res_x; 
rli5t[2] :^ di3play_re5_y ; 
end; 
end 
else 
begin 

rli5t[l] -.= 0; 
rlist [2] := 0; 
end; 

inq 253 : { return max display dimensions (253) ) 
iT disp_init then 
with niax_di5p_lim do 
begin 

with gcb", raster_device_rec_pt r(dev_dep_stuff )" do 
began 

rlist[l] := (xmax - xmin) / di5play_re5_!< ; 
rlist[2] := (ymax - ymin) / di5play_res_y; 
end; 
end 
else 
begin 

rlist [1] := 0; 
rlist [2] := 0; 
end; 

inq_254 : < return aspect ratios (254) > 
begin 

rlist[l] ;= a5pect_rat io; 

rli5t[2] :^ Iog_a5pect; 
end; 

inq 255 : < return locator resolution (255) } 
iT loc_init then 
wi th gle_gcbi'^ do 
began ~ 

rlisttl] := inp(jt_res_x; 
rlistiZ] := input_re5_y; 
end 
else 
begin 

rlist [1] := 0; 
rUst[2] := 0; 
end; 

inq 256 : < max locator dimensions (256) > 
iT loc_init then 
with gle^gcbi'^, max_loc_lim do 
began 

rlist[l] := (xmax - xmin) / input_res_x; 
rlist [2] := (ymax - ymin) / input_res_y; 
end 
else 
begin 
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rli5t[l] 
rlist [2] 
end: 
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inq_257 : < locator echo pos (257) > 
begi n 

rli5t[l] := w_loc_echo_x; 

rlist [2] := w_loc_echo_y; 
end; 

inq 258 : < current virtual limits (258) > 
with cur_vir_lim do 
begin 

rlist [1] := xlim; 
rlist[2] := ylim; 
end; 

inq_259 : < return cp (259) > 
begi n 

af int__cp then 
begin 

rlistCl] := worl d_i n t_c px ; 
rlist [2] := world_int_cpy; 
end 
else 
begin 

rlist [1] := world_rcal_cpx; 
rlist [2j :* world_real_cpy; 
end; 
end; 

inq 4-50: < return window limits (450) > 
with window_lim do 
begin 



rjist[l] 
rlist[2] 
rlist[3) 
rlist[4] 
end : 



= xmin; 
= xmax; 
= ymin; 
= ymax; 



inq 451: < return viewport limits (451) > 
with viewport_lim do 



begin 

rlist[l] 
rlast[2] 
rlist [3] 

rlist [4] 

end; 



" xmin; 
= xmax ; 
= ymin; 
= ymax ; 



inq 1050: < Clipping supported at physical limits (1050) > 

begin 

if clipping_support then ilist [1] := 1 
else ilist [1] := 0; 

end; 

inq_1051: < return display justification info (1051) > 

begin 

If disp just = centered then ilist [1] := 
else " ilist [1] :- 1; 

end; 
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inq 10'::2: ( return info about drawing in the background color (1052) > 
with 5le_gcb'^ do 
begin " 

if di5p_init ther ilist [1] := background 
else ilist [1] := 0; 

end; 

inq_1053: { return color palette info (1053) ) 
begin 

if disp__init then ilist[l] :- pallette 

eJ^ie ilist [1] := 0; 

end; 

inq 10^54: { return color gamut info (1054) ) 
begin 

if di&p__init then ilistEl] := gamut 
eli=e ilist [1] := 0; 

end; 

inq_1056 : < ret urn number line styles (1056) > 
begin 

if di5p_inlt then ili5t[l] ;= number_dgl_line5tyles 
el:be ilist []]■.= 0; 

end; 

inq_10!37: < return number linewidths (1057) ) 
beg 1 n 

if disp init then ilist[l] := linewidths 

el;ie ilist[l] := 0; 

end; 

inq_1059: { return number markers (10S9) } 
begin 

if disp_init then nist[l] := number_markers 
else ilist [1] := 0; 

end; 

inq_1060: < return current color (1060] > 
begin 

ilisttl] := dgl_current_color; 
end; 

irq_1062 : < return current linestyle (1062) > 
begin 

ilisttl] := dgl_current_Iine5tyle ; 
end; 

inq_1063: { return current linewidth (1063) > 

begin 

ilistCl] := dgl_current_linewidth ; 
end; " 

inq_1064: { return current timming mode } 
begi:^ 

il ist [1] := dgi_current_t imming_mode; 
end; 

inq_1065: { return number polygon styles supported ( 1065) > 

begi n 
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if di5p_init then ili5t[l] := number_polygon_5tyle5 
else ili5t[l] := 0; 

end; 

inq_1066: { return current polygon color (1066) } 
begin 

ilist [1] := dgl_current_polygon_color ; 
end; 

inq_1067: ( return current polygon style (1067) > 
begin 

ilist [1] := dgl_current_poly9on_style; 
end; 

inq_1068; { ret urn maximum polygon vertices supported (1068) ) 
begin 

If disp_init then ilist [1] := maximum_polygon_ve rtices 
else Ilist [1] := 0; 

end; 

inq_1039 : { ret ro active polygon support (1069) > 
begin 

if disp init and retroactive polygon_support then ilist[l] := 1 
else " ilist[l] := 0; 

end; 

inq_1070 : { device dependent polygons ( 1070 ) ) 

begin 

if disp init and (polygon^support » 1) then ilist [1] :=• 1 
else ■* ilist [1] := 0; 

end; 

inq__1071 : ( retroactive colo- support ( 1071 ) > 

oegin 

if disp_init and ret roact ive__color support then ilist [1] := 1 
else ' ilist [1] :- 0; 

end; 

inq_1072: < redef of background ( 1072 ) } 
begin 

if di5p__init then ilist [I] := redef_background 
else ilist [1] :- 0; 

end; 

inq_1073: < redef of color capability table ( 1073 ) ) 
begin 

if disp init and (color table^size > 0) then ilist [1] := 1 
else ~ ilist [1] := 0; 

end; 

inq__1074: { return current color model ( 1074 ) ) 
begin 

Ilist [1 ] := dgl_current _color_model ; 
end ; 

inq 1075: ( return color capability table size ( 1075 ) > 
iTist [1] := color__table_s ize; 

inq 1076: { return current polygon linestyle ( 1076 ) > 
iTist [1] := dgl_:u r 'ent_po 1 ygi-_'i_l i nest yle ; 
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inq_11050: { return display device association [llOSO) ) 
begin 

If not disp_init then 
begin 

If ssize >= 1 tfien 
begin 

slist [1] := '0' ; 
ilist [1] := 1; 
end 
else ier r := 4 ; 
end 
else 

if disp_f ile_name <> ' ' then 
begin 

for index := 1 to St rlen(disp_file_name] do 

sli5t[index] ;= disp_file name[index]: 
ilist [1] := St rlen(disp_f iTe_name] ; 
end 
else 
begin 

setst rlen(workst ring,0) ; 

strwrite(workstring,l,strcnt ,disp_dev_adr :0 ] ; 
strcnt := strcnt - 1; 
if ssize >= strcnt then 
begin 

for index := 1 to strcnt do 

slist[index] ;= workst ring [index] ; 
ilist [1] := St rent ; 
end 
else 

ier r : = 4; 
end; 
end; 

inq_llC52: { return locator device association [11052) ) 
begin 

if not loc init then 
begin 

If S5i2e >= 1 then 
begin 

slist [1] := '0'; 
ilist [1] ;= 1; 
end 
eie ierr := 4; 
end 
else 
begin 

5etstrlen(workstring,0); 

St rwrite (workst ring, 1, strcnt, loc_dev_3dr :0) ; 
strcnt := strcnt - 1; 
if ssize >* strcnt then 
begin 

for index := 1 to strcnt do 

slistCindex] ;= workst ring [index] ; 
ilist[l] := strcnt; 
end 
else 

ierr := 4; 
end; 
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inq_12050: { return display info (120S0) } 
begin 

if nol disp_init then 
beyin 

:if ssize >= 6 then 
begin 

for index := 1 to 6 do 
slist [index] ;= ' ' ; 
ilist [1] := 6; 
ilist [2] := 0; < disabled ) 
end 
el se ierr :- 4 ; 
end 
else 
beyin 

If ssize >= di spJay_narne_char_count then 
begin 

for index := 1 to display_name char_count do 

slist [index] := display_nameTindex] ; 
ilistEl] := display_name_char count; 
ilist [2] := 1; { enabled > 
end 
else 

ierr : - 4; 
end; 
end; 

inq_13052: { return locator info (13052) > 
begin 

if not loc_init then 
biigin 

if ssize >= 6 then 
begin 

for index := 1 to 6 do 
slist [index] := ' ' : 
ilistCl] := 6; 
ilist [2] := 0; { disabled ) 
ilist [3] := 0; 
end 
else ierr := 4 ; 
enc 
else 
begin 

with gle_9cbi'" do 

if ssize >= inpu t_name_char_count then 
begin 

for index := l to input__name char count do 

slist[index] := input_nameTindex] ; 
ilist[l] := inpLJt_name_char count; 
ilist [2] := 1; { enabled > 

if gle qcbi'" . input_handler_naine = 'KNOB ' then 
ilist [5j := 255 
else ili^t [3] := 1; 
end 
else 

ier r := 4 ; 
end; 
end; 
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6554:C 5 end; ( of case ) 

6S65:S 

6SS$:C 2 end; 

65S7:S 

6558 :C 1 end. { of module > 

6S69:S 

No errors. No warnings. 

*«x** Nonstandard language features enabled ***** 
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DGL KNOB 



Description 

DGL_KNOB provides DGL-level knob handler and initialization. 



Requirements 

DGL_TYPES, DGL_VARS, GLE_TYPES, GLE.GEN, GLE_GENI, DGL_GEN, ASM, and SYSGLOBALS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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initialization for the knob. 



{ DGL device dependent init routine 

< 

i Module = OC;L_KN08 

■; Programer - 8JS 

', Date = 2 -10-83 

( 

< Purpose: To provide device dependent 

< Rev history 

.; Created - 2 -10-82 BJS 

( Modified - :<y-XX-m 

{ (c) Copyright Hewlett-Packard Company, 1983. 

All rights are reserved. Copying or other 
reproduction of this program except fijr archival 
purposes Is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

Paragraph (b) (3) (B) of the Rights in Technical 
ata and Computer Software clause in 
DfiR 7-104. 9|al . 

HEULETT-PflCKRRD COMPflNV 
Fort Collins, Colorado 

Ssearch 'CLE LIB', 

'TYPR- 

'DGL VHRS' , 

'GEN"^, 

•DGL_C OUT'S 

JmodcalJ 

Sinclude 'QPTIONS'I { *«*•»*«»»»» 



File name: DGL KNOB 



»»»»*.»«*»»». COMPILER OPTIONS «*«»»«*««»« 

{ This include file specifies range checking, debug and other compiler 
options for the graphics library 





Sdebug OFF$ 

grange OFFS 

Ecopyright 'COPYRIGHT 1984 BY HEULETT-PflCKciPD COMPflNV'S 

. LOfiT HDU TESTS 



Sinclude 'OPTIONS'S < »««««•*«»««»« 
Slinenum 18000$ 

module DGL_KNOB; 

1 export 

1 procedure dgl_knob_init ; 
1 iTiplement 



!«»»»«« COMPILER OPTIONS »«»»»»*» 
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18009 

18010 

18011 

18012 

18013 

18014 

1801S 

18016 

18017 

18018 

18019 

18020 

18021 

18022 

18023 

18024:0 

18025:0 

18026:3 

18027:0 

18028:S 

18029:C 

18030:C 

18031 :C 

18032:C 

18033:C 

18034 :C 

1803S:S 

18036:0 

18037:D 



18038 

18039 

18040 

18041 

18042 

18043 

18044 

18045 

18046 

18047:0 

18048:S 

18049:C 

180S0:C 

18051 :C 

18052:C 

18053:C 

18054:C 

1805S:C 

180S6:C 

18057:; 

18058:0 

18059:5 

18060:C 

18061 :C 

18062:1 

18063:5 

18054 : ; 

18065: : 

18C66: ; 

13067;: 



-16 
-16 
-24 



-1 
-10 
-18 
-22 



inpor t 


dgl types 
dql vans, 
gle_types 
gle_gen, 
gle__geni, 
dgl gen, 






dgl_confg_ 


J5ut; 


v3r 
last 


knob rx , 




last 


knob ry : 


real; 


last 


knob dx , 




last 


_knob_dy ; 


intege 



1 procedLire knob_ sample locator ( 

2 " var r 



echo : integer 
y : real ) ; 



2 { Purpose : To sample the locator device 

2 big in 

2 rx :^ la5t_knob_rx ; 



2 ry := last knob_ry; 
2 gle_gcbi", infol := echo; 
2 gle input echo (gle_qcbi); 
2 end; ^ 5dmpTe_Iocato r } 



{ echo on locator device ) 



1 p-ocedLtre knob await locator! 


var 


echo 


: integer; 


2 


var 


button 


: integer; 


2 


var 


rx, ry 


: real ); 



2 { Purpose : To activate the locator, and wait for operator termination 

2 vjr 

2 echoerror : boolean; 

2 dx,dy : integer; 

2 last _x, last _y : integer; 

2 echo_gcb ; graph ics_cont rol__block_pt r ; 

2 begin 

2 if (echo < 0) or (echo > 8) then echo := 1; { ck echo range ) 
2 ( ck for display echo, and display not enabled > 
if (not di5p_init) and (echo >1) then 
begin 



echoerror :^ true; 
echo := 1; 
ericj 

else 

echoer ror ; = false; 

with gcb^,gle_gcbi'^ do 
begin 

cur ren t_ echQ_t ype 

if echo < 2 then 



?gin 
irput_^cpx := last__kn.3b_d>; ; 
input_cpy := last__knob__dy; 
echc_3':b := 3ie._knob_echo_9cb ; 
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18070:C 
18071 :C 
18072:C 
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18074:C 
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1807S:C 
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18077: 

18078: 

18079:S 

18080:C 

18081:C 

18082:C 

18083:C 

18084;C 

1808S:C 

18086 :C 

18087 :C 

18088:C 

18089:C 

18090:C 

18091 :C 

18092 :C 

18093 :C 

18094:C 

1809S:C 

18096 :C 



18097: 

18098: 

13099: 

18100: 

18101:C 

18102:C 

18103:S 

18104:C 

18105:S 

18106:C 

18107:C 

18108:S 

18109:C 

18110:C 

18U1:C 

18112:C 

18113:C 

18114:S 

1811S:C 

18118:0 

18U7:C 

18118:C 

18119:C 

18120;C 

18121:C 

18122:C 

18123:C 

18124:C 

18125 :C 

1812e:C 

18127:C 



4 if echo = 1 then 

5 begin 

5 with gie_knob_echo_gcb" Co 

6 begin 
8 info2 := Ij ( do not init DGL stuff > 

(llnel8075): 'RDDR' of a constant may not be supporteo on other implementations 

6 device_info := P[)DR('3 ' ] ; 

6 device_info char_count := 1; 

6 configu re_gTe ( gle knob_echo_gcb ); 

3 if error_return <> C then error (e rr_no_di5play_hardware) ; 

< define echo edges > 



input_min_x 


= 0; 




2nput_max_x 


= display max 


X 


anput_min y 


= 0; 




input max y 


= display max 


^y 


end; 




end; 




info2 := 1; 




end 




else 




begin 




echo_gcb := gle^cb; 




with cur disp lim do 




begin 




input_min_x := t rune (xmin+0 .5) 




input_max2x := t rune (^ma><+0 . 5) 




input__min__y := t rune (ymin+0 .51 




input max y ;= t rune (ymaK+O.S) 
input cpx := d loc echo k; 






input_cpy := d loc echo y; 
info2 := display echo mult; 





end; 

gle_start_digiti2e (gle_gcbi] ; 

last_x := -32768; 
last_y := -32768; 

repeat 

Qle_5aniple ( gle gcbi ); 
button := qle_gcB'i'^. info3; 
dx := infol; 
dy := info2; 

if [dx <> la5t_x) or (dy <> la5t_y) then 
begin 

last_x := dx; 
Iast_y := dy: 
if (echo > 0) then 
with echo^gcb'^ do 
begin 



end; 



infol 
info2 
info3 

9le_cur5or 
end : 



= dx; 



echo_gcb 



Pascal 


[Re 


18128 


C 


18129 


s 


18130 


c 


18131 


c 


18132 


s 


18133 


c 


18134 


c 


18135 


c 


18136 


c 


18137 


c 


18138 


c 


18139 


c 


18140 


c 


18141 


c 


18142 


c 


18143 


c 


18144 


s 


18145 


c 


18146 


c 


18147 


s 


18148 


c 


18149 


c 


181S0 


s 


18151 


c 


18152 


c 


181S3 


c 


181S4 


c 


18155 


c 


181S6 


c 


18157 


s 


18158 


c 


18159 


c 


18160 


c 


18161 


c 


18162 


c 


18163 


c 


18164 


s 


18165 


c 


18166 


s 


18167 


c 


18168 


s 


18169 


D 


18170 


s 


18171 


c 


18172 


: 


18173 


c 


18174 


c 


18175 


c 


18178 


c 


18177 


c 


18178 


c 


18179 


c 


18180 


c 


18181 


c 


18182 


s 


18183 


c 


18184 


s 
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end : 



qle_get_digitize(gle_gcbi) ; 
But ton := info3 ; 

if echo > 1 then 

begin 

dx := infol; 

dy ;= info2; 
end 
else 
begin 

la5t_knob_dx := dx; 

la5t_knob__dy := dy; 

convert _ltod( infol, in fo2,dx,dy); 
end; 

convert _dtow(dx,dy, rx.ry) ; 
adjust. _ret Lirn_echo ( rx , ry ) ; 

last__knob_rx := rx; 
last"knob_ry := ry; 

if echo > t hen 
with 6Cho_gcb'^ do 
begin 

info3 := 0; 
gle^cursor (echo_gcb ) ; 
end; 

if echo = I then 
begin 

anfol := echo; 

gle_input_echo [ gle gcbi 
end; 



{ save before convert ) 



{ remove cursor from screen > 



if echoerror then error (er r_echo_di;.__int ) ; 

end; < await_locator > 

procedure dgl_knob_init ; 

begin 

with gcb"" do 
begin 

proc_await_locator := knob await locator; 



Droe_s.smple_loc3tor 



kno&_sampTe_ioca tor ; 



la5t_knob_rx := 

last knob_ry := 

last''knob_dx := 

la5t""knob_dy := 
end ; 
end ; 

end . < dgl_knob } 



No errors . 1 warrings . 

**««* Nonstandard I-snguage features enasled 
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DGLPOLY 



Description 

DGL_POLY contains the polygon routines except low-level code for device-dependent polygons. 



Requirements 

GLE.TYPES, SYSDEVS, SYSGLOBALS, GLE_HPGL_OUT, GLE.STEXT, GLE.ASTEXT, GLE.ASCLIP, GLE_SCLIP, 
GLE_SMARK, GLE_AUTL, GLE_UTLS, GLE_RAS_QUT, GLE_ARAS_OUT, GLE_FILE_IO, GLE_HPIB_IO, 
GENERAL.O, lODECLARATIONS, lOCOMASM, DGL_TOOLS, DGL.RASTER, DGL.TYPES, DGL_VARS, ASM, LOADER, 
GLE.GEN, DGL.GEN, DGL_HPGL, GLE_HPGL_IN, GLE_KNOB_IN, DGL_KNOB, GLE_GENI, and DGL_CONFG_DUT. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1 :D 
2:D 


{ > 

( P,3scal work rotation graphics library > 




3;D 


< > 




4 :D 


{ nodule = DGL POLY i 




S:D 


< Programer = 8JS 1 




6:D 
7:3 
8:D 


{ Date = 11/10/82 ) 




( Rev history: ) 




9:S 






10:D n 


( Purpose: Hold polygon user routines > 




11:S 






12:S 


( (c) Copyright Hewlett-Packard Company, 1983. 




13:S 


fill rights are reserved. Copying or other 




14:S 


reproduction of this program except for archival 




1S:S 


purposes is prohibited without the prior 
written c..-3ent of Hewlett-Packard Company. 




16:S 




17;S 






18:3 






19:3 


RESTRICTED RIGHTS LEGEND 




20:S 






21 :S 


Use, duplication, or disclosure by the Government 




22:3 


is subject to restrictions as set forth in 




23:3 


paragraph [b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




24:3 




25:3 


DBR 7-104. 9(a) . 




26:S 






27:3 


HEULETT-PflCKRRD COMPfiNY 




28:D 1 


Fort Collins, Colorado > 




29:S 






30:D 1 


ImodcalS 




30:D 


Iinclude 'OPTIONS'S 




31:S 






32:3 


( This include file specifies range checking, debug and other compiler 




33:D (1 


options for the -iraphics library > 




34:3 






35 :D (1 


Sdebuq OFF$ 




36:D 1 


$range OFF$ 




37:0 1 


tcopyright 'COPYRIGHT 1984 BY HEULETT-PfiCtCfiRD COMPfiNY ' $ 
tFLORT_HDU TESTS 




33:0 




39:3 






40:S 






11 ;S 






42:3 






43 :D 


Iinclude 'OPTIONS"! 




200)0:0 i 


Slinenum 20000$ 




200)1:0 I 


$5earch 'TYPES' , 

'DGL VflRS', 




200)2:0 t 




200J3:D < 


'GEN"", 




20004:0 ( 


'CLE LIB', 




200)5:0 I 


■LIB""! 




200)6:3 






20007:3 






20008:0 ( 


module DGL_POLY; 




200)9:3 






20010:0 : 


import dgl_types; 




20011 :S 






20012:0 J 


export 




20013:0 : 


procedure set_pgn_l5 ( index : integer); 




20014:D : 


procedure set_pgn_color [ index : integer]; 




2001S:D ! 


procedure set_pgn_t able [ index : integer; 
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20016:0 ; 


pdensity : real; 




20017:0 ; 


porient : r^d\; 




20018:0 ; 


pedge : integer); 




20019:3 






200>0:0 1 


procedure 5et_pgn_style ( index : integer ); 




20021:0 1 


procedure int polygon dd ( num points : integer; 




200 22:0 : 


anyvar xvec, yvec 


gshortint list; 




20023:0 ; 


anyvar opcodes 


gshortint list ) ; 




20024:0 1 


procedure poiygon__dev_dep ( num_points 


integer; 
greal_list ■ 
gshorTint list ) ; 




200 25:0 '. 


anyvar xvec, yvec 




20026:0 ; 


anyvar opcodes 




20027:0 1 


procedure int polygon ( rum points : integer; anyvar xvec, yvec : gshortint list; 




20028:0 : 


anyvar opcodes : gshortint list ); 




20029:0 1 


procedure polygon [ num points : integer; 




200 30:0 ; 


anyvar xvec, yvec : greal list: 
anyvar opcodes : gshortint list ); 




200 31:0 I 




20032:0 i 


implement 




200 !3:S 






200 54:0 I 


import dgl_vaf5. 




20035:0 1 


dgl gen, 
gle types, 
gle GEN, 




20036:0 1 




200 37:0 1 




2C0!8:D 1 


dgl_lib, 




200i9:0 1 


asm; 




20040:3 






20041:0 1 


const 




20042:0 1 


deg to rad = 0.017453292? 2 ; 




20043:0 1 


normalTzed_one = 32768; 




20044 :S 






20045:0 1 


type vec ptr_def = '^gint_list; 




20046:0 1 


worl<_pt"r_def = '^gsho r t int_l is t ; 




20047:5 






20048:0 1 


var 




20049:0 -4 1 


saved_line.it yle : integer; 




200'i0:0 -8 1 


saved^linei^idth : integer; 




200 31:0 -12 1 


stack^ptr : workpt r_def ; 




200'>2:S 






200S3:0 1 


procedure 3et_,polygon__color ; 




20034 :S 






200'i5:0 : 


< Purpose: Tc set the color polygons will be drawn with (send to gle) ) 




200'j6:S 






200'. 7 :D i 


■JZV 




200-;8:D -1 ; 


pass rgb : boolean; 
h,5,T : real; 




200';9:0 -26 2 




2001)0:3 






200i'l:C 2 


begin 




2001.2 :C 2 


with gcb^,gle gcb" do 




2001.3 :C 3 


begin 

< If duher is to be used (bSw, moonunit, or 9836C with index > 15) then 




2001.4 :S 




200155 :C 2 


RGB values need to be passed. Otherwise the index is passed. > 




200m6:S 






2001.7 :C 3 


pass r.-)b := (dither support = 1) and 




2001.8 :C 3 


( ( icolor_map_5upport = 1) and 




2001, 9:C ■ 


(dgl current polygon color > gamut]) or 




200 '0:0 ? 


( color map support = 0) ) ; 




200 -1:0 3 


if pas-j rgb then 




200 -2:: 4 


begin 




200 '3:0 4 


infol := 0; 




200 -4:0 4 
200 '5 :C 2 


with color_table_pt r'^[dgl_^cur rei 
if g5:rut~= 1 < black anc ..vhite 


t polygon color] d.) 
y then 
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2007e:C 6 begin 

lnnll'9 ^ ' define only one parm for diTher, use lit to set ) 

?SX^„^ ? < ^^^"^ brite as defined from CIE diagram ) 

i?,ni?,''^ f "I°2 := trunc( (0.3*red*0.59»greent0.11*blue)»1023+0.5): 

2UUau.L 6 info3 := 0; 

20081:C 6 info4 :- 0; 

20082:C 6 ^^gle_f ill_index_color Iglejcb) ; 

200|«:C 6 else ( multi colcr device > 

^uutfo.L b begin 

2O086:C 6 info2 := trunc ( red«1023+0 .5) ; 

SXXSI'S ^ info3 := t r unc (green*1023*0 .5: : 

Z0088:C 6 info4 := t rune (blije»1023 + . 5) ; 

20089:: 6 ^^9le_f il l_index_color (gle.gcbj ; 

20091 :C 4 end 

20092 :C 4 else 

20093:C 4 begin 

20094:C 4 Infol := 1; 

?22SI'£ ■* info2 := dgl current polygon color: 

20098:C 4 9le_fill ind^x colorlgle gcbj; 

20098:C 3 dgl polygon color current : -= true: 

20099 :C 3 end; ~ ~ 

20100;C 2 end; ( 5et_polygon_color ) 



1 procedure 5et_pgn_color (index : integer) 



20101:S 

20102 :D 

2O103:S 

loiOS-S ^ ^ Purpose: To set the color polygons will be drawn with ) 

2010e!D 2 var 

20107:D -1 2 pass rgb : boolean; 

2Ol08:D -26 2 h,5,I : real: 

20109:S 

2OU0:C 2 begin 

20111:C 2 c:k_sy5tem_init; 

20112:C 2 ck display init; 

20114:C 2 with gcb-, gle.gcb" do 

?S)}f'S 3 begin (Bad values of index are set to index 1 ) 

20U6:C 3 If index < 0) or 

20117:C 4 ( index > gamut) and 

?o}!?'^ i . ( (color_table_size = 0) cr (index > color_t able_5ize) ) ) then index := 1; 

20U9:C 3 dgl_current_polygon_color := index; 

20120:C 3 dgl polygon color current :- false; 

20121;C 3 end; 

20122:5 

20123:C 2 end; < set pan color ) 

20124:3 

20125:3 

20126:0 1 procedure set pgn Is ( index : inteqer); 

20127:3 -.-a _ V 3 ), 

20128;D 2 < Purpose: To set the linestyle that polygons are drawn with > 

20130:C 2 begin 

20131:C 2 ck^system init; 

20132:C 2 ck display init; 

20133 ; S ~ 

20134;C 2 with gob' do 

20135;C 3 begin 
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SSJSS'E ^ **' ti"deK < 1) or (index > number dgl_line5tyle5) then index := 1; 

Z0137;C 3 dgl current polygon linestyle - Index; 

20138:C 3 end; - ^ - , 

20139:5 

20140:C 2 end; < set pgn line style I 

20141:3 ^ - y / 

20142:0 1 procedure set ogn style ( index : inleqer ); 

20143:3 ^3-71 3 J, 

20144:D 2 < Purpose: To set the polygon style that polygons will be drawn with > 

20146:C 2 begin 

20147:C 2 ck_5ystetn_init; 

20148:C 2 ck display init; 

20149:3 - k r_ 

20I50:C 2 with gcb" do 

20151:C 3 begin 

^2!^^"S ^ ^^ (index < 1) or (index > number polygon styles) then index := 1; 

20153:C 3 with polv table ptr" [ index ] do - 

20IS4:C 4 begin ~ 

2015S;C 4 { decode table and setup local vars > 

20156;C 4 dgI_CL r ren t_polygon_c rosshatch := density < 0; 

oR^cZ*^ ^ dgl_current_polygon_density := density; 

20158:C 4 dgl_cu r rent_poiygon_angle :- orient; 

20159:C 4 dgl^cu rrent_poly90n_edge :- edge; 

20160:C 4 dgl current polygon style :- index: 

20161:C 4 end; ~ _ /j _ / 

20ie2:C 3 end; 

20163:C 2 end; 

20164:3 

20165:0 1 procedure set^pgn table ( index : integer; 

20166:0 2 "- pdensity : real; 

20167:D 2 porient : real; 

20168:0 -16 2 pedge : integer); 

20170:0 -16 2 { Purpose: To define an entry in the polygon table > 

20171:5 

20172:C 2 begin 

20173:C 2 ck_5y5tem init; 

20174:0 2 ck display init; 

20175:3 _ r ,_ 

20176 :C 2 with gcb' do 



20177:C 3 

20178;C 3 if 



begin 



20178;C 3 if (I'index < 1) or (index > number polygon styles)) or 

20179:0 4 Ipedqe <> 6) and (pedge <> 1)) or " - ' 

20180:C 4 (pdensity < -1) or (pdensity > 1)) or 

J2!?i-S * ((porient < -90) or (porient > 90 ) then error(err bad parms); 

20182:C 3 with poly table ptr" [ index ] do _ -r 

20183:C 4 begin '- -^ ^ 

20184:C 4 density := pdensity; 

2018S:C 4 orient := porient; 

20186;C 4 edge := pedge = 1; 



20187 :C 4 

20I88:C 4 end; 

20189:C 3 end; 

20190:C 2 end; 

20181:3 

20192:0 1 procedure edge polygon ( num points 

20193:0 2 - » anyvar vecTor 

20194:0 2 anyvar opcodes 

20195:0 2 po:ygon_simulat ior 



if index = dgl_current_polygon_style then set_pgn_style (d9l_current_polygon_style) ; 



integer ; 

gint_li5t ; 

gshoTtint^list ; *« o-iE 

boolean ); ll-OiO 
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2019 j:S 
2019?:D 
2019^:S 
20193:D 
2020):D 
20201 :D 
20202:0 
20205:0 
20201:0 
2020 5:0 
20206 :S 
20207:C 
2020^:C 
20203 :C 
20210:C 
20211 :C 
20212:C 
20213:0 



20214: 

20215: 

20216: 

20217: 

20213: 

20219: 

20220: 

20221: 

20222: 

20223: 

20224: 

20225:C 

20226:C 

20227:C 

20223 :C 

20229:C 

20230 :C 

20231 :C 

20232:C 

20233 :C 

20234 :C 

20235:C 

20236 :C 

20237 :C 

20238:C 

20239:0 

20240 :C 

20241 :C 

20242 :S 

20243:0 

20244:0 

20245:0 

20246:0 

20247:0 

20248:0 

20249:0 

20260:0 

20261:5 

20262 ;D 

20263:5 

20254:0 

20265 :S 



-12 
-16 
-20 
-24 



{ Purpose : To draw edges around the specified polygon ) 



vector_count 

next_sub polygon 

i 

saved_color 

saved_li nest yie 

5aved_linewidth 



integer; 
integer; 
integer; 
Integer; 
integer ; 
integer ; 



begin 

with gcb^, gle^gcb^ do 
begin 

if (poly9on_simulation) and (dgl_cur rent_pol ygon_densaty <> 0) then 
begin 

5aved_color := dgl_cur rent_color ; 
5aved_line5tyle := dgl_cur rent_line5tyle ; 
5aved_linewidt h := dgl_current_linew/idth; 
set_color(dgl_current_polygon color) ; 
set_line_style(dgl_current_poTygon_line5tyle); 
set_lnne_width[l 1 ; 
end; 

vector_count ;= 1 ; 

ne?<t_sTJb polygon := 1; 



1 to num_points do 

next^subpolygon then 



for i : 
begin 

if vector count 



begin 

end_j< :- vector [vector_count + l] ; 

end_y := vector [vector_count+2] ; 

gle_move ( gle_gcb ] ; 

next_5ubpoly9on := vector^count + 

vector_coynt := vector_count + 3; 
end 
else 
begin 

end_x := vector [vector_count ] ; 

end_y := vector [vector_count+l] ; 

if opcodes[i] = 1 then gle_draw [ 

else gle_move [ 

vector_count := vector_count + 2; 
end ; 
end; 



/ector [vector_court] » 2 + 1; 



gle_gcb 
gle_gcb 



if (poly;3on_5imulation) and (dgl_current_polygon_den5ity <> 0) then 
begin 

set_color (saved_color) ; 
set_line_5tylef saved_li nest y lei ; 
5et_line_width(saved_linewidth) ; 
end; 
end; 
end; 

function int_div ( a, b : integer ) : integer; 

{ Purpose : To perform an integer div with rounding ) 



203 04: 

20305: 

20306 

20307: 

20308 

203C9: 

20310: 

20311 :0 

20312:0 

20313:0 

20314:0 

20315:0 
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20266:0 

20257:3 

20268:0 

20269:0 

202fO;C 

20261 :0 

20262 :C 

20263 :C 

20264:0 

20265:3 

202C6;D 

202£7;D 

20268:0 

20263:3 

20270:0 

20271 :D 

20272:5 

20273:0 

20274:0 

20275:0 

20276:0 

20277:0 

20273:0 

20279:0 

202eO:D 

20261:0 

20262:" 

20263: 

20264: 

20265: 

20266: 

20267: 

20268: 

20269: 

20290: 

202S1: 

20292: 

20293: 

20294: 

20295: 

20296 

20267: 

20293 

20299: 

20300:0 

203C1:0 

20302:0 

203C3:S 



6/ 4/84) DGL^POLY.TEXT 

var temp : integer; 

begin 

temp :- (2*3) div b; 
if odd [ temp ) then 
if temp > then temp 
else temp 

int_div := temp div 2; 
end ; 



procedure line line intersection ( plx 

p3x 
"^ar ix. 



26-Dec-84 22:48:51 Page 6 



»» File name: DGL_POLV 



-32 
-32 
-32 

-66 



= temp + 1 
= temp - 1; 



ply. 

p3y, 
ly 



p2x, p2y, 
p4 X , p4 y : 



integer; 
integer 



To calculate the intersection of two lines 
Note: The two lines must intersect. 



num, denom, 

delta_x_21, 

delta_y_21, 

delta_x 31, 

delta_y_31, 

delta_x_43, 

delta_y_43 

real_num, 

real_denom, 

real factor 



real; 



2 begin 

2 Srange on$ 

2 delta x 21 :" p2x - plx; 

2 deUa_y_21 := p2y - ply; 

2 delta_x_31 := p3x - plx; 
2 delta_y_31 := p3y - ply; 

2 delta_x_43 :=■ p4x - p3x; 
2 delta_y_43 := p4y - p3y; 

2 try 

3 denom :« delta_y_21 » delta_x_43 
3 num := delta x 21 » delta_y_31 



delta X 21 « delta_y_43; 
delta~y~21 * delta_x_31; 



3 ix := p3x + int^div 

3 iy := p3y + int__div 

3 Srange off$ 



( p4x-p3x)«nijm, denoml 
(p4y-p3y)*num, denom) 



-4 ( integer overflow } then 



3 recover 

3 if escapecode 

4 begin 

4 real_denom := 1.0 « deHa_y_21 « delta_x_43 

4 real num := 1.0 » delta_x_21 * delta_y_31 

4 real^factor := real_num / real_denom; 

4 ix := trunc(p3x + [p4x-p3x) * real_factor + 0.5); 

4 iy := trunc(p3y + (p4y-p3y) « real_factor ♦ 0.5); 

4 end 

4 else 

4 escape [e scapecode) ; 



1.0 * della_x_21 * delta_y 43; 
1.0 » delta_y_21 » delta_x_31; 
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20316:3 










20317:0 




1 


proceaure draw^pg ( anyvar vector, work : gint_list; 




20318:0 




2 


" dgl current polygon color, ~ 




20319:0 




2 


dgl current polygon linestyle. 




20320:0 




2 


normalized sin, normalized cos : integer; 
dgl current polygon crossmatch : boolean: 




20321:0 




2 




20322:0 




2 


dgl_current_polygon_5pacing : integer); 




20323:3 










20324:0 
2032S:S 
20326:3 




2 


{ PURP03E: To draw a polygon using the current polygon attributes ) 








< The input format for vector is as follows (GLE polygon format): 




20327:3 










20328:3 






VECTOR 


Number of pts in segment 1 i Ist subpolygon ) ; 




20329:3 








XI 




20330:8 








Yl 




20331:3 








X2 




20332:3 








Y2 




20333:3 












20334:3 












20335:3 








Xn 




20336:3 








Yn 




20337:3 












20338:3 








Number of pt5 in segment 2 ( 2nd subpolygon ] 




20339 ;S 








XI ] 




20340:3 








Yl ] 




20341:3 












20342:3 








: ] 




20343 : S 








Xm ] 




20344:3 








Ym ] 




20345:3 










20346:3 






. 




20347:5 






: 1 




20348:3 










20349:0 




2 


[0 ] ) 




20350:3 










20351:3 






< The basic algorithm is as follow: 




20352:3 










20353:3 






- Calculate dist between fill lines 




20354 : 3 






- Calculate fill line slope in terms of dx, dy 




20355 : 3 






- For every edge in the polygon, calculate the x intercept 




20356:3 






( or y intercept for x major fill slope ) along a line parallel 
to the fill lines for each end point. With this information 




20357:3 








20358:3 






build a record with minimum intercept, maximum intercept, and 




20359 :S 
20360:3 
20361:3 






both end points ordered by maximum intercept value. 








Maintain a minimum and maximum intercept value for all edge 




20362:3 






end points in the polygon. This information will be used to 




20363:3 






indicate where to start filling the polygon with fill lines. 




20364:3 










20365:3 






- Calculate using the minimum intercept value the first fill 




20366 : S 






line that may intersect the polygon. 




20367:3 










20368:3 






- For each possible fill line do the following: 




20369:3 










20370:3 






- For each intercept record look for intersections, fin 




20371:3 






intersection is determined by the current intercept value 
of the current fill line, falling between the minimum 
and maximum intercept values of the record. 




20372:3 








20373:3 








20374:3 










20375:3 






If an intersection is found, find the end point of 
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20376:3 






the intersection and save the point. 




20377:3 










20378:3 






After all intersections for a given fill line are found, 




20379:3 






sort the end points. The sort alternates between top 




20380:3 






down, and bottom up for each fill line. This minimizes 




20381:3 






motion on mechanical devices. 




20382:3 










20383:0 




2 


Plot the end points alternating between moves and draws. ) 




20384:3 










20385:0 




2 


const 




20386:0 




2 


normal vertex = 0; 




20387:0 




2 


short vertex = 1 ; 




20398:0 




2 


ed9e_vertex = 2; 




20389:3 










20390:0 




2 


edge index = 2; 




20391:3 










20392:0 




2 


type 




20393:0 




2 


point_defl = array [0..1] of integer; 




20394:0 




2 


point_def = array [0..2] of integer; 




20395:3 










20396:0 
20397:3 
20398:0 




2 


point_array = array tl..maxint] of point_defl; 






2 


intercept rec def = record 




20399:0 




2 


intercept_p_min. 




20400:0 




2 


intercept_p^max : integer; 




20401:0 




2 


intercept mXn points : point def; 




20402:0 




2 


intercept max points : point def; 




20403:0 




2 


end; 




20404:3 










20405:0 
20406:3 
20407:0 




2 


intercept_array = array [l..maxint] of intercept_rec_def ; 






2 


var 




20408 : D 


-4 


2 


intercept list pt r : '^intercept array; 




20409:0 


-8 


2 


p list ptr : "point array; 




20410:0 


-12 


2 


p'c u n t 




nteger; 




20411:0 


-24 


2 


tT i, j 




iteger; 




20412:0 


-28 


2 


intercept count 




iteger; 




20413:0 


-32 


2 


intercept min 




fiteger; 




20414:0 


-36 


2 


intercept max 




fiteger; 




20415:0 


-40 


2 


intercept_inc 




nteger; 




20416:0 


-48 


2 


xmin, yrnin 




nteger; 




20417:0 


-56 


2 


dx, dy 




Fiteger; 




20418:0 


-60 


2 


local spacing 




nteger; 




20419:0 


-64 


2 


vector_index 


integer; 




20420:0 


-68 


2 


num veTt 


integer; 




20421:0 


-72 


2 


la5t_index 


integer; 




20422:0 


-73 


2 


move it 


boolean; 




20423:0 


-74 


2 


top Hown sort 


boolean; 




20424:0 


-75 


2 


X major 
hatch 


boolean; 




20425:0 


-76 


2 


boolean; 




20426:0 


-80 


2 


saved_color 


integer; 




20427:0 


-84 


2 


vedge index 


integer ; 




20428:0 


-88 


2 


major index 


integer; 




20429:0 


-92 


2 


first index 


integer; 




20430:0 


-96 


2 


nxt e3qe 


integer : 




20431:0 


-97 


2 


found fill line on edge : boolean; 




20432:3 






- „ _ 




20433:0 




2 


procedure calc_intercept ( pt_l_index : integer; 




20434:0 
20435:0 




3 
3 






pt 2 index : integer: 
switch^xy : boolean); 
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204 6:S 


204 7:S 


204, 8:S 


204 9:D 


204': 0:S 


204m 1 :0 


204.'.2:D -12 


204-. 3:C -20 


204';4:D -28 


204-i5:0 -36 


20446:0 -44 


2044 7 :S 


204.;8:C 


20449 :C 


204'. 0:C 


204- 1:C 


204'.2:C 4 


204'..3:C 


204 '.4 :C 


204'. 5 :C 


204'. 6 :C 


204'.7:C A 


204>8:C 4 


204-: 9 :S 


204f.O:C 


204I:.1:C 


20412 ;C 


2041 3 ;C 


20414 :C 


2041- 5 :C 


204f6:S 


204f7:C 4 


204t8;C 


20419: 3 


204:0 :C 


20471 :C 


204/2:0 


204:3:0 


204 ''4 :C 


204i5:C 


2047e:C 


20477 :C 


204''8:C 


20479:C 


204tO:C 4 


204H:C 4 


204f2:C 


204(:3:C 


204t4:C 


204fS:C 


204f6:C '. 


204!.7:C 1 


204F8:C ( 


204f9:C t 


204tO:C I 


20491 :C ( 


204<.2:C I 


204<,3:C t 


20464 :C f 


204f.5:C t 
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Purpose 



For each end point of the edge defined by pt_l_inde>; and 
pt_2_index, calculate the intercept of a line which runs 
though the end point and 15 parallel with the fill line, ) 



Pl,p2,tp 


integer; 


p t i X , p t i / 


integer; 


pt2x,pt2v 


integer; 


IX, ly 


integer; 


t .3 X , t d y 


integer ; 



begin 

if 5witch_xy then 
begin 

IX -- 1; iy := 0; 
tdx := dy; tdy := dx; 
end 
e Ise 
begin 

IX ;- 0; ly := I ; 
tdx : = dx; tdy : = dy; 
end; 

with intercept_li5t_ptr'~' [intercept _count] do 
begin 

ptlx :- vector [pt_l_index+ ix] ; 
ptly := vector ipt_l_index+iy] ; 
pt2x :- vector [pt_2_index+ix] ; 
pt2y := vecto r [pt_2_index+iy] ; 



pl 
P2 



Ptly 

pt2y 



int_div (tdy 
int__div (tdy 



ptix 
pt2x 



tdx 



if pl > 
beqi n 
tp 
TP 

tp 
end; 



p2 then 

= pt2x; 
= pt2y; 



p2 
pt2x 

pt2y 



pl; pl 
ptlx; ptlx 
ptly; ptly 



tp; 

tp; 
tp; 



: = intercept_count 
:= pl; 
:= p2; 

< ( intercept 



nin(intercept_min, in t e rce pt_p_min 



edge__vertex ; 
edge_vertex ; 



in tercept_count 
in tercept_p_min 
inter cept_p_max 
intercept_max ;■■ 
in tercept min :■ 
if pl = p? then 
begin 

intercept_min_points [edge_index] 
intercept__max points [edge_index] 
if ptlx <= pt?x then 
begin 

intercept_min_points[ix] 
intercept_min_points [iy] 
intercept_tnax_point5 [ix] 
intercept_niax_poin t s [iy] 
end 
else 
3 eg in 

intercept__max_po in t 5 [ ix ] 



( calc inte rcept > 



( swap points ) 



{ save intercepts > 



in tercept _p_maxl 
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204P8:C 

204S9:C 

20500:C 

205C1 ;C 

20502;C 

20503:C 

20S04:C 

205C5:C 

20506:C 

20507 :C 

20S08:C 

20509 :C 

20510:C 

2051 1:C 

20512:S 

20513: 

20514: 

20515: 

20513: 

20517: 

20513: 

20519: 

20520: 

20521 ; 

20522: 

20523:D 

20524 :S 

20525 :C 
20526:C 
20527 :C 
20523:C 
2052^:C 
20530: 
20531: 
20532: 
2053?: 
20534: 
2053S: 
205 3 o: 
20537: 
2053^:C 
20533:C 
2054'5:C 
2054 I :C 
2054.? 
2054 i: 
2054>t: 
2054^5 
2054-5 
2054 ?: 
2054 i: 

2054 i: 
205Si):S 
2055. :0 
2055. ;:D 

2055 i;D 
2055-::D 
205S'':D 



inte rcept _max_po i,;t5[iy] :- ptly; 
intercept_min_points [ix] ;= pt2x; 
intercept_rTiin_point5 [iy] :^ pl2y ; 
end ; 
end 
else 
begi n 

in tercept_min__points [edge^index] 
in tercept _max_points [edqe_index3 



in te rcept _min_points [ix] 
in tercept _min_points. [iy] 
in tercept"maj<_poin t s [ix] 
in tercept_max_points [iy] 
end; 



= ptlx. 
- ptly; 



- pt2y; 



no rrnal_ 
normal 



vertex 
'ertex 



procedure ca lc_ve rt ex_in fo ( edge_a 
edge_b 



integer ; 
integer ) 



To mark points which should not be used when calc fill line 
end points. 



integer; 



( Purpose 
{ 

va r 

a_min, 
a_max, 
b_minj 
b_max : 

begin 

with intercept _li5t_pt r"[edge__b] do 
begin 

b_min :- intercept_p_min; 
b_max := intercept_p_max; 
end; 

with intercept_Ii5t_ptr'^[edge_a] do 
begin ~ 

a_min := inte rcept_p_min ; 
a~max := jntercept^p max; 

iT [intercept_max_points [edge_index] <> edge_vertex ) then 
begin 

if a._min = b__max then 

int'e rcept fnin_point s [edge_index] := short ^vertex 
else 
if a_max = b_min then 

inte rcept _max_points[edge_index] := short _vertex; 
end ; 
end; 
end; 



-2 
-4 

-6 
-10 



procedure 5ort( starting, ending, inc 
( Purpose : To sort the P_LIST array. 



gle_short int ; 
gle^shor tint; 
gle_shor tint; 
inteqer ; 



integer 
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20556:D -14 3 temp_point integer; 

20557:D -15 3 done : boolean; 

20558 :S 

20559:C 3 begin 

20560:C 3 if x_major then { tort by x > 

20561:C 4 begin sx := 1; sy := 0; end 

20562 :C 4 else { ^ort by y ) 

20563:C 4 begin sx ;= 0: sy := 1; end: 

20564 :S 

20565:C 3 repeat 

20566:C 4 index := starting + inc; 

20567 :C 4 done := true; 

20568:C 4 test point := p_list_pt r" [star tang, sx] ; 

20569:C 4 while index <> ending + inc do 

20570:C 5 begin 

20571 ;C 5 Temp point := p_list_pt r"[index,sx] ; 

20572:C 5 if te5t_point > temp_point then 

20S73;C 6 begin 

20574 ;C 6 'p_li5t__pt r^ [index, sx] := p_list pt r'^[ index -inc ^ 5x] ; 

2057S:C 6 p list pt r"^ [inde?<-inc, sx] ;= temp point; 

20576:3 ^- ~^ 

20577:C 6 temp_point := p„list pt r'~|;index,sy] ; 

20578 :C 6 P_li5t_pt r'' [index , syj : ^ p_list_pt r'^[index-inc , sy] ; 

20579:C 6 p list pt r"^ [index-inc, sy] := temp point; 

20580:5 • - -h f_k , 

20581:C 6 done :- false; 

20582 :C 6 end 

20583:C 6 else 

20584:C 6 te;;t_point := temp_point; 

2058S:C 5 index := index + inc; 

20586 :C 5 end; 

20587:C 4 until done 

20588:C 4 end; ( sort > 

20589 ■ S 

20590:C 2 begin { poly ) 

20S91:S 

20592 :C 2 with gcb'^ do 

20593 :C 3 beqin 

20594:C 3 inte rcept_li st^pt r ;= addr[work;; 

20595 :C 3 hatch : = dgi_cur rent_polygon_cro55hatch; 

20596 :C 3 local spacing := dgl current polygon spacing; 

20597:3 ~ _^' /a _ k 

20598 :C 3 saved color :=d9l_current_color; 

20S99:C 3 if dqT_current color <> dgl current polygon color then set colorfdql current polyqon color); 

20600:3 ~ ~ ~ -r- /=■ _ /- 

20601:C 3 with gle gcb"^ do 

20602:C 4 repeat" { cross hatching loop > 

20603:3 

20604:C 5 hatch := not hatch; 

20605:3 

20606:C 5 { Calc slope in terms of dx, dy ) 

20607;C S { Caic x or y spacing (intercept inc) > 

20608:3 

20609:C S x major := true; 

20610:C 5 major^index := 1; 

20611:C 5 if abs (normalized sin) = normalized one { 90 deg ) then 

20612:C 6 begin ~ _ v s / 

20613:C 6 dy := display max y; 

20614:C 6 dx := 0; ~ 

20615:C 6 in tercept_inc := loc.3l_spacing; 
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end 
else 

if abs (normalized_5in ) <- abs ( normalized^cos) < <= 45 deg ) then 
begin 

dx := display max_x; 

dy := int_divXdx * normalized_sin, normalized^cos) ; 

x_ma jo r := false; 

major_index := 0; 

intercept_inc := abs [int_div ( Iocal_spacing * normalized_one , normalized_cos) ) ; 
end 
else 
begin 

dy := display max_y; 

dx := int_divXdy * normalized cos, normalized__sin) ; 

intercept_inc := abs ; int_div [Tocai_spacing * normalized_one, normalized_sin) ) ; 
end ; 

if intercept__inc < 1 then in te rcept_inc := 1; 

{ Calc end point intercepts > 

intercept_count := Ij 
intercept min ;= maxint; 
intercept~max := minint; 

vector_index ;= 1 ; 
while vector[vector_index] <> do 
begin 

num^vert := vector [vecto r index]; 
vecTor_index := vector_in3'ex + 1; 
for i := 2 to num vert do 

calc_intercept J vecto r_index+(i-l )«2,vector_index+ (i-2)«2,x_major) ; 
last_index := vector_index+ [ [nufn_vert-l )*2 ) ; 
calc_inte rcept ( vector index ,last_index, x_major) ; 
vector_index := last^inJex + 2; 
end; 

inte rcept _count := intercept _count - 1; 

vectcr_^index := 1; 
vedqe_Tndex : = 1 ; 

while vector [vector_index] <> do 
begin 

num_vert ;= vector [vector__index] ; 
fir?t_^index := vedge index^; 
last^Tndex ;= vedge_Tndex + num_vert; 
for T := 1 to num_vert do 
begin 

nxt edge := vedge index + 1; 
{ T*Fe following wKile statement should read > 
{ 'while (nxt_edge < la5t_index) and .,,' ) 
\ however this "bug" was not found until after > 
{ Qfl. It will not proceduce a user bug though > 
{ since the following 'if stmt with not use the } 
< bad result s > 

while (nxt_edge < last_index) and 

[intercept_list_ptr'"[nxt_edge] . 
intercept max^points [edge_index] = edge_vertex) do 
nxt_edge := nxt^edge * 1; -- «^^ 

if nxt_ed9e >= last^index then H-O IV 



206ie:C 


6 


20617 :C 


6 


20618:C 


6 


20819:C 


7 


20820 :C 


7 


20621:: 


7 


20622 :C 


7 


20623 ;C 


7 


20624 :C 


7 


20626 :C 


7 


20626 :C 


7 


20627 :C 


7 


20628 :C 


7 


20629 :C 


7 


20630 :C 


7 


20631 :C 


7 


20632 :S 




20633 :C 


5 


20634 : S 




20635 : C 


5 


20636:3 




20637 :C 


5 


20638 :C 


5 


20639 :C 


5 


20640:3 




20841 :C 


5 


20642 :C 


5 


20643 :C 




20644 :C 


@ 


20645 :C 


6 


20646 :C 


6 


20647:0 


7 


20648 :C 


6 


20649 :C 


6 


206S0:C 


6 


20651 :C 


8 


20852:3 




20653 :C 


5 


20654:3 




20655 :C 


5 


20656:C 


5 


20657 :C 


5 


20658 :C 


6 


20659 ;C 


6 


20660 :C 


6 


20661 :C 


6 


20662 :C 


6 


20663 :C 


7 


20664 :C 


7 


20665 :C 


7 


20666 :C 


7 


20667 :C 


7 


20668 :C 


7 


20669 :C 


7 


20670;C 


7 


20671 :C 


7 


20672:C 


8 


20673:C 


8 


20674 :C 


8 


20675:: 


7 
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2067f ;C 


8 




begin 




2067- :C 


8 




nxt edge := first index; 




2067f::C 


8 




wFile (nxt edge < vedge.index) and 




20679 :C 


9 




(intercept list pt r^Enxt^edge] . 




20680 ;C 


9 




intercept_max_poirts[edge_index] = edge^vertex ) do 




2068! :C 


9 




nxt edge := nxt_edge + 1; 




2068; :C 


8 




end; 




2068S:C 


7 


if (intercept_list_ptr'^[nxt_edge] . 




20684 :C 


8 




intercept max point5[edge index] <> edge vertex) then 




2068E :C 


8 




calc vertex info ( ve5ge_index,nxt_ea9e) ; 




2068e :C 


7 


ve 


dge_index ;= vedge_index + 1; 




20687 :C 


7 


end 






2068H:C 


6 


vecto 


_index := vector_index + num_vert * 2 + 1; 




20689 :C 


6 


end; 






2069O:S 










20691 :S 




< Calc fi 


St fill line intercept value, adjust with lower left 




20692 :C 


5 


of disp 


ay > 




20693 ;S 










20694 :C 


5 


P_li5t_pt 


:- addr[work, [intercept_count+l )«32) ; 




20699 :S 










20696 :C 


5 


intercept. 


min := intercept_min - (intercept_min mod intercept_inc} ; 




20697 :C 


5 


xfnin := 






20698 :C 


5 


ymin :- 






20699 ;C 


5 


top_down_sort := true; 




20700 :S 










20701 :C 


5 


< Fill po 


ygon ) 




20702 :C 


5 


while intercept min <= intercept_max do 




20703 :C 


6 


begin 






20704 ;C 


6 


if x^major then 




2070S:C 


7 


xmTn := intercept min 




20709 :C 


7 


else 






2070? ;C 


7 


ymin := intercept_min; 




2070!l:S 










20709 :C 


6 


{ Find intersections > 




2071O:C 


6 


p count := 0; 




20711 :C 


8 


found 


fill line on edge := false; 




207111 :C 


6 


for i" 


:= 1 to intercept_count do 




20719 :C 


7 


begin 




20714 :C 


7 


w 


th intercept list ptr'"[i] do 




20719 ;C 


8 




begin , 




20719 :C 


8 




if (intercept mm = intercept_p_min J and 




2071' :C 


9 




(intercept min = intercept p max) then 




20718 :C 


9 




found fill line on edge := true 




2071»;C 


9 




else 




2072U:C 


9 




if (intercept min >= intercept p mini and 




20721 :C 


10 




(intercept min <= intercept p max) then 




20722 ;C 


10 




{ intersection ) 




20723 :C 


10 




begin 




20724 :C 


10 




if (intercept_min = intercept_p_min) then 




20729 :C 


11 




begin " 
if (intercept_min_point5[edge_index] = normal_vertex) then 




20729 :C 


11 






2072' :C 


12 




begin 




20723 :C 


12 




p count ;= p count + 1 ; 




20729 :C 


12 




p list ptr'^tp count, 0] := inte rcept_min_point5[0] ; 




20730 ;C 


12 




p list ptr'"[p count,!] := inte rcept_min_points[l ] ; 




20731 :C 


12 




end; 




20732:0 


U 




end 




20733 :C 


U 




else 




20734 :C 


11 




if (intercept min = inte rcept_p_max) then 




20739 :C 


12 




begin 




Pascal [Rev 


3.011 6/ 4/84] 


DGL_POLy.TEXT 26-Dec-84 22:46:51 Page 14 *»« File name: DGL_P0LY ««» 




20736 :C 


12 




if (intercept_max_points [edge_index] = normal_vertex] then 




20737 :C 


13 




begin 




20733:0 


13 




p count := p count + 1; 




20739:0 


13 




p list ptr'^Cp count, 0] := intercept max points[0]; 




20740 :C 


13 




p list pt r"[p~count , 1] := intercept_max_poirt5[l] ; 




20741 ;C 


13 




end; 




20742 :C 


12 




end 




20743:0 


12 




else 




20744:0 


12 




begin 




20749:0 


12 




p count := p count + 1 ; 

line line intersection xmin, ymin, xmin+dx,ymin+dy, 
intercept min points 0], intercept mir point5[13, 




20749:0 


12 






2074' :0 


12 






20743 :0 


12 




intercept max~points 0], intercept max point5[l]. 




20749:0 


12 




p list pt r^Cp^count ,0] ,p_list_pt r'^fp^count ,1 ); 




20750:0 


12 




end; 




207S1:C 


10 




end; 




20752:0 


8 




end; 




20753:0 


7 


end 






20754 :S 










20759:0 


6 


if found fill line on edge then ( add edge points ) 




20756:0 


7 


beg 


n 




20757:0 


7 


■■ p count > 1 then 5ort(l,p court, 1); { sort bottom up } 




20758:0 


7 


if b3'd(p count) then p count" := p count-1; < remove last move ) 
for i :="l to irjtercepT_count do 




20759:0 


7 




20760:0 


8 




with intercept_li5t_ptr^Ci] do 




20761:0 


9 




begin 




20762:0 


9 




if (intercept min = intercept p min) and 




20763:0 


10 




(intercept~min = intercept_p_max ) then 




20764:0 


10 




begin "" 




2076S:C 


10 




p count := p count + 1; 




20766:0 


10 




p list ptr^Cp count, :* intercept min points[0]; 




20767:0 


10 




p list pt r^tp'count ,1 := intercept_min_points [1] ; 




20763:0 


10 




p count := p count + ; 




20769:0 


10 




p list ptr'^tp count ,0 := intercept_max_point&[0] ; 




20770:0 


10 




p_list2ptr'^[p_count ,1 := intercept_max_point5 [1] ; 




20771:0 


10 




end; 




20772:0 


9 




end; 




20773:0 


7 


i 


:= 1; 




20774:0 


7 


repeat 




20775:0 


8 




j := i + 2; 




20776:0 


8 




while j < p^count do 




20777:0 


9 




begin ~ 




20778:0 


9 




if (p list ptr"[i, major index] <= 




20779:0 


10 




p~list ptr'^h + l , major index]) and 




20780 :C 


10 




(p list ptr^Ei, major index] <= 




20781 :C 


10 




p^list_pt r^Ei+l ,major_index] ) then 




20782:0 


10 




begTn 




20783:0 


10 




if p list pt r^[i,major_^index] > 




20784:0 


U 




p Ti5t pt r-^r j,major_index] then 




20785:0 


11 




begin 




20786:0 


11 




p list ptr"ri,0] ;= p_list_pt r-'ti ,0] ; 




20787:0 


11 




p list ptr-^ti,!] :- P_li5t_pt r^[j , 1] ; 




20788:0 


11 




endj 
if p list ptr'^Ci+l .major index] < 




20789:0 


10 






20790:0 


11 




p Tist_pt r^[ j+l,major_Tndex] then 




20791 :0 


11 




begin ~ 




20792:0 


11 




p list ptr"[i+l,0] :» p_list_pt r^[ j+1 ,0} ; 




20793:0 


11 




p list ptr-^Ci+l,!] :" P_list_pt r-^Cj+l , 1 ] ; 




20794:0 
20799:0 


11 
10 




end; 
for t := j to p_count-2 do 
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20796 :C 


11 


begin 




20797 :C 


11 


p list ptr"[t,0] :» p list ptr"[t*2,0]; 




20798:C 


11 


p list ptr~[t,l] := p list ptr~[t*2,l]; 




20799 :C 


11 


end; 




20800 :C 


10 


p count := p count - 2: 




20801 :C 


10 


J :- 1 + 2; 




20802 ;C 


10 


end 




20803:C 


10 


else 




20804 :C 


10 


i := j * 2; 




2080S:C 


9 


end: 




20806 :C 


8 


1 :• i * 2; 




20807 :C 


8 


until i > p count; 




20808 :C 


7 


end; 




20809 :S 








20810:C 


6 


{ Sort points ) 




2081 1:C 


6 


if p count > 1 then 




20812 :C 


7 


begin 




20813 :C 


7 


top down sort := not top down sort; 




20814 :C 


7 


if top down sort then sort(p count, 1^-1) 




20815 :C 


8 


else sort (1 ,p count ,1) ; 




20816:C 


7 


end; 




20817 :S 








20818:C 


6 


< draw a fin line ) 




2081 9. C 


6 


move it := true; 




20820 :C 


6 


for T := 1 to p count do 




20821:0 


7 


begin 




20822 :C 


7 


end X := p list ptr"[i,0]; 




20823: C 


7 


end y := p list pt r"[i,l]; 




20824 : C 


7 


if move it then call f move,gle gcb 1 




2082S:C 


8 


else call [ draw,gle~gcb ); 




20826 : C 


7 


move it := not move it; 




20827 :C 


7 


end; 




20828 : S 








20829 :C 


6 


intercept min := intercept min + intercept inc; 




20830 :C 


6 


end; { of Tilling loop > 




20831:3 








20832 :C 


5 


if (not hatch) and dgl_cur rent_polygon_crosshatch then 




20833 :C 


6 


begin 




20834 :C 


6 


t := normalized_sin; 




20835 :C 


6 


normalized sin := -normalized cos; 




20836 :C 


6 


normalized cos := t; 




20837 :C 


6 


end; 




20838:: 


5 


until hatch; < end of hatching loop > 




20839:3 








20840: C 
20841 :C 


3 
3 


if saved color <> dgl current polygon color then set color(saved color); 
end; 




20842 :C 


2 


end; 




20843:3 








20844:0 


1 


procedure draw polygon ( anyvar vector, work : gint list ); 




20845 :S 








20846:D 


2 


{ PURPOSE: To draw a polygon using the current polygon attributes ) 




20847:3 








20848:3 




{ The input format for vector is as follows (GLE polygon format): 




20849:3 








20850:3 




VECTOR Number of pts in segment 1 ( 1st subpolygon ) 




20351:3 




XI 




20852:3 




Yl 




208S3:S 




X2 




20854:3 




Y2 




20855:3 
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208S6 : S 








20857:3 




Xii 




20858:3 




Yn 




20859:3 








20860 : 3 




Number of pts in segment 2 ( 2nd subpolygon 




20861:3 




XI f- 7= , 




20882:3 




Yl 




20863:3 








20864 : 3 




■ ■ 




20865:3 




Xm 




20866:3 




Ym 




20867:3 








20868:5 








20869:3 








20870:3 








20871 :D 


2 


[0 ] ) 




20872:3 








20873:0 


2 


{ normal ized_one * 32768 > 




20874:3 








20875:0 


2 


var 




20876:0 


-8 2 


local_angle : real; 




20877:0 


-9 2 


hatch : boolean; 




20878:0 


-14 2 


local spacing : integer; 
rad angle : real; 




20879:0 


-22 2 




20880:0 


-22 2 


sin_angle, 




20381:0 


-30 2 


cos_angle : integer { normalized fixed point numbers ); 




20882:3 








20883 :C 


2 


Degin { draw_polygon ) 




20884:3 








20885 :C 


2 


with gcb'^ do 




20886 ;C 


3 


begin 




20887 :C 


3 


if dgl current polygon density <> then 




20888 :C 


4 


begin 

local_angle := dgl cur rent_polygon angle; 




20889 :C 


4 




20890 ;C 


4 


hatch := dgl_current_polygon_c rossKatch and (dgl^cur rent^polygon density <> 1); 




20891 :C 


4 


if dgl current polygon density = 1 then ~ "" 




20892 :C 
20893 :C 


5 
5 


local spacing := gle gcb", polygon solid fill 
else 




20894 :C 


5 


local spacing := 

absTtrunc(I/dgl current polygon density * gle gcb". polygon fill factor)); 
if local spacing < T then local spacing := 1; 
if hatch then local spacing := local spacing « 2; 
if Iocal_spacing = T then local_angle :* 0; 




20895 :C 


S 




20896 :C 


4 




20887 :C 


4 




20898 :C 


4 




20899 :C 


4 


rad_angle := deg_to_rad * local_angle; 




20900 :C 


4 


sin__angle := trulncf?in rad_angle) * normalized_one) ; 




20901 :C 


4 


cos~angle := trunc(cos rad angle] * normalized one); 




20902 :C 


4 


draw pg(vector, work, dgl current polygon color, 3gl current polygon llnestyle, 
sin angle, cos angle, hatch, local~spacing);~ ~ 




20903 :C 


4 




20904 :C 


4 


end; 




20905 :C 


3 


end; 




20906 :C 


2 


end; 




20907:3 








20908:0 


1 


procedure 5etuo_for_poly90n ( real_format 


boolean; 




20909:0 


2 


num_points 


integer; 




20910:0 


2 


anyvar xvec, yvec 


g5hortlnt_li5t; 




20911:0 


2 


anyvar rxvec, ryvec 


greal list; 
gshortint list; 




20912:0 


2 


anyvar opcodes 




20913:0 


2 


anyvar vector 


vec_ptr_def ; 




20914:0 
20915:0 


2 
2 


wor k_mul t 
anyvar work _pt r 


integer; 
work_pt r_def ; 
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209 If :D 


- 


2091' 


5 




2091f 


D 




2091!- 


D 


2 


2092C 


D 


2 


20921 


S 




2092: 


D 


2 


2092'- 


D 


-4 7 


20924 


D 


-8 2 


2092; 





-12 7 


2092( 





-16 2 


2092'.' 


D 


-20 2 


2092^ 


D 


-28 2 


2092;- 


D 


-36 2 


20931 


S 




20931 


c 


2 


2093; 


c 


2 


2093. 


c 


2 


20931 


c 


2 


2093! 


c 


2 


2093t 


c 


2 


2093" 


s 




2093t- 


c 


2 


2093V 


c 


2 


20940 


c 


2 


20941 


s 




2094; 


c 


2 


2094: 


c 


3 


20944 


c 


3 


2094! 


c 


3 


2094f 


s 




2094V 


c 


3 


2094f 


c 


4 


2094!' 


c 


3 


20951 


c 


3 


2095! 


c 


3 


2096: 


s 




2095: 


c 


2 


2095'! 


c 


2 


2095! 


c 


2 


20951 


c 


2 


20957 


c 


2 


209SI; 


c 


2 


2095!' 


3 




2096( 


c 


2 


20961 


c 


3 


2096; 


c 


3 


2096; 


c 


4 


20964 


c 


4 


2096! 


c 


4 


2096!- 


c 


4 


2096V 


c 


4 


2096!; 


c 


4 


2096;- 


c 


4 


2097C 


c 


4 


20971 


c 


3 


2097; 


c 


3 


2097:; 


c 


4 


20974 


c 


4 


2097!! 


c 


4 
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2097! :C 


5 


20977 :C 


5 


2097i; :C 


5 


20977 :C 


3 


20987 :C 


3 


20981 :C 


3 


2098; :C 


2 


20987 :C 


2 


20984 :S 




2098! :C 


2 


2098E :S 




20987 :C 


2 


2098!- :C 


3 


20987 :C 


3 


20997 :C 


4 


20991 :S 




20997 :C 


3 


20997 :C 


3 


20994 :C 


3 


20997 :C 


3 


2099! :S 




20997 :C 


3 


20997 :C 


4 


20999 :C 


4 


21000 :C 


4 


21001 :C 


5 


21002:C 


5 


21007 :C 


S 


21004 :C 


S 


21007 :C 


5 


21000:C 


5 


21007 :C 


3 


21007 :C 


2 


2100&:S 




210K :S 




21011 :D 


1 


21017 :S 




21017:D 


2 


21014 :S 




21017 :C 


2 


2101!: :C 


2 


21017 :C 


3 


2 1 1 f : C 


3 


2101S:C 


4 


21020 :C 


3 


21021 :C 


4 


21022 :C 


3 


21027 :C 


2 


21024;S 




21027:0 


1 


21026:0 


2 


21027:0 


2 


21029:5 




Z102P:D 


2 


2103C:S 




21031 :0 


2 


2103; :D 


-8 2 


21037:0 


-12 2 


21034 :0 


-16 2 


2103': 


D 


-20 ; 
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van last _sub poly : integer ); 



File name: DGL_POLY 



Z ; P'_,rpose 



Tc prepare for drawing a polygon set. This includes > 

setting up attributes, creating work space, performing error > 
checks, and creating a GLE format polygon. ) 



s.jb_poiy_5t a r t 
S-jb ^poiy__coijnt 
point_count 
vec tor_count 
local_angle 
r-id_angle 

oegin 

cK_5ystem___ini t ; 

ck display_init; 
SovfTcheck ohs 

if num^points. 



nntege r ; 
intege r ; 
in tege r; 
in tege r ; 
intege r ; 
real; 
real ; 



then error (e rr_neg_point s ) 



if opcodes[13 <> 2 then error (e rr_bad_parm5] 



{ allocate worst possible space for 

mark [stack_pt r) ; 

newbytes (vec tor , 12*num_point s+4) ; 



vec to r array > 

{ mark current base > 

{ alocate worst case space } 



with gcb"^ dc 
begin 

saved_linestyle := dgl_cur rent_linestyle; 
5aved_linewidth := dgl^cur rent_linew:dt h; 

if dgl current linestyle <> dgl_current polygon_line5 tyle then 

set Tine style [ dgl^cur rent _polygon_Tinebtyle ]; 
if dgT_cLir'Fent_linewidt h <> 1 then 5et_line_widt h{ 1 ) : 
if not dgl_polygon_color_cijr rent t hen set^polygo n_color ; 
end; 

sub pDly_st art := 1 ; 
i :- 1; 

sub_poly_count := 1 ; 
point_cOLjnt := 1; 
last _sub poly := 1 ; 
vector_count := 2; 

while i <- num_points do 
begin 

if {opcodes[I3=2) and (i<>l) then 
begin 

vector"' [5ub_poly_st art ] :- point__count-l; 

5ub_ poly_5t art := vect or_count ; < save space to hold count > 
vector_count := vector count + 1; 
point _count := 1; 

sub_,poly_count : = sub_poly_count + 1 ; 
lasi_subpoly :- i; 
end; 
point_ccunt := point_count + 1; 
if real_format then 

convert_wtod(rxvec[i], ryvec[i] , vector'" [vec to recount ] , vecto r"^ [vec to r_count + 1 ] ) 
else 
if short_fla9 then 



{ last subpolygon in polygon ) 
{ first spot will hold count > 
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convert_intwtod(xvec[i] ,yvec[i] .vector" [vector _count]j vector'^[vector_coun 
else 

convert__wtod(xvec[i] ,yvec[i] , vector'^[vector_count ] ,vector'^[vector__count + l 
vec tor__count := vector_count ♦ 2; 
■ 1; 



POLY 

tni) 
]); 



end; 

vector'^[sub_poly_5t art] 
vec tor'^[vector_coun t ] : = 



point_count-l ; 



newbytes [work_pt r , wo rk_mult* vec to recount ) 



{ alocate work space for gle } 



with gcb'^,gle_gcb'^ do 
begin 

if dgl current_poly9on_c rosshatch then infol :^ 1 
else" infol:=0; 



local_angle := d9l_current Oolygon__angle ; 



rad_arigle := deg_^to_rad * Tocal_angle: 
info3 := t r unc f sTn ( rad_3n9le ) * normali 
info4 := trunc{cos(rad_angle) * normali 

if dgl current_polygon density = 1 then 

infoj : = polygon_solId_f ill 
else 



.2ed_one) ; 
zed one) ; 



if dgl cur rent_polygon_den5i ty 

info2 := 
else 



then 



begin 

info 2 := abs[trijnc [ l/dql__cur rent_polygon_densit y « poly9on_fill_f actor)] 
if info2 < 1 then Jnfo2 := 1; 



procedure finish_poIygon ; 

{ Purpose: Restore linestyle and line width to current values > 

begin 

with gcb'" do 
begin 

if saved_line5t yle <> dq l_cu r rent_pol ygon^linest yle then 

set_Iine 5tyle(saved linestyle); 
if saved^lTnewidth <> T then 

set_Iine_widt h (saved_Iinewidt h) ; 
end; 
.?nd; 



procedure int_polygon_dd ( num_point s 
anyvar xvec, yvec 
anyvar opcodes 



integer ; 

gsho rt int_list ; 

gshort int_list ) ; 



Purpose : To output a device dependent polygon set } 



wor k^pt r 

vector _pt r 

la'^ t _sUbpc}>'90n 



ar ray [1 . . 1 j of real ; 

work_ptr def; 
vec_pt r^Jef ; 
integer; 
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21085: 
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21087:C 

21088:C 

21089:C 

21090 :C 

2I091:C 

21092:C 

21093:C 

2 1 094 : C 

2109S:C 



6/ 4/84] DGL_POLY.TEXT 

use^simulat ior : boolean; 

begin 

try { mu:bt return 'new' space if escape occurs > 

set up_fo r_polygon ( false, nLim_pcints, xvec, yvec, t. 
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t, 
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opcodes, vectc rpt r , 14,wor^;_pt r , last_subpolygor) ; 

with gle_gcb^ do 
begin 

use^simulation := true: 
if polygon_5upport = 1 then 
begin 

gle_get_polygon_infQ ( gle_9cb ); 
If error_return = then 
begin 

info_ptrl := vector_ptr; 
info_ptr2 :- work_ptr; 
9ie_polyqon ( gleqcb ); 
use_simulat ion := false; 
end; 
end; 
end; 
finish polygon; 
if gcb^'.dql_current_polygon_edge or (use simulation) then 

ed9e_.polygon ( nuin_points, vector ptr"!!], opcodes, use_simulation) : 
int_move (xvec[last_subpolygon] ,yvecUast_subpolygon] ); < update cp ) 



{ return all space > 



release [ stack_pt r) ; 
recover 
begin 

af escapecode <> -27 then release (stack_ptr); 
escape (escapecode ) ; 
end ; 
end ; 

P'ccedure polygon_dev_dep ( num_po:nts : integer; 

anyvar xvec, yvec : greal_list: 
anyvar opcodes : gshortirt_llst ); 



2 { Purpose : To output a device dependent polygon set > 



t 

wor k_ptr 
vecto r_pt r 
last_subpolygon 
use_simulat ion 



arrayCl . . 1] of real; 
work__pt r def ; 
vec_pt r_(Jef ; 
integer ; 
boolean; 



beg:in 

try { must return 'new' space if escape occurs > 

set up_for_polygon ( true, num_points, t, t, xvec, yvec, 

opcodes, vec1or_ptr,14,work ptr,la5t subpolygon); 
with gle_gcb do - /^ r. 

begin 

use_5imulation := true; 
if polygon_support = 1 then 
begin 

gle_get_poly90n_info ( gle_gcb ); 
If error_return = then 
begin 
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21097:C 6 

21098:C 6 
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21099: 

21100: 

21101: 

21102: 

21103: 

21104: 

21105: 

21106: 

21107:S 

21103:C 

21109:C 

21110:C 

2nil:C 

21112:C 

2in3:C 

21114:C 

21115:S 

21116:0 

21117:D 

21118:5 

21119:3 

21120:0 

21I21:S 

21122: 

21123: 

21124: 

21125: 

21126: 

21127: 

21128: 

21129: 

21130: 

2U3I: 

21132: 

21133: 

21134: 

21135: 

21136: 

21137: 

21138: 

21139: 

21140: 

21141: 

21142: 

2I143:C 

21144:: 

21145: 

21146: 

21147: 

21148: 

21149; 

21150: 

21151 : 

21152: 

21153: 

21154:0 

21I55:D 



-12 



info_ptrl := vector_ptr; 
info_ptr2 := work_ptr: 
gle_polygon ( gleqcb ); 
use_simulat ion := false; 
end; 
end; 
end; 
finish polygon; 
if --'-'^ "■-' 



gcb'^.dgl_current_polyg )n_edge or ([ se simulation) then 
dge_polygon ( num points, vector^p- r'Tl] , opcodes, use simu 



edg 



^polygon ( num poin.,, .-.,„._f, . ^.j, „^^ , 

moveIxvec[last_subpoTygon] , yvec [last_: ubpolygon] j ; ('update cp } 



ilat ion) 



release(5t ack_pt r) ; 
recover 
begin 

if escapecode <> -27 ^hen relea;, 
escap'S (esctipecode) ; 
end ; 



{ return all space > 
(5tack_pt r) ; 



2 
2 
2 

16 2 
20 2 



end ; 

procedure int_poivgon ( nijm._points ; integer; anyvar xvec, yvec : gshortint list; 

anyvar opcodes : gsho rt int_Ii5t ); " 

{ Purpose : To output a device independent polygon set > 
van 



; 3rray[l..l] of real; 
work_ptr : work_ptr def; 
vecto r_pt r : vec_pt r_3ef ; 
las t_subpolygon : inTeger; 

begin 

try { must return 'new' space if escape occurs > 

set up_for_poIygon ( false , num_point s, xvec, yvec, t, t, 

opcodes, vector_ptr, 40, work_pt r, last_subpolygon 

d raw_polygon ( vecto r__pt r-^Cl ] , work_pt r-^Cl] ) ; 

finish polygon; 

if gcb'^. dql_current_polygon_edge 1 hen 

edge_poly9on ( num^points, vector ptr"[l], opcodes, false ); 
int_move (xvec|;iast_subpolygon] ,yvecTla5t_sjbpoIygon] ) ; { update cp } 



release [ St ack_pt r) ; 
recover 



{ return all space > 



begin 

if escapecode <> -27 then release (stack ptr); 
escape (escapecode) ; "" 

end; 
end; 

procedure polygon ( num__point5 
anyva ■ 
anyva 

{ Purpose : To output a device indeoerdent polygon set > 



_ integer ; 

anyvar xvec, yvec : 9real_list: 

opcodes : gsho r t int_l ist 



2 
-8 2 

-12 2 



uor k_pi r 



(irray[l.,l] of 
v;ork_pt r_def ; 



eal ; 
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21156:D -16 2 yector_ptr : vec_ptr_def; 

2U5^:D -20 2 la5t_subpolyqon : integer; 

211SJ:S 

2115?:C 2 begin 

21160:C 2 try { must return 'new' space if escape occurs > 

21161:C 3 5etup_for_polygon ( true, num_points, t, t, xvec , yvec, 

2116:'-C 3 opcodes, vector^pt r ,40, work_pt r , last_subpolygon ); 

21163:S 

21164:C 3 draw_polygon ( vector_pt r'tl ] , work_ptr"[l] ); 

2116-5:C 3 finish polygon; 

21166:C 3 if 9cb'^.dql_cijr rent_polygon_edge then 

21167:C A edge_polygon ( num points, vector_pt r"[l ] , opcodes, false ); 

21163:C 3 move(xvec[la5t_subpoTygon] ,yvec[last_5ijbpolygon] ) ; ( update cp > 

21169;S 

21170:C 3 release(5tack ptr); { return all space ) 

21171 :C 3 recover 

21172:C 3 begin 

21173:C 3 if escapecode <> -27 then release (5tack_ptr); 

21174:C 3 escape (escapecode) ; 

2117'5:C 3 end; 

21176:: 2 end; 

21177:3 

21178:C 1 end. {module DGL_POLy) 

21173:S 

21180:D 1 

21181 :S 

No errors. No warnings. 

***** Nonstandard language features enabled ***** 
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DGLRAS 



Description 

DGL_RAS provides device-dependent initialization for raster devices, as well as raster utilities. 



Requirements 

DGL_TYPES, DGL.VARS, SYSDEVS, SYSGLOBALS, ASM, LOADERS, GLE_GEN, GLE.TYPES, GLE_GEN, GLE_AUTL, 
GLE_RAS_OUT, and DGL_GEN. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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13:S 
14 :S 
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16:S 
17:3 
18:S 
19:S 
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.on ( / 4/84] DGL_RflS .TEXT 

- 

<, DGL device dependent inlt routine 
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i 

i 
( 



nodule = OGL_RfiSTER 

Programer = BJS 
Date = 1 -■ 5-83 

Purpose: To provide device dependent initialization for raster devices. 

Rev history 
Created - 1 - 5-33 BJS 
Modified - 02-17-34 BDS Changed allocations from dynamic to global. 

( (cj Copvright Hewlett-Packard Company, 1983. 

fill rights ire reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DRR 7-104. 9(a) . 

HEWLETT- PflCKHRD COMPANY 
Fort Collins, Colorado ) 

Isearch 'GLE LIB', 

"TYPfS', 

'DGL VHRS' , 

'GEN"^$ 

3modcal$ 

Sinclude 'OPTIONS'^ { «»»»»•«•*» 

\ This include file specifies range checking, debug and other compiler 
options for the graphics library ) 

tdebug OFFS 

Irange OFF$ 

tcopyright 'COPYRIGHT 1984 BY HEULETT-PfiCKHRD COMPflNY'S 

$ FLOAT HDU TESTJ 



»*»»» COMPILER OPTIONS 



<***««************ 



tinclude 'OPTIONS'S < 
flinenum 17000$ 

irodule DGL_RflSTER; 

1 export 

1 procedure dgl_raster_init ( control : integer 
1 implement 



COMPILER OPTIONS 
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17010 D 

17011 

17012 



17013 
17014 
17015 
17016 
17017 
17018 
17019 
17020- 
17021 
17022 
17023 
17024 
17025 
17026 
17027 
17028 
17029 



17030 :D 



17031 

17032 

17033 

17034 

17035 

17036 

17037 

17038 

17039 

17040 

17041 

17042 

17043 

17044 

17045 

17046 

17047 

17048 

17049 

17050 

17051 

17052 

17053 

17054 

17055 

17056 

17057 

17058:C 

170S9:C 

17060;C 

17061 

17062 

17063 

17064 

17065 

17066 

17067 

17068 

17069 



import dgl_types, 
dgl vars, 
syscJevs , 
asm , 

sysglobals, 
glet ypes , 
gle_gen , 
gle_autl, 
gle_ras_out , 
dgl_gen ; 



type 
ini t 

const 

in: t 
c_def 
c_def 
c_def 
c_def 
c_def 
c_def 
c Jef 
c_def 
c_def 
c def 
c'def 
c_def 
c_def 
c def 
c'def 
c def 



j:olor_tdble_def = HRRPY [0..15] of c_defj 



col 

T 

re 
re 



colo 
" 0, 
1, 



d : 0, green 
d : 1,9 reen 
d : 1 , green 

1 , g reen : 1 

d : 0, green : 1 

d : 0, green : 1 

d : 0, green : 

[ red : 1 , green : 

[ red : 0, green : 

[red:0,8 

[red:0.2 

[red:0.S33333333333333, green 
[red:0.8 , green 

[red: 1.0 , green 

[red : 1 . , green 

[red: 0.886666666666667,9 reen 



Elu 

blue 

blue 

blue 

blue 

blue 

blue 

blue 

blue 

green 

green 



table_def [ 



0.733333^33333335, blue: 0.2 
0.666666666666667, blue 10.466666666666667 
0.4 , blue :0. 666666666666667 

. 266666666666667 , blue : .4 
0.4 .blue:0.2 

0. 466666666666667, blue:0 
0.533333333333333, blue: 0.266666666666667 





9 ) 


, 


in \ 


, 


11 > 


^ 


12 


J 


13 




14 


ii 


15 i 



■i procedure hpm_ new( var opject:anyptr; numbytes : Integer); external;) 

procedure ra5ter_linestyle ( index : i.,teger); 

2 { Purpose: To set the linestyZe that primitives are drawn with 

2 i./pe 

2 ls_map_def = packed array [1..13] of gbyte; 

2 ^ jnst 

2 Isj-nap = l5_rnap._def [0,2,3,4,5,6,1,2,3,4,5,6,1]; 

2 tv*gin 

2 wit h q Je gcb" do 

3 begin 
3 infol 
3 info2 
3 info3 
3 
3 
3 



info4 



= Js^maptindex] ; 
= 4;^ 

= 0; 



a3ter_pat terns [index 
gle_Hne5Tyle ( gle_gcb ); 
end ; 



< map DGL to GLE def } 

( repeat rate 4% ) 

{ linestyle mode ) 

{ pattern ) 



Old; ( set _1 ine_5t yle ) 

t inction r el ur n_clo5est _colo r 



f , g, b : re 
c_table_pt 



{ t arget color } 
anyptr ) { system color map } : integer 
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17070:D -24 

17071 :D -24 

17072:D 

17073:D 

17074 :D 

17075:D 

17076:D 

17077:D 

17078:0 

17079; 

17080: 

17081: 

17082: 

17083: 

17084: 

1708S: 

17086: 

17087: 

17088: 

17089: 

17090: 

17091:0 

17092:0 

17093:0 

17094:0 

17C95:S 

17096:0 

17097:0 

17098:0 

17099:0 

17100:0 

17101:0 

17102:0 



17103 

17104 

1710S 

17106 

17107 

17108 

17109 

17110 

17111 

17112 

17113 

17114 

1711S 

17116:C 

17117:C 

17113:C 

17119:0 

17120:C 

17121:0 

17122:0 

17123:0 

17124:3 

17125:0 

17126:0 

17127:0 

17128:0 

17129:0 
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target_h , 

target_s , 

target 1 : real; 

e rror_K, 

e rror_h2 , 

error_l , 

e rror_5, 

e rror_12 , 

error_s2 ; real; 

map_h, 

map_l , 

map_s, 

error : real ; 

closest„erro~ : real; 
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{ HSL target color values } 



( hue error distance squared > 

< lightness error distance squared > 



{ saturation error distance squared > 



{ Current color map entry in HSL } 

{ Distance from target to current color map entry > 



ciosest_inde)< : integer; < Best fit color map index ) 



( Find cloiiest color from system color map, to match target color. 

{ The closest color is the color which 'looks' the closest. This 

{ algorithm hais been derived from a mixture of logic and 

^ experimentation. The algorithm calculates for each entry in the 

color map an error factor indicating how far off the color map 

value is from the target color. It then returns the color map 

index with the least error. 



< Experimentation has showed that the best looking color is normaly > 
( the color with the least error in hue. However when the target } 
{ color is near black or white this is not true, and when many color) 
{ map entrys have a small hue error the closest hue does not produce) 

< the best color. The algorithm makes special cases out of tne > 
( above cases and 'weights' the error result to reduce the effects } 

< of hue. J 

begin 

convert_rgb_to_hsl(r,g,b,target_h,target_s,target_l); 

closest_index := 1 ; 

cl05est_er ro r ;= maxint; 

for i := to gle^gcb''. gamut do 

with color table_pt r_def (c__t ab le ptr)^[i] do 
begin 

conver t_rgb_to_h5l (red, green, blue ,map_h,map_s,map_l 



< worst case error ) 

< for each ChRP ent ry > 
( force anyptr to known type > 



er ror_h2; 



{ Calc errors, note that since Hue is circular it must } 
{ be calc as shortest oist of either direction ) 

error_h ;- abs (map_h-target_h) ; 
error_ti2 ;= abs (map_h-l- ta rge't_h ) ; 
if error_h2 <= error_h then error_h 
error_h2 ;= error__h * error_h; 
errors ;= ab5(map_s-target_s j ; 
error_I :- abs (map_l-t arget_l] ; 
error_s2 := error_s * error_s; 
error~12 := error_I * error_l; 

if tar9et_l < 0.1 then ( special case where request is near black > 
begin 

7 With small lum in cm3p, sat and hue are undifined and can't ) 
{ be used i- error calculation ) 

If map_l < 0.01 then error ;= error_l 
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17130:0 
17131:0 
17132:0 
17133:0 
17134:0 
17135:0 
17136:0 
17137:0 



17138: 
17139: 

17140: 
17141: 
17142: 
17143: 
17144: 
1714B: 
17146: 
17147; 
17148: 
17149: 
17150:0 
17151:0 
17152:0 
17153:0 
17154:0 
17155:0 
17156:0 
17157:S 
17158:0 
17159:0 
17160:0 
17161 :C 
17162:0 
17163:0 
17164;C 
17165;C 
17166:5 
17167:3 
17168:0 
17169:3 
17170:0 
17171 :D 
17172:0 
17173:3 
17174:0 
17175:0 
17176:0 
17177:0 
17178;C 
17179:0 
17180:0 
17181 :C 
17182:0 
17133:0 
17184:0 
17185:0 
17186:0 
*««UfiRNING: 
17187:0 
17188:0 



6 else 

6 < Uith small sat in cmap, hue is undifined and can't be used ) 

6 { i" error calculation > 

6 if map_s < 0.01 then error := error_l + error_s2 

7 else error := error_l + error_h2 + error_s2; 
5 end 

S else 

5 if tarqet_s < 0.1 then < special casewhere request is near white ) 

6 begin 

6 T Uith small lum in cmap, sat and hue are undifined and can't ) 

6 < be used in error calculation ) 

6 if map 1 < 0.01 then error ;= 3 

7 else 

7 { Ulith small sat in cmap, hue is undifined and can't be used > 

7 {inerrorcalculation ) 

7 if map_s < 0.01 then e'ror ;= error_12 + error_s 

8 else e'ror := error 12 + error h2 + error s; 
6 end ~ ~ 

6 else { normal case > 

6 { tAlith small lum in cmap, sat .md hue are undifined and can't ) 

6 { be used in error calculation ) 

6 if map 1 < 0.01 then error := 3 

7 else 

7 { With small sat in cmap, hue is undifined and can't be used ) 

7 {in error calculation ) 

7 if map_.s < 0.01 then error := 3 

8 else error := error_h2; 

4 if error < closest^er ror ttien 

5 begin 

5 closest_er ror := err^ir; 

5 closest_index ;= i; 

5 end; 

4 end; 

2 return_cjosest_color := closest_index ; 

2 end; 

1 procedure raster^color ( index : integer ); 



gcb" 

egln 
with 
if 



-8 2 intensity 
■32 2 h,s,l 



2 begin 
2 wit 
3 
3 
4 
5 
5 
S 
S 
6 
5 
5 
6 
(llnel718 
6 
6 



real; 
real; 



gle_gcb'' do 



els 

if 

'HOD 



or_table ptr-"[index] do 
1 tFen ( bSw ) 

Numbers from Dawn (HP-9000) DGL for 2648 terminal ) 

tensity ;= 0.3*red + 0.59*9reen + 0.11«blue; 

intensity < 0.06 then infol := C 

e infol : = 1 ; 

ter_device_rec_pt r (dev dep^stuf f ) ^ .cevicetype = 2 then < moonunit ) 
of a constant may no* Ee supported en other implementations 
1 := return c loses l_':o Ic r ( red , g reen , blue , addr (i ni t color_t able) ) 

< 9836C > 
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1718!);C 




6 


if (index <= gamut) then infol := index 




17190:C 




7 


=i5e , , ., , 




17191 :C 




7 


infol := return_cI05est_color(red, green, blue, color_table_pt r) ; 




17I9Z:S 










17193:C 




3 


gle index color ( gle gcb ); < this function sets color > 




17194:C 




3 


end; 




17195:C 




2 


end ; 




17196 :S 










1T197:D 




1 


procedure ra5ter_color_table ( index : integer; 




17198:D 




2 


parml : real; 




17199:D 




2 


parm2 : real: 




17200:D 


-24 


2 


parm3 : real); 




17201 :S 










17202:D 


-24 


2 


var 




1720:):D 


-30 


2 


color_list : array [1..3] of gIe_5hortint ; 




17204:D 


-38 


2 


intensity : real; 




1720S;S 










17206:C 




2 


begin 




I7207:C 




2 


with gcb", gle gcb^ do 




17208 :C 




3 


begin 




17209:C 




3 


if dgl current color model = 2 then 




17210:C 




4 


convert hsl to rqbTparml , parm2, parm3, parml , parm2 , parm3) ; 
if (index <= gamut) and (color map_5upport = 1) then 




1721 I :C 




3 




17212:C 




4 


begin 




17213:C 




4 


infol := index; 




17214:C 




4 


info2 := index; 




17215:C 




4 


color list[l] := trunc(parml * 1023 + 0.5 ; 




17216:C 




4 


color li5t[2] := trunc(parm2 » 1023 + 0.5 ; 




17217:C 




4 


color list[3] := trunc(parm3 • 1023 + 0.5 ; 




17218:C 




4 


info ptrl := addr (colo r_li5t ) ; 




17219:C 




4 


gle 3efine color map ( gle_gcb ); 




17220:C 




4 


end; 




17221 -.C 




3 


with color_table_pt r'^Cindex] do 




17222:C 




4 


begin 




17223 :C 




4 


red := parml; 




17224:0 




4 


green := parm2; 
blue := parm3; 




1722S:C 




4 




17220 :C 




4 


if index = then 




17227:C 




5 


begin 




17228:C 




5 


If color_map_support = 1 then 




17229:C 




6 


dgl background index := 




17230:C 




6 


else " 




17231 :C 




6 


begin 




17232:C 




6 


if gamut = 1 then ( b&w > 




17233:C 




7 


begin 




17234 :C 




7 


< Numbers from Dawn {HP-9000] DGL for 2648 terminal ) 




1723S:C 




7 


intensity := 0.3«red + 0.59*green + 0.11«blue; 




17236:C 




7 


if intensity < 0.06 then dgl_backg round_index ;= 




17237 :C 




8 


else dgl backg round_index := 1; 




17238 :C 




7 


end 




17239 :C 




7 


else { moonunit > 




«««UinRNING 


(U 


nel7240) : 'HOOR' of a constant may not be supported on other implement ations 




17240 :C 




7 


dgl_background_index := return_closest_color ( red, green,blue, addr (init_cC' 


lor_table) 


17241 :C 




7 


end; 




17242:C 




5 


end; 




17243:C 




4 


end; 




17244:C 




3 


end; 




1724'J:C 




2 


end; 




17246 :S 
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17247;D 




1 


procedure set all color table ( anyvar list : greal list ); 




17248;S 






~ 




17249:D 




2 


var 




172SO:D 


-96 


2 


color list ; array[0..47] of gle_short int ; 




172S1:D 


-98 


2 


parml , 




172S2:D 


-96 


2 


parm2. 




17253:0 


■120 


2 


parm3 : real; 




172S4:D 


120 


2 


i , 




172SS:0 


124 


2 


adr : gshortint; 




17256:S 










172S7:C 




2 


begin 




172S8:C 




2 


with gcb", gle gcb" do 




172S9:C 




3 


begin 

for i := to 15 do 




17260;C 




3 




17261:C 




4 


begin 




17262 :C 




4 


adr := i « 3; 




17263:C 




4 


parml := list[adr]; 




17264:C 




4 


parm2 := li5t[adr*l]; 




1726r>:C 




4 


parm3 := list[adr+2]; 




17266:C 




4 


if dgl current color model = 2 then 




17267:C 




5 


convert hsl to rgbXparml ,parm2 , parm3, parml ,parm2 , parm3) ; 
color lisT[adr] := trunc parml « 1023 t 0.5); 




1726a:C 




4 




172e9:C 




4 


color list[adr+l] := trunc parm2 « 1023 ♦ 0.5 ; 




17270:C 




4 


color list[adr+2] := trunc parm3 * 1023 + 0.5); 




17271 ;C 




4 


with color table ptr"[i] do 




17272;C 




S 


begin 




17273 :C 




S 


red := parml; 




17274 :C 




S 


green := parm2; 




1727'i:C 




5 


blue := parm3; 




17276:C 




S 


end; 




17277:C 




4 


end; 




17278:S 










17279;C 




3 


infol := 0: 
info2 := IS; 




17280:C 




3 




17281 :C 




3 


info ptrl := addr(color list); 




17282:C 




3 


gle define color map { gle gcb ); 




17283;C 




3 


end; 




17284 :C 




2 


end; 




17285 :S 










17286 :D 




1 


procedure dummy on off ( gcb : graphics control block pt r ); 




17287 :S 










17288 :C 




2 


begin 




17289 :C 




2 


end; 




17290:3 










17291 :D 




1 


procedure graphics on off { gcb : graphics control block ptr ); 




17292:5 










17293:0 




2 


var 




17294:0 


-1 


2 


on : boolean; 




17295:3 










17296:C 




2 


begin 




1729-':C 




2 


with gcb" do 




17298:C 




3 


begin 




17299 :C 




3 


on ;- infol <> 0; 




17300 :C 




3 


if ( on and not graphicstate ) or 




17301:C 




4 


( not on and graphicstate ) then 




1730: :C 




4 


call (togglegraphicshook) ; 




17303:C 




3 


end; 




17304:C 




2 


end; 




17305:3 
17306:0 




1 


procedure dump_g raph ic s ( mask : integer ); 
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17307:5 










17308:0 




2 


< Pjrpose: To dump bit map to standard printer > 




17309:S 










17310:0 




2 


label 1; 




17311 :S 










17312:0 




2 


const 




17313:0 




2 


gbuffersize -■ 255; 




17314:S 










17315:0 




2 


var 




17316:0 


-256 


2 


gbuffer : packed array [1 . .gbuffersize] of char; 




17317:0 


-260 


2 


y ; integer; 




17318:0 


-264 


2 


bytes wide : integer; 




17319:5 










17320:3 










17321 :C 




2 


begin 




17322 :C 




2 


gbuffer 1 




= chr(27); < escape sequence for graphics > 




17323:C 




2 


gbuffer 2 




n ' * ' 






17324 :C 




2 


gbuffer 3 




= 'b' 






1732S:C 




2 


gbuffer 4 




= '6' 






17326:C 




2 


gbuffer 5 




- '4' 






17327:C 




2 


gbuffer 6 




= 'U' 






17328:5 










17329:C 




2 


with gle gcb" do 




17330:C 




3 


begin 

bytes wide := (display max x - display min x + 8) div 8; 




17331 :C 




3 




17332:C 




3 


info ptrl := addr (gbufTer[7] ) ; 




17333:C 




3 


infol := mask; 




17334:5 










1733S:C 
17336:0 




3 

4 


for y := display_min_y to display max_y do 
beqin 




17337:C 




4 


]nfo2 := y; 




17333:C 




4 


qle get raster ( gle gob ); 
write(g7iles[4]'^,gbu7fer :bytes wide +6); 




17339:C 




4 




17340:C 




4 


if ioresult <> ord (inoer ro r) tKen goto 1; 




17341 :C 




4 


end; 




17342:C 




3 


end; 




17343 :C 




2 


write(gfilesr4]'-,#27'»rB'); < terminate graphics sequence > 




17344 :C 




2 


1: 




1734S:C 




2 


end ; 




17346:5 










17347:0 




1 


procedure raster input esc ( opcode 


integer; 




17348:0 




2 


isize 


integer; 




17349:0 




2 


rsize 


integer; 




17350:0 




2 


anyvar ilist 


gint list; 




17351 :0 




2 


anyvar rlist 


greaT list; 




17352:0 




2 


var ier r 


inteqer 1 : 




17353:0 




2 


_ 




17354:3 










17355:0 
17356:5 
17357:C 




2 


{ Purpose : To perform an input escape function ) 






2 


begin 




17358:: 




2 


lerr := 1; < no input escape functions supported > 




17359:3 










17360:C 




2 


end; < input_es.c ) 




17361:5 










17362:3 










17363:0 




1 


^**:t*****t***t*****:**** gator dumper *******»****'K********x****) 




17364:0 




1 


procedure dumpgat ; 
label l; 




1736S:D 




2 




17366:5 










Pascal [Rev 3.01 


6/ 4/84] DGL_RflS.TEKT 26-Dec-84 22:40:37 Page 8 *»» File name: DGL_RftS 


«** 


17367:0 




2 


const 




17368:0 




2 


gwidthb = 128- 




17369:0 




2 


gmaxheight = 512; 




17370:0 




2 


gbuffersize = gwidthb + 7; 




17371:3 










17372:0 




2 


type 




17373:0 




2 


gbyte = 0. .256; 




17374:0 




2 


row_def = packed array [0 .. (1024*768) -1] of gbyte; 




17375:3 










17376:0 




2 


var 




17377:0 


-4 


2 


row : ^row_def; 




17378:5 










17379:0 


-140 


2 


gbuffer : packed array [I . .gbuffersize] of char; 




17380:0 


-148 


2 


i,j : integer; 




17381:0 


-152 


2 


index : integer; 




17382:0 


-1515 


2 


bit mask : integer; 




17383:0 


-160 


2 


result : integer; 




17384:0 


-164 


2 


tmp : -"shortint; 




17385:0 


-168 


2 


tmp2 : integer; 




17386:5 










17387:0 




2 


begin 




17388:3 










17389 :C 




2 


tmp := anyptr(control space + 16384); 
tmp2 := ((tmp^) mod l5) » 1043576; 




17390:C 




2 




17391 :C 




2 


row := anyptr(tmp2) ; 




17392:3 










17393 :C 




2 


write(gfiles[4]^,#27'«rn' ) ; < initiate graphics sequence > 




17394:3 










17395 :C 




2 


gbuffer 1 


= chr(27); < escape sequence for graphics > 




17396 :C 




2 


gbuffer 2 


= ' *' 






17397 :C 




2 


gbuffer 3 


= "b' 






17398 :C 




2 


gbuffer 4 


= '1' 






17399:0 




2 


gbuffer 5 


- '2' 






17400 :C 




2 


gbuffer 6 


. 'S' 






17401 :C 




2 


gbuffer 7 


= 'W 






17402:5 










17403 :C 




2 


for j :» to 767 do 




17404 ;C 




3 


begin 

for i :« to 127 do 




17405 :C 




3 




1740e:C 




4 


begin 




17407 :C 




4 


result := 0; 




17408:0 




4 


index := i»1024*i»8; 




17409:0 




4 


bit mask := 256; 




17410:0 




4 


for~index := index to index+7 do 




17411:0 




5 


begin 

Dit^mask := bit^mask div 2; 




17412 :C 




5 




17413:0 




5 


if odd( row^[index] ) then result := bit mask+result; 




17414:0 




5 


end; 




17415:0 




4 


gbuffer[i+8] := chr(result); 




17416:0 




4 


end; 




17417:0 




3 


write(gfile5[4]'',gbuffer :gwidthb*7); 




17418:0 




3 


if ioresult <> ord (inoerror ) then goto 1; 




17419:0 




3 


end; 




17420:3 










17421:0 
17422:0 
17423:0 




2 
2 
2 


write(gfiles[4]^,#27'*rB' ) : < terminate graphics sequence ) 
1 : 






end;(of crtb) 




17424:0 




1 


{**t%*x**^*******x**x»* end gator dumper «**«*»****««**««*»«*«»**) 




17425:3 
17426:0 




1 


procedure r 


St 


e 


_OUtp 


jt_e5c ( opcode 


: integer; 
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3. on 


1742 ■:D 




1742it;D 




17429:0 


2 


17430:0 


2 


1743: :0 


2 


1743;>:S 




1743,t:D 


2 


17434;S 




1743'>:D 


2 


1743li:D 


-1 2 


1743 ':S 




1743 !:S 




1743a:S 




1744i):C 


2 


1744: :C 


2 


1744:::C 


3 


17443:C 


4 


17444:C 


4 


1744';:C 


4 


1744(i;C 


4 


1744';C 


4 


1744S:C 


:; 


17449 ;C 




17450:C 




17*Sl;C 




174S2:C 


5 


174S:l:C 


6 


17454:C 


6 


174SS:C 


b 


174Si>:C 


$ 


174S7:C 


6 


1745«:C 


7 


1745<):C 


7 


I746i):C 


7 


17461:C 


7 


1748:; :C 


7 


1746 !:C 


8 


17464:C 


S 


1 746S : C 


S 


1746(i:C 


9 


1 746 ,' : C 


9 


!746!t:C 


10 


1746:):C 


10 


1 747(1 :C 


10 


1747 1 :C 


10 


1747:':C 


10 


1747.!:C 


10 


1747.1:C 


9 


1747S:C 


8 


1747ii:C 


3 


17477 :C 


8 


1747l):C 


9 


1 747:1 :C 


9 


17480:C 


10 


17481 :C 


10 


1748:::C 


10 


17481:C 


10 


17484:0 


9 


1748:.:C 


9 


1748li:C 


9 
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10 


1748S:C 


10 


174S9:C 


10 


174SO:C 


1 1 


17491:C 


11 


1749;;:C 


11 


1 749:t : C 


12 


17494:C 


12 


1749:::C 


11 


1749(i:C 


10 


17497 :C 


10 


1 7498 : C 


10 


1749'):C 


1 1 


17500:C 


u 


1750: :C 


12 


1750.>:C 


12 


1750 ):C 


12 


J7S04:C 


12 


!750'.:C 


13 


1750t>:C 


13 


1750' :C 


12 


1750«:C 


12 


1750M:C 


11 


17S10:C 


11 


17511 :C 


11 


17Si:!:C 


12 


17Sl:!:C 


12 


17S14:C 


12 


17Sr.:C 


12 


1751«:C 


12 


17S17:C 


12 


17S1«:C 


13 


17Sln:C 


13 


1752():C 


13 


1752! :C 


13 


17S2;::C 


13 


17S2:i:C 


14 


17524:: 


14 


17S2'i:C 


15 


17521. :C 


15 


1752V :C 


15 


17S2B:C 


15 


1752<i:C 


15 


17530:C 


14 


17531 :C 


14 


17S3;>:C 


14 


17533:C 


15 


17534:C 


15 


17535 :C 


16 


1753b:C 


16 


17537:C 


16 


17538 :C 


16 


1753?.:C 


15 


1754( :C 


15 


17541 :C 


15 


1754; :C 


2 


1754; :S 




17544 :0 


1 


1754; :S 




1754f :D 
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isize 


integer; 


rsize 


integer; 


anyvar ilist 


gint list; 


anyvar rlist 


greal list 


var lerr 


integer ) 



6/ 4/84] DGL_RPS -TEXT 



Purpose : To perform an output escape funtion 



begin 
with gle_gcb", raste r_device rec_ptr[clev dep stuff]'"' do 

if [opcode - 52) and (devTcetype <>4 T an3 (devicetype <> 2) then 
begin 

af ierr = then call (dumpgraphicshook) ; 
end 
else 

if [opcode = 52) and (devicetype = 2) then 
begin 

if ierr = then dump_graphics (-1 ) ; 
end 
else 

if [opcode = 52) and (devicetype = 4) then {added for gator case) 
begin 

if ierr = then dumpgat; 
end 
else 

if [opcode = 53) and (devicetype = 3} then 
begin 

if ierr = then gle_await_blanking ( gle_gcb ); 
end 
else 
if [opcode = 250) and 

[(devicetype = 0] or (devicetype = 2)) then 
begin { marmot and aspen and moonunit) 

if ierr = t nen 
begin 

If [rlist[l] > 0.0) and [ rli5t[2] > 0.0 ) then 
begin 

display_re5_x := rli5t[l]; 
display_re5_y := rli5t[2]; 
end 
else 

ierr : ^ 4 ; 
end; 
end 
else 

if [opcode = 1050) and (devicetype <> 4) then { graphics on / off ) 
begin 

if ierr = t hen 
begin 

infcl ;= ilist [1]; 
gle_,g raphic5_on_of f ( gle_gcb ); 
end ; 
end 
else 
if (opcode = 1051) and ((devicetype <> 2) or [devicetype <> 4)) 
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{ alpha on / off ) 



*** File name: DGL_RfiS =*** 



begin 

If ierr ^ then 
begin 

on := ilist [1] <> 0; 
if ( on dnd not alphastate 1 or 
( not on and alphastate ) then 
call (to gglealpha hook); 
end ; 
end 
else 

if (opcode = 1052) then 
begin 

if ie rr = t hen 
begin 

infcl :- ilist [1] ; 

if (infol < 0) or (infol > 3) then infol 
if anfol " 1 then infol ;= 2 
el be 

if infol = 2 then infol ;^ 1; 
gle_def ine_drawing_mode ( gle_gcb ); 
end ; 
end 
else 
if (opcode = 1053) and 

((devicnt/pe = 3) or (devicetype = 2)) then 
begin 

if ierr = then dump_g raphics (ilist [1] ) ; 
end 
else 
if (opcode = 1053) and (devicetype = 4) then 



begin 
if i e r 



{for gator) 



= t hen dumpgat ; 
end 
else 

if (opcode 
begin 

if ierr = then 
begin 

infol := ilistCl]; 
info2 := 0; 
gle_clear (gle__gcb) ; 
end; ~" 

end 
else 

if [opcode = 10050) and (devicetype 
begin 

if (ierr = 3) and (rsize = 48) { Qpcode_ck gave real size error } then 
begin 

ierr := 0; 

sei_all_color_table ( rlist ) ; 
end ; 
end 
else 

ierr := 1 ; 
d; { ras te r out put_esc ) 



1054) and (devicetype <> 4) then 



then 



jro::edure dgl_ra5ter_init [ control 

t yp'' 



intege r ) ; 
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:D 


17548 


:S 


17549 


:D 


17550 


:D 


17551 


:D 


17552 


;D 


17553 


:D 


17554 


:D 


17555 


:D 


17566 


:0 


17557 


.0 


17558 


.0 


17559 


S 


17560 





17561 


D 


17562 


D 


17563 


D 


17564 


D 


17565 





17566 


D 


17567 





17568 


D 


17569 


D 


17570 


D 


17571 


D 


17572 


D 


17573 





17574 





17575 





17576 


D 


17577 


D 


17578 


S 


17579 


B 


17580 





17581 





17582 


D 


17583 


D 


17584 


S 


17585 


C 


17586 


C 


17587 


C 


17588 


S 


17689 


C 


17590 


C 


17591 


C 


17592 


c 


17593 


c 


17594 


c 


17595 


c 


17596 


c 


17597 


c 


17598 


c 


17599 


c 


17600 


c 


17601 


s 


17602 


c 


17603 


c 


17604 


c 


17605 


c 


17606 


c 
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c:ontroi_def - packed record 

case gshortint 

: (whole : 

1 : (part : 



const 
dcfsul 
poly, 
poly, 
poly 
poly, 
poly, 
poly 
poly, 
poly, 
poly, 
poly, 
poly, 
poly, 
poly, 
poly, 
poly, 
poly. 



t_poly 
entry 
.entry 
entry 
lent ry 
entry 
'entry 
.entry 
.ent ry 
"ent ry 
entry 
entry 
entry 

'_e n t r y 
entry 
entry' 

'_ent ry 



stable 

_def [ 

def [ 

'def [ 

"def [ 

'def [ 

def [ 

^def [ 

"def [ 

'def [ 

def [ 

'def C 

"def [ 

'def [ 

def [ 

'def [ 

'def [ 



= default 

density 

density 

density 

density 

density 

density 

denslt y 

densit y 

denslt y 

densit y 

densit y 

densit y 

density 

density 

density 

density 



of 

gshor t int ) ; 

packed record 

bl5,bl4,bl3,bl2, 

bll,bl0,b9, b8, 

clr inhibit, b6,b5,b4, 

b3,E2,bl,bO : boolean; 
end) ; 



po] y t 
' O.O" 
0.125; 
0.125, 

-0. 12:5 

0.125, 

0, 125, 

-0.125, 



-0.5 

; .0 
1 .0 



able def 








, orient 





0, 


edge 


, orient 


90 


0, 


edge 


, orient 





0, 


edge 


, orient 





0, 


edge 


, orient 


4b 


0, 


edge 


, orient 


-45 


0, 


edge 


, orient 


45 


(1, 


edge 


, orient 


30 


0, 


edge 


, orient 





0, 


edge 


, orient 





11, 


edge 


, orient 


4b 


0, 


edge 


, orient 


-45 


0, 


edge 


, orient 


45 


0, 


edge 


, orient 





0, 


edge 


, orient 





0. 


edge 


, orient 





0, 


edge 



temp_cont rol 



2 temp color model 
2 c 



cont rol_def ; 
integer ; 
integer ; 
real; 



2 begin 

2 If gle_gcb'^.di5play_name = 

3 gle^gcb" .graphics_on_of f 



9837a ■ then 
= du'nm7_on_of f 



then 
c5_on off; 
_pt r(3"ev_dep_3Tuff )^ do 



else 

i'f" 9le_gcb'^.di5play_name <> '986270 
gJ-e_gcb" .g raphics_on_of f : = gr aph 
with gle_gcb'',gcb^,raste r_devic.e_re 
begin 

di5p_jus t := centered; 

clipping _^support ; = t rue , 

ret react .ive_polygon_s upper t ; = '"alse; 

ret roact .ive__color_5uppor t := coIor_map_suppo rt = 1 

nijmber_marker3 :- 19; 

number_dgl linestyles := 8; 

maKirnum_poTygon_vert ices := 32767; 



true ] 
t rue 
true 
t rue 
t rue 
t rue 
t rue 
t rue 
t rue 
t rue 
t rue 
true ; 
t rue 
t rue 
false 
t rue J 



proc_out put_e5c 

\linest yle 
._color 
._color_t able 



P 

proc 
proc 



= rdster_output_esc; 

= raster_ input^esc ; 

= raster_linf;5tyle ; 

= raster _col or; 

= raster_col<:ir_t able; 



8 ) 

< 9 ) 

( 10 ) 

< 11 J 

< 12 

{ 13 } 

{ H ) 

i 15 ) 

;{ 16 } 
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17607:S 

17608:C 

17609:C 

17610:C 

17611 : 

17612: 

17613: 

17614: 

17615: 

17616 

17617: 

17618: 

17619: 

17620: 

17621 : 

17622: 

17623 :C 

17624 :S 
17625:C 
17626 :C 
17627:C 
17628 ;C 
17629:C 
17630:C 4 

17631 :C 4 

17632 :C 4 
17633:C 4 
17634 :C 4 
17635:C 4 
17636:C 5 
17637;C 5 
17638:C 5 
17639:C 5 
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17640: 

17641: 

17642: 

17643: 

17644: 

17645: 

17646; 

17647: 

17648:C 

17649 :S 

17650:C 

17651 :S 

17652:C 

17653:C 

17654 :C 

17655:C 

17656:5 

17657:C 

17658:C 

17e59:C 

17660:3 

17661 ;C 

17662:5 



temp._cont rol .whole := control; 
if not t(;mp_cont rol. part. clr_irhibit then 
with gle_gcb'' do 
begin 

infol ;= -1; { clear all planes ) 

info2 := 0; 

gle_clear ( gle_gcb ); 
ena; 

( allocate color table space ) 

temp__color_model := dgl_cur rent_color_model; 
dgl_cu rrent_color_model := 1 ; { rgb > 

color_table_size ;= 31 ; 

color_table_pt r := adcir(colo r_table_def__space) ; 

if (gamut > 1 ) then 
begin 

Tor i := to 15 do 
wit h init_color_table [ i] co 

raster_color table(i, red, green, blue) ; 
r35ter_color_t able (16,1, 1,1) ; 
end 
else 
begin 

ra5ter_color_table (0,0,0,0); 
for i := 1 to 16 do 
beqin 

c ;= ((17-i) / 16); 
r aster_color_t able[i ,c,c,c) ; 
end; 
end; 

for i := 17 to 31 do 

raster__color_table(i,l ,1,11; 

dgl_current_color_tnodel := temp_color_model; 

gle_gcb^ . infol := 1 ; 
gle_index_color ( gle_gcb ) ; 

( allocate polygon table space ) 

number_pcilygon__styles ; = poIy_table_5ize; 
poly^_table_pt r~:= addr (poly_table_def_space) ; 
for 1 := 1 to poly table size do 

poly__t«ble_pt r^ti] ;= ?e f aul t_poly_table [i ] ; 



3 

3 

2 end 



d i s p 1 a y_e c ho_inu 1 1 
end; 



1; 



1 end , { dgl_raster > 



2 warnings , 

***** Nonstandard language features 
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DGLTOOLS 



Description 

DGL.TQOLS provides the function RETURN_MACHINE_TYPE. 



Requirements 

GLE.TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Pfickard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1 :D 
2:D 


1^ 


{ Graphics Low End > 
{ ) 




3:D 







4:D 





{ Module = DGL TOOLS } 




S:D 





{ Programer = BJS ) 




6:D 





{ Date = 12-07-82 ) 




7-.D 





{ ) 




8:0 

9:S 

10:D 





{ Purpose: To provide general Tools for GLE and DGL. ) 







(Pevhistory ) 




11 :D 





( Created - 12-07-S2 > 




12:D 





{ Modified - 9-07-83 BJS Changed to add check for marbox > 




13:S 








14:S 




( [c] Copyright Hewlett-Packard Company, 1983. 
nil rights are reserved. Copying or other 




15:S 






16:S 




reproduction of this program except for archival 




J7:S 




purposes is prohibited without the prior 




18:S 




written consent of Hewlett-Packard Company. 




19:S 








iO:S 








21:S 

22 :S 

23 :S 




RESTRICTED RIGHTS LEGEND 






Use, duplication, or disclosure by the Government 




24:S 




is subject to restrictions as set forth in 




25:S 




paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




26:S 






27:S 




DflR 7-104, 9(a) . 




28:3 








29:3 




HEULETT-PflCKHRD COnPfiNY 




30:0 

31:3 
32:0 





Fort Collins, Colorado ) 







SmodcalS 




32:0 





Sinclude 'OPTIONS'S ( ********************* Compiler options ******««****»** ) 




33:3 








34:S 




< This include file specifies range checking, debug and other compiler 




35:0 





options for the graphics library > 




36:3 








37:0 





JdebLjg OFF$ 




38:0 





jrdnge OEFS 




39:0 





Scopyright 'COPYRIGHT 1984 BY HEULETT-PfiCKflRD COnPflNY'S 
$FLOAT_HDLJ TESTS 




40:0 







41:3 








42:3 








43:3 








44:3 








45:D 





Sinclude 'OPTIONS'S ( ***«*«***«****»««***« Compiler options :»;*******«*****« ) 




20000:0 





Slinenum 20000$ 




20001:0 





Ssearch 'GLE_LIB'$ 




20002:3 








20003:0 





module DGL_T00L3; 




20004:3 








20005:0 




export 




20006:3 








20007:0 




function return machine type : integer; 




200D8:S 








200C9:D 




implement 




20010:3 








20011:0 




import gle_types; 




20012:3 








20013:0 




function ret u rn_machine_t ype : integer; 
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20014:3 








20015:0 


2 


type 




20016:0 


2 


sysflag def = packed record 




20017:0 


2. 


bit7,bit6,hpib,crt config, 

kbd, high, big graph, alphaSO : boolean; 




20013:0 


2 




20019:0 


2 


end; 




20020:3 








20021 :D 


2 


crt reg def = packed record 




20022:0 


2 


5elfinit,bitl4,bitl3,topl,top2,hi9hlite, 




20023:0 


2 


graph, alpha , 

bi t7, bite, bits. bit4,bit3,bit2,bitljbit0 : boolean; 




20024:0 


2 




20025:0 


2 


end; 




20026:5 








20027:0 


2 


var 




20023:0 


2 


sysflag [ hex('fffed2') ] ; sysflag def; 




20029:0 


2 


crt„reg [ hex ( ' 51 f f fe ' ) ] ; crt_reg_def; 




20030:3 








20031:C 


2 


begin 




20032:C 


2 


if sysflag. biq graph then 

begin < coulH be 9836fl or 9836C or Marbox ) 

if sysflag. crt config then { might be 9856C or Marbox > 




20033:C 


3 




20034 :C 


3 




20033 :C 


4 


bee 


in 




20038 :C 


4 




CRT reg bits 12 (topi) and 11 (top2) are defined ) 
as follows: 




20037:C 


4 






20033 :C 


4 




00 - Monochrome 




20033 :C 


4 




01 - 4 planes starting at $520000 > 
1 pi>;el / byte; 4 bits / pixel 




20040 :C 


4 






: 004 1:0 


4 




10-3 planes starting at $528000 




20042:0 


4 




8 pixel / byte (moonunit like) 




20043 :C 


4 




11-8 planes starting at $520000 




20044 :C 


4 


{ 


1 pixel / byte; 8 bits / pixel 




20045:3 








20046:C 


4 


with crt reg do 




20047:C 


5 


if [not topi) and [top2) then 




20043:C 


6 


return machine type := m9836c < 983SC > 




2004 3 : C 


6 


else "■ 




2O0S5:C 


6 


if (not topi) and (not top2) then 

return machine type := m9y36a { Marbox > 




20051 :C 


7 




20052:0 


7 


else 




2005J:C 


7 


return machine type := munknown; < unknown ) 




200S4:C 


4 


end 




20053:0 


4 


else 




20053 :C 


4 


begin 




2005 ;:C 


4 


return machine type := m9836a; < 9836fl > 




2005i:C 


4 


end; 




20053:0 


2 


end 




20060 :C 


3 


else 




20061:0 


3 


if sysflag . alphaSO then 




20063:0 


4 


begin 




2006!;C 


4 


return machine type := m9826a; { 9826P } 




20064:0 


4 


end 




2006S:C 


4 


else 




2006i>:C 


4 


begin 




2006 .':C 


4 


return machine type := m9816a; { 9816fi ) 




2006:1:0 


4 


end; 




2006) :C 


2 


end ; 




20070:3 








2007: :C 


1 


end 




Nc er ' rs . No 


y/.3 rn 


ingj . 
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DGLVARS 



Description 

DGL_VARS contains most of the graphics hbrary global variables and DGL types. 



Requirements 

DGL.TYPES and GLE_TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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:D 

: :0 

:D 







{ Pd5cal work ::tation graphics library > 




( nodule = DGL VHRS > 




;.:D 





( Programer = BJS > 




>.:D 





( Date = S/1/82 > 




■:0 





{ > 




i-:0 





( Purpose; To hold graphics library global variables > 







{ Rev history > 
{ 5-13-82 BJS - Made changes to add hp9316 support > 




1 :D 







u:;0 





{ 5-24-82 BJS - Made changes to support inq of world cp values > 




1 !:D 





< 7-01-82 BJS - nade changes to support 8 color HP 9838C > 




M;D 





{ 8-25-82 BJS - Major mods for addition of GLE ) 




ll>;S 
r':S 





{ 2-17-84 BOS - Changed gcb vars to global for Pascal 3.0 > 






( (c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 




m:S 






l'):S 




reprocjuct ion of this program except for archival 




2il;S 




purposes is prohibited without the prior 




21 :S 




written consent of Hewlett-Packard Company. 




2.^:5 








2 l;S 








24 ;S 
2';:S 
2ii:S 




RESTRICTED RIGHTS LEGEND 






Use, duplication, or disclosure by the Government 




2V:S 




is subject to restrictions as set forth in 




2H:S 




paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




2!):S 






3(1:5 




DBR 7-104. 9(a). 




31 :S 








3;:;S 




HEULETT-pfiCKI^RD COMPANY 




3J:D 





Fort Collins, Colorado > 




34 :S 








3S:0 





SmodcalS 




3G:0 





tsearch 'TYPES' 

'GLE LIB'S 




3,':0 







37:0 
3»:S 
3!):S 





Sinclude 'OPTICI^S'S 






< This include file specifies range checking, debug and other compiler 




40:0 





options for the graphics library } 




41 :S 








4.::0 





Sdebug OFF$ 




4:1:0 





Srange OFF$ 




44:0 





Icopyright 'COPYRIGHT 1984 BY HEULETT-PflCKRRD COMPPNY'J 




4S:D 





$FLOnT_HDU TEST$ 




41, :S 








4':S 








4il:S 








4;):S 








5(1:0 
SI :S 
S:i;D 





Sinclude 'OPTIONS'S 







module DGL_Vf)RS; 




S;i:S 








54:0 


1 


import DGL_TYPES,GLE_TYPES; 




5',i:S 








SK;0 


1 


export 




5 ■:S 








100(1:0 


1 


Slinenum 1000$ 




1001 :S 
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100":D 




const 




1C0H:D 




graphics rev = '3.0'; < revision number ) 




1004:0 




default_color_table_size = 32; 




100'.:D 




default poly table size = 16; 




100i.:D 




poly ta&le size = T6; 




100':S 








100H:S 








lOOlcD 




type 




101(1:0 




bounds = record 




1011 :0 




xmin 


real; 




10l;':D 




xmax 


real; 




101H:0 




ymin 


real; 




1014:0 




ymax 


real; 




10111:0 




end; 




10U,:S 








10r':0 




vir_bound5 = record 




101K:0 




xlim : real; 




101u:D 




ylim : real; 




102(1:0 




end; 




1021 :S 








102;' :0 




type 




1023:0 




c def = packed record 




1024:0 




red : real; 




102=1:0 




green : real; 

blue : real; { 24 bytes each ) 




102f.;0 






1027:0 




end; 




102«:S 








102H:0 




color table def = array [0..31] of c_def; 
color_table_ptr_def = ^color_t able_def ; 




1030:0 






1031 :S 








103:':D 




poly entry def = packed record 




10311:0 




density : real; 




1034 :D 




orient : real; 




103;,:0 




edge : boolean; ( 18 bytes each > 




1036:0 




end; 




1037 :S 








103(1:0 




poly table def = array tl..poly table size] of poly entry_def; 
poly table ptr def = "poly table def; 




103<J:D 






104O:S 




~ 




1041 :S 




< a large number of system variables are alocated in dynamic memory 




104;- :S 




to conserve the amount of global space used. These variables 




1047:0 




are all part of the GCB (graphics control block) > 




1044 :S 








104ti:D 




graphics cent rol_blockl = 




104f. :0 




record 




1047:0 




aspect_ratio 


real; { current aspect ratio ) 




104fi:S 










1040:0 




log_a5pect 


real; ( aspect ratio of the logical display limits > 




105(i:S 










1051 :0 




l09_disp_lim 


bounds; ( logical display limits > 




1052' :S 










10S3:0 




max disp lim 


bounds; ( maximum display limits > 




1054 :S 










lOSf ;0 




def_di5p_lim 


bounds; ( default display limits > 




1056:3 










1057:0 




log_loc_lim 


bounds; ( logical locator limits > 




lOSf :S 










105f':D 




max_loc_lim 


bounds; < maximum locator limits ) 




106C :S 
1061 :0 




def_loc_lim 


bounds; { default locator limits > 
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1062 :S 

1063:D 

1064:S 

106S:D 

1066.'S 

1067 :D 

1068:S 

1069:D 

1070:3 

1071:D 

1072:S 

1073:0 

1074:S 

107S:D 

1076:S 

1077:0 

1078:S 

1079: 

1080: 

1081: 

1082: 

1083: 

1084: 

108S: 

10 

1087 :D 

1088 :S 

1089 :D 

1090 :D 

1091 :D 

1092 :D 

1093 :D 

1094:0 

109S:D 

1096:0 

1097:0 

1098:0 

1099: 

1100: 

1101: 

1102: 

1103: 

1104: 

1105: 

1106: 

1107: 

1103: 

1109:0 

1110:S 

1111:0 

1112:0 

1113:S 

1114:0 

1115:S 

1116:0 

1117:S 

1118:0 

1119:S 

1120:0 

1121:0 



window_lim 
viewport _lim 
cur_di5p_lim 
cur_vi r_lim 
dgl_char_width 



bounds ; 
bounds : 
bounds : 
vir_bound5; 
; real; 



dgl_char_height : real; 
char_rot_h : real; 



char,_rot_u 

di5P._jU5t 

dxunits 
dyunits 



real; 
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current window ) 

current viewport ) 

current display coordinate limits ) 

current virtual limits > 

current character width (world) ) 

current character height (world) ) 

char rot cos vector ) 

char rot sin vector ) 



(centered, lowerleft ) ; { display justification > 



: real; 
: real; 

numberdgl linestyles : gshortint; 

number^marFers ; gshortint; 

number_polygor_styles : gshortint; 

color_tabIe_5ize : gshortint; 

dgl_current_color 
dgl_current_line5tyle 
dgllcurrent_linewidth 
dgl_current_tirmiing_mode 
dgl_current_poly90n_color 
dgl_current_poly9on2style 
dgl~current_po2ygon_line5t yle 
dgl_current_polygon_angle 
dgl_current_polygon_densit y 
dgl_current_poly9on_edge 
d9l~cur rent_polygon_crosshatch 
dgl_cur rent_coIor_model 

maximum_polygon_vertices : g: 

ret roact ive_polygon_5upport 
ret roact ive_color_support 

clipping_5upport 

disp dev_adr : integer; 
di5p,_file_name : gstring255; 



tt of units in the logical display coord, 
system. 



gshort 

gshort 

gshort 

gshort 

gshort 

gshort 

gshort iht ; 

real; 

real; 

boolean; 

boolean; 

gshort int ; 



boolean; 
boolean; 



boolean ; 



loc_dev_adr : integer; 
disp_.eq_loc : boolean; 
poiy_table_pt r : poly_t able_pt r_def ; 
color_table_pt r : color_table_pt r_def 



( display device address > 

( name of device file, knull if 

device address is used ) 

< locator device address > 



< true if loc and disp are same device > 



marker_size_x 
marker|l5ize_y 



integer ; 
integer ; 



< marker size in device units > 
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1122:S 

1123:0 

1124:0 

1125:0 

1126:" 

1127: 

1128: 

1129: 

1130: 

1131; 

1132: 

1133: 

1134: 

1135:0 

1136:0 

1137:0 

1138: 

1139: 

1140: 

1141: 

1142: 

1143: 

1144: 

1145:S 

1146:0 

1147:' 

1148: 

1149: 

IISO: 

1151: 

1152; 

11S3: 

1154: 

1155; 



:D 
:S 
:0 
:S 
:S 
;D 
:S 
:D 
;S 
1156:D 



1157 

1158 

11S9 

1160 

1161 

1162 

1163 

1164 

1165:5 

1168:0 

1167:0 

1168:0 

1169:5 

1170:D 



1171; 
1172; 
1173: 

1174: 

1175: 

1176: 

1177: 

1178:D 

1179:D 

1180:D 

1181:5 



proc_output_e5c : 

proc_input_esc : 

proc_linestyle : 
proc_color : 
proc„color_table 



procedure ( opc,isize( rsize : integer; 

anyvar ilist : gant list; 

anyvar rlist : greaT^list; 

var error : integer) ; 

procedure ( ope , isize, rsize : integer; 

anyvar ilist : gint list; 

anyvar rlist : greaT_list; 

var error : integer); 

procedure ( index : integer ); 

procedure [ index : integer ); 

: procedure ( index : integer 
dgl_b«ckground_index : integer; 
proc__await_locator : procedure ( var echo 



Pl,p2,p3 : real 



■".y 



intege r 
real ); 



var button : integer; 



proc_sample_locator : procedure ( echo : integer; var x,y : real ); 

dgl_polygon color_current : boolean; { true if polygon color set in gle > 
end; 



const 

ei9ht_diget_epsilon 



0.00000001; 



< a number which will change the 
value of a 8 diget number when 
added to it 



< Initialization constants follow 

init_color = 1; 
init_lihest yle = 1; 
init lihewidth = 1; 
init~ch3r_width = 0.07; 
init_char~height = 0.1; 
init_char3width_factor = 0.035; 
init_char_height_f actor = 0.05; 
init char rot_w = 1.0; 
init~char~rot_h = 0.0; 



init_timfning ^mode 
init_cpx = 0; 
init_cpy = ; 



0; 



< This is diff from HP 9000 due to PUS 1.0 compatiblity ) 



indow 


= bounds 


[ jrnin 


1 


1.0, 

i°6, 






y-min 


- 






ymax 


1 


oj; 


iewport 


= bounds 


xmax 




1 


0, 
0, 






ymin 





0. 






ymax 


: 


oj; 
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1182 


D 


1183 


S 


1184 


D 


1185 


D 


1186 


S 


1187 


D 


1188 





1189 


D 


1190 


D 


1191 


S 


1192 


p 


1193 




1194 


b 


1185 





1196 


s 


1197 


s 


1198 


D 


1199 


D 


1200 


S 


1201 





1202 





1203 





1204 





1205 


s 


1206 





1207 


s 


1208 





1209 





1210 


s 


1211 


D 


1212 


S 


1213 





1214 


D 


1215 


S 


1216 


D 


1217 


S 


1218 


D 


1219 


S 


1220 





1221 


S 


1222 


D 


1223 


D 


1224 


D 


1225 





1226 


D 


1227 


D 


1228 


D 


1229 


D 


1230 


D 


1231 


D 


1232 


D 


1233 





1234 





1235 


D 


1236 


S 


1237 


D 


1238 





1239 


S 


1240 


-1 


1241 


-2 
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ini t_35pect = 1.0; 
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ini 1; vi r 1 iir 



v'ir_bound5 [ xlim : 1,0, 
ylim : 1.0]; 



1 ini t_di5play„Iim = bounds [ xmin 

1 xmax 

1 ymin 

1 ymax 

1 im t_loc ator_lim - bounds [ xmin 

1 xmax 

1 ymin 

1 ymax 



0.0, 

8000000.0, 
0.0, 
8000000.0] ; 

0.0, 

8000000.0, 
0.0, 
8000000.0]; 



< definitions^ of some standard colors [used only on raster displays) 
{ that are u=ied in locator echoing 

dominate_tnode = 0; 
nondominate rrode = 1; 
erase^mode = 2; 
compleinent_mode = 3; 



solid^linest yle 



1; 



1 io _error_numbe r = ■■26; 

1 g raphic 5__e rror_numbe r = -27 ; 

1 { definitions of some std device adrs 

1 inlernal_cJi5play = 3; 

1 inlernal__locator = 2; 

1 { definitions of some defauts used for raster linestyle generation 

1 ini tial_pat tern = -1; 

1 { The folloyying const are for user errors 



1 err 


1 err 


1 err 


1 err 


1 err 


1 err 


1 err 


1 err 


1 err 


1 err 



_5ys_int - 1 ; 

dis_int = 2; 
_loc_int - 3; 
_echo_di5_int = 
'aspect -- 6; 

bad_parm5 = 7; 

out_phys = 8; 
.out_wind = 9; 
'disp_eq_loc = 10; 
_out virt = 11; 

no_5isplay hardware 
"out_loc ^ T3; 
'no^ctable = 14; 

neg_points = 18; 



< system not initialized ) 

{ display not initialized } 

( locator not initialized ) 

( echo needs display initialized ) 

{ illegal aspect ratio ) 

( illegal parameters ) 

< parms outside physical disp lim ) 
{ parms outside window lim ) 

{ loc lim given when disp and loc are the same ) 

< parms outside virt lim ) 

12; < missing display hardware ) 
( parms outside loc lim > 
{ device does not support color table > 
{ polygon npts < ) 



{ define system initialization variables 



system_init 
di5p_ini t 



boolean; 
boolean; 



{ is the system init ) 
{ is the display init ) 
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1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
12S5 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1235 
1296 
1297 
1298 
1299 
1300 
1301 



-16 
-20 
-20 
-22 
-24 



-34 

-42 

-42 
-42 
-42 
-42 
-42 
-42 

-50 
-58 

-62 
-66 



-74 
-32 



-106 
-114 



-122 
-130 



-138 
-146 



-147 
-147 
-147 
-147 
-147 
-147 
-147 
-160 



6/ 4/64] DGL_VflRS.TEKT 
loc_init : boolean; 
g raphics_e rror : integer 
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{ is the locator init ) 
{ holds last error number ) 



gcb : "^graphD c5_cont rol_blockl ; < pointer to the dynamic vars > 
( define holders of the current position 



cpy 
cpx 



integer 
integer 



world_in t_cpx 
world_in t_cpy 



gshor t int ; 
gshor t int ; 



{ last irt_move / int_line cp value > 

{ true if last move or line was integer } 
{ last move / line cp value ) 



wor Id _re3l_cpx : real; 
wor ld_real_cpy ; real; 

( define the holders of the locator echo position 

{ Note that the echo is set by two routines (set_echo_po5, 

{ calculate viewing) and both a world cord value and a device cord 

{ value is ITept. This was done since the device dependent value is 

{ needed as a global value during echoing, yet the world cord value 

( is needed as a return value for some 'snap' echoes 



w_loc_echo__x 
w_loc_echo_y 



real; 
real; 



d_loc_echo__x : integer; 
d_loc_echo_y : integer; 



( conversion factor s 



< world units ) 
{ device units } 



xwtod^scale 
ywt od__scale 

xdtow_scale 
ydtow_scale 

xwtod_of f set 
ywtod_of fset 

xdtow_of fset 
ydtow~of fset 

xli od_scale 
yl t od_5cale 

calc_te>< t_xform 



real 
real 



real ; 
real ; 



real ; 
real ; 



real ; 
real ; 



real ; 
real ; 



{ world to display scale ) 
{ display to world scale ) 
{ world to display translation 
{ display to world translation 
( locator to display scale > 
boolean ; 



record 

x_display delta 
X windcw_3'el t a 
X _display_of f set 
y_display delta 
y window_3elta 
y^ display.of f set 

end"; 



{ true if text xform needs to be recalc > 

{ used for int_move / int^line > 
gsho rtint ; 
gsho rtint; 
gsho rtint ; 
gsho rt int ; 
gsho rt int ; 
gsho rtint; 
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1302:D 
1303:0 
1304:S 
130S:D 
1306:B 
1307;D 
1308:D 
1 309 : 
1310:0 
1311:0 
1312:0 
1313;D 
1314:0 
131S:S 
1316:D 
13I7:D 
1318:0 
1319:S 
1320:0 
1321:0 
1322:S 
1323:0 
1324 :S 
1326:0 



1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334:0 

133S:S 

1336:S 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 



1346 :D 



1347: 
1348: 
1349 
13S0 
1351; 
13S2; 



-160 
-160 

-160 
-160 
-160 
-160 
-160 
-160 
-160 
-160 
-160 
-160 

-160 
-161 
-161 

-16:; 

-162 



-186 

-170 



-174 
-178 



-194 
-9S6 
-1686 
■1886 
-2616 
3384 
-3672 
■3672 
■3672 
-3672 
■3672 

■3672 



type 

Ii;_patterns = packed array [0. 

c o n :j t 

paste r_pattern? 
ls_patterns | 
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of gshort int ; 



File name: OGL VRRS «» 



-21846 <$fmfifi) 



short^flag : boolean; 
short_def aults ; boolean; 

{ input info 

cur rent_echo_t ype : integer; 
di5play_echo_mult : integer; 




( true if int_move / int line > 

{ can used fast internaI~routines > 

< true if viewport bounds ) 

{ map to max edges of raster display > 



cursor_size_ 
cursor_size_ 



cursor color 



integer ; 
integer ; 



gle_gi 

gle 

gle. 



cb : graphics_cont rol_block ptr; 

cbi : graphic5_input cont roT_block_pt r ; 

nob_ecno_gcb : graphIc5_cont rol_block_pt r ; 



pace 

cb^space 
cbT_5pace 
nob echo_< 
_ta&le de 
table 3ef 



cb_5pace 

_space 

.space 



gob 

gle_g 

gle 

gle_ 

color 

poly_ 

const 
dno 
dyes 



implement 

end. { of module DGL_VflR ) 



graphics_cont rol_blockl 
graphics _cont rol_block ; 
graphics_input_cont rol_block ; 
graphics cant rol_bIock ; 
color taEle def; 
polyt able_3ef ; 



{ for echo on internal 
crt even if display is 
moorunit > 



No errors. No warnings. 

***** Nonstandard language features enabled 
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DIDRV 



Description 

DI_DRV provides low-level driver support. 



Usage 

DI_DRV is used with the 98625 interface. 



Requirements 

DISCINT and the I/O library kernel (lODECLARATIONS, etc.) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name; 01 DRV •»« 



1 :S 

2 :S 
3:S 
4:S 
5:S 
6:S 
7:S 
8:S 
9:S 

10:S 
II :S 
12:S 
13:S 
14:S 
1B:S 
16:S 
17:S 
18:S 
19:0 
20:S 
21 :S 
22:D 
23:D 
24:0 
25 :D 
26:0 
27:0 



(Cj Copyright Hewlett-Packard Company, 1983. 
nil rights are reserved. Copying or other 
leproduction of this program ej<cept for archival 
ijurposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

L'se, duplication, or disclosure by the Government 
;s subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Conputer Software clause in 
PHR 7-104 .9(a) . 



HEULETT-PPCKHRD COnPflNY 
fort Collins, Colorado 



$nODCHL ONS 

jPfiRTifiL EvflL am 

ISTfiCKCHFCK ONI 
JRBNGE OFF$ 
IDEBUG OFF$ 
lOVFLCHECK OFF$ 
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28 





23 


S 


30 


1) 


31 





:<■/ 


1) 


3:< 


1) 


34 


n 


3b 


u 


:tn 


1) 


37 


n 


3fi 


n 


39 





4(> 


1) 


41 


I) 


4? 





43 


D 


44 


1) 


4h 


n 


46 


n 


47 


I) 


4« 


1) 


4H 


II 


50 


1) 


SI 


n 


Si',' 


1) 


h:t 


n 


54 


n 


SS 


1) 


bB 





h7 


II 


bB 






(** 

(» 
(« 
(« 

(** 

(* 



(« 
(« 
(«• 

























(« 

(« 

(« 

(« 

(« 

(« 

(• 

• 

« 

j« 

(. 

















RELEHSEC VERSION FOR 



3.0 



*#***»:«*** 



library 
rtame 
module (s) 



OISCINT_DRIVERS (98625 Disc Interface) 



lOLIB 

DISCINT_DRIVERS 
di^drv 
discint 



j* author 

[« phone 

!• date 

;* update 

* release 

. * 

;* source 

;• object 

■# 



May 



1982 
i„ , 1933 



IOLIB:DURV.TEXT 
IOLI8:DURV.C0DE 
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*« File name: DI DRV ««» 



69 
60: 
61 
62 
63: 
64; 
65: 



D 
D 
D 
D 
D 
D 
D 
D 
67:0 

68 :D 

69 :D 
70:D 
71:0 
72:0 
73:D 
74 :D 
75:" 
76: 
77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 



:D 
:D 
:D 
:D 
:D 
:D 
:D 
:D 
:D 
:0 
:0 
5:D 

87:D 

88:D 

89:0 

90:D 

91: 

92: 

93: 

94: 

95: 

96: 

97: 



99 
100 
101 



*«***«** 



x%****yt***x»* 



**v*x***iHf**iti**) 



This is the source code for an e>(ternal procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



1 . 
2. 
3. 



KERNEL modules 
driver mod.j.es 
lOLIB modules 



The KERNEL modules consist of the following modules 



iodeclarations 

iocomasm 

general_0 



( contains static r/w space ) 



( initialization & low level 
routires like ioread/iowrite) 
The KERNEL modules also have an executable program segement 
that gets executed at the time it is loaded. This program 
initializes the static read/write memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is net a driver for it. 

The driver modules consist of the actual assembly or PASCAL 
routines that deal with a specific interface card. There is 
also an executable program segment for iach driver module. 
This program searches the select code table in the static r/w 
initialized by the KERNEL general module for all select codes 
that have the right interface car3 ( HPIB drivers will search 
for the 98624 interface ). This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLIB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 



SYSTEM. INITLIB file as object code I not EXPORT text 
export text will reside on the SYSTEn. LIBRARY file, 
of the library will reside on the SYSTEM. LIBRARY . 






)KA!1iH*X****^* 



**t*7\l***** 



The 
he rest 



*****»*#** 
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102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 



JPHGES 

(» 
}• 
(» 

■ 








(» 

(« 

(» 

(» 

(» 

(« 

» 

(« 

» 

(« 

(» 

» 

»« 






*****x**#**« 



»«««»#*********1 



9826 I/O Designers Guide 
68000 Manual 
Pascal alpha site ER3 
Pascal I/O Library ERS 
9826 HPL EIO 8 100 listings 
9826 HPL Misc . I/O Ooc . 
9826 card documentation 
Pascal I/O Library IRS 



( ) 

[ Motorola ) 

( ) 

( ) 

( ) 

( 1 

( Mfg. Specs. ) 

( ) 



tir«»«>l:««»:»«iK«*»4:*«*:K*«X*»*»«»**«:««ili«*:*»«)KX»»>K«»:»«*«)K»««iK »«*«»»;} 
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12 ' 

12 * 
12) 
130 

13; 

13.; 

13 ) 



SPfiGEJ 

PROGRAM discint 



This module has a progrann segment so that there is 
an executable entry point into the module, 
fit INITLIB time this program is executed. > 
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134: 

13S 

136: 

13' 

13«: 

13:>: 

140: 

HI : 

14.; 

143: 

144: 

141-, 

146: 

14:' 

14K: 

149:0 

150:0 

151:0 

152:S 

153:0 

154:S 

1SS:0 

156:0 

157:0 

lSa:0 

1SS):0 

160:0 

161 :0 

18;; :0 

16;) :0 

164:0 

16'. :0 

16(.:D 

16 ':0 

16H:0 

16!):D 

170:0 

IT. :D 

n;;:D 
n;i:S 
174:0 



1 IPfiGEJ 

1 EXTERNfIL nODUlE extdi; 

date 05/03/82 
update 08/10/83 

purpose This module is a declaration of the importation text for 
the external drivers. 

note The assembly language code that is imported needs to be 
called 'extdi'. The routines need to be called 
' extdi_@^^<a<iS(?' - edi^init referenced below would be 
extdi_edi_init . 'edT' refers to external disc interface. 
1 > 

IMPORT $SEfiRCH ' lOLIB :KERNEL . CODE ' $ 
sysglobals , 
iodec Jarat ions ; 



PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 



PROCEDURE ed2_wtc ( temp 



PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 
PROCEDURE ed 



PROCEDURE edi^end ( temp 
END; ( of extdi > 



_init 
isr 

'rdb 
wtb 

_rdw 
wtw 

"rds 



temp 
temp 
temp 
temp 
temp 
temp 
temp 



_tfr 

send 
"ppoll 
'clr 
set 
test 



( temp 

( temp 

( temp 

( temp 

f temp 

( temp 



fiNYPTR 
PISRIB 
fiNVPTR 
flNYPTR 
flNVPTR 
PNYPTR 
PNYPTR 

PINVPTR 

BNYPTR 
PNYPTR 
PNYPTR 
PNYPTR 
flNYPTR 
flNYPTR 

flNYPTR 



VflR 
val 
VflR 
val 



reg 

^il 

bcb 

val 

VflR X 

line 

line 

line 

VflR X 

VflR X 



CHflR) ; 
CHflR); 

.o_wordJ ; 

.o_word) ; 

.o_wo rd : 

.o_word) ; 

,o__word; 
io~word ); 
flN7PTR ) ; 
CHflR ); 
CHHR ); 
io bi t ) ; 
io~bit ); 
io bit ; 
BOiJLEfIN ); 
BOOLEAN ); 
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175 :D 

176 :S 



177: 
178: 
179: 
180: 
181: 
182: 
183: 
184: 
186; 
186: 
187 
188 
189: 
190: 
191; 
192; 
193; 
194; 
195: 
196; 
197; 
198; 
199; 
200; 
201; 
202; 
203; 
204; 
205; 
206; 
207; 
208; 
209; 
210; 
211; 
212; 
213; 
214; 
215; 
216 
217 
218 
219 
220 



221 :C 



222: 
223: 

224 :C 

225 :C 

226 :C 

227 :C 

228 :C 

229 :C 

230 :C 
231:C 
232 :C 
233:C 
234 ;C 



1 $PfiGE$ 

1 MODULE init discint; 
( 
date 05/03/82 
update 08/10/83 vers, number 

purpose This module initial:izes the DISCINT drivers. 

1 ) 

1 IMPORT iodeclaratiohs ; 



1 EKPORT 
1 VBR 
-120 1 cli5cint_driver5 : drv_table_type ; 



-120 1 PROCEDURE io_init discint; 



-120 1 IMPLEMENT 

-120 1 IMPORT sysglobals , 

-120 1 isr , 

-120 1 general , 

-120 1 e«tdi ; 



1 

2 


PROCEDURE 
VflR 


10. 


_init_discint ; 


2 
2 


10 isc 
dummy 




: type isc 
: InTeEER; 


2 
2 


io Ivl 
BEGIR 




: io_byte; 



{ set up the driver tables > 



UITH discint drivers 00 BEGIN 
di5cint_d rivers := dummy_d river;; 



iod_init 

iod_i5r 

iod_rdb 

iod_wtb 

iod_rdw 

iod_vi/tw 

iod_rd5 

iod_wtc 

iod_end 

iod_tfr 

iod_$end 

iod_ppoll 

iod_set 

iod_cl r 

iod test 



END; T of UITH } 



edi__init ; 

edi_isr; 

edi_rdb; 

edi_wtb; 

edi_rdw; 

edi_wtw; 

edi_rd5; 

edi_wtc; 

edi_end; 

edi_tf r; 

edi_send : 

edi_ppoli; 

edi_set; 

edi_cl r; 

edi^test ; 
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236 :S 




236 ;S 




237 :C 


2 


238:S 




239 :C 


2 


240 :C 


3 


241 ;S 




242:0 


4 


243 :C 


5 


244 :S 




245 :C 


5 


246 :S 




247 :C 


S 


248 :C 


6 


249 :S 




250 :C 


6 


251 :C 


6 


252 ;S 




253 ;C 


6 


254:0 


7 


255:0 


7 


256 :C 


7 


2S7:C 


7 


258 :C 


7 


259:S 




260 :C 


6 


2ei:C 


6 


262 :C 


6 


263:C 


6 


264 :C 


6 


285 :C 


6 


266 :C 


6 


267 :S 




268:C 


5 


269:3 




270 :C 


4 


271:S 




272 :S 




273:C 


2 


274 :S 




27S:S 




276:S 




277:C 


2 


278 :S 




279:C 


2 


280 :C 


3 


281:C 


4 


282;C 


5 


233:0 


5 


284 :C 


5 


285:5 




286:S 




287:0 


2 


288:S 




289:0 


1 
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{ set up drivers for the interfaces > 

FOR io isc : = iominisc TO iomaxisc [10 
yiTH isc_table[io_isc] DO BEGIN 

IF card id = hp98625 
THEN ffEGIN 

io_drv_pt r:*flDDR (discint _d divers) ; 

UITH io drv ptr""-, io_tmp ptr^ DO BEGIN 

io,^lvT: = (Tioread_byte(Ta_i5C,3) DIV 16) MOD 4) + 3; 

{ if the card exists then link in an ISR for it ) 
< ??? - what happens if an ISR fires during init > 

IF myisrib.INTREGnDDR <> NIL 
THEN BEGIN 

< remove any existant isr > 
ISRUNLINK(iO Ivi, 

adJr (myisrib) ) ; 
END; ( of IF > 



interrupt level 
pTr to the isrib 



PERMISRLINKfiod isr, 

flNYPTR(lNTEGER(card ptr}*3), 
192, 
192, 
io IvI, 

flDtyR(myi5rib)l : 
END; { of UITH // DO BEGIn > 

END; ( of IF card^id > 

END; ( of FOR io_i5C UITH isc_table [io_i5c] BEGIN > 

< call the actual driver init iali^tat ion > 

{ this is separate from the set jp stuff in case 
there are 2 or more cards connected - and generate 
an isr > 

FOR iD_isc : =iominisc TO iomaxisc DO 
UITH isc table[io isc] DO 
IF card id = hp98^25 
THEN 5EGIN 

CflLL(io drv ptr^.iod init , io tmp ptr); 
END; < of'UITR IF ) * - - 



END; < of io_init_discint ) 
1 END; < of nODULE init^discint > 



isr 

Int reg addr 
int reg mask 
int reg value 
int level 
isrib info 
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jn 6; 4/84] 


)I_DRV.TExr 


2J0:D 


: IPHGEJ 




2)1 :S 






2)2;D 


; inPORT 


init disclnt , 


2 )3:D 




LOaDFR ; 


2M :S 






2)5:S 






2)6:C 


i BEGIN 




2)7:C 


: 10 3nit 


di5o: nt : 


2J8;C 


1 nnRKUSER": 


2J9:C 


j END. { of 


di 5C : nt_initialize > 


3)0:S 






3n;S 
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File nai.ie; DI DRV 



( 367 TM 9/22/82 > 



{ 367 Tn 9/22/82 ) 



I nings. 

^*** Nonstandard language features enabled 



11-346 



DISCHPIB 



Description 

DISCHPIB is the common message-oriented HP-IB protocol interface used by the Amigo and CS80 
mass storage transfer methods. 



Requirements 

lODECLARATIONS, HPIB or DISC_INTF 
Optionally: DMA 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Pjickard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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I:S 
2;S 
3:S 


6/ 4/84] DISCHPIB.TEXT 


26-Dec-84 21 


40:18 Page 1 ««» File name: 


(c) Copyright Hewlett-Packard Company, 1983. 
Pll rights are reserved. Copying or other 


{ * 


4:S 




S:S 


reproduction of this program except for archival 


8:S 


purposes is prohibited without the prior 




7:S 
8:S 


written consent of Hewlett-Packard Company. 




9:S 
10;S 


RESTRICTED RIGHTS LEGEND 




ll;S 






12:S 


Use, duplication, or disclosure by the Governrrtent 


I3:S 


is subject to restrictions as set forth in 




14:S 


paragraph (b) (3) (B) of the Rights in Technical 


15:S 


Data and Computer Software clause in 




16:S 


DRR 7-104 .9(a) . 




n:S 






18:S 


HEULETT-PHCKPRD COnPfiNY 




J9:D Fort Collins, Colorado 


*) 


20:S 






21:S 






22:D Smodcal, debug off, range off, ovflcheck off, 
23:D tsearch 'DRVSSn', ' lOLlB : KERNEL'S 


stackcheck off, iocheck off$ 




24 :S 






2S:S 






26:D program init bkgnd; 




27:S 






28:D 


module bkgnd; 




29:S 






30:D 


import 




31:0 


sysglobals, misc, iodeclarations; 




32:S 






33:D 


export 




34:D 


type 




3S:D 


uep type = {unit entry pointer) 




36:0 


^unitent ry; 




37:0 


bi_type = {background info) 




38:0 


record 




39:0 


lores 


lorsltwd; 


ioresult 


40:0 


set in use 


boolean; 


allocation flag 


41:0 


async 


boolean; 


overlapped transfer flag 


42:0 


feot 


eotproc; 


end of transfer procedure 


43:0 


flbptr 


fibp; 


file information block pt r 


44:0 


read operation 


boolean; 


transfer direction flag 


45:0 


buf fered_tran5fer 


boolean; 


amigo driver flag 


46:0 


xf r_chain_semaphore 


boolean; 


driver semaphore 


47:0 


bx tries 


shortint ; 


number of previous tries 


48:0 


bx strt rcrd 


integer; 


record address 


49:0 


bx bufpt r 


charptr; 


R/U address pointer 


60:0 


bx length 


integer; 


total transfer byte count 


61:0 


bx tfr length 


integer; 


intermediate tfr byte court 


62:0 


bdx_chain_semaphore 


boolean; 


data transfer semaphore 


53:0 


bdx_pre_eoi 


boolean; 


premature eoi flag 


64:0 


bdx_nb 


integer; 


data transfer byte count 


65:0 


bdx proc 


io proc; 


data transfer completion proc 


5S:D 


buf info 


buT info type; 


as defined by the iolibrary 


67:0 


end; 




63:0 


bip type = "bi type; 
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S9:D 

60 :S 

61:0 

62:0 

63:0 

64:0 

65:0 

66:0 

67:0 

68:S 

69:0 

70:S 

71 :0 

72:0 

73:S 

74:0 

75:0 

76:S 

77:0 

73:0 

79:0 

80 :S 

81:S 

82:0 

83:0 

84: 

85: 



:0 
:C 
:C 
:C 
:C 
89:C 



87: 



100 
101 
102 



$page$ 

procedure initialize bkgnd; 

procedure allocate_birgnd_info (uep: uep_type) 

procedure deallocate bkgnd_info uep; Liep_type) 

procedure abort_bkgn(J process uep: uep_type) 

procedure ioresc_bkgn9 uep: uep_type: 

function unit_bu5y uep: uep_type| 

procedure unit_wait (uep: uep_type) 

implement {bkgnd) 

const 

n = 3; {number of bkgnd info sets) 



ior: iorsltwd) 
boolean; 



type 

bia_t ype 



ar ray [0 . . n-1 ] of bi_type; 



bia_ptr: ^bia_type; 
index : shortint ; 



1 procedure initialize bkgnd; 

2 var 
local index: shortint: 

begin {Tnitlalize_bkgnd> 
If bia ptr=nil then 

new (Fia_pt r ) ; 
for local index := to h-1 do 

bia_pt r^[local_index] .set_in_use := false; 
index := 0: 
end; {initialize_bkgnd) 



1 function bip_valid(bip: bip_type); boolean 

2 var 
int ; 



local index: shor 
begin {&ip valid) 
5ip_vali3 := false; 
for local_index := to n-1 do 

if bip=add r (bia_pt r'^[local_index] ) then 
bip_valid := true; 
end; {bip_valid) 
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103:0 
104:S 
10S:D 
106:0 
107:D 
108:C 
109:C 
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File name: DISCHPie 



110: 

lll:C 

112:C 

113:C 

114;C 

115:C 

116:0 

117:0 

118:0 

119;C 

120:C 

121:0 

122:0 

123:S 

124:S 

125:0 

126:0 

127:0 

128:C 

129:0 

130:0 

131:0 

132:0 

133:0 

134:0 

135:0 

136:0 

137:0 

138:0 

139:0 

140:0 

141 :C 

142:0 

143:0 

144:S 

145: 

146: 

147: 

148 

149: 

150: 

151: 

152: 

153: 

1S4: 

155:0 

155:0 

157:0 

158:0 

159:0 

160:0 



1 procedure allocate bkgnd info(uep: 

2 var 

2 bip: bip_tvpe; 

2 begin <allocate_bkgnd_info > 

2 lockup; 

2 repeat 

3 bip := addr (bia_pt r" [index] ) ; 
3 index := index+l; 
3 if index>-n then inde;-, := 0; 

until not bip", 5et_in_use; 
uep" .dvrtemp :- integer (bip) ; 
with bip" do 
begin 



lores :- inoerror; 

5et_in use := true; 
async := false; 

end: (with) 
end; <al locate_bkgnd_info > 



1 procedure deallocate bkgnd info(uep: uep type); 

2 var 

2 saved iore'^ult: integer; 

2 begin {deallocate_bkgnd info) 



If bip_valid(bip_typeXuep" .dvrtemp) ) then 

-s with bip_type [uep" .dyrtemp)" do 

4 begin 

4 :;et :in_use := false; 

4 uep^.dvrtemp := ord(iores); 

4 lockdown; 

4 if async then (call the eot procedure) 

5 begin 

5 saved_ioresult := ioresult; 

5 :iore5ult :- uep" .dvr temp; 

S calKfeot, fibptr); 

5 ioresult := saved_ioresuit ; 

5 end; {if) 

4 end; <with) 

2 end; (deaiIocate_bkgnd_lnfo > 

1 procedure abort bkgnd_proces5( uep : uep_type); 

2 begin {abort _&kgnd process) 

2 if escapecbdeo-To then {prevent any eot procedure call while deallocating) 

3 bip_type [uep" .dvrtemp)". async :- false; 
2 dealIocate__bkgnd info(uep): 

2 if escapecbdeo-TO then escape [escapecode) ; 

2 end; {abort_bk9nd_process) 

1 procedure loresc bkgnd(uep: uep_type; ior: iorsltwd); 

2 begin ^ioresc Ekgnd) 

2 if bip_vali?[blp t ype (uep" .dvrtemp) ) then 

3 bip_type i[ uep". Hvrtemp)". lores := ior; 
2 escape (-10 ) ; 

2 end; {ioresc bkgnd) 



ascal 


[Re 


161 


n 


162 


s 


163 


D 


164 


i: 


165 


c 


166 


c. 


167 


c 


168 


V. 


169 


(; 


170 


i: 


171 


c 


172 


c 


173 


s 


174 


s 


175 


u 


176 


(• 


177 


c 


178 


I- 


179 


s 


180 


s 


181 
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1 function ufut_bu5y(uep: uep_type) ; bcol 

2 bejln ^unit busy) 

2 if bip_vaTid(bip_type (uep"-.dvr temp) 

3 jnit busv := true 
3 else 

3 begin 

3 unit__busy := false; 

3 ioresult := uep'^. dvrtemp; 

3 end; (else) 

2 end; {unit_busy> 



1 procedure unit__wait (uep: uep_type); 

2 begin {ufiit__v;ai t ) " 

2 while unit_busy(uep) do (nothing); 

2 end; (unit_wd3'it ) 



1 end; (bkgnd) 
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lf2:D 
183:D 
184:S 
18S:S 
186:D 
187:S 
188:D 
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189: 

180: 

191: 

IS2: 

193: 

1S4: 

195: 

19 

197:D 

198:0 

199:0 

2C0:0 

2C1:0 

2C2:D 

2C3:0 

204:0 

205 :S 

206 :S 
207:0 
208:0 
209:0 
210: 
211: 
212: 
213: 
214: 
215: 
216: 
217: 
218: 
219: 
220: 
221: 
222: 
223: 
224: 
225 :C 
226:C 
227 :S 



1 $page$ 

1 {copyright 'COPYRIGHT (C) 1983 BY HEULETT-PPCKBRD COMPRNV'S 



1 module discHPIB; 



1 import 

1 sysglobals, iodecl arat ions , drvasm, bfcgnd; 



1 ex\JOtX 


















1 function 


Simon no DMfi 


fuep: 


uep 


type 


boolean; 








1 function 


Simon OnP 


(uep: 


uep 


type 


boolean; 








1 proceduri^ 


HPIBcHeck sc 


{uep: 


uep_ 


type, 










1 procedure 


HPIBwai t__Tor_ppol 


(uep: 


uep_ 


type 










1 procedure 


HPIBshor t_m5ge_out 


£uep: 


uep_ 


type: 


sec: byte; 


bp: charptr; 


nb: 


shortint } 


1 procedure 


HPIBamigo clear 


(uep: 


uep 


type) 










1 procedure 


riPIBshort msge in 


(uep: 


uep 


type; 


sec: byte; 


bp: charptr; 


nb: 


short int ) 


1 function 


HPIBamigo identify 


(uep: 


uep 


type) 


shorTint ; 








1 procedure 


HPIBget amigo iden 


(uep: 


uep 


type; 


var ident : 


shortint ) ; 






1 procedure 


HPISupon ppol~resp 


(uep: 


uep 


type; 


proc: io p 


roc) ; 






1 procedure 


HPIBupon dxfr comp 


(uep: 


uep 


type; 


sec: byte; 


bp: charpt r ; 


nb: 


integer ; 


1 implement {discHPIB) 

















proc: io_proc); 



1 const 

] standard_tc = 50O0; 

1 short_tc = 25 j 
1 SOC = 4; 

1 LHG_b3se = 32; 

rnG_base = 64; 

1 SCG base ^ 



(standard byte timeout value milliseconds) 
(short byte timeout value milliseconds) 
(selective device clear) 
(listen address group base) 
(talk address group base) 
(secondary command group base) 



1 procedure delay._t ime r (mic rosec_value : integer); external; 

1 procedure conf irm_t lmeout_and_re5et_card (uep: uep_type); 

2 begin (confirm t imeojt_and_reset_card) 

2 if (escapeco^eoioescapecode ) or [ ioe_ibc<>uep'^. sc ) then escape (escapecode ) 

2 if ioe_re5 Jltoioe timeout t len ioresc_bkgnd(uep, znodevice); 

2 with isc_t able [uep^.sc] do 

3 call (io_drv_pt r^. iod_init , io_tmp_ptr); 
2 ioresc^bkgnd {uep, ztimeout); 

2 end; <conf irm_timeout_and_reset_card ) 
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228: 

229: 

230: 

231 : 

232: 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

24 0: 

241: 

242: 

243 :S 

244:0 

245 :C 

24S:C 

247:C 

248 ;C 

249:C 

2S0:C 



251 
252 
253 
264 
255 
256 
267 
253 
2S9 
260 
261 
262: 
263; 
264; 
265; 
266; 
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1 function Simon _no_Drlft [uep : uep_type}: boolean; 

2 begin (Simon_no_Onfl) 

2 with isc_table [uep"". sc] do 

3 Simon_no_DMfi := ( ca rd_ad=hp98625 ] and not dm3_here; 
2 end; (Simon_no_DMfl ) 

1 function SirTton__Dnfl (uep; uep_type): boolean; 

2 begin (Simon DHR) 

2 with isc table [uep'^. sc] do 

3 Simon_Dnfi := (card_id=hp98625) and dma_here; 
2 end; (Simon_OMfl) 

1 procedure HPI8check_5c (uep: uep_type); 

2 begin (HPIBcheck 5C) 

2 with isc_t ableXuep'^.sc] do 

3 begin 

3 If card_type<>hpib_card then 

4 io re3c_Dkgnd (uep7 znodevice); 

3 with io_tmp_ptr^ do 

4 while [in_buf pt ronil) or (out_buf ptronil) do (nothing); 
3 end: (with) 

2 end; (HPIBcheck sc ) 



1 procedure HPIBvwait_for ppol[uep; uep_type); 

2 var 

2 pprb: packed array[0..7] of boolean; 

2 begin (HPIBwait_fo r_ppol) 

2 try 

3 with isc_1 able [uep'" . sc] , io_drv__ptr do 

4 repeat 

5 call[iod ppoll, io_tmp_ptr, charpt r (addr (pprb) )") ; 
5 until pprbTuep"^ .ba] ;" 

3 recover 

3 conf irm_timeout_and re5et_card (uep) ; 

2 end; (HPlBwalt_for_ppol7 



(parallel poll response byte) 
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26S,D 


1 


tpageS 




269:S 








270 :D 


1 


procedure addre5s_for_msge rjut(var i:ic te: isc table type; ba, sec: byte; tc: integer); 




271:D 


2 


van 




272:0 


-1 2 


durrany char ; char; 




273:C 


2 


begin {address for msge out} 




274:C 


2 


with isc te, 10 3rv ptf do 




275 :C 


3 


begin 




276 :C 


3 


call(iod send, io tmp pi r , "' ■ ) ; 




277:C 


3 


io tmp ptr^. timeout := tc; 




278:C 


3 


call (iod_send, io_tmp_ptr, ch'{TPG base+io tmp pt r^ . add ressed) ) ; 




279;C 


3 


call(iod send, io tmp ptr, ch'(LfiG base+baY) ; 

if card ld<>hp986?5 tFTen {delay to avoid Chinook bug) 




280:C 


3 




281:C 


4 


delay timer(85 {microseconds}); 
call(io3 send, io tmp ptr, ch-(SCG ba5e»-sec)); 
call(iod ppoll, io tmp ptr, dummy char); {enforce timeout} 
end; {withT 




282 :C 


3 




283:C 
284:C 


3 
3 




285:C 


2 


end; {addre5s..for_msge_out } 




28S:S 








287;D 


1 


procedure HPIBshort msge out(uep: uep type; sec: byte; bp: charptr; nb : shortint); 




288 :D 


2 


var 




289:0 


-4 2 


isc te ptr: -^isc table type; 
begin {HT^IBshort msge out) 




290;C 


2 




291 :C 


2 


try 




292:C 


3 


isc te ptr := addr(isc table [uep" . sc] ) ; 




293:C 


3 


address for msge out(isc te ptr-^, uep'^.ba, sec, standard tc); 




294 :C 


3 


with isc te ptr"^, io drv ptr'" do 




295:C 


4 


begin 




296:C 


4 


while nb>l do 




297:C 


5 


begin 




298:C 


5 


call(iod wtb, io tmp_ptr, bp"); 




299:C 


5 


bp ■.' adHr(bp", iT; 




300:C 


5 


nb := nb-l; 




301:C 


5 


end; {while} 




302:C 


4 


call(iod set, io tmp ptr, ord(eoi line)); 




303:C 


4 


call(iod wtb, io tmp ptr, bp") ; 




304:C 


4 


callflod send, io tmp ptr, '?'); 




30S:C 


4 


end; {withj 




306:C 


3 


recover 




307:C 


3 


confirm timeout and reset cardi'uep); 




308 ;C 


2 


end; {HPIBsFort_msge_out ) 




309 :S 








310:0 


1 


procedure HPIBamigo_clea r (uep: uep type); 




311:0 


2 


var 




312:0 


-4 2 


isc te ptr: "isc table type; 
begin {HPIBamigo clear} 




313:C 


2 




314:C 


2 


try 

isc_te_ptr := addr (isc_t able [uep". sc] ) ; 




31S:C 


3 




316:0 
317:0 


3 
3 


address for msge out(isc te ptr", uep".ba, 16, standard tc); 
with isc te ptr", io drv ptr" do 




318:0 


4 


begin 




319:0 


4 


call[iod set, io tmp ptr, ord(eoi line)); 




320:0 


4 


callfiod wtb, io tmp ptr, chr(O)): {disable parity check) 
callfiod send, io tmp ptr, chr(SOC}); 




321 :0 


4 




322:0 


4 


call(iod se-id, io tmp ptr, '?'); 




323:C 


4 


end; {with} 




324 :C 


3 


recove r 




325:0 


3 


confirm timeout and reset cardluep); 




326:0 


2 


end; {HP[Bami9o_clear ) 
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327:0 


1 


$page$ 




328 :S 








329:0 


1 


procedure .3ddres5_for__msge_ir [ var isc te: isc table type; ba, sec: byte; tc: integer); 




330:D 


2 


var 




331 :0 


-1 2 


dummy_char : char; 




332:0 


2 


begin {address_for msge_in) 




333:0 


2 


with isc te, io 3rv ptr" do 




334:0 


3 


begin 




335:0 


3 


call (iod^send, io_tmp_ptr, ''" ] ; 




336:0 


3 


io tmp pTr". timeout := tc; 




337:0 


3 


caTl(ibd send, io tmp ptr, chrrifiG base+io tmp pt r" .addressed) ) ; 




338:0 


3 


call(iod send, io tmp ptr, chr(TftG base+baT); 

if card Td<>hp986?S tKen {delay to avoid Chinook bug) 




339:0 


3 




340:0 


4 


delay timer(85 {microseconds}]; 




341 :0 


3 


call (io^send, io_tmp_ptr, chr (SCG_base+sec) ) ; 
call(iod ppoll, io tmp ptr, dummy char); {enforce timeout) 
if card_Td<>hp9862^ then {delay to avoid Chinook bug} 
delay timer(85 {microseconds}); 




342 :C 


3 




343:0 


3 




344:0 


4 




345:0 


3 


end; {witH} 




346:0 


2 


end; {address for msge in) 




347:S 








348:S 








349:D 


1 


procedure premature eoi(jep: uep type); 




350:0 


2 


begin {premature eoi) 




351:0 


2 


with isc tableTuep".5c] do 




352:0 
353:0 


3 
2 


call (io_drv_ptr".iod send, io_lmp_ptr. '_' ) ; 
ioresc bkgnd(uep, zbadHardware )7 {^11 'expected" premature eoi's have to be trapped) 




354:0 


2 


end; (premature eoi) 




355:3 








356:S 








357 :D 


1 


procedure HPIBshort_msge_in (uep: uep_,type; sec: byte; bp: charptr; nb: shortint); 




358:0 


2 


var 




359:0 


-4 2 


isc_te__ptr: "isc_table_t ype; 




360:0 


-5 2 


eoi set: boolean; 




361:0 


2 


begin {HPIBshort msge in) 




362:0 


2 


try 

isc_te__ptr := addr ( isc_t able [uep" . sc] ] ; 




363:0 


3 




364:0 


3 


add~ess for msge in[isc te ptr". uep".ba, sec, standard tc); 




365:0 


3 


with isc te ptr", io drv ptr" do 




366:0 


4 


begin 




367:0 


4 


while nb>l do 




368:0 


5 


begin 




369:0 


5 


call (iod_rdb, io_tmp_ptr, bp"); 




370:0 


S 


call(iod end, io tmp ptr, eoi set); 




371:0 


5 


if eoi set then premature eci(uep); 




372:0 


5 


bp := addr(bp", 1) ; 




373:0 


5 


nb := nb-l; 




374:0 


5 


end; {while} 




375:0 


4 


call(iod rdb, io tmp ptr, bp"); 




376:0 


4 


call(iod send, io tmp ptr, ' '); 




377:0 


4 


end; {with! 




378:0 


3 


recover 




379:0 


3 


confirm timeout and reset card(uep); 




380:0 


2 


end; {HPIBsKort_msge_in7 
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3t! :0 
382:5 
3f3:D 
3^4:0 



385: 

386:0 

387:0 

368:0 

389:0 

390:0 

391:0 

392 :C 

393 :C 

394 :C 

395 :C 

396 :C 

397 :C 

398 :C 

399 :C 

400 :C 

401 :C 

402 :C 

403 :C 

404 :C 

405 :C 
408 :C 

407 :C 

408 :S 
409:3 
410:0 
411:C 
412:C 
413:C 
414:S 
41S:S 
416:0 
417:S 
418:5 
419:5 
420:5 
421:0 
422:0 
423:0 
424:C 
42S;C 
426:C 
427: 
428: 
429: 
430: 
431: 
432: 
433: 



1 $page2 



nctaon HPlBaniigo_idenTify (uep: uep_type): shortint; 
var 

isc_te_ptr: "^isc table type; 
ident : <the two TdentiTy bytes) 
record case integer of 
0: (word: shortint); 
1: (upper_char, lower_char: char); 
end; 

set : boolean ; 
(HPIBamigo_identify> 



eoi 

begin 

try 



_e_ptr := addr ( isc_table [uep^. sc] ) ; 
address_fo r_m5ge_in [isc_te_pt r^, <"ba"> 31, 
with i5C_te_ptr^, io_drv_ptr'^ do 
begin 

call (iod_rdb, io_tmp_ptr, ident . upper_char ) ; 
caHtiod_end, io_tmp_ptr, eoi_set); 
if eoi_5et then premature_eoi (uep) ; 
call (iod_rdb, io_tmpptr, ident . lower_char ) ; 
call(iod send, io_tmp_ptr, chr (TfiG_ba5e + io_tmp_pt r'' 
end; {withy 
recover 

confirm_timeout_and„reset_card (iiep) ; 
HPlBamigo_identif y := ident .word; 
end; <HPIBamigo_ident if y) 



<"5ec"> uep^.ba, short_tc): 



addressed) ) ; 



1 procedure HPIBget_amigo ident {uep: uep_type; 

2 begin (HPIBget aniigo_Tdent ) 

2 ident :- HPlSamigo identify (uep) ; 

2 end; (HPIBget_amigo_rdent > 



shortint ) ; 



1 procedure HPIBupon_ppol_resp( uep: uep_type; proc: io_proc); 



( 



NOTE: when SIMON drivers become available, this routine needs to 
be modified to utilize the "interrupt on parallel poll response" 
capability of SinON. However, until then, this will have to do. 

(parallel poll response byte) 



> 

pprb: packed arrdy[0..7] of boolean 
begin (HPIBupon_ppoi_resp) 
try 
with isc _t able [uep'". sc] , io_drv_ptr^ do 
repeat'" 

call(iod ppoll, io_tmp_ptr, charpt r (addr (pprb) )^) 
until pprbTuep^.ba] ; 
recover 

confirm_timeout_and_reset_card (uep) ; 
call (proc, uep) ; 
end; <HPIBupon_ppol_resp) 



Pascal [Rev 


3. CM 


434:0 


1 


435:S 




436:0 


1 


437:0 


1 


438:0 


1 


439:3 




440:0 


1 


441:0 


2 


442:0 


-4 2 


443:0 


-5 2 


444 :C 


2 


445:: 


2 


446:C 


3 


447 ;C 


3 


448;C 


4 


449:3 




46a:C 


4 


451 :C 


5 


452:C 


5 


463:C 


5 


464 :C 


5 


455 :C 


5 


456 :C 


5 


467:C 


5 


453:C 


5 


459 :C 


5 


460:5 




461 :C 


4 


462:C 


4 


463:S 




464 :C 


4 


465:C 


5 


466 :C 


5 


467:C 


S 


468;C 


5 


469 :C 


5 


470 :C 


6 


471:C 


6 


472:C 


5 


473:C 


5 


474:C 


5 


473:C 


5 


476:C 


5 


477 :C 


5 


473 :C 


5 


473:C 


5 


480:0 


5 


451:C 
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482:C 


5 


48J:C 


5 


484 : C 


5 


485:5 




48S;C 


4 


487:C 


4 


48^:3 




489:C 


4 


490 :C 


3 


491 :C 


3 


49,? :C 
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procedure ente r_bdx_chain (uep : uep_t ype) ; forward; 
procedure initiate_transfer(uep: uep_type) ; forward ; 
procedure upon._t ran5fer_complete (uep: anyptr); forward; 

procedure HPIBupon_dx:f r_comp(uep: uep_type; sec: byte; bp: charptr; nb: integer; 
var 

ibc te_pt r : ^isc_table_t ype ; 

t dir: dir_of_tfr; 
begin {HPIBupon dxfr_comp> 

try 

isc te ptr := addr{ isc_table [uep^. sc] ) ; 
witK bip_t ype ( uep" . dv rtemp)" do 
begin 

if read_operat ion then 
begin 

addre5s__for_msge_in {i5C_te_pt r'^, uep'^.ba, sec , 6tandard_tc ) ; 

t_dir := to_memory; 
end (then) ~ 
else 
begin 

addre5 5_for_msge_out (i3c_te_pt r", uep'^.ba, sec, standard^tc) ; 

t _d i r : = f r om_m e mo r y ; 
end; {else) 

bdjc_nb := nb; 
bdj<~proc := proc; 

with i5c_te_pt r*^, buf_info do 
begin 

drv tmp ptr := io_tmp_ptr; 

actlve_isc := no isc; 

{ act_tfr is set by the d?iver > 
if dma^here 
then usr_tf r 
else usr__tf r 
b w mode " 



proc : io__p!-oc ) ; 



{ end mode is setup in initiate_t ransfe 
di rectlon := t dir ; 

Te rm_char := -T; 

term_count is setup in initiate_t ransfer ) 
anypt r (bp) ; 



overlap FASTEST -(DnPl, or BURST FHS if both channels are 

serial FHS; {unlike BURST FHS, won't lock out inten 

false; 

initiate_t ransfer ) 



busy> 
upts) 



buf_pt r 
buf^size 
buf empty 
buf fill 

eot~proc. real_proc 
eot"pa rm 
dma priority 
end; "{"with) 



nb; 

anypt r (bp) ; 

anypt r (bp) ; 

ijpon_t ran5fer_complete; 

uep; 

card_id=hp98625; 



bdx__chain_semaphore := false; 
enter_bdx_chain (uep) ; 

end; (with) 
recove r 

corf irm_t imeout_and_re5et_card (uep) ; 
end ; {HPIBupon_dxf r_comp) 
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493:0 1 $paqe$ 

494;S 

495:D 1 procedure enter bdK_chain (uep: uep type); 

496 :C 2 b-jgin {eriter_Edx_chain} 

497:C 2 with bip_t ype (uep^.dv rtemp)" do 

498:C 3 ifnot te5t_and_toggle (bdx_chair_5emaphore) then 

499:C 4 repeat 

500:C 5 init iate_t ransfer ( uep) ; 

501 :C S until te5t_and_toggie (bd;<_cha : n_5emaphore] ; 

502:C 2 end; {enter bdx chain) 

S03:S 

504:D 1 procedure initiate t ransfer ( uep: uep type); 

505:0 2 var 

506 :D -4 2 maximum term_count : integer ; 

S07:C 2 begin {initiate transfer) 

508:C 2 with bip_t ypeTuep^.dv rtemp}^, i5C_table [uep"^ . sc] , buf_info do 

S09:C 3 begin 

510;C 3 If (Lisr_tfr=seri3l_FHS} or (card^id=hp986251 

511 :C 4 then maximum_te rm_count := maxTnt f"no" limitation) 

512:C 4 else maximum^te rm_count := 65536; tDMfl hardware/9914 driver limitation) 

513 :C 3 if bdx__nb<=maxTmum_terrri_count 

514:C 4 then 'term_count ;= bdx^nb 

515;C 4 else term count :- maxTmum_term_coLint ; 

516:C 3 bdx_nb ;= b3x nb-lerm_coun t ; 

517:C 3 end mode := (Firection^to^memory) or (bdx_nb=0); 

618:C 3 calT[io drv_ptr''. iod_t f r , io_tmp_pt r, addr (buf_info) ) ; 

519:C 3 end; {witH> 

520:C 2 end; {initiate transfer) 

521:S 

522 :D 1 procedure upon transfer complete (uep: anyptr); 

523:0 2 var 

524:0 -1 2 unaddreS5ing_char : char; 

525:C 2 begin <upon_t ransfe r__compiete} 

526:C 2 with bip_type(uep t ype (uep)^ .dvrtemp)-^, isc table[uep t ype [ uep)".5C] , io drv ptr'', buf info do 

527:C 3 try 

528 :C 4 if direct ion=to_memory then {check for premat ure t ransfer termination) 

529 :C 5 if bdx_nb=0 

530:C 6 then bdx pre eoi ;= te'-m_count<>0 

531 :C 6 e\i>e calT(io5 end, io tmp ptr, bdx pre eoi) 

532:C 6 else ~ ~ - - - 

533:C 5 bdx pre eoi := faJse; 

534:C 4 if (b3'x_nB'>0) and not bdx__pre_eoi then <re-initaate the transfer) 

535 :C 5 ente r_bdx_chain (uep) 

536:C S else {unaddress the bus and call the specified end-of-t ransfer procedure) 

S37:C 5 begin 

538:C 5 if di rect ion= to_memory 

539:C 6 Then unaddressing_cha r := ' ' ^untalk) 

540:C 6 else Linaddre5sing_char := '?'; {unlisten) 

541:C 5 call( iodise nd, io_tmp_pt r , unaddre5sing_char ) ; 

542:C 5 cail(bdx proc, uep); 

543 :C 5 end; {elsej 

544:C 4 r/icover 

545 :C 4 conf irm_timeout_and_re5et_cara (uep) ; 

546:C 2 end; {upon transfer complete) 

547:S 

S48:C 1 end; (discHPIB) 

S49:S 
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1 SpageS 



S50 


D 


651 


S 


SS2 


n 


6S3 


U 


554 


S 


555 


r, 


556 


r. 


557 


i: 


558 


c 


559 


s 


SSO 


s 


661 


s 


Mo errors 



1 import 

1 loader , bkgnd; 

1 begin ^inii_bltqnd} 

1 initaalize_bkgnd; {allocate temp space) 

1 markuser; {make temp space and modules permanent) 

1 end. {init bkgnd) 



No warnings . 

***** Nonstandard language features enabled ***** 
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DMA_DRV 



Description 

DMA_DRV provides low-level driver support, 



Usage 

DMA.DRV is used with the 98620A/B DMA card. 



Requirements 

The I/O library kernel (lODECLARATIONS, etc.) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, DupUcation, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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(* 

[c] Copyright Hewlett-Packard Company, 1983. 
fUl rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
LS subject to restrictions as set forth in 
paragraph (b) (3) f B ) of the Rights in Technical 
[Jata and Computer Software clause in 
DflR 7-104. 9(a) . 

HEULETT-PfiCKflRD COtlPRNV 
Tort Collins, Colorado *) 

snODCflL 0N$ 

JPHRTIHL EVRL ONS 

SSTPCKCHKK ONS 

SRflNGE OFF$ 

SDEBUG OFFS 

SOVFLCHECK OFFS 



%%%%%%%%%%%% 


******** 


****** 


VERSION 


3.0 




************ 


******** 


****** 


Onfi DRIVERS 
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28:D SPflGEJ 

29:S 

30:D I ********************** 

31:0 ,' « 

32:0 !« NOT RELEASED 

33:0 i» 

34-0 I ********««***«*«***«** 

35:0 (» 

36:0 I » 

37:0 :'• lOLIB 

38:0 i* 

39:0 !.* 

41:0 I » 

42:0 i« 

43:0 ;« library - lOLIB 

44:0 .« name - DnB_DRIVERS 

45:0 !* module(s) - irit_dma 

46:0 i» 

47:0 i* author 

48:0 I* phone 

49:0 i« 

50:0 « date - June 1 , 1981 

SI:D (* update - Rug 10 , 1983 - rev. number 

52:0 i* release - ?????????????? 

53:0 i« 

64:0 f« source - lOLIB :OMB_DRV. TEXT 

56:0 (« object - lOLIB :OMfi_DRV.CODE 

56:0 I* 

57;[) \%%%%*Tt%%1(%%*%%%%%%«*%*%%%%%%*%%%1t*.%*%*%il.%%%*X%X%*.*il.*%%*%%%*%%*%**1f***%* 
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IPftGES 









c 










BUG FIX HISTORy 



BUG # BY / ON 



09/22/82 



26-Dec-84 21:27:34 Page 3 «»» File name: DnS_DRV 

- after release 1 .0 ») 

*) 
«) 

LOG DESCRIPTION ») 



dm,3_anitialize fllloy- eKecute of driver *1 
and have it install *) 

itself in the system. *) 



MdK* Y^)K***:*X 



«»«««»»*»«x»««»»;««»x 
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73:0 
74:0 
75:0 
76:0 



77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86; 
87: 
88: 
89: 



:D 
:D 
;0 
:D 
:0 
:D 
:0 
;D 
;D 
;D 
:0 
:D 
:D 
:0 
91:0 
92:0 
93:0 
94:0 
95:0 
96:0 
97:0 
98:0 
99: 
100; 
101 ; 
102; 
103; 
104: 
105: 
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111:0 
112:0 
113:0 
114:0 
115:0 



SPBGES 

(***** 
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***Xit:**l^)t:ili***lK:K't:*******^X 



x*iii*»*m**M 



«IK»l««»»)tt*««««»» 



This iE. the source code f o ^ an external procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



1. 
2. 
3. 



KERNEL modules 
driver modules 
lOLIB modules 



The KERNEL modules consist of the following modules - 



iodeclar at ions 
iocomasm 
gene ral_ 



contains static r/w space 



( initialization 6 low level 
routines like ioread/iowri 



te) 



The KERNEL modules also have an executable program segement 
that gets executed at the time it is loaded. This program 
initializes the static read/v-rite memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is not a driver for it. 

The driver modules consist of the actual assembly or PPSCPL 
routines that deal with a specific interface card. There is 
also an executable program segment for each driver module. 
This program searches the select code table in the static r/w 
initialized by the KERNEL general module for all select codes 
that have the right interface car3 ( HPIB drivers will search 
for the 98624 interface ). This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLIB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 

SYSTEM, INITLIB file as object code ( not EXPORT text 1. The 

export text will reside on t^e SYSTEM. LIBRfiRY file. The rest 
of the library will reside or the S'-STEM. LIBRBRY. 



»Xif***»*X 



i^*»X*lt**' 



«lll»y«]|l»»«*X*««»»««*»«4:JK»««« 



(*«#****«« 
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*********** 



File name: Of1fl_DRV 






********* 



982Ei I/O Designers Guide 
68000 nanual 
Pascal alpha site ERS 
Pascal I/O Library ERS 
9826 HPL EiO 8 lOD listings 
9826 HPL nisc. I/O Doc. 
9826 card documentation 
Pascal I/O Library ISR 



Motorola ) 



Mfg. Specs. 
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141. D 
142 :D 



E PRGE S 

PROGRRd (Ima_in itialize ( INPUT , OUTPUT ); 
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143 
144 
145 
146 
147 
148 
149 
ISO 



*****»**»* * 



DMA DRIVERS 



**«***;**«*!*** 



**#*»**#*** 
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151 :D 

1S2:D 

153:S 

154:S 

15S:S 

166:S 

157 

168 

159 

160 

161 

162 

163 

164:0 

165:S 

166:0 

167:S 

168:S 

169:0 

170:0 

171:0 

172:S 

173 " 

174 

175 

17S 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200:0 

201 :C 

202 

203 

204 

205 

206 

20 

2CS 

2C 

21 



1 $PRGE$ 

1 nODULE init._dma 



date 09/23/81 
update 10/04/82 

purpose This module is a series of OrlR procedures to be linked into 
the system isr poll routines. The module also contains the 
initialization code. 
> 

IMPORT SSEflRCH ■ lOLIB :KERNEL .CODE '$ 

sysglobals, iodeclarat ions ; 



PROCEDURE dma_isr_0 ( an_isrib : PISRIB 
PROCEDURE dma isr^l ( an_isrib : PISRIB 
PROCEDURE io_Tnit_dma; 



IHPORT isr, 

general 



1 PROCEDURE dma i5r_0 ( an^isrib : PISRIB ); 

2 VRR io work word : io_word: 
2 BEGIN 

2 IF dma ch 0. dummy pr = NIL 

3 THEN'BECIN 

3 < no procedure for dma isr - cisable channel > 

3 io work word:=ioread word[3,0); 

3 END 

3 ELSE BEGIN 

3 < call the procedure with a temp pt r ) 

3 CflLL(dma ch O.real proc.isc table[dma isc 0].io tmp ptr) 

3 END; ( of IF T 

2 END; ( of dma..isr_0 ) 



1 PROCEDURE dma._isr_l ( an_i5rib : PISRIB ); 

2 VRR io work word : io word; 
2 BEGIN 

2 IF dma^ch 1 ,dummy_pr = NIL 

3 THEN BE5IN 

3 { no procedure for dma isr - cisable channel ) 

3 io work word:=ioread word[5,8); 

3 END " 

3 ELSE BEGIN 

3 { c^ll the procedure with a temp pt r ) 

3 -- . . . ... 



END 



CRLL(dma ch l.real proc.isc t6ble[dma isc l].io tmp ptr); 
ID; I of rp T ' ' - ~ - - 
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END; ( of dma_isr_l ) 

PROCEDURE Io_init_dnia; 
VflR dummy : INTEGER; 

BEGIN 

io_revid := io_revid + ' D3.0'; { DMR revision added 2/5/82 Th ) 

{ initialize the DNfl variables > 



21i :C 


2 


2l: :S 




21 :S 




21'^ :D 
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21! :D 


-4 2 


2U :C 


2 


21V:S 




21! :C 




21!':S 
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2 


22: :S 




22; ; C 


2 
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2 


22; :C 
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2 


227 :C 


2 


22B:S 




229 :S 




230 :S 




23i :C 


2 


23; :S 




23,: :C 


2 


234:0 


3 


23; :C 


3 


23b :C 


3 


237 :C 


3 


23?: C 


3 


23<. :C 


3 


240: C 


4 


24 i: C 


4 


24; :C 


4 


24;: :C 


4 


24'- : C 


4 


24f :C 


4 


241 :C 


4 


24V :C 


3 


24f':S 




24f.:S 




25( :C 


2 


251 :S 




25; :C 


2 


250 :C 


3 


254 :C 


3 


256 :S 




25f :C 


2 


257:: 


3 


25fi:C 


3 


25Si;S 




26(!:S 




261 :C 


2 


26; :S 




265 : C 


2 


264 :C 


3 


265 : C 


4 


26e ; C 


4 


267 : C 


4 


26f : C 


4 


26a : C 


4 


27C : C 


4 



dma_ch_0 ,dumniy_pr 
dma_ch_0 .dummy^sl 
dma_isc 
dma_c h_r . umm y_p r 
dma_ch_l .dummy_sl 
dma isc 1 



= NIL; 

• NIL; 

= no isc; 

« NIT; 

= NIL; 

= no_isc; 



{ see if dma really exists ) 

TRY 

dummy : =ioread word(3,0); 
dma_here:=TRUF; 

isc table[3] .card_ld:=hp98620; 
RECOVER 
BEGIN 

IF escapecode=-12 
THEN BEGIN 

dma_here := FALSE; 
END 
ELSE BEGIN 

{ some other problem } 
EECBPE(ESCnPECODE); 
END; < of IF ) 
END; < of RECOVER BEGIN ) 

{ if the card has isrs then unlink the ISR ) 

IF dma isribO . INTREGfiDDR <> NIL THEN 

IS1?UNLINK(3 < interrupt level > 

flODR(dma_i5ribO) ) ; { pt r to the isrib ) 

IF dma isribl . INTREGFIDDR <> NIL THEN 

ISRUNLINK(3, < interrupt level > 

flDDR(dma_isribl } ) ; { ptr to the isrib > 

{ if the card exists then link In an ISR for it ) 

IF dma here 

THEN UITH i5C_tabIe[3] DO BEGIN 

( dma if installed is always int. level 3 > 

PERnlSRLINKfdma isr 0. ( channel isr 

flNVPTR(TNTESER(card_pt r)t7), ( channel addr 

2, < int reg mask 

2, { int reg value 

3, ( int level 



Pascal 


CRev 


3. on 


271 


C 


4 


27; 


C 


4 


277 


C 


4 


274 


C 


4 


27: 


C 


4 


271. 


c 


4 


277 


c 


4 


27 1 


c 


4 


279 


s 




28r 


c 


2 


281 


s 




28; 


c 


1 
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flODR(dma isribO)); ( isrib info 

PERnlSRLINKIdma Isr 1. { channel 1 isr 

nNVPTR(TNTE5ER(card_ptrJ+15) , < channel 1 addr 

2, f int reg mask 

Z, { int reg value 

3 < int level 

RDDR (dma_isribl ) ) ; { isrib 1 info 
END; ( of IF > 

END; < of io_init_dma ) 

iiND: ( of MODULE init_dm8 > 



11-360 



Pascal [Rev 3. CM 6/ 4/84] DI1fi_DRV. TEXT 26-[ltrc-84 21:27:34 Page 11 *»« File name: DriR_DRV 



( 367 Th 9/22/82 ) 



283:D 


1 SPfiGEI 


284 ;S 




285 :D 


1 IhPORT init dma , 


286:0 


1 LOHDER ; 


287:5 




288:S 




289:C 


1 BEGIN 


290:C 


1 io init dma; 


291:C 


1 mRKUSEF; 


292 ;C 


1 END. { of dma_initialize > 



< 367 TM 9/22/82 > 



No errors. No warnings, 

***»« Nonstandard language features enabled ***** 
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EDRIVER 



Description 

EDRIVER contains a utility library for driving the EPROM programming card. 



Requirements 

SYSGLOBALS, lODECLARATIONS, and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-PaLckard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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27: 

23: 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36:D 

37:D 

33:D 

39:D 

40:D 

41:S 

42:D 

43:D 

44:S 

45:D 

4S:S 

47:D 

48:D 

49:S 

60:D 

51:D 

62:0 

S3:D 

64:0 

55 :D 

66:D 

67:D 

68:0 

59:0 

60:0 
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[c I Copyright Hewlett-Packard Company, 1984. 
Rll rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
OnR 7-104 .9(a) 



HElJlETT-PfiCKflRD COMPfiNY 
Fort Collins, Colorado 

ISYSPROGI 

IRflNGE OFF$ $DEBUG OFF$ 

MODULE EDRIVER; 

IMPORT SYSGL08fiL3,I0DECLflRFlTIQNS,fiSn: 
EXPORT 
TYPE 

EPINFOREC « RECORD 



») 



BFHST 
EPSTHRT 
EPEND 
END; 



BOOLEAN; 
INTEGER; 
INTEGER; 



cui-iirc = EREfiD,EURITE,EClJRITE,EeLBNK,ECHECK); 

EPERROR = jEN0ERR0R,EN0tPR0G,EN0EPR0M,ECFflIL,EPFniL,EN0T8LPNK,EBHDnRGS) 



EOPTYPE 
EPERROR 

FUNCTION EPROG( 



SCOOE 
OP 

flNYVflR BUFFER 
BUFSIZE 
VHR POSIT 



INTEGER; 
EOPTYPE; 
UINDOU; 
INTEGER; 
INTEGER) :EPERROR; 



FUNCTION EGETINFO( SCODE : INTEGER: 

VflR INFO : EPINFOREC) ;EPERROR; 

FUNCTION EINIT (SCOOE : INTEGER) : EPERROR ; 



FUNCTION EBRflTE (SCODE 
BRHTE 



INTEGER; 
BOOLEBN) :EPERROR; 



IMPLEnENT 
TYPE 

EPOPTYPE = {EPINIT,EPREHO,EFURITE,EPCURITE,EPBLRNK,EPCHECK,EPBRRTe,EPINFO) ; 
STRTREG= PH(:KED RECORD 



B4 
PfiD 
FRST 
HCCS 
ENflB 
BUSY 
END; 



BYTE , 
0..1S- { 
BOOLERN; 
BOOLEBN; 
BOOLEAN; 
BOOLEBN; 



PUT HERE TO tlPKE THE COMPILER HflPPY > 
7,6,5,4 ) 
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61 :D 
62:D 
63:0 
64:0 
85:0 
66:D 
67:0 
63:D 
69:D 
70;D 
71 :0 
72:S 
73:S 
74:0 
75:0 
76:0 
77:0 
73:D 
79:0 
80:D 
81:D 
82:0 
83:0 
D 









S 


D 

D 


D 

S 

C 



85 



90: 

91 : 

92: 

93: 

94: 

65: 

98: 

97: 

93: 

99: 
100: 
101 : 
102: 
103: 
104: 
105: 
106: 
107:C 
103;C 
109:S 
110:0 
111 : 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 



EPTYPE - PACKED RECORD 



EPTR = 
INFOPTR 



BO : BYTE; 

ID : BYTE; 

B2 : BYTE; 

B3 : BYTE: 

CASE BOOLERN OF 

TRUE: (CONTROL:STRTREG); 

FALSE : (STflTUS ;STHTREG) ; 
END: 
'EPTYPE; 
= "EPINFOREC; 



PROCEDURE EPPROG( 



SCOOE 

OP 
ANYVHR BUFFER 

BUFSIZE 
VAR POSIT 
VAR ECOOE 



INTEGER: 

EPOPTYPE; 

LOINDOU; 

INTEGER; 

INTEGER; 

EPERROR); 



LO Ron = HEX('20O00') ; ( 
HI Ron = HEX]'200000' j; { 
STFPSIZE = HEX('20000');( 
TYPE 

TUOBYTES = PACKED ARRAY [0 
BREC » RECORD 

CASE INTEGER OF 
0: (INT:INTEGER) 
1: BPTR "' """ 
2: UPTR 
3: CPTR 
4 ' ' 



128k > 
2048k; > 
128k > 

. .1] OF CHAR; 



END; 



"BYTE), 
^TUOBYTES) 

iulNPTR:(JIN(i6uP) 



VfiR 
CRRO 
PBVTE 
DUMtlY 
DONE 
ENDSCAN 
I 

UBYTES 
INFO 



EPTR; 

BREC; 

INTEGER 

BOOLEAN 

INTEGER 

INTEGER, 

TUOBVTES 

INFOPTR; 



PROCEDURE BfiDIO(ECCODE:EPERROR); 
BEGIN 

ECODE := ECCOOE; ESCBPE(O); 
END; 

PROCEDURE SETUP; 
BEGIN 

UITH INFO" 00 
BEGIN 

IF EPSTHRT = THEN BAD 10 (ENOEPROtI) ; 
ENOSCRN := POSIT * BUFSIZE; 

IF (POSITiEPSTRRT) OR (ENDSCflN>EPEND ) THEN BRDIO (EBADRRGS ) ; 
PBVTE. INT :« POSIT; 
DONE ;= FALSE; 
END; 
END; 
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PROCEDURE GETINFO(flNYVfiR UINFO : EPINFORECl; 
BEGIN 

UINFO := INFO"; 
END; 

BEGIN ( EPPROG ) 
ECODE := ENOERROR; 
TRY 

< VBLIDUTE THE SELECT CODE > 

IF (SC0DE<I0I1INISC) OR (SC0DE>I0nRXI3C) THEN BflOIO (ENCTPROG) ; 

WITH ISC TF1BLE[SC06e] DO 

BEGIN 

CARD ' =■ CARD PTR' 

IF (CBR0=NILT OR'lCflRD TVPE = 0) THEN BfiDIO fENOTPROG) ; 

IF (CfiRD_TYPE=l) RND TCRRD ID=0)) OR 

(CRRD TYPE=9 BND CURD 10=27 ) THEN 
BEGIN 

IF CflRD".ID<>27 THEN BflDIO (ENCTPROG) ; 
END 

ELSE BRDIO(ENOTPROG) ; 
INFO := RDDR(IO TtlP PTR". DRV MISC); 
END; " - 

CASE OP OF 

EPINIT: ( INITIHLIZE THE CONTROL RECORD ) 
BEGIN { VflLIOfiTE THE CRRD 10 ) 
UlTH ISC_TfiaLE[SCODE] , INFO" 00 
BEGIN 

IF (CARD TYPE=1) AND (CRRD 10=0) THEN 
BEGIN { FIX CRRD TYPE AND ID ) 
CRRD_TYPE := 9; CRRO_ID := 27; 
END ; 

UITH CARD" DO 
BEGIN 

ID := 0; ( RESET THE CRRD > 
( INITIRLIZE THE CONTROL RECORD '. 

EiFRST := STATUS. FR3T; ( 3BVE PROGRflnniNG SPEED ) 

EPSTRRT ;=0 ; {flOORESS OF RTTfiCHED EPROM CRRD) 

EPEND :=0 ; (RDDRESS OF LfiST EPROM BYTE + 1> 

( FINDOUT WHICH EPROM CBRD IS BTTBCHED TO THE PROGRRnnER CARD ) 
PBYTE.INT := LO ROM; 
DONE := FALSE; 

CACHE OFF; ( 3.0 BUG FIX -- 3/13/84) 

REPEHT 
TRY 

DUMMY := PBYTE.BPTR'; ( ACCESS THE EPROM SPACE > 
IF STATUS. flCCS THEN 
BEGIN < FOUND THE EPROM CARD > 
DONE := TRUE; 
EPSTRRT ;= PBYTE.INT; 
EPEND := EPSTART + STEPSIZE; 
PBYTE.INT ;= EPEND; 

< CHECK FOR xx64 PARTS OR xxl28 PARTS ) 
IF EPEND<HI ROM THEN < DON'T PASS END OF ROM ) 

BEGIN 

CONTROL. ACCS := FALSE; ( CLEAR THE ACCESS BIT ) 

DUMMY := PBYTE.BPTR"; { ACCESS THE EPROM SPRCE ) 

IF STATUS. ACCS THEN EPEND := EPEND •► STEPSIZE; 
END; 
END 
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ELSE 

PBYTE.INT := PBYTE.INT + STEPSIZE; 
RECOVER { IGNORE BUS ERRORS ) 

IF ESCRPECODEo-12 THEN ESCAPE (ESCAPECODE ) 
ELSE 

PBYTE.INT := PBYTE.INT + STEPSIZE; 
OONE:=DONE OR (PBYTE . INT>=HI ROM); 
UNTIL DONE; 

CACHE ON: { 3,0 BUG FIX 3/13/84 > 

IF EPSTRRT=0 then BRDIO(ENOEPROn}; 
END; 
END; 
END; 

EPREAD: ( MOVE DATA FROM EPROM SPRCE TO BUFFER ) 
IF BUFSIZE>0 THEN 
BEGIN 

SETUP; 

MOVE LEFT (PBYTE.C PTR", BUFFER [0],BUFSIZE); 

POSIT := ENDSCRN; 
END; 

EPURITE.EPCURITE: { MOVE DATA FROM BUFFER TO EPROM ) 
IF BUFSIZE>0 THEN 
BEGIN 
SETUP; 

UITH CRRD", INFO" DO 
BEGIN 
TRY 

CONTROL. FAST := BFRST; { SET BURN SPEED ) 

CONTROL, ENRB := TRUE; < ENABLE WRITE ) 

I := 0; 

IF ODO(PBYTE.INT) THEN 
BEGIN { BURN FIRST BYTE ) 

IF PBYTE,CPTR"<>BUFFER[I] THEN 
BEGIN ( PATTERN NOT SAME SO BURN IT ) 
PBYTE,CPTR" := BUFFERLI] ; 

UHILE CONTROL. BUSY 00; < WRIT FOR BURN TO FINISH > 
IF OP = EPCWRITE THEN ( CHECK PATTERN AFTER BURN ) 
IF PBVTE.CPTR"<>BUFFERtIl THEN BADIO (EPFBIL) ; 
END; 

I := I + 1; 

PBYTE.INT := PBYTE.INT * 1; 
END; 

ENDSCBN := BUFSIZE-1; 
UHILE KBUFSIZE 00 

BEGIN ( BURN 2 BYTES AT A TIME EXECPT FOR LAST ODD BYTE ) 

IF I=ENDSCBN THEN 
BEGIN < BURN LAST BYTE } 

IF PBYtE.CPTR"<>BUFFER[I] THEN 
BEGIN { PATTERN NOT SAME SO BURN IT ) 
PBYTE.CPTR" := BUFFERtl]; 

UHILE CONTROL. BUSY DO; ( WRIT FOR BURN TO FINISH ) 
IF OP = EPCWRITE THEN ( CHECK PATTERN AFTER BURN ) 



121 ;S 




122:0 


2 


123:C 


3 


124:C 


3 


12S:C 


3 


126;S 




127:C 


2 


123:C 


2 


129:C 


2 


130:C 


3 


131 :C 


3 


132:C 


3 


133:C 


4 


134:C 


A 


13S:C 


4 


136:C 


4 


137:C 


5 


138:C 


S 


139:C 


S 


140:C 


5 


141:C 


5 


142:C 


4 


143:C 


4 


144:C 


3 


145:C 


4 


146:C 


4 


147:C 


4 


148:C 


5 


149:C 


S 


150:C 


6 


151:C 


6 


152:C 


6 


1S3:C 


5 


154 :C 


6 


155:C 


6 


1S6:C 


6 


157:C 


6 


1S8:C 


6 


1S9:C 


6 


160:C 


6 


161:C 


6 


162:C 


6 


163:C 


6 


164:C 


6 


165:0 


7 


166:C 


8 


167:C 


8 


168:C 


9 


169;C 


9 


170:C 


9 


171 ;C 


9 


172:C 


9 


173:C 


9 


174:C 


9 


175:C 


10 


176:C 


10 


177:C 


10 


178:C 


10 


179:C 


10 


180:C 


9 



Pascal [Rev 


3.0(1 


181:C 


9 


182:C 


9 


183:C 


8 


184:C 


8 


185:C 


9 


186:0 


9 


187:C 


7 


188:C 


7 


189:C 


6 


190:C 


6 


191:C 


6 


192:C 


5 


193:C 


4 


194:S 




195:C 


4 


195:0 


4 


197:C 


5 


198:C 




199:C 


5 


200:C 


S 


201:C 


5 


202:3 




203:C 


4 


204:C 


4 


20S:C 


5 


206:C 


5 


207:C 


5 


208 :C 


6 


209:C 


6 


210:C 


7 


211:C 


7 


212 ;C 


7 


213:C 


7 


214:C 


8 


21S:C 


8 


216;C 


9 


217:C 


9 


218;C 


9 


219:C 


9 


220:C 


10 


221 :C 


9 


222:C 


8 


223:C 


8 


224 :C 


8 


22S:C 


7 


226:C 


7 


227:C 


8 


228:C 


8 


229:C 


9 


230 :C 


9 


231 ;C 


10 


232:C 


10 


233:C 


10 


234:C 


10 


235:C 


11 


236:C 


10 


237:C 


9 


238:C 


9 


239:C 


9 


240:C 


9 



IF PBYTE.CPTR"<>BUFFER[I] THEN BADIOrEPFAIL 
END; 
I := I + 1; 
PBYTE.INT := PBYTE.INT + 1; 



END 

ELSE 
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24 1 : C 

242 :C 

243 :C 

244 : C 

245 :C 

246 :C 



247 
248 
249 
2'jO 
251 
2S2 
2^)3 
2S4 
255 
2S6 
2S7 
2' 



2'.9:C 

2iiO:C 

261 :C 

2fi2:C 

2G3: 

264: 

265: 

266 

267: 

268 

269: 

270: 

271 : 

27 2; 

273: 

274 : 



275 :C 

276 :C 

277 :C 



r: 

r: 

2ti0: 

281: 

282: 

283: 

284: 

285: 

286 

287: 

288 

289: 

290: 

281 : 

292: 

293: 

294 :C 

295:S 



296 :C 

297 :S 


4 


298 :C 


4 


299 :C 


J 


3C0:C 
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301 :C 


3 


302 :C 




303 :C 


2 


304:3 




305:3 




306:0 


1 


307:0 




308:0 


2 


3C9:D 


2 


310:0 


2 


311 :D 


2 


312:0 


-2 2 


313:0 


-4 2 


314:C 


2 


3IS:C 


2 


3I6:C 


3 


317:C 


2 


31B:C 


3 


319:C 


3 


320:C 


3 


321:C 


3 


322 :C 


2 


323:C 


2 


324:3 




325:0 


1 


326:0 


2 


327:0 


2 


328:0 


-4 2 


329:0 


-6 2 


330 :C 




331 :C 


2 


332 :C 


2 


333 ;S 




334:0 


1 


333:0 


2 


336:0 


-4 2 


337:0 


-6 2 


333:C 


2 


333:C 




340:C 


2 


341:C 


2 


342:3 




34 3:0 


1 


344 : 


2 


34 5 : D 


-4 2 


346 : D 


-6 2 


347:C 


2 


34;-J:C 


2 


34):C 


2 


350:3 




351 :C 


1 


352 :S 




No er-ors. 


No warr 




*»» 



BEGIN < BURN TlOO BYTES ) 

^ UBYTEStO] := BUFFER[I]; 

9 IJBYTES[1] -.' BUFFER[I + 1]; 

r IF PBYTE.UPTR-oUBYTES THEN 

IC BEGIN < PHTTERN NOT SHrlE SO BURN IT ) 

IC PBYTE.UPTR' := UBYTES; < BURN BOTH BYTES > 

IC UHILE CONTROL. BUSY DO; { UfilT FOR BURN TO FINISH > 

IC IF 0P=EPCUR1TE THEN ( CHECK PRTTERN AFTER BURN > 

11 IF PBYTE.UIPTR"<>UBYTES THEN BfiOIO (EPFfll L ) : 

IC END; 

' I := I + 2; 

S PBYTE.INT := P8YTE.INT ♦ 2; 

5 END; { BURN TUO BYTES ) 

6 END: { UHILE KBUFSIZE) 

7 CONTROL. ENfiB:=FflLSE; < TURN OFF LJRITE ENABLE ) 
7 POSIT := PBYTE.INT; { RECORD THE POSITION ) 

7 RECOVER 

7 BEGIN 

7 CONTROL. ENflB:=FflL3E; < TURN OFF URITE ENABLE > 

7 POSIT := PBYTE.INT; \ RECORD THE POSITION ) 

7 IF ESCflPECODEoO THEN ESCSPE (ESCflPECODE) ; 

7 END; 

6 END; < UITH CHRO", INFO^ } 

5 ENO; 

4 EPBLfINK: ( CHECK THE EPROn SPACE FOR HEX FF > 

4 IF BUFSI2E>0 THEN 

5 BEGIN 

5 SETUP: 

5 REPEAT 

6 IF PBYTE .UPTR^[0]<>CHRf255) THEN DONE := TRUE 

7 EL5C PBYTE.INT :- PBYTE.INT + 1; 

6 DONr := DONE OR ( PBYTE . INT>=ENDSCAN) ; 

6 UNTIL DONE; 

'J POSIT := PBYTE.INT; 

5 IF POSIT<ENDSCfiN THEN BBDIO (ENOTBLfiN<) ; 

S END ; 

4 EPCHECK: ( CHECK DATA FOR POSSIBLE BURN ) 

4 IF BUFSI2E>0 THEN 

5 BEGIN 

S SETUP; 

5 I := 0; 

7 REPEAT 

f> IF IOR(ORD(PBYTE.UINPTR'[I]) , ORO (BUFFER ( I] )) =ORD [PBYTE .UINPTR" [I ] 1 

7 THEN I := I + 1 

7 ELSE DONE := TRUE; 

6 DONE := DONE OR ( I>=BUFSIZE ) ; 
6 UNTIL DONE; 

S POSIT := PBYTE.INT t I; 

•i IF I<8UFSIZE THEN BAOIO (ECFRIL ) ; 

5 ENO; 

4 EPBRATE: INFO'.BFfiST := POSIToO; { SET BURN RATE ) 

EPINFO: 3ETINF0(BUFFER); < GET BURN RATE AND ADDRESS INFO > 

END: ( CASE > 
RECOVER 
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IF ESCAPECOOEoO THEN ESCAPE (ESCAPECOOE ) ; 
END; 
END; ( EPPROG ) 



FUNCTION EPROG( 



INTEGER; 

EOPTYPE; 

UINOOU; 

INTEGER; 

INTEGER :EPERROR; 



SCOOE 
OP 
ANYVHR BUFFER 
BUFSIZE 
VAR POSIT 
VAR 

EOP : EPOPTYPE; 
ECODE : EPERROR; 
BEGIN 

CASE OP OF 

EREAO : EOP:=EPRERO; 
EURITE : EOP : =EnjRI TE ; 
ECURITE: EOP: ^EPCURITE; 
EBLANK : EOP: =EPBLfiNK ; 
ECHECK : EOP:=EPCHECK; 
END: 

EPPROG(SCODE, EOP, BUFFER, BUFSIZE, POSIT, ECODE) ; EPROG: =ECODE; 
ENO; 

FUNCTION EGE"INFO( SCOOE : INTEGER: 

VAR INFO : EPINFOREC ) :EPERROR ; 
VAR 

I : INTEGER; 

ECODE : EPERROR; 
BEGIN 

EPPROG (SCOOE, EPINFO, INFO, 0,1, ECODE); EGETINFO : :=ECOOE ; 
END; 

FUNCTION EBRATE(SCODE : INTEGER ;BRflTE : BOOLEAN) ;EPh?ROR; 
VAR 

I : INTEGER; 

ECODE : EPERROR; 
BEGIN 

I := ORO(BRBTE); 

EPPROG (SCOOE, EPBRPTE, I, 0,1, ECODE); EBRATE :=ECODE; 
ENO; 

FUNCTION EINIT (SCODE ; INTEGER ) :EPERROR; 
VAR 

I : INTEGER: 

ECODE : EPERROR; 
BEGIN 

EPPR0G(SCODE,EPINIT,I,0,I,EC00E) ; EINIT;=ECODE; 
END; 



ings . 

** Nonstandard language features enabled ***** 
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EPROMS 



Description 

EPROMS contains the TM (transfer method) for EPROMs. 



Requirements 

SYSGLOBALS and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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File name: EPROnS 



1 :D 
2:D 
3:D 
4:D 
S:D 
6:0 
7:0 
8:0 
9:0 
10:0 
U :S 
12:D 
13:0 
14:D 
1S:D 
16:D 
17:D 
18:D 
19:0 
20:0 
21:D 
22:0 
23:0 
24:0 
25:0 
26:0 
27:0 
28:0 
29:S 
JO:D 
!1 :D 
52:0 
J3:D 
34 :D 
!5:D 
36:0 
)7:D 
!8:D 
?9;D 
40:0 
41 :D 
42:D 
43:S 
44:C 
4S:C 
46:0 
47 :C 
48:0 
49:0 
'30: 
il : 
S2: 
'i3: 



'15 



-9 
-14 



ISVSPKOGI 

SDEBUG OFF$ SRBNGE OFF$ 

PROGRAM INST EPROM; 

MODULE EPROnS; 

IMPORT 

SVSGLOBHLS.nSII; 
EXPORT 

PROCEDURE EPROM TM(FP:FIBP: REQUEST :flnREQUESTTYPE; 

HNYVfiR Buffer :UINd6u; BUFSIZE, position: INTEGER) 
IMPLEMENT 

PROCEDURE EPROM Tn(FP:FIBP; REQUEST :fiMREaUESTTYPE; 

HNYVfiR Buffer :UIND01J; BUFSIZE, POSITION: INTEGER) 
CONST 

LO ROM = HEX('20000'); 

HI ROM = HEXi'200000'' 

STFPSIZE " HEX('4O0O' 

ROMHERDER" HEX('FOFF' 

HEPDERSIZE = 18; 

K128 = 131072; 

K256 = 262144; 

K16 = 16384; 
TYPE 



HRECORO 


- PACKED RECORD 




HERDER : 0. .65535; 




IDCHPR : BYTE; 




FLAG : BYTE; 




END; 


HPTR = "HRECORD; 


SCRNREC 


RECORD 




CfiSE INTEGER OF 





1 


(INT:INTEGER); 
(PTR:HPTR) ; 
IJPTR:UIND0UP) ; 




2 




3 


(CPTR;~CHRR) ; 




END 




VflR 




SCRNPTR 


SCHNREC; 


COUNTER 


INTEGER; 


DONE 


BOOLEBN; 


SIZE 


INT 


GER; 



BEGIN 

lORESULT := ORD (INOERROR) : 

IF (UNIIflBLE"[FP-'.FUNIT: .6YTE0FFSET = 0) RND 

(REQUESToCLERRUNIT) THEN lORESULT : =ORD (ZNODEVICE) 
ELSE 

CASE REQUEST OF 

REfiDBVTES: < MOVE DfiTH FROM EPROn TO BUFFER > 
IF BUFSIZE>0 THEN 
UITH FP" DO 
BEGIN 

IF (P0SITI0N+6UFSIZE)>FPE0F THEN lORESULT := ORD (ZNOSUCHBLK) 

ELSE 

BEGIN 

COUNTER :=■ HERDERSIZE * FILEID f POSITION; 
COUNTER ;= C0UNTER+(2« (COUNTER DIV KlB))t 

UNITRBLE'tFUNIT] .BYTEOFFSET; 
SCRNPTR, INT := COUNTER; 
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|'>1 :C 
i'>2:C 
i.3:C 
il4:C 
i;S:C 
ii6:C 
i,7:C 
I18:C 
r,9:C 
'0:C 
'1 :C 
'2:C 
'3;C 
■4:C 
■'5:C 
'6:C 
■■7:C 
.•8:0 
■/9:C 
hO:C 
Hl:C 
H2:C 
H3:C 
1!4:C 
!1S:C 
H6:C 
il7:C 
il8:C 
h9:C 

90 :C 

91 :C 

92 :C 

93 :C 

94 :C 

95 :C 
:C 
:C 
:C 
:S 

100 :C 

101 :C 

102 ;C 
1C3:C 
104 :C 
10S:C 
1G6;C 
1C7:C 
1C8:C 
1C9:C 
1I0:C 
1I1:C 
112:C 
113:0 
114:C 
US:S 
H6:D 
117:D 
118:0 
U9:C 
i:0:C 



97: 



IF BUFSIZE=1 THEN BUFFER[0] := SCANPTR .CPTR" 

( ELSE 

f BEGIN < MOVEING MORE THRN ONE BYTE OF DATA ) 

f COUNTER := 0; 

6 REPEAT 

9 SIZl := (SCRNPTR. INT + K16) DIV K16 » K16 - SCRNPTR. INT; 

9 IF SIZE>BUFSIZE THEN SIZE := BUFSIZE: 

? MOVE LEFT (SCRNPTR. CPTR', BUFFER [COUNTER], SIZE); 

? BUFSIZE ;' BUFSIZE - SIZE; 

9 COUNTER := COUNTER + SIZE; 

9 SCRNPTR. INT := SCfiNPTR.INT ♦ SIZE * 2; 

9 UNTIL BUFSIZE»0; 

8 END; 

7 END; 

t END; < READBYTES ) 

4 UIRITEBVTES: lORESULT := ORD (ZPROTECTED) ; 

4 FLUSH:; 

4 CLERRUNIT: 

4 BEGIN < FIND THE nTH DISC HERDER > 

4 SCfiNPTR.INT :- LO ROM; 

4 UNITfiBLE'-[FP-.FUNTT] .BYTEOFFSET := 0; < CLEAR THE OFFSET > 

4 COUNTER := UNITflBLE" [FP^.FUNIT] .DV; 

4 DONE := FALSE; 

4 REPEAT { FIND THE EPROM DISC HERDER > 

5 TRY 

6 IF SCfiNPTR.PTR'-.HEADER=ROMHERDER THEN 

7 BEGIN 

7 IF (SCnNPTR.PTR~.FLAG=HEX('08')) OR 

8 (SCflNPTR.PTR~.FLRG=HEXl'18' ) THEN 
8 BEGIN < FOUND DISC HEADER i 

8 COUNTER := COUNTER - 1; ( COUNT IT > 

8 DONE := COUNTER<0; { IS THIS THE ONE ) 

8 END; 

7 END; 

6 IF NOT DONE THEN SCANPTR.INT :- SCRNPTR . INT ♦ STEPSIZE; 

6 RECOVER < IGNORE BUS ERRORS ) 

6 IF ESCAPECODEo-12 THEN ESCAPE (ESCRPECODE) 

7 ELSE SCANPTR.INT := SCANPTR.INT ♦ STEPSIZE; 

5 DONE := DONE OR (3CANPTR . INT>=HI_ROM) ; 

5 UNTIL DONE; 

4 IF SCRNPTR. INT>=HI_ROM THEN lORESULT := ORD(ZNODEVICE) 

5 ELSE 

5 UITH UNITABLE"[FP".FUNIT] DO 

6 BEGIN 

6 BYTEOFFSET :- SCANPTR.INT; 

6 UnRXBYTES :- (SCRNPTR. INT+K25S) DIV K25a « K256 - SCANPTR.INT; 

6 END; 

4 END; < CLERRUNIT ) 

4 OTHERUISE 

4 lORESULT := ORD (ZBAOMODE ) ; 

4 END; ( CASE REQUEST ) 

2 END; 

1 END; { MODULE EPROM_MODULE ) 

1 ( EPROMS INSTRLLRTION PROGRRM ) 

1 IMPORT LORDER; 

1 BEGIN 

1 MARKUSER; 

1 END. 
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ETU 



Description 

ETU contains an interactive program for controlling the EPROM programming card. 



Requirements 

SYSGLOBALS, MISC. ASM, FS, CI, LOADER, SYSDEVS, LDR, and EDRIVER. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Pa-ckard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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Pasca: 


[Pe 


I 


:S 


1 


:S 




:S 


\ 


:S 


5 


:S 


6 


:S 


7 


:5 


e 


:S 


6 


:S 


IC 


:S 


11 


:S 


1? 


:S 


13 


:S 


14 


:S 


15 


:S 


16 


:S 


17 


:S 


18 


:S 


19 


:D 


20 


:S 


21 


:D 


22 


:D 


23 


:S 


24 


;D 


26 


.D 


26 


D 


27 


S 


28 


D 


29 


D 


30 


S 


31 


D 


32 





33 





34 





3S 


D 


36 


D 


37 





38 


S 


3S 


D 


40 


D 


41 





42 


D 


43 


D 


44 


D 


45 





46 


D 


47 


D 


48 


D 


49 


D 


50 


D 


51 


D 


52 


D 


53 


D 


54 


D 


56 


D 


56 


D 


57 


D 


58 





59 





60 


D 
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n File name: ETU 



(ci Copyright Hewlett-Packard Company, 1983. 
lUl rights are reserved. Copying or other 
reproduction of this program except for archival 
Durposes is prohibited without the prior 
written consent of Hewlett-Packard Company, 

RESTRICTED RIGHTS LESEND 

Use, duplication, or disclosure by the Government 
iS subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
hats and Computer Software clajse in 
lifiR 7-104. 9(a) . 

HEULETT-PnCKflRD COMPPNV 
i-'ort Collins, Colorado *] 

^COPYRIGHT 'COPYRIGHT (C) 1983 BY HEULETT-PflCKflRD COMPflNY'S 
SSYSPROGt SDEBUG OFFS SRflNGE OFF$ 

I'ROGRflM ETU(KEYBOnRD, INPUT, OUTPUT) ; 
• SSERRCH 'LIBRrEDRIVER'S 

IMPORT SV3GL08nLS,riISC,FS,CI,EDRIVER,HSn,SYSDEVS; 



vhr 
keybobro 



TEXTj 



I'ROCEDURE COnnflNDLEVEL; 
CONST 

SH EXC = CHR(27) ; 

KlS = 16384; 

fllNSC =• 8; 

MfiXSC = 31 ; 



******«««« 






PROriPTTYPE 
BUFTYPE 
BIGPTR 
PBSSTYPE 
YPE 
EPROnPTR 
EPROIIREC 



DIRSTRTUS 
CONTROL 



STRING80: 

PfiCKED RRRflYCO. .mXINT] OF CHflR: 

"BUFTYPE; 

(CHECK, BURN, VERIFY) ; 

"EPROnREC; 
RECORD 

NEXT : EPROMPTR; 

BflSEflODR : INTEGER; 

EPSIZE : INTEGER; 

EPINC : INTEGER; 

PRESENT : fiRRBY[0..7] OF BOOLEAN; 

fiDDRESS : RRRfiY[0..7] OF INTEGER; 
END: 

lDNEEOED,DUflNTED,OONTCflRE) ; 
RECORD 



CFIB 

PBTH 

DIROPEN 

FILEOPEN 

USEUNIT 



FIB: 

INTEGER 

BOOLEfiN 

BOOLEHN 

BOOLEAN 
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:D 
:0 
:D 
:D 
:D 
:D 
S 
:D 
:D 
:D 
D 
■D 
D 

S 


s 

D 
S 

D 
:D 
D 
-D 
D 

D 
:D 
:S 
:D 
:0 
:C 
C 
:C 
C 

s 


;D 
:D 
:0 
:C 
:C 
:C 
:C 
:C 
3:C 
107:C 
108:C 
109S 
110:D 
111:0 
112:C 
U3;3 
114:D 
115:0 
U6:C 
117:3 
118:0 
119: 



61 : 
62: 
63: 
64: 
65: 
66: 
67 



70: 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98: 
99: 
100: 
101: 
102: 
103: 
104: 
105: 



-890 
-82 



-890 
-82 



MOUNTED 
CPVOL 
CVOL 
CERE 
DSTHTUS 
END; 



-4 

-5 

-6 

-10 

-20 

-22 

-23 

-854 

-858 
-862 
-866 
-870 
-874 
-878 
-882 



SCODE : INTEGER; 

OP : CHfiR; 

FfiSTBURN 

TEMP 

EPINFO 

ERROR 

HEflPINUSE 



2 (*******«***«***#«*#*** 

2 PROCEDURE FIXLOCK; 

3 BEGIN 

3 IF LOCKLEVELoO THEN 

4 BEGIN LOCKLEVEL := 1; 
3 HMD; ( FIXLOCK ) 



BOOLEAN; 

VIO; 

VIO; 

FID; 

DIRSTHTUS; 



ININFO 

SflVEIO 

SflVEESC 

LHEflP 

EPROMLIST 

EPROMDRTR 

LEFTTOXFER 

0UTP03ITI0N 

OUTSTRRTR 

PASS 



BOOLERN; 
INTEGER; 
EPINFOREC; 
EPERROR; 

BOOLERN; 



CONTROL; 

INTEGER; 

INTEGER; 

RNYPTR; 

EPROMPTR; 

EPROMPTR; 

INTEGER 

INTEGER 

INTEGER 

INTEGER 



x%%^%x*% 



%%*%%%%%%% 



LOCKDOWN; END; 



120:: 



2 [ «*«**««****«****««***«*******#*******«#**«♦* 

2 PROCEDURE PRINTIOERRMSG; 

3 V,1R 

3 MSG : STRINGC80]; 
3 BEGIN 

3 IF lORESULToOROtlNOERROR) THEN 

4 BEGIN 

4 GETIOERRMSG(MSG,IORESULT); 

4 URITELNCError : ' ,MSG, CTEOL ) ; 

4 IF STREfltllNG THEN ESCRPEf-l ; 

4 END; 
3 END; < PRINTIOERRMSG ) 

2 PROCEDURE SHOUPROMPT(P : PROMPTTYPE); 

3 BEGIN (JRITE(HOMECHflR,P, CTEOL); END; 



2 PROCEDURE GOODIO: 

3 Bt.GIN IF IORESULT<>ORD(INOERROR) THEN ESCRPE(O); END; 

2 PROCEDURE BROIOdOCOOE : lORSLTUD); 

3 EFGIN ICPE'^LiLT := CRDdOCOOE); ES':1PE(0); END; 



*«**«*«**) 



%x%*.%%%% 



4«*4:«l»««**«*«»*) 



*****#*** ) 



******* ) 
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121:S 










122:D 


-890 


2 


PROCEDURE BflOnESSSGElP : PROMPTTYPE); 




123:0 


-82 


2 




124 :C 




3 


BEGIN 




12S:C 




3 


0JRITELN(P,CTEOL); 

IF STREfinfNG THEN ESCnPE(-l) ELSE BHDIO (INOERROR) ; 




I26:C 




3 




127 :C 




3 


END; ( BPOnESSflGE > 




128 :S 










129 :D 


-890 


2 


(*«********«*#*«*****»«***«#* »!«****««*Ht«***«*#«««»**««»««K)K«*X**« ******* »****) 




:30:D 




2 


PROCEDURE BflOCOnmNO(C:CHftR); 




131 :C 




3 


BEGIN 




132 :C 




3 


UJRITELNCBflO COnMfiND " ' ,C, " ".CTEOLl : 

IF 3TREHnlNG THEN ESCflPE(-l) ELSE BnOIO(INOERROR) ; 




133 :C 




3 




134:C 




3 


END; ( BSOCOHt-lflND ) 




135:S 










136:D 


-890 


2 


PROCEDURE REflDCHECK; 




137:0 




2 




138 :C 




3 


BEGIN 




139:C 




3 


IF lORESULToORDCINOERROR) THEN 




140 :C 




4 


BEGIN 




141 :C 




4 


SavEIO := lORESULT; URITELN; I0RE3ULT := SflVEIO; 




142 :C 




4 


ESCfiPE(O) ; 




143 :C 




4 


END; 




144 :C 




3 


END; < REfiDCHECK ) 




14S:S 










146:0 


-890 


2 


PROCEDURE REflDNU(1BER(VflR INT : INTEGER); 




147:0 




2 




148 :D 




3 


VPR 




149:0 


-4 


3 


I : INTEGER; 




150:0 


-8 


3 


TI : INTEGER; 




1S1:D 


-30 


3 


INSTRING : STRING[20]; 




!S2:C 




3 


BEGIN 




1S3:C 




3 


REPIOLN(INSTRING); GOODIO; 
I NSTRING:=3TRLTR in (INSTRING); 




154 :C 




3 




1SS:C 




3 


IF 3TRLEN(INSTRING)>0 THEN 




156 :C 




4 


TRV 




1S7:C 




5 


IF INSTRING[1]=SH EXC THEN ESCFIPE'O); 




158:0 




5 


ZRPSPfiCES(INSTRINB); 




159:C 




5 


IF STRLEN(INSTRING)>0 THEN 




180:C 




6 


BEGIN 




161:C 




6 


TI := 0; 




162 :C 




6 


FOR I:=l TO STRLENjINSTRING) DO 




163 :C 




7 


IF ilNSTRING[I]<'0') OR (tNSTRING[I]>'9' ) THEN BflDIO(IBflDVfiLUE) 
ELSE TI := TI * 10 + (ORD (IN3-RING[I] ) - ORDCO')); 




164 :C 




8 




165 :C 




6 


INT := TI; 




166:C 




6 


END; 
RECOVER 




167 :C 




5 




168:C 




5 


IF ESCflPEC0DE=-4 THEN BfiOIO I IBHDVBLUE) 

ELSE ESCHP6(ESCqPECO0E); 




169:C 




6 




170:C 




3 


END; < REHDNUnBER ) 




171:S 










172:0 


-890 


2 


FUNCTION UNITNUnSERfVPR FVID : VID) :BOOLERN; 




173:0 




2 




174:0 




3 


LfiBEL l; 




175:0 




3 


VRR 




176:0 


-6: 


3 


SL,I : INTEGER; 




177 :C 




3 


BEGIN 




178 :C 




3 


UWTNUtlBER := FBLSE; 




179 :C 




3 


SL :« STRLEN(FVID) ; 
IF SL<2 THEN GOTO i; 




180 :C 




3 




Pascal [R 


:v 3. Oh 
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181:C 




3 


IF FVID[l]<>'t' THEN GOTO 1; 




182 :C 




3 


FOR I:=2 TO SL DO IF (FVIOfl] <'0' ) OR (FVID [I]>'9' ) THEN GOTO 1; 




183 :C 




3 


UI^ITNUnBER := TRUE; 




184 :C 




3 


1 :END; 




185:0 


-890 


2 


( UNITNUnBER ) 




186:0 


-89C 


2 


PROCEDURE UPCCHnR(VBR CH : CHfiR); 




187:0 




2 




188 :C 

189 :S 
190: D 




3 


BEGIN IF ('a'<-CH) PNO (CH<='z'i THEN CH :=rHR (ORD (CH) -32) ; END; 




-890 


2 


PROCEDURE PROnPTREfiD(P:PROnPTTVPE; VflR fiNSUER:CHflR; LIST :PROnPTTyPE ; 




191:0 




2 




192:0 


-164 


3 


OEFBULT : CHfiR ; 




193:0 


-164 


3 


LABEL 1 ; 




194:0 


-164 


3 


VPR 




195:0 


-168 


3 


I : INTEGER; 




196:C 




3 


BEGIN 




197:C 




3 


IF (DEFRULToSH EXC) AND STREHMING THEN HNSUER : =DEFRULT 




198:C 




4 


ELSE 




199:C 




4 


BEGIN 




200 :C 




4 


URITE(P,CTEOL); 
REPEAT 




201 :C 




4 




202 :C 




5 


REnD(KEYBOHRD,HNSUER); REflDCHECK: ; UPCCHBR (RN3UER) ; 

IF RNSUER=SH EXC THEN BEGIN URifELN; SflOIO (IN0ER|50R) : END; 

FOR I;=l TO 5TRLEN(LIST) 00 ( IS CHI^RflCTER IN THE L1§T ? \ 




203 :C 




S 




204 :C 




5 




205 :C 




6 


IF nNSUIER.LISTCI] THEN GOTO 1; 




206 :C 




5 


IF STREPniNG THEN BRDCOnnflND (ANSWER ) ; 




207:C 




5 


UNTIL FALSE; 




208 :C 




4 


1:URITELN(ANSUER); 




209 :C 




4 


END; 




210:C 




3 


ENO; { PROnPTREAO > 




211:3 










212:0 


-890 


2 


PROCEDURE PROnPTY0RN(P : PROnPTTYPE; VRR ANSWER :CHRR); 




213:0 


-82 


2 




214:C 




3 


BEGIN 




215:C 




3 


PROnPTREAOfP*' ? (Y/N) ' .ANSWER, 'YN' , 'Y' ) ; 




216:C 




3 


ENO; ( PROnPTVORN > 




217:S 










218:0 


-890 


2 


PROCEDURE nOUNTVOLUnE(SD : PROMPTTYPE ,VflR FINFO : CONTROL); 




219:0 


-82 


2 




220:0 


-82 


3 


VRR 




221:0 


-83 


3 


ANSWER : CHRR; 




222:0 


-88 


3 


UNIT : INTEGER; 




223:0 


-10$ 


3 


TEnPNflUE : VID; 




224:S 










225 :C 




3 


BEGIN 




226 :C 




3 


WITH FINFO DO 




227:C 




4 


BEGIN 




228:C 




4 


IF STREflniNG THEN 




229:C 




5 


BEGIN 




230:C 




5 


URITELN('VOLUnE '.CPVOL,' NOT ONLINE WHILE STREfiniNG' ,CTEOL ) ; 




231 :C 




5 


ESCAPE(-l); 




232:C 




5 


ENO; 




233:S 










234:: 




4 


TEMPNRnE :. CPVOL: 

UNIT := FINDVOLUME(TEnPNflnE, FALSE); < CHECK FOR BAD UNIT » ) 




235:C 




4 




236 :C 
237:3 
238:C 




4 


lORESULT := ORD ( INOERROR ) ; 






4 


REPEAT 




239 :C 




5 


< CONSTRUCT THE PROMPT ) 
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240:C 




S 


URITEI 'Please m.junt ' ,SD) ; 
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241 :C 

242 :C 
242:0 
244 :C 
245:C 

246 :S 

247 :C 

248 :C 
24S:S 
250: 



251 :C 



252: 

253: 

254 : 

256: 

2S6: 

257: 

258: 

259:0 

260:0 

2$1:C 

262:0 

263:0 

264:0 

26S:C 

266:C 

267:0 

268:0 

269:0 

270:0 

271 :0 

272:0 

273:0 

274:0 

275:0 

276:0 

277:0 

278:0 

279:0 

280:C 



281 : 

282: 

283: 

284: 

285: 

286: 

287 : 

288: 

289: 

290: 

291 : 

292:0 

293 :S 

294:" 

295: 

296: 

297, 

298, 

299: 

300: 



IF STi!LEN(CVOL)>0 THENUKIIEC volume ',OVOLi; 

IF ( (STRLEN(SD)>0) OR (STRLEN(CVOL ) >0 ) ) PND USEUNIT THENURITEC 

IF USEUNIT THEN URITEC unit ',CPv6l); 

WRITELNfCTEOL): 

PROriPTREflDI " '0" continues, <5h_exc> aborts ', ANSWER , 'C ', 'C ) ; 



= 

= OONTORRE; 



IF USEUNIT THEN TEMPNfinE := CPVOL ELSE TEMPNflME := CVOLj 
OFie.FUNIT := FINDVOLUnE(TEnPNfiriE,TRUE) ; 

IF CFIB, FUNIT>0 THEN 
BEGIN 

IF IORESULT=0RD(IN0DIRE0T0RY) THEN 
BEGIN 

IF DSTflTUSoDONTCfiRE THEN URI TELN ( 'NO DIRECTORY ON ', 

SETSTRLENfTEflPNflME.O); 

CASE DSTfltuS OF 

DNEEDED: CFIB.FUNIT := 0; 
DUflNTED: BEGIN 

PROMPTYORNCUse current media' , PNSUER 
IF fiNSUER='N' THEN OFIB.FUNIT 
ELSE DSTBTUS 
END; 
OTHERUISE 
END; { CnSE DSTfiTUS ) 
END 
ELSE 
BEGIN 

IF IORESULT<>ORD(INOERROR) THEN 
BEGIN 

PRINTIOERRnSG; CFIB.FUNIT ;= 0; 
END 
ELSE 

BEGIN ( FOUND fl DIRECTORY ) 
IF CVOL=" THEN CVOL := Tl 
ELSE 

IF CVOLoTEMPNHME THEN CFIB.FUNIT := 0; 
END; 
END; 
END; 
UNTIL CFIB.FUNIT>0; 
CFIB.FVID := CVOL; 
MOUNTED :=: TRUE; 
END; 
END; ( MOUNT VOLUME ) 

PROCEDURE SPfiCEURIT; 
VfiR 

fiNSUER : CHflR; 
BEGIN 

PROhPTREflDt '<space> continues, <5h exc> aborts ', fiNSUER,' ',' 
END; { SPfiOEufilT > 



TEMPNflME 



PROCEDURE PROMPTFORCHHRIPL 
BEGIN 

FGOTOXYIOUTPUT.O.O); UlRITEfPL,' ? '.C'EOL); 

REflD(KEYBOflRD,CH)- REflDCHECK; 

UPCCHflR(CH): URltELN(CH): 

FG0T0XY(OUTPUT,0, 1) ; URI TELN (CTEOL ) ; 



PROnPTTYPE; VflR CH : CHRR); 



***«*«** ) 
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301 :C 
302S 
303:D 
304 D 
305;D 
306 :D 
307:D 
308 :D 
309:D 
310:D 



311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 



323:0 
324 :C 
325:0 

326:0 



327 
328 
329 

330- 

331 

332: 

333: 

334, C 

335 

336:0 

337:0 

339:0 

339:0 

340 C 

341 :0 
342:0 
343:C 
344 
345: 
346: 
347: 
348 
349: 
350 
351 
352 
353 
354 
355: 
356: 
357 
358 
359 
360: 



-122 
-122 
-124 
-128 



-204 
-204 
-208 



END; 



< PROnPTFORCHfiR ) 



SIOCHEOK OFF$ 

PROCEDURE SETUPFIBFORFILE( FILENAME 
VflR LFIB 
VflR VNflME 
VSR 

KIND : FILEKINO; 
SEGS : INTEGER; 



BEGIN 

SEGS := 0; 

lORESULT := ORD(INOERROR1; 

WITH LFIB DO 

IF SCfiNTITLE(FILENflriE,FV 
BEGIN 
VNftnE 
FUNIT 
FKIND 

FOPTSTRINO 
EPOS 

FfiNONYMOUS 
FBUFCHfiNGED 
FLflSTPOS 
FNOSRntEnP 
FEOF 
END 



**>fX****:lf ****** 

= ID; 
= IB; 
/ID); 



«*« File name: ETU ** 



*********** 



D,FTITLE,SEGS,LKIND) THEN 



= LKINO; 
= NIL: 
= SEGS » 
= FALSE; 
= FALSE; 

= -1; 
= TRUE: 
= FALSE; 



ELSE BflDIOtlBADTITLE); 
END; { SETUPFIBFORFILE 



FVID; 

FINDVOLUnE(FVID,TRUE) : 
--■' EPTT 



FEpf := EFTTflBLE'-tLKIND] 
FBUFFERED := TRUE; 
FREPTCNT := 0; 
FMOOIFIEO :■ FALSE; 
FSTflRTADDRESS := 0; 
POTHID := -1; 
FLOCKED := TRUE; 
FEOLN := FALSE; 



PROCEDURE CLOSEDIR; 
BEGIN 

UlITH ININFO, CFIB DO 
BEGIN 

IF DIROPEN THEN 
BEGIN 

LOCKUP; ( LOCK KEYBOARD FOR THIS OPERATION ) 
PATHIO := PATH; < RESTORE PATHID ) 

CALL (UNI TABLE" tFUNIT] . DAM, CFIB , FUNI f , CLOSEDIREOTORY ) ; 
DIROPEN := FALSE; 
LOCKDOUN; 
END; 
END; 
END; ( CLOSEDIR ) 



[t^*** ************ ************* 
PROCEDURE OPENDIR (FILENAME 

VAR SOURCEFILE 

PROMPT 
VAR FINFO 
VAR OIRCHTENTRY 
V^R 

UNIT : INTEGER; 



f**************** 
FID; 
FID; 

PROMPTTYPE; 
CONTROL; 
CATENTRY) ; 



************ 



3 IGRESUlT := ORD (INOERROR ) 

3 UIIH FINFO, CFIB DO 

4 TRY 



11-374 
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361:C S SETUPFIBFORFILE(FILENflnE,CFIB,CPVaL) ; 

362:C 5 USEUNIT := UNITNUflBER (CPVOL) ; DSTflTUS := DNEEDED; 

363:C 5 IF USEUNIT THEN CVOL :- " ELSE CVOL ;= CPVOL; 

364:C S IF (FUNIT-0) OR UNITNUHBER (FVID ) THEN MOUNTVOLUHE ( PROnPT, FINFO) 

365:C 6 ELSE MOUNTED := TRUE: 

386:C 6 UITH UNITRBLE'CFUNIT] 00 

367:C 6 BEGIN 

368:C 6 LOCKUP; < LOCK KEYBORRD ) 

369:C 6 FUINDOU := HDDR (DIRCBTENTRY ) ; 

370:C 6 CRLL(Dnn,CFIB,FUNIT,OPENDIRECTORYl ; 

371:C 6 DIROPEN := (IORESULT=ORD (INOERROR) ) : 

372:C 6 IF DIROPEN THEN 

373:C 7 BEOIN 

374:C 7 PATH := PflTHID; 

375:C 7 SOURCEFILE := FTITLE: 

376:C 7 CVOL := DIRCfiTENTRY .CNHHE; 

377 :C 7 END; 

378:C 6 LOCKDOUN: < UNLOCK KEYBOBRO > 

379:C 6 IF NOT DIROPEN THEN ESCftPE(C); < OPENOIRECTORV FfllLED > 

380 :C 6 END 

381 :C 6 RECOVER 

382:C 5 IF ESCfiPECOOEoO THEN ESCBPE (ESCfiPECODE) : 

383:C 3 END; { OPENDIR ) 

384 :S 

385 : D -890 2 i********^*****************»*************************************************) 

386:0 2 PROCEDURE INnOUNT (SUSP : BOOLEHN); 

387;C 3 BEGIN 

388 :C 3 IF NOT ININFO .MOUNTED THEN 

389:C 4 UilTH ININFO, CRIB DO 

390 :C 5 BEGIN 

391:C 5 nOUNTVOLUMEC SOURCE ', ININFO ) ; 

392:C 5 UNI TflBLE'[FUNIT] . UflEDIflVflLIO ;= TRUE; 

393 :C S END; 

394 :C 3 END; ( INMOUNT ) 

395 ;S 

396 : D -890 2 t**x!Kt***:K**>K*x**x%********»****x»*******if***txt************x********^*^***if*) 

397:0 2 PROCEDURE CLOSEINFILE; 

398 :C 3 BEGIN 

399:C 3 UITH ININFO ,CFIB DO 

400 :C 4 BEGIN 

401:C 4 IF FILEOPEN THEN 

402:C 5 BEGIN 

403:C 5 LOCKUP; 

404:C 5 FMODIFIED :' FflLSE; 

405:C 5 CfiLL(UNITqBLE'-[FUNlT] .DPn,CFIB,FUNIT,CLOSEFILE); 

40e:C 5 FILEOPEN ;= FflLSE; 

407 :C 5 LOCKDOUN; 

408 :C S END; 

409 : C 4 END ; 

410:C 3 END; ( CLOSEINFILE ) 

411:S 

412:3 

413:0 -890 2 f x***««**********#******»******«**»*****«****«j(c***«*««******«**********«**««*) 

414:D 2 PROCEDURE CLOSEflLL; 

415:C 3 BEGIN CLOSEINFILE; CLOSEDIR; END; 

416:3 

417:D -890 2 («**«««*#*«***««*#*******«*»******»**♦*#***********************»;*************) 

418:D 2 PROCEDURE BNYTOMEMI FUB : FI6P; 

419:D 3 BNYVPR BUFFER : BIGPTR: 

420:0 3 MPKBUF : INTEGER); 



Pascal [Rev 3,0M 6/ 4/84] ETU.TEXT 26-D5C-84 23:04:01 Page 8 »»» File name: ETU *»« 

421 :D 3 VBR 

422:D -4 3 BUFREC ~3TRING25S; 

423 :D -8 3 BUFPTR : ~CHflR; 

424:0 -12 3 LEFTINBUF : INTEGER; 

425:S 

426:C 3 BEGIN ( RNYTOnEM ) 

427:C 3 BUFPTR := BDDR (BUFFER') ; 

428 :C 3 BUFPTR' ;= CHR(O); < DPTB COriniNG ) 

429 :C 3 BUFREC := BDDR (BUFPTR', 1 ) 

430:C 3 SETSTRLEN(BUFREC',0); < 

431:C 3 BUFPTR := HDDR (BUFREC, 1 ) ; 

432:C 3 LEFTINBUF := MBXBUF; 

433 ■ S 

434:C 3 WITH FFIB', UNITfiBLE'[FUNlT] DO 

435;C 4 BEGIN 

436:C 4 CBL L (Hfl, FFIB ,REflDT0EOL , BUFREC , 255 , FPOS ) ; 

437:C 4 GOODIO; 

438:C 4 REPEAT 

439:0 5 GOODIO; < CHECK lORESULT FROh LBST REBDTOEOL ) 

440:C 5 LEFTTOXFER := LEFTTOXFER - STRLEN(BUFREC) ; 

441:C S IF LEFTTOXFER<0 THEN 

442:C 6 BEGIN ( CLIP THIS LINE HND CRKE END OF FILE > 

443:C 6 SETSTRLEN(BUFREC',STRLEN(BUFREC')tLEFTTOXFER ) ; 

444:C 6 LEFTTOXFER :« 0; 

44S:C 6 END; 

446:C S BUFPTR := BDDR (BUFPTR', STRLEN (BUFREC) j ; 

447 :S 

448:C 5 LEFTINBUF := LEFTINBUF - STRLEN(BUFREC') - 2; 

449:0 6 IF STRLEN(BUFREC) = 255 T:iEN BUFPTR := BDDR (BUFPTR', -1 ) 

450:C 6 ELSE 

451 :C 6 BEGIN 

452:C 6 IF STRLEN(BUFREC')"0 THEN 

453:C 7 BEGIN < DISCRRD THE LENGTH BYTE ) 

454:C 7 BUFPTR := BDDR (BUFREC, -1 ) ; LEFTINBUF := LEFTINBUF •► 1; 

455;C 7 END; 

456:3 

457:C 6 ( CHECK END OF LINE/FILE ) 

458:C 6 CALL (fln, FFIB .REflDBYTES, BUFPTR', 1 , FPOS) ; 

459:C 6 IF FEOLN THEN 

460:C 7 BEGIN ( END OF LINE ) 

461 :C 7 BUFPTR' := CHR(l); FEOLN := FflLSE; 

462:0 7 IF lORESULT = ORO(IEOF) THEN BUFPTR := HDDR (BUFPTR', 1 ) ; 

463:C 7 END; 

464:0 6 IF (IORESULT=ORD ( lEOF) ) OR ( LEFTTOXFER=0) THEN 

465:C 7 BEGIN < END OF FILE ) 



466:C 7 BUFPTR' 

467:C 7 lORESULT 

468:C 7 FEOF 

469:0 7 END; 



- CHR(2), 

= ORD(INOERROR) 

= TRUE; 



470:0 6 CO061O; < CHECK lORESULT FROM REHDBYTES ) 

471:0 6 END; 

472:0 5 IF NOT ((LEFTINBUF < 259) OR FEOF) THEN 

473:0 6 BEGIN < SETUP FOR TO REHO THE NEXT LINE > 

474:C 6 BUFPTR := BDDR (BUFPTR', 1 ) ; 

47S:C 6 BUFPTR' := CHR(O); ( DHTA RECORD > 



47S:C 6 BUFREC := BDDR (BUFPTR', 1 ) ; 
- .. . -,^^/^ _ 

478:0 6 BUFPTR :« BDDR (BUFREC ,11 



477:C 6 SETSTRLEN(BUFREC,0) ; { ZERO .tNGTH RECORD ) 



479:0 6 CBLL(fln, FFIB, REBDTOEOL, BufREd", 256, FPOS); iiOTr 

480:0 6 END; lI-075 
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481 -C 




5 


UNTIL (LEFTINBUF < 2591 OR FEOF; 




482 C 




4 


BUFPTR := HDDR (BUFPTR", 1 ) ; BUFPTR' := CHR(3); ( END BUFFER > 




483 C 




4 


END; 




484:C 




3 


END; { HNYTOMEn > 




485:S 










486 :D 


-890 


2 


{****»«****«*«»»* ««**«»)K»*«««**»*****«««*«««**»!((****l««*«*«**X* + **#***********) 




487:D 




2 


FUNOTION CHECK,SPfiCE(STflRT,SI2E :INTESER; VflR OKSIZE : INTEGER) :600LEnN; 




488:S 










489 :D 




3 


VPR 




490:0 


-4 


3 


POINT : INTEGER; 




491 :D 


-8 


3 


PflRT : INTEGER; 




492 ;S 










493 :C 




3 


EEGIN < CHEOK 3Pfi:E > 

OKSIZE := -1; OHECKSPflOE := FRLSE; 




494 ;C 




3 




496 :C 




3 


UITH EPROnDfiffi' DO 




496 :C 




4 


BEGIN 




497:C 




4 


( FIND THE PflRT :ONTfiINING THE START ADDRESS > 
PART :» 0; 




498 ,C 




4 




499. C 




4 


WHILE PnRT<8 DO 




500. C 




5 


BEGIN 




501 .C 




5 


IF ISTfiRT>=BDDRESS[PnRT] ) AND 




502:C 




6 


(STflRT< (ADDRESS [PART] tEPIN:)) THEN 




503:C 




6 


BEGIN 




504:C 




6 


IF PRESENT[PflRT] THEN 




50S;C 




7 


BEGIN { FOUND START NOU FIND END POINT ) 




506:C 




7 


POINT ;= START * SIZE - 1; < END POINT ) 




607 C 




7 


UHILE PART<8 DO 




508:C 




8 


BEGIN 




509:C 




3 


IF PRESENT[PART] THEN 




510:C 




9 


BEGIN 




611 .C 




9 


IF (POINT<(flDDRESS[PnRT]*EPINC) ) THEN 
BEGIN < IT ALL FITS ) 

OKSIZE := SIZE; GHECKSPAGE :=TRUE ; PART := 8; < FORGE EXIT > 




512 C 




10 




513:: 




10 




514:C 




10 


END 




515 C 




10 


ELSE { FIGURE SPACE SO FAR ) 




516 C 




10 


BEGIN 




517 C 




10 


OKSIZE := (ADDRESS [PflRT]+EPING)-STflRT; 




518:C 




10 


PflRT := PART + 1; 




519 C 




10 


END; 




520 C 




9 


END { IF PRESENT > 




521 :C 




9 


ELSE PART ;= 8; < FORCE EXIT ) 




522. C 




8 


END; < UHILE > 
END; ( IF PRESENT ) 
PART := 8; { FORCE EXIT ) 
END < IF ADDRESS IN RANGE ) 




523:C 




7 




524 C 




6 




525 :C 




6 




526 C 




6 


ELSE PART := PflRT + 1; 




527 :C 




5 


END; ( UHILE > 
END; < UITH EPROMDATA ) 




528. C 




4 




529 :C 




3 


END; { CHECKSPACE ) 




530 S 










531 :D 


-890 


2 


«OCEDURE PASSFSILED(FAILCODE:PASSTVPE); 




532:0 




2 




533:0 




3 


VAR 




534:0 


-4 


3 


PflRT : INTEGER; 




535:0 


-5 


3 


UL : CHAR; 




536 


-10 


3 


I : INTe6eR; 




537 S 










538 C 




3 


BEGIN 




539:C 




3 


UITH EPROMDfllA- DO 




540 C 




4 


BEGIN 
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541 -C 




4 


FOR I := TO 7 DO 




642 C 




5 


IF (OUTPOSITION>=flDDRESS[I]) AND 




543:C 
544 S 
545. C 




6 


(0UTPOSITI0N<(HDDRESS[I]tEPINC)) THEN PART :- I; 






4 


IF ODD (OUTPOSITION) THEN UL ;= 'L' ELSE UL :» 'U'; 

URITE(FflILCODE ,' FAIL'): 

URITELNC AT ABSOLUTE ADDRESS 'OUTPOSITION:!): 

URITELN ' BYTE POSITION ' OUTPOSITION-OUTSTARTA : 1 , ' FROM START LOCATION'); 

URITELNC EPROn SOCKET ' .PART : 1 ,UL, 

' BYTE ', (OUTPOSItION-AISDRESSCPART]) DIV 2:1); 




646. C 




4 




647 C 




4 




643:C 




4 




549 C 




4 




550:C 




4 




551 C 




4 


END; 

IF STREAMING THEN ESCAPE(-l) ELSE BAOIO (INOERROR ) ; 




552:C 




3 




553:C 




3 


FND; ( PnSSFAILED > 




554 :S 










555. D 


-890 


2 


«***#»*«*:****:**«****. #***««***H(***«**«*»:#W*«***«****«»:** ***»«*«**#* ****«****) 




556:0 




2 


PROCEDURE PRINTBR; 




557:: 




3 


BEGIN 




558:: 




3 


FGOTOXY(0UTPUT,0,4); UJRITE('Burn rate '): 

IF FflSTBURN THEN URITE('FflST') ELSE URITE ( ' SLOW' ) ; 




559.: 




3 




560 ■: 




3 


URITELN(CTEOL); 




561 :: 




3 


END; 




562 :S 










563:0 


-890 


2 


PROCEDURE BURNIT(flNYVAR BUFFER : UINDOU; 

SIZE : INTEGER); 




564:0 




2 




565:0 




3 




566:0 




3 


VAR 




657:0 


-4 


3 


0LDP03IT : INTEGER; 




568:0 


-12 


3 


OLDX.OLDY: INTEGER; 




569:: 




3 


BEGIN 




570 :C 




3 


IF PASS=1 THEN 




571 :C 




4 


BEGIN < GHECK IF CAN BURN > 

ERROR ;=EPROG(SCODE,ECHECK, BUFFER. SIZE, OUT POSIT ION) ; 
IF ERROROENOERROR THEN PflSSFHI LED (CHECK ) ; 




572 :C 




4 




573:C 




4 




574 C 




4 


END 




575 :C 




4 


ELSE 




576:0 




4 


BEGIN ( TRY TO BURN IT ) 




577:: 




4 


OlDPOSIT := OUTPOSITION; < SAVE POSITION FOR RETRY ) 
ERROR ; «E PROG (SCOOE.ECURITE, SUFFER, SIZE, OUT POSIT ION); 




578:: 




4 




579:: 




4 


IF ERROROENOERROR THEN 




580:C 




5 


IF NOT FflSTBURN THEN 




581 : 




6 


BEGIN 




582:: 




6 


IF ERROR=ECFAIL THEN PflSSFfllLED (VERIFY) 




583:: 




7 


ELSE PflSSFfllLED BURN) ; 




584:: 




6 


END 




585:0 




6 


ELSE 




586:: 




6 


BEGIN 




S87:C 




6 


FflSTBURN ;= FALSE; < SET BURN RATE TO SLOU ) 
FGETXY (OUTPUT, OLDX.OLDY) : < UPDATE THE DISPLAY ) 




588:: 




6 




589:: 




6 


PRINTBR; 




590:0 




6 


FGOTOXY (OUT PUT, OLDX.OLDY); 

ERROR := EBRATf (SCOOE, FASf BURN) ; 

OUTPOSITION := 0LDPOSIT:( RESET POSITION AND RETRY > 

ERROR :=EPROG(SC0DE,ECUIR I TE, BUFFER, SIZE, OUT POSIT ION) ; 




591 :: 




6 




592:0 




6 




593:: 




6 




594:: 




6 


IF ERROROENOERROR THEN 




595:: 




7 


IF ERROR=ECFflIL THEN PASSFfllLED (VERIFY) 




596:0 




8 


ELSE PASSFAILEDJBURN); 




597:: 




6 


END; 




598:: 




4 


END; 

I0RFSULT:=0RD(IN0ERR0R) ; < CLEAR I/O RESULT > 
C'JD; ( BURNIT ) 




699:C 

60O:: 




3 
3 


11-376 
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601 :S 










602 :D 


-890 


2 


PROCEOURE nEnTOEPROtlfflNYVflR BUFFER : BIGPTR); 
VflK 

BYTES : INTEGER; 




603 :D 

604 :D 

605 :D 




2 
3 
3 




-4 




606 :D 


-8 


3 


BUFPTR: 'CHPR; 




607 :S 










608 :C 




3 


BEGIN 




609 ;C 




3 


BUFPTR := HDDRIBUFFER") : 




6I0:C 




3 


BEGIN 




611;C 




3 


BYTES := 0; 




612:C 




3 


REPEAT 




613;C 




4 


BUFPTR :> flODR (BUFPTR", BYTES 1 ; 




814:C 




4 


BYTES := ORO (BUFPTR- ) ; 




eiS:C 




4 


BUFPTR := fiDDR(BUFPTR-,l) ; 




616:C 




4 


CfiSE BYTES OF 




6n;C 




5 


0; BEGIN < OflTfi BYTES > 




818:C 




5 


BYTES := ORO (BUFPTR-) ; ( RECORD LENGTH > 
SUFPTR:= flODR(BUFPTR",l ) ; 




619:C 




S 




620 :C 




5 


BURNIT(BUFPTR", BYTES); 




621:C 




5 


ENO; 




622 :C 




5 


1 : BEGIN { END SECORO > 




623 :C 




5 


BYTES :> 0; 




624 :C 




5 


ENO: 




62S:C 




5 


2: BEGIN < END FILE > 




626 :C 




S 


BYTES := -1; 




627 :C 




5 


END: 




628 :C 




S 


3: BYTES := -1; < END BUFFER > 
OTHERUISE lORESULT :« ORD ( IBfiOREQUEST 1 ; 




629 :C 




6 




630 :C 




6 


END: 




631 :C 




4 


GOODIO- 




632 :C 




4 


UNTIL BYTES<0; 




633 :C 




3 


END; 




634 :C 




3 


END; { HEMTOEPROM > 




635 ;S 










636 :D 


-890 


2 






637:D 
638:0 
639 :D 




2 

3 
3 


FUNCTION CHECK:CfiRD(SC: INTEGER) : BOO LEAN; 
VflR 

ECOOE : EPERROR; 




-2 




840 :C 




3 


BEGIN 




641:C 




3 


ECOOE:=EINIT(SC) : 

CHECKCflRO:=(EC0DE=ENOERROR) OR (EC00E=ENOEPROM) ; 
END; { CHECKCflRO ) 




642 :C 




3 




643 :C 




3 




644 :S 










645 :D 


-890 


2 






646 :D 




2 


PROCEDURE CHECKSCODE; 




647 ;C 




3 


BEGIN 




648 :C 




3 


IF NOT CHEC<CfiRDISCODE) 

THEN BHDnESSfiGE('«»« NO =ROGRRmER CfIRD IN SYSTEM ««»'); 




649 :C 




4 




660 :C 




3 


ENO; 




651 :S 










652:0 


-890 


2 






653:0 




2 


PROCEDURE CHECKEPROn; 




664:0 




3 


VSR 




655:0 


-4 


3 


I : INTEGER; 




656:0 


-5 


3 


DONE : BOOLERN; 




657 :S 










658 :C 




3 


BEGIN 




659 :C 




3 


CHECKSCODE; 

ERROR :=EGEf INFO (SCODE.EPINFO); 




660 :C 




3 
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661 :C 




3 


IF EPINFO.EPSTflRT'O THEN 




662:C 




4 


BflDhESSflGECNO EPROM CARD HTTRCHED TO PROGRRrlMER CBRO'); 




663:3 










664 :C 




3 


EPROnOHTR :• EPROriLIST; 




665 :C 




3 


DONE := FRLSE; 




666 :C 




3 


REPERT 




667:0 




4 


IF EPROMOfiTfl»NIL THEN 




668 :C 




S 


BEGIN 




669 :C 




5 


NEU(EPROnOflTR); 

WITH EPROnORTfl- , EPINFO DO 




670 :C 




5 




671:C 




6 


BEGIN 




672 :C 




6 


BRSEHDDR 


= EPSTBRT; 




673 :C 




6 


EPSIZE 


= EPEND-EPSTflRT; 




674 :C 




6 


EPINC 


= EPSIZE DIV 8; 




675 :C 




6 


flOORESS[0 


= BHSEHOOR; 




676 :C 




6 


PRESENT [0 


= TRUE; 




677 :C 




6 


FOR I :=1 TO 7 DO 




678 :C 




7 


BEGIN 




679 :C 




7 


BOORESS[I]:= flODRESS [I -1 ]»EPINC; 




680 :C 




7 


PRESENTtI]:= TRUE; 




681:C 




7 


ENO; 

NEXT :. EPROMLIST; 




682 :C 




6 




683 ;C 




6 


EPROMLIST :- EPROMDRTfi; 




684 :C 




6 


DONE :« TRUE; 




685 :C 




6 


END; 




686 :C 




5 


END 




687 :C 




5 


ELSE 




688 :C 




5 


BEGIN 




689 :C 




5 


IF EPROMOnTR^.BfiSEROOR=EPINFO.EPSTfiRT THEN DONE := TRUE 




690 :C 




6 


ELSE EPROnORTR := EPROtlDBTR'.NEXT; 




691 :C 




5 


ENO; 




692 :C 




4 


UNTIL DONE; 
ENO; < CHECKEPROn > 




693 :C 




3 




694:3 










695:0 


-890 


2 






696:0 
697:0 
698:0 




2 
3 
3 


PROCEOURE FINDCfiRD(SC0DES:B0OLERN) ; 
VflR 

SC : INTEGER; 




•4 




699 :C 




3 


BEGIN 




700 :C 




3 


FOR SC:=-niNSC TO HflXSC 00 




701:C 




4 


IF CHECKCRRO(SC) THEN 




702 :C 




S 


BEGIN 




703:C 




5 


IF SCODES THEN URITE(SC:3); 




704 :C 




5 


SCODE := SC; 




705:C 




5 


ENO; 




706 :C 




3 


END; < FINDCRRO ) 




707 :S 










708 :D 


-890 


2 






709:0 
710:0 
711:0 




2 
3 
3 


PROCEDURE OOCONFIGURE (OOPROnPT iBOOLERN) ; 
VRR 

DONE : BOOLERN; 




-I 




712:0 


"6 


3 


OLOSCODE : INTEGER; 




713:0 


-7 


3 


OP : CHRR; 




714:0 


-12 


3 


I : INTEGER; 




715:S 










716:0 
717:0 


-1.2 


3 
3 






PROCEDURE PRINTSC; 




718:C 




4 


BEGIN 




719:C 




4 


FG0TOXY(OUTPUT,O,3) ; 


11-377 


720 :C 




4 


URITELN('Bctiv! 


programmer caril at select Cide ', SCODE : 1 .CTEOL ) ; 
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721 :C 


4 


END; 




722;S 








72!:S 
724:0 


-12 3 






^ J 




72S:D 


3 


PROCEDURE PRINTEPINFO; 




726 :C 


4 


BEGIN 




727:C 


4 


FG0T0XY(0UTPUT,0,5); 




723 :C 


4 


TRV 




729 :C 


^ 


CHECKEPROn; 

TEMP := EPfNFO.EPEND-EPINFO.EPSTflRT: 

URITELNCEPROn at address ' .EPINFO .EPSTHRT : 1 , ' for ', 

TEMP:!, ' bytes' CtEOL); 
URITELNt'EPROM type XX', TEMP DIV 2048 : 1 ,CTEOL ) ; 




730;C 


S 




731 :C 


5 




732;C 


5 




733:C 


5 




734:C 


5 


RECOVER 




735:C 


5 


IF ESCBPECOOEoO THEN ESCSPE (ESCfiPECODE) ; 




736:C 


4 


END; 




737:S 
733:0 


-12 3 






PROCEDURE PRINTSOCKETS; 




739:0 


3 




740:0 


4 


VflR 




741:0 


-4 4 


I : INTEGER; 




742 :C 


4 


BEGIN 




743:C 


4 


FGOTOXy OUTPUT, 0,7) ; 




744:C 


4 


URITELN 'Socket status {UL means EPROM pair present)'); 




74-3 ;C 


4 


UITH EPROMDSTB' DO 




746:C 


5 


FOR I := TO 3 00 




747:C 


6 


BEGIN 




743 ;C 


6 


URITEII:!); 

IF PRFSENtCI] THEN URITECUL ') ELSE URITEC empty'); 




743 ;C 


6 




7S0:C 


6 


URITE;I*4:4) ; 




761 :C 


6 


IF PRtSENT[I+4] THEN URITE ('UL ') ELSE URITEC empty'); 




752:C 


6 


URITELNj 




7S3:C 


6 


END; 




764:C 


4 


END; 




7SS:S 
766:0 


-12 3 


( \ 




BECIN ( DOCONFIGURE > 




757:C 


3 




763 :C 


3 


FG0T0Xy(OU'PUT,0,2); URITE (CTEOS ) ; 
CHECKSCODE ; 




7SJ:C 


3 




760;C 


3 


OLDSCODE :'SC0DE; 




761 :C 


3 


URITECProgrammer card(s) at '); 




762:C 


3 


FINDCfiRD(TRUE) : 
SCOOE := OLDSCODE; 




7S3:C 


3 




764;C 


3 


PRINTSC; 




765:C 


3 


PRINTBR: 




76i5:C 


3 


PRINTEPINFO: 




767:C 


3 


IF EPINFO. E^STflRT>0 THEN PRINTSOCKETS) 




763 :C 


3 


IF OOPROMPT THEN 




763 :C 


4 


RFPERT 




770:C 


5 


Ik'Y 




771:C 


6 


PROnPTFORCHPRr 'CONFIGURE: Selectcode Burnrate Emptysockets Of, OP); 
FGOTOXY (OUTPUT, 0,13); URITE (CTEOS ) ; 
IF OP=SH_.EXC THEN OP:='Q'; 




772:C 


6 




773:C 


6 




774:S 








77S:C 


6 


IF OP='S' THEN 




776:C 


7 


BEGIN { NEU SELECT CODE > 




777 :C 


7 


OLDSCODE := SCOOE; 




773 :C 


7 


URITE('New select code ( '.SCOOE : 1 ,' ) ? '); REflDNUMBER (SCOOE) ; 

IF (SCOOE<MINSC) OR (SCODE>MflXSC] THEN 

BEGIN SCOOE := OLDSCODE; BHOnESSflGE ( 'SELECT CODE OUT OF RPNGE'j; END; 




779 :C 


7 




760 :C 


8 




Pascal [Re 


V 3. on 


6/ 4/84] ETU.TEXT 26-Dec-84 23:04:01 Page 14 ««« File name: EIU »«« 




781 :C 


7 


IF NOT CHECKCHRD (SCOOE) THEN 




782 :C 


8 


BEGIN 




78J:C 


8 


SCODE :> OLDSCODE; BfiDMESSHGE ( 'SELECT CODE NOT P PROGRRMriER CARD'); 




784 :C 


8 


END; 




78'5;C 


7 


PRINTSC; 




78'i:C 


7 


PRINTBR: 




787:C 


7 


PRINTEPInFO; 




783 :C 


7 


IF EPINFO, EPSTflRT>0 THEN PRINTSOCKETS ELSE URITE(CTEOS) ; 




789 :C 


7 


END 




790 :C 


7 


ELSE 




791 :C 


7 


IF OP^'B' THEN 




792 :C 


8 


BEGIN 




79J:C 


8 


FHSTBURN := NOT FfiSTBURN; PRINTBR; 




794 :C 


8 


END 




79'i:C 


8 


ELSE 




796 :C 


8 


IF 0P='E' THEN 




797:C 


9 


BEGIN 




7S.*:C 


9 


IF EPINFO. EPSTRRT>0 THEN 




79):C 


10 


BEGIN 




80):C 


10 


I := -1: 

URITECSOCKET (PfilR) NUMBER ? ', CTEOL); REfiDNUf1BER(I ) ; 




801:C 


10 




80.?:C 


10 


IF I>=0 THEN 




80):C 


11 


IF (KO) OR (I>7) THEN BflOhESSBGE ( 'SOCKET NUMBER OUT OF RANGE') 
ELSE 




801;C 


12 




SO'kC 


12 


BEGIN 




806 :C 


12 


EPROnDfiTfl'.PRESENT[I] := NOT EPROMDflTfl'. PRESENTS ] ; 




80 7:C 


12 


PRINTSOCKETS; 




803 :C 


12 


END; 




80);C 


10 


END 




81 ):C 


10 


ELSE BEEP; 




811;C 


9 


END 




81-!:C 


9 


ELSE 




81 !:C 


9 


IF (OPo'Q'l THEN 

IF STREfiMING THEN BHDCOMMHND (OP) 




814:C 


10 




816:0 


U 


ELSE BEEP; 




81i>:S 








81 l:C 


6 


RECOVER 




81 !:C 


6 


BEGIN 




819:C 


6 


LOCKUP; 




820 :C 


6 


SnvEIO ;= lORESULT: 
SflVEESC := ESCfiPECODE; 




821 :C 


6 




82;? :C 


6 


lORESULT := SflVEIO: 

IF (SSVEESCoO) fIND (SPVEE3C<>-10) THEN lORESULT :« ORO ( INOERROR) ; 




82?;C 


6 




824 :C 


6 


LOCKDOUN: 
PRINTIOERRMSG; 




826:C 


6 




826:C 


6 


FIXLOCK: 




827 :C 


6 


IF SflVEfSCoO THEN ESCfiPE(SBVEESC) ELSE OP := ' '; 




82R;C 


6 


END; 




829:3 








830:: 


S 


UNTIL OP-'Q'; 
END; < DOCONFieuRE > 




831:C 


3 




83:1 :S 








83):D 


-890 2 


(»**«*****#**«*»«***»*****#* *********#«*«**«********«***«*»x««***«#i«****«*««*) 




834:0 


2 


PROCEDURE DOTRHNSFER; 




83S:0 


3 


TYPE 




836:0 


3 


HEHOREC - PPCKED nRRaY[0..17) OF BYTE; 




837:S 








838:0 


3 


HEHDP = RECORD 




839:0 


3 


esse BOOLESN OF 


11-378 


840:0 


3 


TRUE : (BINT:INTEGER); 
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341 :D 




3 


FALSE: (BPTR:-"HEnDREC) ; 




842 ;D 




3 


END; 




843 :D 




3 


VHR 




844 :D 


-122 


3 


FILENH.IEl : FID; 




845 :D 


-244 


3 


SOURCEFILE : FID; 




846 :S 










847 :D 


-2i5 


3 


FILEdOVED 


BOOLEAN; 




848 :D 


-246 


3 


DONE 


BOOLEAN; 




849 :D 


-247 


3 


FORMfiT 


BOOLEAN: 




850 :S 










851:D 


-252 


3 


I 


INTEGER; 




852 :D 


-268 


3 


J 


INTEGER; 




353. -D 


-260 


3 


EPHRT 


INTEGER; 




854 :D 


-264 


3 


INSTfiTE 


INTEGER; 




855 :D 


-268 


3 


OUTSTflTE 


INTEGER; 




856:0 


-272 


3 


BUF 


BIGPTR; 




857 :D 


-276 


3 


POSITION 


INTEGER; 




858 :D 


-280 


3 


nOVESIZE 


INTEGER; 




859 :D 


-284 


3 


nsiZE 


INTEGER; 




860:0 


-288 


3 


BUFSIZE 


INTEGER; 




861:0 


-292 


3 


OUTSIZE 


INTEGER; 




862 :D 


-296 


3 


SRVEIO 


INTEGER; 




863:0 


-300 


3 


SHVEESC 


INTEGER; 




864:0 


-304 


3 


DUMUINDOU 


UINDOUP; 




865 :D 


-322 


3 


EDHEPDER 


HEADREC; 




866:0 


-578 


3 


MSGLINE 


3TRING[255l ; 




867:0 


-658 


3 


DIRCBTENTRY 


CATENTRY; 




868:0 


-862 


3 


BLflNKCHK 


HEADP; 




869:0 


-663 


3 


flNSUER 


CHAR: 




870:3 










871;C 




3 


BEGIN { OOTRflNSFER ) 




872 :C 




3 


DOCONFlGURErFflLSE): 
FGOTOXY(OUTPUT,0.li): 
OJRITELNCTRHNSFER OPERflTION' .CTEOS) : 




873 :C 




3 




874 :C 




3 




875 :C 




3 


CHECKEPROM; 




876:3 










877:C 




3 


URITECSource (' .DKVIO,' :) ? ' ); 

REflDLN(FILENflnei) • GOODIO; 

FILENflllEl := STRLTRIh (STRRTRIM ( F] 1, ENfiME 1 ) ) ; 




878:C 




3 




879:C 




3 




880 :C 




3 


IF STRLENIFILENfiHEl 1=0 THEN FI LENPNEl : •DKVID+ ■ : ' : 




881 :C 




3 


ZfiPSPflCES(FILENnnEl) j 




882 :C 




3 


IF STRl.EN(FILENfll1El )>0 THEN 




883 :C 




4 


WITH EPROnORTfl' DO 




884 :C 




5 


BEGIN { HAVE H SOURCE NfiME ) 




885:C 




5 


WITH ININFO DO 




886 :C 




6 


BEGIN IJIROPEN := FALSE; FILEOPEN := FALSE; MOUNTED := FALSE; END; 




887:C 




5 


MARK[LHEflP); HEAPINUSE := TRUE 




888 :C 




5 


NEUUORDS(DUMUINOOUI,1) ; { DUMMY UINOOW FOR FILE TRANSFER ) 




889 :C 




5 


TRY 




890 :C 




6 


UITH ININFO, CFIB DO 




891:C 




7 


BEGIN 




892 :C 




7 


.; OPEN THE SOURCE ) 




893 :C 




7 


setupfibforfile(filenrme1,ofib,cpvol); 
:f strlen(Ftitle)=o then 




894 :C 




7 




895 :C 




8 


BEGIN < VOLUME -> EPROU ) 

USEUNIT := UNITNUMBER(CPVOL) ; OSTATUS := DUBNTED; 
IF USEUNIT THEN CVOL := " ELSE CVOL ;= CPVOL; 




886 :C 




8 




897 :C 




8 




898 :C 




8 


MOUNTED := [FUNIT>0) AND NOT (UNITNUMBER ( FVID ) ) ; 
IF MOUNTED THEN CVCL := FVID ELSE INMOUNT (TRUE) ; 




899 :C 




8 




900 :S 
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901:C 




8 


LOCKUP; < LOCK THE KEYECiARO THEN OPEN THE VOLUME ) 

FBUFFERED := FALSE: 

FKIND := UNTYPEDFKE; FEFT ;= EFTTABLE" [FKIND] ; 




902 :C 




8 




903 :C 




8 




904 :C 




8 


CALL (UNI TABLE'EFUNIT] . DAM, CFIB, FUNIT ,OPENVOLUME) ; 
FILEOPEN := (IORESULT=OR[) ( INOERROR) ) ; 




905 :C 




8 




906 :C 




8 


LOCKOOUN; { UNLOCK THE KEYBOARD > 




907:C 




8 


GOOD 10; 




908 :C 




8 


< FINISH THE SETUPT > 




909:C 




8 


OUTSIZE := FPEOF; 




910:C 




8 


SOURCEFILE := "; 




911:C 




8 


FTID := "; 
FORMAT := FALSE; 




912:C 




8 




913:C 




8 


FG0T0XY(OUTPUT.0,14 : 
URITELNCTRANSFERRING VOLUME ',FVID,':'); 




914:C 




8 




915:C 




8 


END ( VOLUME -> EPROn ) 




916:C 




8 


ELSE 




917:C 




8 


BEGIN ( FILE -> EPROn > 




918:C 




8 


OPENDIR( FILENAME 1, SOURCEFILE,' SOURCE' , ININFO, DIRCATENTRY) ; 
IF NOT BIROPEN THEN ESCAPE (0; 
IF STRLEN(SOURCEFILE)=0 THEN 

BHOMESSAGECCAN' 't TRANSFER fl DIRECTORY'); 




919:C 




8 




920:C 




8 




921:C 




9 




922 :C 




8 


FTITLE := SOURCEFILE; 




923 :C 




8 


FINITB(CFIB,DUMUINDOU, -3) ; 
PRTHID := pAtH; 




924 :C 




8 




925 :C 




8 


LOCKUP; 




926 :C 




8 


CRLL(UNITflBLE''[FUNIT] .DAM, CFIB . FUNIT, OPENFILE) ; 
FILEOPEN -.' IORESULT=ORD(iNOER^OR); 




927 :C 




8 




928 :C 




8 


LOCKDOUN; 




929 :C 




8 


GOOD 10; 




930 :C 




8 


FORMAT := (FKIND = flSCIIFILE) OR ( FKI ND"TEXTFI LE ) ; 




931 :C 




8 


OUTSIZE :» FLEOF; 




932 :C 




8 


FGOTOXY(OUT PUT, 0,14) ; 

URITELnI'TRBNSFERING FILE ' ,CVOL ,':' .SOURCEFILE .CTEOL ) ; 




933 :C 




8 




934 :C 




8 


END; < FILE -> EPROM ) 
END; { UITH ININFO, CFIB -- OPEN THE SOURCE ) 




935 :C 

936 :S 

937 :C 




7 






6 


< ALLOCATE BUFFER SPACE > 




938 :C 




6 


BUFSIZE := (MEMAVAIL DIV 2561 « 256 - 30 « 512: (SAME SOME FOR SLOP) 
IF BUFSIZE<512 THEN ESCAPE;-2); ( NOT ENOUGH ROOM ) 
NEUIlJORDS(BUF, BUFSIZE DIV 2); < ALLOCATE BUFFER SPACE ) 




939 :C 




6 




940 :C 

941 :S 

942 :C 




6 






6 


( GET START ADDRESS ON EPROM ) 




943 :C 




6 


MSGLINE ■■' • ' : 




944 :C 




6 


UITH EPINFO DO 




945 :C 




7 


IF SOURCEFILE = " THEN 




946:0 




8 


BEGIN ( VOLUME TRANSFER ) 
( SET DEFAULT START BLOCK ) 
TEMP := 0; 




947 :C 




8 




948:0 




8 




949 :C 




8 


CUTSTBRTA := EPSTART ; 




950 :C 




8 


CONE := FALSE; 




951 :C 




8 


REPEAT 




952 :C 




9 


IF PRESENT[TEMP] THEN 




953:0 







BEGIN { SOCKET PRESENT, CHECK CONTENTS > 
BLANKCHK.BINT := OUTSTARTR; 




954:0 









955:0 







IF (BLANKCHK,BPTR"[0)=2S5) AND 




956:0 






(BLHNKCHK.BPTR'-[lj=265) THEN CONE := 'RUE 
ELSE 




957:0 








958:0 






BEGIN < INCREMENT TO NEXT BLOCK > 




959:0 






OLiTSTARTA := OUTSTHRTA tK 16 : 


11-379 


960 :C 






IF 


TEMP<7 THEN 



HascoJ liiev 3. cm b/ 4/84] ETU.TEXI 



26-Dec-84 23:04:01 Page 17 



9f 1 :C 


1.: 


962 :C 


1] 


9t3:C 


111 


964 :C 


10 


965:C 


10 


966:C 


10 


967 :C 


10 


968 :C 


10 


969:C 


9 


970:S 




971 :C 


8 


972:C 


9 


973 :C 


9 


974:C 


9 


97S:C 


9 


976:C 


8 


977:S 




978:C 


3 


979:C 


8 


980:C 


8 


981 :C 


8 


982:C 


8 


963:C 


a 


984:C 


8 


965:C 


8 


986:C 


8 


987:C 


8 


968:C 


8 


989:0 


8 


990;S 




991 :C 


6 


9S2:C 


6 


993:3 




994:C 


6 


995:C 


b 


996:C 


6 


997:C 


7 


9S8:C 


7 


9S9:C 


7 


10CO:C 


7 


10()1:C 


t5 


10C2:C 


7 


1003:C 


7 


1004 :C 


8 


1005:S 




1006:C 


7 


I0C7:C 


7 


1008:C 


7 


1009:C 


7 


1010:C 


7 


1011:C 


7 


1012:C 


8 


1013:C 


8 


1014:C 


8 


101S:C 


8 


1016:C 


7 


1017:S 




1018:C 


6 


1019:C 


6 


1020:S 





I*** File name: ETU 
TEMP*1 : 



') 



IF OUTSTnRTH>=flDDRESS[TEnP*l] THEN TEMP 
ENO; 
END 
ELSE 

BEGIN ( SKIP EtIPTy SOCKET PfilR > 

IF TEt1P<7 THEN TEMP := TEMP'l; 
OUTSTflRTfi := OUTSTflRTfl*EPINC ; 
END; 
UNTIL DONE OR (OUTSTHR TR>EPEND ) j 

IF OJTSTSRTH>EPEND THEN 
BEGIN 

LJRITELN('«»« NO BLRNK BLOCK ON THIS EPROM CPRO »««'); 

0UTSTHRTfl:=EP3TflRT; 
END: 
OUTSTflRTn := (OUTSTfiRTH-EPSTflRT ) DIV K16; 

WRITECStart at EPROn block offset ('OUTSTflRTfi:!, 

REHDNUftBERfOUTSTSRTH); OUTSTflRTfi : =0UTSTfiRTfl»K16 ; 

STRUIRITE(nSGLINE, 1,1, 'BLOCK OFFSET NOT INRHNGE 
(EPSIZE DIV K16)-l:l); 
END 
ELSE 
BEGIN { FILE TRfiNSFER > 

OUTSTflRTn := 0; ( DEFflULT VfiLUE > 

URITECStart at EPROtI byte offset ( ' ,OUTSTflRTn : 1 , ' 

REfiONUMBERfOUTSinRTH); 

STRLJRITE(f1SGLINE,l ,1 ,'BYTE OFFSET NOT IN RANGE 0. 
END; 

IF OUTSTfiRTB>(EPSIZE-l ) THEN BflOtlESSflGE (MSGLINE ) ; 
OUTSTflRTfi := OUTSTflRTfl ♦ EPINFO .EPSTflRT; 

( CHECK TO SEE IF DRTH UILL FIT IN fiVfllLHBLE EPROM SPACE > 
J ;= OUTSIZE; ( VOL / FILE SIZE ) 

IF SOURCEFILE=" THEN 
BEGIN 

J := J t 18; { HDD HEADER > 

J := J + (J DIV K16)«2; ( ADD 16K HEflDER GAPS > 
END; 

IF NOT CHECKSPnCE(OUTSTARTfi,J,I) THEN 
BEGIN 

IF I<=0 THEN 

BEGIN URITELNCNO EPROM flT START ADDRESS'); BflOIO (INOERROR ) ; ENO; 



? '); 
,EPSIZE-1 :1); 



,J-I:1, 



BVTES' ,CTEOL); 



URITELNCDATB EXCEEDS EPROM SPACE BV 

IF STREAMING THEN ESCAPE(-l); 

PROMPTREnD( 'Abort transfer or Truncate file (A/T) ? ', 

ANSWER,' AT ',SH EXC) ; 
IF ANSUERs'H' THEN ESCAPE (ij) ; 
IF SOURCEFILE=' ' THEN 
BEGIN 

OUTSIZE := 11-18); OUTSIZE := OUTSIZE - (OUTSIZE DIV K16)*2; 
END 

ELSE OUTSIZE :« I; 
ENO; 



INSTATE 
PASS 
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1021 :C 


6 


1022:C 


6 


1023:C 


6 


1024:C 


7 


1025:C 


8 


1026:C 


8 


1027:C 


9 


1028:C 


10 


1029:C 


10 


1030:C 


10 


1031:C 


10 


1032:C 


10 


1033:C 


10 


1034:C 


10 


103S:C 


10 


1036:C 


10 


1037:C 


10 


1038:C 


10 


1039:C 


10 


1040;C 


10 


1041:C 


10 


1042 :C 


u 


1043:0 


u 


1044:0 


u 


1045:0 


11 


1048:C 


11 


1047:C 


11 


1048:0 


11 


1049:C 


u 


1050:C 


11 


1081:0 


12 


10E2:C 


u 


10E3:C 


u 


1054:0 


11 


1055:0 


11 


10E6:C 


11 


1057:0 


11 


1068:C 


10 


1069:0 


10 


1060:0 


9 


1061 :C 


8 


1062:S 




1063:C 


8 


1064:C 


8 


1065:C 


9 


1066:C 


10 


1067:C 


11 


1068:C 


10 


1063:C 


11 


1070:C 


11 


1071 iC 


11 


1072:0 


11 


1073:C 


12 


1074:0 


12 


1075:0 


12 


1076;C 


12 


1077:C 


12 


1078:0 


12 


1079:0 


12 


1080:C 


12 
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BEGIN ( TRY THE TRANSFER > 
FIlEMOVED := FALSE; 
yiTH ININFO, CFIB , EPROtlOATA- 00 
REPEAT { MOVE THE FILE > 
DONE := FALSE; 
REPEAT 

CASE INSTATE OF 

1; BEGIN < INITIALIZE SOURCE PARAMETERS > 
FG0TOXY(0UTPUT,0,16); 
URITELN 'now on pass ' . PASS : 1 ,CTEOS) ; 
OUTPOSITION :- OUTSTARTA; 
LEFTTOXFER := OUTSIZE; 

°i 

FALSE; FEOLN 

-1; FPOS 

2; 

1; 



= FALSE; 
= 0; 



< READ THE FILE/VOLUME 1 
' ,CTE0L,CHR(13) 



POSITION 
FEOF 

FLfiSTPOS 
INSTATE 
OUTSTATE 
ENO; 
BEGIN 

URITECreading 
IF FORMAT THEN 
BEGIN { FORMATED TRANSFER } 

BNYTOnEM(flDDR(CFIB),BUF,BUFSIZE); 

DONE ;= TRUE; 

IF FEOF THEN LEFTTOXFER := 0; 

GOOOIO; 
END 
ELSE 
BEGIN ( UNFORMHTEO TRANSFER > 

IF BUFSI2E>LEFTT0XFER THEN MOVESIZE :• LEFTTOXFER 
ELSE MOVESIZE := BUFSIZE; 

CALL(UNITABLE'[FUNIT] .TM, ADOR (CFIB) .READBYTES, 

8UF-,MOVESIZE,POSITIi5n); 



LEFTTOXFER - MOVESIZE; 



GOOOIO; 
LEFTTOXFER := 
DONE := TRUE; 
END; 
END; 
END; ( CASE INSTATE ) 
UNTIL DONE; 
UJRITE(CTEOL) ; 

DONE ;= FALSE; 

IF NOT FUEMOVEO THEN 

REPEAT 

IF PASS-1 THEN URITE ( 'checking 

ELSE URITEJ'writing 
CASE OUTSTATE OF 
1: BEGIN 

< SET BURN RATE ) 
ERROR :=EBRATE (SCOOE . FASTBURN) ; 
IF SOURCEFILE=" THEN 
BEGIN < VOLUME TRANSFER > 
• PUT EDISC VOLUME HEflDER ) 



',CTE0L,CHR(13)) 
,CTE0L,CHR(13)); 



FOR I 

EDHEADER 

EDHEADER 

EDHEADER 

EDHEADER 

EDHEADER 



TO 17 DO EDHEflDER[I] :»0; 



=HEX('FO' 
=HEX('FF') 
=ORD(' '); 
=HEX('18' ) 

:«HEX('01' 
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1081:C 


12 


1082:C 


12 


1083:C 


12 


1084:C 


11 


1085:C 


11 


1086:S 




1087:C 


11 


1088:C 


11 


1088:C 


12 


1090:C 


12 


1091:C 


12 


1092 :C 


13 


1093 :C 


13 


1094:C 


13 


1095:C 


14 


1096:C 


14 


1097 :C 


14 


1098 :C 


14 


1099:C 


14 


1100:C 


14 


1101:C 


14 


1102:C 


15 


1103:C 


IS 


1104:C 


15 


1105:C 


15 


1106:C 


14 


1107:C 


13 


1108:C 


13 


1109:C 


13 


lUOiC 


13 


1U1:C 


13 


in2:C 


12 


1113:C 


11 


1114:C 


11 


lllSrC 


12 


1116:C 


12 


1117:C 


13 


1118:C 


13 


1119:C 


12 


1120:C 


11 


1121:C 


11 


1122lC 


10 


1123:C 


8 


1I24:C 


8 


1126:C 


6 


1126:C 


6 


1127:C 


7 


1128:C 


6 


1129:C 


6 


1130:C 


6 


1131:C 


6 


U32:C 


6 


1133:C 


6 


1134:C 


6 


1135:C 


6 


1136:C 


6 


1137:C 


6 


1138:C 


6 


1139:C 


6 


1140:C 


6 
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EDHEflDER[13] :=HEXf '02' ); 

BURNIT(EDHEflDER,18); 
END: 

OUTSTSTE := 2; 
END; 

2: BEGIN { WRITE DfiTB ) 

IF FORnfiT THEN nEnTOEPROn(BUF) 

ELSE 

BEGIN 

IF SOURCEFRE"- ■ THEN 
BEGIN < TRflNSFERING fl VOLUME ) 

I := 0; 
REPEflT 

( WRTCH FOR 16K BYTE BOUNDRRIES ) 

nSIZE:=( ( (OUTPOSITION-tKiei DIV K16)»K16) -OUTPOSITION: 

IF MSIZE>n0VESIZE THEN nsiZE : =NOVESIZE: 

BURNIT(BUF"[I],MSIZE); 

I := I ♦ nSIZE; 

nOVESIZE := MOVESIZE - nSIZE; 

IF ((OUTPOSITION nOD K16) = 0) BN[3 

(I10VESIZE>0) OR (LEFfTOXFER>0)) THEN 
BEGIN ( PUT ZEROES IN BOUNOfiRV BYTES > 

J:=0; BURNIT(J,21; 
END; 
UNTIL nOVESIZE=0; 
END 
ELSE 
BEGIN ( TRflNSFERING B FILE ) 

BURNIT(BUh~,hOVeSIZE); 
END; 
END; 

00N6:»TRUE: 
IF LEFTTOXFER=0 THEN 
BEGIN 

IF PfiSS=2 THEN FILEMOVED:=TRUE 
ELSE 

BEGIN PflSS:=2; INSTATE :- 1; END; 
END; 
END; 
END; { CHSE OUTSTSTE ) 

UNTIL DONE; 
URITE(CTEOL); 
UNTIL FILEMOVED: 
LIRITELN( 'TRRNSFER COnPLETED'l; 
IF FORflPT THEN I ;= OUTPOSITlON-OUTSTflRTfl 

ELSE I := OUTSIZE; 
LJRITELN(1 :1 , ' data bytes programmed and verified'); 
END; 
RELEfiSE(LHEBP); HEflPINUSE := FfiLSE; 

CLOSEBLL; 
RECOVER 
BEGIN 
LOCKUP 



RELEflS^(LHEBP): HE 

SflVEIO := lORESULT; 

SflVEESC := ESCHPECODE; 

CLOSEHLL; 

lORESULT := SflVEIO; 

LOCKDOUN; 



FALSE; 
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1141:C 

1142:C 

1143:C 

1144:C 

1145: 

1146; 

1147: 

1148: 

1149: 

IISO: 

1151: 

1152: 

1153: 

11S4: 

1155: 

1156: 

1157: 

1158: 

1159: 

1160: 

1161: 

1162: 

1163: 

1164: 

1165: 

1166:D 

1167:0 

1168: 

1189: 

1170: 

1171: 

1172: 

1173: 

1174: 

1175: 

1176: 

1177: 

1178:0 

1179:0 

1180:C 

1181:C 

1182:C 

1183:C 

1184:C 

1185:C 

1186:C 

1187:C 

1188:C 

1189:C 

1190:C 

1191:0 

1192:C 

1193:0 

1194:0 

1195:0 

1196:0 

1197:0 

1198:0 

1199:0 

1200:C 



-890 

-890 

-82 



-12 
-16 
-17 
-22 
-26 
-3* 
-34 
-34 
-34 
-34 
-38 



*»«»»««**»»*««»»«»«**««*»] 



PRINTIOERRMSG; 

IF SflVEESCoO THEN ESCAPE (SflVEESC) ; 
END; 
END; ( HAVE SOURCE NflnE ) 
END; < DOTRANSFER ) 

[tit:************************************************ 

PROCEDURE PUTnENU(nSTRING:STRING80); 
BEGIN 

FGOTOXY (OUTPUT, 0,2); 

URITE(nSTRING/ ? ',CTEOL); 
END; 

PROCEDURE DOBLANKCHECK; 
TYPE 

TU08YTES = PACKED flRRflV[0..1] OF BYTE; 
VAR 



OLDSTflRT 

START 

ENDSOAN 

NBYTES 

BLANKS 

LINES 

I 

BREC 



INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
BOOLEAN; 
INTEGER; 
INTEGER; 
INTEGER; 
RECORD 

CASE BOOLEAN OF 



END; 
BEGIN 

DOCONFIGURE(FflLSE); 
FG0T0XV(0UTPUT,0,13); 
URITELNi'BLANK CHECK" 
OHECKEPROM; 
OLDSTBRT := 0; 
BLANKS := FALSE; 
FGETXY(OUTPUT,X,Y' • ' 
WITH EPROMDATB" Di 
FOR I :=0 TO 7 DO 
IF NOT PRESENT [I] THI 



TRUE: (BPTR 
FALSE: (BINT 



"TUOBYTES); 
INTEGER); 



,CTEOS); 



< 1 

lEN 



• 0; 
DO ONE SOCKET PAIR AT A TItlE ) 



BEGIN { CLOSE OFF REPORT OF PREVIOUS PAIR ) 

IF BLANKS THEN 

URITELN(BREC.BINT-l-8flSEADDR : 1 , ' ( ' ,BREO .BINT-OLDSTART: 1 , ' ) ' 
BLflNKS:=FALSE 
END 
ELSE 

BEGIN < SOCKET PfilR PRESENT SO CHECK IT OUT ) 

BREC. BINT := flDORESS[I] : 
ENDSCAN ;= BREC. BINT ■» EPINO; 
REPEAT 

IF BLANKS THEN 
BEGIN 

IF BRE0.BPTR"tO]<>256 THEN 
BEGIN 

URI TELN (BREC. BINT -1-BASEADDR:1,' (' , BREC .BINT-OLDSTART : 1 , 
BLANKS:»FflLSE; 
END; 
END 



')'); 
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12C1 :C 
12C2:C 
12C3:C 
12C4:C 
12C5:C 
12C6:C 



12C7: 

1208: 

12C9: 

1210: 

1211: 

1212: 

1213: 

1214: 

1215: 

1216: 

1217: 

1218: 

1219; 

12;0: 

1221:C 

1222:C 

12J3:C 

1224:S 

12JS:D 

1226:C 

1227:C 

I228:C 

1229:C 

1230:C 

1231:C 

1232:C 

1233:C 

1234:C 

123S;C 

1236:C 

1237:C 

1233:C 

1239:S 

1240:C 

1241:C 

1242:C 

1243: 

1244; 

1245; 

1246 

1247: 

1248: 

1249: 

1250: 

1251 : 

1262: 

1253: 

1264: 

1265 :C 

1266:C 

1257:C 

1258:C 

1253:C 

1260 :C 



UR!TE(CTEOS) 



:- ELSE 

5 BEGin 

s IF BREC.BPTR"[0:=26S THEN 

9 BEGIN 

9 IF LINES>5 THEN 

10 BEGIN 

10 LINES := 0: SPflCEUfllT 

10 FGOTOXY(0UTPUT,X,Y) : 

10 END: 

•J LINES ;= LINES * 1: 

3 OLDSTflRT := BREC.BINT; URITE (OLDSTfiRT-BfiSEfiDOR ,' - '); 

9 ELflNKS:=TRUE; 

9 END; 

8 END; 

7 BREC.BINT := BREC.BINT » 1 ; 

7 UNTIL BREC.BINT=ENDSCHN; 

6 IF BLSNKS AND (I»7) THEN 

7 URITELN(BREC.BINT-1-BHSEBD0R:1,' ( ' , BREC . BINT -OLDSTBRT : 1 , ' ) ') ; 

6 END; { FOR I :=...} 

3 IF OLDSTfiRT=0 THEN URITELNCNO BLRNK SPACE FOUND'): 

3 END; < DOBLBNKCHECK > 

2 (***««******♦*****»»****************»***«*#««****««**«****»:«)(;« ***!(:****«* 

2 BEGIN < COnnflNOLEVEI. ) 

2' FIXLOCK: 

2 UITH ININFO 30 BEGIN DIROPEN : = FBLSE : FILEOPEN:=FflLSE : END; 

2 HEBPINUSE := FRLSE; 

2 lORESULT := ORD ( INOERROR) j 

2 SCOOE ;= 0; TEMP := 0; 

2 FfiSTBURNI := FflLSE; { DEFFlULT BURN RATE ) 

2 EPROMLIST ;= NIL; { NO EPROfI CARD INFO YET ) 

2 FINDCARO (FALSE) ; { FIND fl PROGRRMMER CARD ) 

2 TRY 

3 DOCONFIGURE(FflLSE); { DISPLAY DEFRULT CONFIGURATION > 
3 RECOVER 

3 IF ESCAPECODEoO THEN ESCAPE (ESCRPECODE ) ; 

? FG0T0XY(0UTPUT,0,13) : 

2 URITELN 'Cop/right 1983 Hewlett-Packard Company.'); 

2 URITELNr fill rights are reserved.'); 



REPEAT 
TRY 



PROnPTFORCHRRCETU: Transfer Configure Blankcheck Quit', OP); 
tHEN "- ■"■ 



IF OP=SH EKC 



OP:='Q'; 



IF OP='T' 

ELSE 

IF OP='C' 

ELSE 

IF OP='B' 

ELSE 

IF OP='a' 

ELSE 

IF STRERtUNG THEN BfiOCOnnflND (OP) 
ELSE BEEP; 
RECOVER 
BEGIN 



THEN DOTRHNSFER 
THEN DOCONFIGURE(TRUE) 
THEN DOBLfiNKCHECK 
THEN BEGIN END 



Pascal [Rev 3,0M 6/ 4/84] ETU.TEXT 



26-Dec- 



23:04:01 Page 22 »«« File name: ETU 



1261;C 
126.?;C 
1263:C 
1264 ;C 
1265;C 
1263 :C 
1267:C 
1263:C 
1263:C 
1270 :C 
1271 :C 
1272:C 
1273;C 



SAVEIO: 

AND (SAVEESC< 



10) THEN lORESULT 



1274 
1273 
1278 
127? 
1273 
1273 
1280; 
1281: 
128.;; 
1283; 



4 LOCKUP; 

4 IF HEBPINUSE THEN RELEASE ( CHEAP) 

4 HEAPINUSE := FflLSE; 

4 SflVEIO := lORESULT; 

4 SflVEESC := ESCRPECODE; 

4 CLOSEflLL; 

4 lORESULT ;= 

4 IF (SflVEESCoO) 

4 LOCKDOUN; 

4 PRINTIOEIJRnSG; 

4 FIXLOCK: 

4 IF SRVEESCOO THEN ESCAPE (SRVEESC 

4 END; 

3 UNTIL OP='Q' ; 

2 END {CONMANDLEVEL) ; 



BEGIN 

UJRITELN(CLEflRSCR); 

FGOTOXY OUTPUT.O.l); 

URITELNf'EPROn TRANSFER UTILITY (4-Jun-84) ' ) ; 

COntlRNDLEVEL; 
END. 



ORD (INOERROR); 



*x***^*» 



No errors. No warnings. 

***** Nonstandard language features enabled 
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F9885 



Description 

F9885 is the transfer method (TM) for the 9885 flexible disc drives. 



Requirements 

lODECLARATIONS, GPIODVR. 



Notes 

Although the 9885 drive uses the 98622 GPIO interface and the 98620 DMA card, it does not 
require the lOLIBRARY GPIO and DMA modules. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
softvi^are which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S (« 

2:S 

3:S (c) Cop/right Hewlett-Packard Company, 1983. 

4:S fill rights are reserved. Copying or other 

5:S reproduction of this program except for archival 

6:S purposes is prohibited without the prior 

7:S written consent of Hewlett-Packard Company. 

8;S 

9;S 
10:S RESTRICTED RIGHTS LEGEND 

U:S 

12:3 Use, duplication, or disclosure by the Government 

13:S is subject to restrictions as set forth in 

14:S paragraph (b) (3) (B) of the Rights in Technical 

15:S Data and Computer Software clause in 

16:3 OfiR 7-104. 9(a) . 

17:3 

18:S HEULETT-PfiCKHRD COflPflN* 

19:D Fort Collins, Colorado «) 

20:S 
21:S 

22:D SmodcalS 

23:0 Sdebug ..^f, range off, ovflcheck off$ 

24:D Sstackcheck off, iocheck off$ 

25 : S 

26:0 Ssearch 'GPIODVR', ' lOLlB :COnHSn' , ' lOLIB :KERNEL'$ 

27:S 
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28:D $page$ 

2:3:0 Scopyright 'COPYRIGHT (C) 1983 BY HEULETT-PflCKflRD COnPflNY'S 

30 :S 

31:0 program F9885init: 

32 :S 

33 . s 

34:D 1 module F9885dvr: 
315 . 2 

36 :D 1 import 

37:D 1 sysglobals, trdni, gp, iodec larations, iocomasm, misc: 

38 :S 

39:0 1 export 

40:0 1 procedure F968510 (fp: fibp; request: amrequest type; anyvar buffer: window; 

41:D 2 length, position: integer); 

42:D 1 implement 

4,-!:S 

44;S 

4'i:D 1 procedure F9885io: 

46:3 

47:0 2 type 

48:0 2 errors = (noerror, nopower, dooropen, nodlsc, badcommand, norecord, 

49:0 2 notrack, badcheckword, dataoverrun, badverify): 

50:3 

51:0 2 primarycommands = (readblock, verifyblock, writeblock, set t racksector ) ; 

53:0 2 fd = {floppy disc command & status structure) 

54:0 2 packed record case integer of 

55:0 2 -1: (w: shortint); 

56:0 2 0: (case primary: prima rycormands of 

S7:D 2 readblock, verifyblock, writeblock: 

S8:D 2 (drv: 0..3; nrecords: 0..4095): 

S9:D 2 settracksector: 

60:D 2 (drlv: 0..3; track: 0..127' sector: 0..31)); 

61:0 2 1: (pad: 0..15; errcode: errors; p2, t ransfercompiete, 

62:0 2 seekcomplete, notready, writeprotected, dooropened: boolean; 

63:0 2 drve: 0. .3) ; 

64:0 2 end; 

65:3 

66:0 2 gpio_enable,_type = packed array[0..1] of gpio_r3_t ype; 

67 :S 

68:0 2 const 

69:0 2 maxtries = 10; 

70:0 2 password = -20857; 

71 :S 

72:0 2 gpio enable = {gpio enable bytes for the 2 OrlH channels) 

73:0 2 gpio erable_type 

74 :D 2 [ gpio_r3 type 

75:0 2 [ UenaE: false, W3pad:0, U>«ord:true, Udmacl : false , UdmacO:true ], 

76:D 2 gpio_r3 type 

77:D 2 t Uena^: false, U3pad:0, LJword:true, Udmacl : t rue, Udmac0:fal5e ] 1; 

78:D 2 var 

79 : D -4 2 uep: ^unitentry; 

80:0 -8 2 9Ptr: "gpiotype; 

81:0 -12 2 tptr: pio tmp_ptr; 

82:0 -16 2 bufptr: cKarptr; 
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83:D 


-16 


2 


84 :S 






36 :D 




2 


86:C 




3 


87 :C 




3 


88:C 




4 


89:C 




S 


90:C 




3 


91 ;C 




3 


92:3 






93:S 






94 :D 




2 


9S:C 




3 


96:C 




3 


97:C 




4 


98:C 




4 


99:C 




4 


100:C 




3 


101. -C 




3 


102:C 




3 


103:3 






104:S 






105:D 




2 


106:D 




3 


107:0 




3 


108:D 




3 


109:0 




3 


110:0 


-8 


3 


111:0 


-12 


3 


112:0 


-18 


3 


113:0 


-22 


3 


114:D 


-22 


3 


115:0 


-22 


3 


1!6:D 


-22 


3 


117:C 




3 


118:S 






119:C 




3 


120:S 






121 ;C 




3 


122:C 




3 


123:S 






124:C 




3 


12S:C 




3 


12$:C 




3 


127:C 




3 


128:C 




3 


129:C 




3 


130:S 






131 :C 




3 


132:C 




4 


133:S 






134:C 




3 


135;C 




4 


136:C 




4 


137:C 




4 


138:C 




S 


139:C 




4 
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2 IpageS 

procedure clear_unit; 
begin 

wit h gpt r'*" do 

if stil or stiO then 
ioresc (znodevice) ; 
gpioclear (gpt r'") ; (also tests psts while waiting for ready) 

end; 

procedure clear_and_escape (escape_vci],ue: shortint; iores^value : integer) ; 
begin <clea'-_a'nd_e5cape> 
try 

gpioclear(gptr'') ; 
recover 

<do nothing); 
ioresult := iores_value; 
escape (escape^value) ; 
end; {clea r._a nd_e s c a pe ) 

procedure transfer! record_addr , total_words : integer ) ; 
var 

gpiodma_proc : procedure (van gpic: gpiotype; 

command: snortint; enable_byte; gpici_r3_type; 
var dma channel: dmachanneltype; 
buffer :"charptr; length: Integer); 
Stat u'j , opcode : fd; 
Chan, tries, sectors: shortint; 
words: integer; 
const 

reque;it__status = fd 

[ primary: sett racksector, driv; 0, track: 127, sector: 31 ]; 
begin {t ranr:f er) 

if not dma_here then ioresc (zbaddma) ; 

gptr'^.rS ;= 0; {setup gpio card) 

gpt r-", r7 := 0; 

gpiowordout (gpt r", password) ; {Issue password) 

opcode := reqjest_status; 

opcode. driv := uep^.du; 

gpiowordout (gpt r'-, opcode. w); {issue request status command) 

gpiowordout (gpt r", 0); {clear output regs & request data word) 

status. w := gpiowordin (gpt r'^) ; {input status word) 

if (status. drveouep^.du) or ( stat us . padoO) then 
clear_and_e5cape(-10, ord(zcatchaJl)); 

if status .dooropened then 
begin 

uep^. umediavalid := false; 
if uep^.ureportchange then 
ioresc (zmediumchanged) ; 
end; {if) 
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140:C 


3 


141:S 




142:C 


3 


143:C 


3 


144 :C 


4 


14S:C 


4 


14$:C 


S 


147:C 


5 


148:C 


S 


149:C 


5 


150:C 


S 


161:C 


5 


1S2:S 




153:C 


S 


154;C 


6 


165:C 


6 


1S8:C 


5 


157:5 




1S8:C 


S 


159:C 


6 


160:C 


8 


161 ;C 


5 


162:S 




163:C 


S 


164:C 


S 


165:C 


5 


18e:C 


5 


167:C 


6 


168:C 


6 


169:C 


6 


170:C 


e 


171 :C 


6 


172:C 


6 


173:C 


6 


174;C 


8 


175:C 


6 


176:C 


6 


177;C 


6 


178:C 


S 


179:C 


S 


180:C 


S 


181 :C 


5 


182:C 


S 


183:C 


5 


184:C 


5 


18S:C 


5 


186 :C 


6 


187;C 


6 


188:0 


8 


189;C 


5 


190;S 




191 :C 


4 


192:C 


S 


193:C 


S 


194:0 


s 


195:0 


s 


186:0 


s 


197:0 


s 


198:0 


s 



tries := 0; 

while total_words>0 do 
begin 
try 
gpiowordout (gpt r'", password); 



opcode . primary 
opcode .driv 
opcode . t rack 
opcode . sector 



sett racksector; 
= uep".du; 
= record addr div 30; 

recordladdr mod 30; 



gpiowordout (gptr", opcode. w); 

repeat 

Chan :« dma^request ( tptr ) ; 
until chan>«0; 
if (chanoOj and (chan<>l) then ioresc (zcatchall); 

if total_words<»65536 

then words := total words 

else words ;» 65536J 
sectors := (words* 127 J div 128; 

gpiowordout (gptr*^, password); 
opcode. drv :» uep .du; 
opcode. nrecords := sectors; 
case request of 

readbytes, startread: 
begin 

opcode . primary :» readblock; 
9piodma_proc := gpiodmain; 
end; 
writebytes, startwrite: 
begin 

opcode . primary := writeblock; 
gpiodma_proc := gpiodiraout ; 
end; 
end: (case) 
cali(gpiodma_proc, gptr", opcode. w, gpio_enable [chan] , dma_port [chan] , bufptr, words); 

iore5c(inoerror) ; {invoke prcper cleanup) 
recover 
begin 

gptr'^.rS := 0; {disable the gpio card) 

dma release(tptr)- {release the dma resource) 

if Tescapecode=-10) and 

( (ioresult = ord (inoerror) ) or Cioresult= ord (zcatchall) ] ) 
then ioresult := ord (inoerror ) 
else clear and_escape(e5capecode, ioresult); 
end ■ { recover }~ 

with gpt r" do 
begin 

r7 := 1; (set the end of transfer bit) 

Uldata := 0; {clear bidirectional buffer for reading status) 

setpctl := 0; {request the status word) 

St atus .w : = gpiowordin (gptr'^); {save the status word) 

'"' "= 0; {clear the end of transfer bit) 



end; (with) 
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19'i;C 


4 


20" :S 




20- :C 


■1 


20: :C 




20j:S 




20': :C 


4 


20'. :C 


s 


20h:C 


p. 


20- :C 


b 


20r::C 


6 


20y;C 


7 


21li:C 


6 


211 :C 


6 


21. :C 


6 


21:0 


6 


21'. :C 


6 


21S:S 




21i.;C 


6 


21 -iC 


6 


21i;:S 




21'i:C 


ij 


22" :C 


I 


22! :S 




22; :C 


6 


22,: :C 


6 


22'i : C 


7 


22'. :C 


7 


22t.:S 




22.' :C 


6 


22(i:C 


6 


22!) ;S 




230:C 


6 


23!:C 


6 


23; ;C 


6 


23: :C 


6 


23i:C 


7 


23! :C 


7 


23t :C 


7 


23 :C 


7 


23HC 


7 


23!i:C 


6 


241: ;S 




241 :C 


6 


24; :C 


6 


24: :S 




244 :C 


6 


24! :C 


6 


24t :C 


6 


24 V :S 




24;:: 


4 


24::. :S 




25C :C 


3 



0/ ^/O'* 



^D-uec-of 



if ( 5t at us .drveouep'^. du) or (st at us . pad<>0) then 
C-Lea r_and__e scape [-10, ord(zcatchall)); 

wit h status do 
c.i5e errcode of 
noe r ro r ; 
begin 

if notready or {not seekcomplet e ) or (not t ransfercomplete ) then 
clear__and_escape(-10, ord(2catchall) ); 



tries 
record_addr 
tot al_word5 
buf pt r 
end; 



= record_addr+ sectors; 
= total words-words; 
= addr[&ufpt r^,words*2) 



nopower : 

iore5c(znodevice); 

dooropen, nodisc : 
ioresc (znomedium) ; 

badcommand : 

if writeprotected and ( ( request=wrltebyte5) or ( request = startwrite) ] 
then iore5c(zprotected) 
else clear_and_escape (-10, ord(zcatchall)); 

not rack : 

ioresc (znoblock ) ; 

no record, badchecltword : 
begin 

tries : = t r ies + l ; 
if I ries>=maxt ries t hen 
begin 

if er re ode= no record then ioresc [znoblock): 
if er rcode=badcheckword then ioresc (zbadblock) ; 
ioresc (zcatchall ) ; 
end; {if} 
end; 

dataoverrun : 

ioresc [zb ad hardware) ; 

ot herwise 

clea r and^escape (-10, ord(zcatchall)); 
end; {case") 

end; {while) 

; {transfer) 



Pasca-l [Rev 3. ON 



26-0ec-84 21:39:37 Page 6 «»* File name; F9885 *«♦ 



25; :S 




25.: :C 


2 


25'i :C 


2 


25! :C 


2 


25f :C 


3 


257 :C 


3 


25^ :C 


3 


25': : C 


3 


261- : C 


4 


261 :C 


5 


26; :C 


5 


26!- :C 


5 


264 ;C 


5 


26' :C 


5 


26f :S 




267 : C 


4 


261 :C 


5 


26'.. : C 


5 


27(. :S 




271 :C 


5 


27? : C 


5 


27r-:S 




274 :C 


5 


27t : C 


5 


276 ;S 




277 :C 


5 


27f :C 


5 


279 :C 


5 


280 :C 


6 


281 :C 


5 


282 :C 


5 


283 :C 


6 


284 :C 


5 


285 :C 


6 


286;C 


5 


287:C 


5 


28S:3 




28S:C 


5 


290;C 


5 


291 :C 


5 


292:3 




293:C 


4 


294 ;C 


4 


296 :C 


4 


296;: 


4 


297 :C 


4 


298 :C 


4 


299 :C 


4 


300 :C 


3 


301 :C 


2 


302:3 




303 :C 


1 


304:3 




306 :S 




306 : D 


1 


307:3 




308:0 


1 


309:0 


1 


310:3 





■)/ 4/84] F9885.TEXT 

EpageJ 

begin (F9885io) 

uep := addr(ijnitable'^[fp'^.funit]); 
if uep^.offline then ioresult := ord(znodevice) 
else 
begin 
lockup; 
try 
with i5c_t able [uep" . sc] do 
begin 

if card_id<>hp98622 then ioresc (z node vice) ; 
got r ;- card_pt r ; 
XoXr ; = io_tmp_pt r ; 
end; (with) 

case request of 
clearuni t : 
clear_uni t ; 

unit St at us : 

fo". fbusy := false ; 

flush: 

(do nothing); 

re ad bytes, writebytes, start read, startwrite: 
begin 

if uep-^. ureportchange and not uep"^. jmediavalid then 

io resc (zmediumc hanged) ; 
bjfpt r := addr {buf fer) ■ 
if (position mod 256<>0] or odd (integer {bufpt r ) ) then 

io resc (zbadmode ) ; 
if { posit ion<0) or (length<0) or (posit ion+lengt h>fp'' . fpeof ] t hen 

ioresc f ieof ) ; 
t rans fer ((posit ion + fp".fileid + uep''.byteoff set) div 256, (length+1) div 2); 
end; 

otherwise 

ioresc (ibad request) ; 
end; {cases) 

ioresc (inoer ror ) ; (set ioresult S perform lockdown) 
recover 
begin 

lockdown ; 

if eficapecode<>-10 then escape (escapecode) ; 

if {request^startread) or (request^startwrite) then call( fp". feot , f p) ; 
end ■ ■' recover ) 
end; {else ) 
end; (fSsSSio) 

end; {f9885dvr) 

> program F9885init ) 
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311 :C 1 begin (F98S£inil> 
312:C 1 markuser; 
313;C 1 end. (F9885init) 
314:S 
315;S 

No errors. No warnings. 

*««>:* Nonstandard language features eriabled ***** 
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GCRT 



Description 

GCRT contains high-level code for the high-resolution 9837A CRT, including the TM, the debugger 
window handler, and the dump graphics procedure. 



Requirements 

SYSGLOBALS, ASM, MISC, and SYSDEVS. 



Notes 

This module is linked with GASSM (in the assembly listings) to produce the INITLIB module CRTB. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 

2:S 




(« 




3;S 




(c) Copyright Hewlett-Packard Company, 1984. 




4:S 




All rights are reserved. Copying or other 




S:S 




rep-oduct ion of this program except for archival 




6:S 




pur;-)ose5 IS prohibited without the prior 
written consent of Hewlett-Packard Company. 




7:3 
8:S 
9:S 












10:S 




RESTRICTED RIGHTS LEGEND 




11 :S 








12:S 




Use, duplication, or disclosure by the Government 




13:S 




is subject to restrictions as set forth In 




14:S 




paragraph (b) (3) (B) of the Rights in Technical 
Dat.i and Computer Software clause in 




15:S 






16:S 




DBR 7-1 04.9 ( a) . 




n:S 








18:S 




HEWLETT -PflCKflRD COMPANY 




19:D 




For- Collins. Colorado *) 




20;S 








21:S 








22:D 




$modcal$ 




23:D 




$heap dispose off$ 




24:0 




Siocheck off$ 




25:0 




Srange off$ Sovflcheck off$ 




26:0 




Sstackcheck off$ 




27:0 




Ssearch ' INITLOfiO ' , ' ASM' , ' INI T ' , ' SYSDEVS '$ 




28:S 








29;D 




program initcrtb; 




30:S 








31:S 








32:0 




1 module crtb: 

1 import sysglobals, asm, misc, sysdevs; 




33:0 






34:0 




1 export 




35:S 








36:0 

37:S 
38:0 




1 function gatorcrt type : boolean; 






1 implement 




39:0 








40:0 




1 const 




41:0 








42:3 








43:0 




1 environc=environCmiscinfo;crtf rect 




44:0 




1 nobreak :false. 




45:0 




1 stupid :false. 




46:0 




1 slowterm: false. 




47:0 




1 hasxycrt : true . 

1 ha5lccrt:FHLSE, (INDICBTES BITnflP) 




48:0 






49:0 




1 hasclock: true. 




50:0 




1 canupscroll :true. 




61:D 




1 candownscroll : true] , 




52:0 




1 crttype:0, 




53:D 




1 crtct r 1 :crtcrec [ 




54:0 




1 rlf:chr(31), 
1 ndfs:chr(28). 




55:0 






56:0 




1 eraseeol :chr (9) , 




57:0 




1 eraseecs:chr (11 ) , 




58:0 




1 home : c l-i r ( 1 ) , 
1 escape :chr [0) , 




59:0 






60:0 




1 backspace:chr (8) , 
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61 :D 




1 fillcount : 10, 




62:0 




1 clearscreen :chr (0) , 




63:0 




1 clearline :chr (0) , 




64 :D 




1 prefixed:b9[9 of false]), 




6S:D 




1 crtinfo:crtirec [ 




66:0 




1 width :128, height :47, 




67:0 




1 crtmemaddr :0, 




68:0 




1 crtconl roladdr :0, 




69:0 




1 keybufferaddr : 0, 




70:0 




1 progstateinfoaddr : 0, 
1 keybuffersize : 119, 




71:0 






72:0 




1 crtcon: crtconsttype [ 0, 0, 0, 0, 0, 0, 0, 
1 0,0, 0, 0,6), 




73:0 






74 :D 
75:D 




1 right<FS):chr(28), 

1 leTt(BS):chr 8), 

1 down<LF>:chr 10 , up(US) :chr ( 31 1 , 




76:0 






77:D 




1 badch(?S:chr 63), 

1 chardel(BS):chr (8) ,5top{DC3> :chr(19). 




78:D 






79:D 




1 break(0LE>:chr(16i, 




80:D 




1 flu5h<flCK>:chr(6), eof <ETX) : chr (3 ) , 
1 altmode(ESC>:chr(57), 
1 Hnedel(DEL):chrtl27), 




81:D 






82:0 






83:D 




1 backspace{BS) :chr (8) , 

1 etx:chr (3) ,prefix:chr(0), 

1 prefixed:bl4[14 of false], 




84:D 






65:0 






86:0 




1 cursormask : 0, spare : 0]]; 




87:S 








88:S 








89:S 








90 :S 








91 :D 




1 type 




92 :S 








93:0 




1 scrtypc = packed array[0 . .maxint ] of crtword; 




94:0 




1 scrpt r='^scrtype; 




95:S 








96:3 








97:0 




1 crt regtype = 0- . 15; 




98:0 




1 crtcmdwrd = packed record case integer of 




99:0 




1 0: (topbyte, botbyte: byte); 




100:0 




1 1: (longword: shortint); 




101:0 




1 2: (pl,p2, textfield, softfield: boolean): 




102:0 




1 end; 




103:S 








104:S 








105:0 




1 var 




106:S 








107:0 


-4 


1 cursoraddr: integer; 




108:0 


-6 


1 screenwidth: shortint; 




109:0 


-8 


1 screenheight : shortint ; 




110:0 


-10 


1 maxx: shortint; 




111 :D 


-12 


1 maKy: shortint; 




112:0 


-14 


1 screens ize : short int ; 




113:0 


-16 


1 default highlight ; shortint; 




114:0 


-18 


1 highlight : shortint ; 




I15:S 








116;S 








117:D 


-18 


1 proredure ccha r [c , x . y : shor t int ) : exte r nal ; 




118:D 


-18 


1 procedure changecursor ; exterr.al; 
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119:0 


-18 


1 procedu'e esc rollup ;e> te rnsl ; 


120:0 


-18 


1 prOL'?dure c sc roll down ; e' te rnal ; 
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121:D 

122:D 

123:D 

124:D 

12S:D 

12$:D 

127: 

128: 

12" 

130: 

131: 

132: 

133: 

134: 

135: 

136 ;S 

137:D 



138: 

139: 

140: 

141: 

142: 

143: 

144: 

145: 

14S: 

147: 

148: 

149: 

160: 

161:0 

162:0 

163:0 

154:0 

165:0 

166:S 

1S7:C 

158:S 

159:C 

160:S 

161:C 

162:S 

163:C 

164:C 

165:C 

166:C 

167:C 

168:C 

169:C 

170:S 

171:C 

m-x 

173:C 
174:C 
175:C 
176:C 
177:C 
178:C 
179:C 
180:C 



-140 
-148 
-152 
-156 
-160 



1 procedure 

1 procedure 

1 procedure 

1 procedure 

1 procedure 

1 procedure 
\l 

1 procedure 

1 procedure 

1 procedure 

1 procedure 

1 procedure 

1 

1 procedure dumpg 



cclear(x,y,n:5hortint);exterral; 

cupd atecur so r(x,y: short Int); externa]; 

cbuildt able; external; 

cshiftleft; external; 

cshiftright; external; 

cexcnan3e( savearea: windowp; ymin, ytnax, xmin, width: shortint); 

external ; 

cscrollwindow( ymin, ymax, xmin, width: shortint); external; 

CSC rollwinddn( ymin, ymax, xmin, width: shortint); external; 

cdbscrolll( ymin, ymax, xmjr, width: shortint); external; 

cdbscrollr( ymin, ymax, xmin, width: shortint); external; 

cdbhighl( c, x, y: shortint); external; 



label 1; 

const 

gwidthb = 128- 
gmaxheight = 512; 
gbuffersize = gwidthb + 7; 

type 

gbyte = 0. .255; 

row_def = packed array [0 ..( 1024*768 ) -1 3 of gbyte; 

var 

row ; ''row_def; 

gbuffer : packed array [1 . .gbuffersize] of char; 
l,j : integer; 
index : integer; 
bit_mask : integer; 
result : integer; 

begin 

row := anypt r ( f rameaddr ) ; 

write (gf iles [4]', «27'*rfl' ) ; { initiate graphics sequence > 

gbuffer[l] := chr(2?); < escape sequence for graphics > 

gbuffer[2] := '»' 

9buffer[3] := 'b' 

gbuffer[4] := T 

gbuffer[5] := '2' 

gbufferte] :• '8' 

9buffer[7] := 'W 



for J := to 767 do 
begin 

for i := to 127 do 
begin 

result := 0; 
index := j«1024+i«8; 
bit_ma5k := 256; 

for index := index to index+7 do 
begin 

bit_ma5k := bit^mask div 2; 
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181:C 

182:C 

183:C 

184:C 

185:C 

186:C 

187:C 

188:S 

189:C 

190:C 

191 :C 

192:S 

193: 

194: 

195: 

196: 

197: 

198: 

199: 

200: 

201: 

202: 

203:C 

204 :C 

205:C 

206 :S 

207:0 

208:C 

209:C 

210:C 

211:C 

212:C 

213:C 

214:C 

215:C 

216:S 

217:0 

218:C 

219:C 

220:C 

221 :C 

222:S 

223:S 

224:0 

225:0 

226:0 

227 :C 

228:C 

229:C 

230:C 

231:C 

232:C 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

240: 



if odd( row^tindex] 
end; 

gbuffer[i*81 := chr(result); 
end; 

write(gfiles[4]",gbuffer :9widthb*7) ; 
if ioresult <> ora(inoer ror ) the.n goto 1; 
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then result := bit mask*result; 



2 1: 
2 end; 



end ; 
write(gfiles[4]',»27'«rB'); 



< terminate graphics sequence > 



procedure doupdatecursor; 
van cursaddr: crtcmdwrd; 
begin 

cupdatecursor (xpos, ypos) ; 
end : 

procedure getxy(var x,y: integer); 

begin 

X := xpos; y :* ypos; 

end : 

Crocedure setxy(x, y: shortint); 
egin 
If x>=screenwidth then xpos:=maxx 
else if x<0 then xpos:=0 
else xpos := x; 

if y>=screenheight then ypos:=maxy 
else if y<0 then ypos:=0 
else ypos := y; 
end; 

procedure gotoxy(x,y: integer); 
begin 

setxy(x, y) ; 

doupdatecursor; 
end; 



edure clear (number : shortint); < REVISED FOR 3.01 > 
x.y: shortint; 
clearchars: shortint; 



begin 
X ; = 
whi 



xpos; y:=ypo5; 

le number>0 do begin 

f maxx-x+l<number then 

clearchars :=maxx-x+l 
Jse 

clearchars : = numbe r ; 
clear (x,y,c lea rchars); 
umber : = number-clea rchars; 
0; if y<maxy then y:=y+ 



end : 
end : 



1 procedure scrollup; 
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241:C 
242:C 
243;C 



244 : 

245: 

246: 

247: 

248 

249: 

250: 

251 : 

252: 

253: 

254: 

255: 

256: 

257: 

258 :D 

259:C 

260:C 

261 :C 

262 :C 

263 :C 
264: 
265: 
266: 
267: 
268: 
269: 
270: 
271 : 
272: 
273: 
274: 
275: 
276: 
211:0 
27S:C 
279:C 
280:C 
281 :C 
282:C 
283:C 
284 ;C 
285;C 
286:C 
287 :C 



288: 

289: 

290: 

291 : 

292: 

293: 

294 : 

295: 

296: 

297 :C 

298:C 

299 :C 

300:C 



2 begin 

2 cscrollup; 

2 ena. 

1 procedure scrolldown; {neyj 

2 begjn 

2 cr.cro J Jdown; 
2 end: 
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1 funition maptoc rt (c : char 1 : short int ; 

< Ccnverts Katakana codes to their correct CRT font storage codes. 

2 Note that the Yen symbol overla/s the usnscil backslash (\). ) 

2 procedure mapkanatocrt ; 

3 const 

3 ycnromlocat ion ~ 138; { location of Ven symbol in font storage ) 
3 yencode=92; 
3 begin 

3 If ord(c) - yencode then maptocrt := yenromlocat ion 

4 else if ord(c)<128 then maptoc r t : =ord (c ) 

5 else maptocrt:- ord(c]+128; 
3 end; { rnapkanatocrt > 

2 begin 

2 if kbdlang - katakana_kbd then mapkanatocrt 

3 else maptoc rt :=ord(c ) : 
2 end; 



amrequest type ; anyvar buffer: window; 

length, position: integer); 



1 procedure docrtio(fp: fibp; request 
2 

var c : char ; 

s : St r ing [1 ] ; 
buf: charptr; 
begin 
ioresult := ordfinoerror ) ; 
buf := 3ddr(buffer); 
case request of 
(uwait: ; ) 

setcursor: gotoxy (f p*^. fxpos, fp^.fypos); 
qetcursor: getxy (fp^.fxpos, fp".fypos); 
flush: (do nothing); 

uritstalus: kbdio(fp, request, buffer, length, position 
clearunit; highlight :- defaulthighlight ; 
readtoeol : 



begin 

buf := addr (buf", 1) ; 

buffer[0] :■= chr(O) ; 

while length>0 do 
begin 

kbdio{fp, readtoeol, 
if 5lrlen(5)=0 



1, 01; 
then length 



( else if s[l] = chr(etx) then length 
else begin 

lengt h := length - 1 ; 

crtio(fp, writebytes, s[l], 1, 0); 

buf := addr(buf'', 1) ; 

buffer[0) := chr (ord (buf fer [0] )♦! ) 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318:C 

319:C 



320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340:C 

34 1 : C 

342 :C 

343 :C 
344:: 
345:C 
346:C 
347:C 
348:C 
349 :C 
350:C 
35! :C 
352:C 
353:C 
354:C 
356:C 
356:C 
357:C 
358:C 
359:C 
360:C 
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end; 
end; 
star t read, 
readbytes : 
begin 

while length>0 do 
begin 

kbdio(fp, readbytes, buf~, 1, 0); 
if buf" = chr(etx) then length := 

else length := length - 1- 
if buf" = eol then crtio(fp, writeeol, buf-^, 1, 0) 

else crtio(fp, writebytes, buf", 1, 0); 
buf :» addr(buf", 1); 
end; 
if request = startread then call ( fp". feot , f p) ; 
end; 
writeeol: begin 

if ypo5=maxy then scrollup; 
gotoxy (0 , ypos+1 ] ; 

end; 

startwrite, 
wr itebytes : 
begin 

while length>0 do 
begin 

c:=bLif"; buf : = addr(buf",l) ; length :=length- 1 ; 



case c of 

homechar : 
lef tchar : 

rightchar : 

upchar : 

downchar : 

bel Ichar : 
cteos : 
cteol : 
clearscr : 
eol : 

chr(etx) : 
otherwise 



setxy[0,0) ; 

if (xpos = 0) and (ypos>0) then setxy(maxx, ypos-1) 

else 5etxy(xpo5-l , ypos); 

if (xpos = maxx) and (ypos<maxy) then setxy(0, ypos+1) 

else 5etxy(xpo5+l , ypos); 

begin if ypos <= 1 then scrolldown; 

if ypo5>0 then setxy(xpos, ypos-1); 
end; 

if ypos-maxy then scrollup 
else setxy(xpos, ypos+1); 
beep; 
clear[5creensize-(ypos*screenwidth+xpos)); 
clear (screenwidth -xpos); 

begin setxy(0,0]; clear (screensize) ; end; 
setxy (0 , )fpo5) ; 
length : =0; 
if (ord(c)>=128) and (ord[cJ<144) then 

highlight:= (ord (c ) -128)»256 
else 
begin 
cnangecursor ; 

ccha r ( ma ptocrt(c), xpos, ypos) ; 
changecursor ; 
if xpos = maxx then 
begin 

if ypos = maxy then scrollup; 
setxy (0, ypos+1 ) ; 
end 
else setxy (xpo5+l , ypos); 
end ; 
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361 


:C 


362 


:C 


363 


:C 


364 


■.: 


365 


:C 


366 


:C 


367 


:C 


368 


:C 


369 


:S 


370 


:D 


371 


:S 


372 


:D 


373 


:D 


374 


:S 


375 


•c 


376 


S 


377 


C 


378 


S 


379 


C 


380 


S 


381 


C 


382 


S 


333 


C 


384 


c 


385 


c 


386 


c 


387 


c 


388 


s 


389 


c 


390 


c 


391 


c 


392 


c 


393 


c 


394 


s 


395 


c 


396 


s 


397 


c 


398 


c 


399 


c 


400 


c 


401 


c 


402 


c 


403 


c 


404 


c 


405 


s 


406 


c 


407 


s 


408 


c 


409 


c 


410 


s 


411 


c 


412 


s 


413 


D 


414 


s 


415 





416 


D 


417 


D 


418 


s 


419 
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S end; 

4 doLjpdatecursor ; 

4 end; (while) 

3 if request = startwrite then call [ fp" . feot , fp): 

3 end; ' yi> 

3 otherwise ioresult := ordjibadreques'i; 
3 end; (case) 
2 end; 

1 procedure lineop5[op: crtllops; aryvar position: integer; c: char); 

-4 2 var i , j : short int ; 
-8 2 sptr; '^string255; 

2 begin 

2 j: = highlight; highlight :=defaulthighl ight ; 

2 case op of 

3 cllput: cchar (mapTocrt (c) , position, sc reenheight ) ; 

3 cUshiftl: 
3 begin 

3 cshiftleft ; 

3 cchar[ord(' '), maxx-S, screenheight ) ; 

5 end; 

3 cllshiftr: 

3 begin 

3 cshiftrighl; 

3 cchar(ord(' '), 0, screenheight); 

3 end; 

3 cllclear: cclear(0, screenheight, maxx-7); 

3 clldisplay: 

3 begin 

3 sptr :=addr (position) ; 

3 for i: = l to strlen(5ptr'^) do 

'* cchar [maptocrt (spt r'Ci] ) , i-i , screenheight); 

3 for i: = st rlen(spt r'^] to (maxx-8) do 

4 cchar[ora(' '), i, screenhe.-iqht); 
3 end; 

3 putstatus: cchar(ord[c), maxK-7+ position, screenheight); 

3 end; ^ of case > 

2 highlight : = j ; 

2 end; 

:i procedure crtdebug(op: dbcrtops; var dbrec: dbcinfo); 

2 type 

2 iptr = ^iarray; 

2 iarray = a r ray [0 . .max int ] of shortint; 

-2 2 var i : short int ; 
-6 2 j : integer; 
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421 
422 
423 
424 
42S 
426 
427 
428 
429 
430 
431 
432 
433 
434: 
435: 
436: 
437 
438: 
439: 
440: 
441 : 
442; 
443; 
444; 
445; 
446; 
447: 
448: 
449; 
450: 
451: 
452; 
453: 
454: 
455: 
456: 
457: 
458: 
459: 
460: 
461: 
462; 
463: 
464: 
465: 
466: 
467: 
468: 
469: 
470:C 
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■10 2 tempaddr: integer; 

2 begin 

2 with dbrec do begin 

3 case op of 

4 dbinfo: savesize : = (xmax-xmin+1 )* ( ymax-ymin*! )*128; {assumes 8x14 char) 
4 dbgotoxy: cupdatecursor (cursx, cursy); 

4 dbscroliup: esc rollwindow( ymin, ymax, xmin, xmax-xmin+1); 

4 dbscrolldn: esc rollwinddn (ymin , ymax , xmin, xmax-xmin*l}; 

4 dbscrolll: begin 

4 cdbscrolllCymin, ymax, 

A- changecursor ; 

A- for i:=ymin to ymax do 

cchar (ord ( ' ' ) , xma> 
changecursor; 
end : 



471: 

472:C 

473:C 

474:C 

475:C 

476:5 

477:C 

478:C 

479:C 

480:C 



xmin, xmax-x 
.. i); 



i); 



dbscrollr: begin 

cdbscrollr(ymin, ymax, xmin, xmax-xmin+1) 
changecursor; 

for i:=ymin to vmax do 

cchar (ord ( ' ' ) , xmin, 
changecursor; 
end; 

dbhighl: cdbhighl( ord(c], cursx, cursy); 

dbput : begin 

changecursor ; 

i:=highlight : highlight :=defau It highlight ; 
cchar[ ord(c), cursx, cursy): 
highlight ;=i ; 
changecursor; 
end; 



dbclear : 

for i:=ymin to ymax do 

cclear( xmin, i, xmax-xmin+1); 



dbcline: cclear( cursx, cursy, xmax 



-cursx+1 ) ; 



dbinit : 
begin 

for j;= to (savesize div 2)-l do 
iptr(savearea)'"[j] :=0; 



rsx : =xmin 
dcursoraddr 
areaisdbcr t 
end; 



cursy :=ymjn; 

■f rameaddr ; 
-true; 



dbexcg : 

begin 

changecursor ; 
cexcnange( savearea, 
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481 :C 4 tempaddr :=cur5oraddr ; 

482 :C 4 cursoraddr:=dcursoraddr; 

483 :C 4 dcursoraddr : = tempaddr; 

484 :C 4 changecursor; 

485 :C 4 areai5dbcrt:=not areaisdbcrt; 

486:C 4 end; 

487:S 

488:C 4 

489:C 4 end; ( of case > 

490:C 3 end; { of with > 

491;C 2 end; { crtdebug procedure ) 

492:S 

493:D 1 prticedure dummy; 

4C4 :C 2 beqin end; 

495 :S 

496:5 

497:D 1 procedure gatorc r t ini t ; 

498:D -2 2 var i: shortint; 

499 : 5 

500:C 2 begin 

501 :C 2 ]dle:^245; { set io char to romanS value ) 

502:C 2 with sysconr^.c rt info do begin 

503 :C 3 5Creenwidth:=width; 

504 :C 3 scree n he igh-t: = height; 

505 :C 3 maKx:=5creenwid1h-l; 

506 :C 3 maxy:^screenheight-l; 

507 :C 3 scree nsize :=screenwidt h* screen height ; 

508:C 3 cbuildtable: 

509 :C 3 highlight :=0; defaul t highlight :=0; 

510:C 3 gotoxy(0,0); 

511 :C 3 dumpalphahook := dumpg; 

512:C 3 dumpgraphicshook := dumpg; 

513 :C 3 updatecur son hook :=doupdatecurbor ; 

514 :C 3 dbc rt hook :=crt debug; 

5l5;C 3 crt llhook:=lineops; 

516:C 3 crtiohook:=docrtio; 

517:C 3 crtinithook:=ga1orcrtinit; 

518 ;C 3 togglealphahook :=dummy; 

519:C 3 toggle9raphic5hook:=dummy; 

520 ;C 3 currentcrt;=bi imaptype; 

521 :C 3 keybuffer''. max size ;=ma>;x~8; 

522;C 3 end; 

523:C 2 end; 

524:0 -18 1 

525 :S 

526:5 

527 :0 1 function 9aTorcrttype:boolean; 

528:0 2 const gatorid=25; 

529:D -4 2 var pi r : "shortint; 

530 :D -6 2 i : shortint ; 

531:0 -8 2 dummy: short in t ; 

532:0 -9 2 found: boolean; 

533:S 

534:S 

535:C 2 beqin 

536:C 2 bi imapaddr : =0; 

537:C 2 f oiind :- false ; 

538:C 2 pt r : =anypt r [hex ('560000' )) ; 

539:5 

540 :C 2 trv 
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541 :C 3 dummy : = pt r'^; 

542:C 3 if (dummy mod 128) = gatorid then begin 

543:C 4 found:=true; bitmapaddr:=integer(ptr); 

544 :C 4 end; 

545 :C 3 recover 

546:C 3 if escapecode<> -12 then escape (escapecode) ; 

547 :S 

548 :S 

549:C 2 (»«*««***** NOTE COMnENTED OUT CODE BELOU ««**«««*«> 

550:5 <ptr :=anyptr(hex( '680000') ); 

S51:S i:-0; 

552:S while (i<=31) and not found do begin 

553:S try 

554 :S dumniy:=pt r"'; 

555;S if (dummy mod 128) = gatorid then begin 

556:S found:=true; bitmapaddr :=integer (pt r ) ; 

557:S end; 

558 :S recover 

559:5 if escapecode<>-12 then escape (escapecode) ; 

560 :S 

561 :S pt r:=anypt r{ integer (ptr) +65536) ; 

562:5 i:=i+l; 

S63;C 2 end; > 

564 :S 

565:C 2 gatorcrttype:=found ; 

566:5 

567:C 2 if found then begin 

568 ;C 3 syscom^:=environc ; 

569:C 3 gatorcrtinit ; 

570:C 3 end; 

571:5 

S72:C 2 end; 

573:5 

574:5 

575:3 

576 :S 

577:8 

578:C 1 end; < of module -- I hope > 

579 :S 

580:0 1 import crtb, loader; 

581:3 

S82:C 1 begin 

S83;C 1 if gatorcrttype then markuser; 

584 :C 1 end. 

585:5 

No errors. No warnings. 

***».* Nonstandard language features enabled ***** 
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G_DRV 



Description 

G_DRV provides low- level driver support. 



Usage 

G_DRV is used by the 98622 interface. 



Requirements 

GPIO and the I/O library kernel (lODECLARATIONS, etc. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Pa,ckard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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(» 

(c) Copyright Hewlett-Packard Company, 1983. 
Mil rignts are reserved. Copying or other 
reproduction of this program except for arcrival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
:5 subject to restrictions as set forth in 
(paragraph (b) (3) (B } of the Rights in Technical 
Data and Computer Software clause in 
[IBR 7-104. 9(a) . 

HEULETT-PnCKfiRO COHPflNY 

f-orl Collins, Colorado *) 

SSEBRCH 'IOLlB:t;ERNEL. CODE'S 

SMODCflL 0N$ 

SPPRTIRL EVPL 0N$ 

SSTBCKCHKK 0N$ 

IRPNGE OFFI 

SDEBUG OFF$ 

SOVfLCHECk OFF$ 



1 :S 




2:S 




3:S 




4:S 




5:S 




6:S 




7:S 




8:S 




9:S 




10:3 




11 :S 




12:S 




13:S 




14:3 




1S:S 




16:S 




17:S 




18:3 




19:D 





20 :S 




21:S 




22 :D 





23:D 





24 :D 





25:0 





26 :D 





27 :D 





28:0 
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29:D 
30:3 
31 :D 
32:D 
33:D 
34:D 
35:D 
36:D 
37:D 
38:D 
39:D 
40:0 
41:0 
42:0 
43:0 
44:0 
45:0 
46:0 
47:0 
48:0 
49:0 
50:0 
51 :D 
52:0 
53:0 
54:0 
55:0 
56:0 
57:0 
58:0 
59:0 
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SPflGES 











1 *» 


*****«**«**«»**«**** 


«***********■*****«*)********** 






















not RELEASED 




VERSION 3.0 


















;** 


*.*** 


**:**«*********** 


*;**** >,:.s*-*-* + *Jt(*X******»i!*: .*:**** 



































lOLIB 




GPI0_DRIVER3 































'[** 


»^iit* 


(c***»«»iK**«*#*** 


***************************** 





1* 






























library 


- 


lOLlB 









name 


- 


GPIO DRIVERS 





1* 




module (;; ) 


- 


init gplo 





i * 






- 


extg 





I* 













i* 




author 


- 







i* 




phone 


- 







:* 













i* 




date 


- 


June 1 , 1981 





■ * 




update 


- 


fiuq 1 , 1983 
?????????????? 









release 


" 










[* 




source 


- 


IOLIB:G DRV. TEXT 





1* 




object 


- 


I0LlB:G~DRy.CODE 





(* 













(** 


***« 


HI*****!********** 


****«»:**»****«************;»** 
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eO:D 


$PflGE$ 




61:D 





*^ 


*********♦****#***#!»!*«*# 


62 :D 





* 






63:D 





* 






84 :D 





« 




BUG FIX HISTORY 


65:D 





* 






68 :D 





» 






67:D 





* 




BUG « BY / ON 


68:0 





* 








69:D 





* 






70:D 





» 








71:D 





* 




09/22/82 


72:D 





* 






73:D 





* 






74 :D 





»« 


*****»**«*»!«************ 



* ) 

- afte- release l.O *) 

:i 

1.0C DESCRIPTION *) 
*j 

gpio_ini t ialize Allow execute of driver * 

and have it install * ) 

itself in the system. *) 

* ) 
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This is the source code fo- an external procedures library 
to be used for general pjrpcse interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 

1 . KERNEL modules 

2. driver modules 

3. lOLIB modules 

The KERNEL modules consist of the following modules - 

1. iodeclarat ions ( contains static r/w space ) 

2. iocomasm 

3. general_0 ( initialization & low level 
routines like ioread/iowrite) 

The KERNEL modules also have an executable program segement 
that gets e?<ecuted at the time it is loaded. This program 
initializes the static read/write memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is not a driver for it. 

The driver modules consist of the actual assembly or PfiSCflL 
routines that deal with a specific interface card. There is 
also an executable program segment for each driver module. 
This program searches the select code table in the static r/w 
initialized by the KERNEL general module for all select codes 
that have the right interface car? [ HPIB drivers will search 
for the 98624 interface ). This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLIB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 
SYSTEM. INITLIB file as object code ( not EXPORT text ). The 
export text will reside on the SYSTEM .LIBRflRV file, the rest 
of the library will reside on the SYSTEM. LIBRARY . 
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11S:D 





119:D 





120:0 





121 :D 





121:0 





12o:0 





124:0 





12;-. :0 





12f:D 





12V :0 





128:0 





129:0 





130:0 





131 :0 





13; :0 





133:0 





134:0 





13;.:D 





13t:D 





137:0 





13f :D 





130:0 





14C :D 





141 :0 





14;:0 
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**************** 



9826 I/O Oesigners Guide 
68O00 Manual 
Pascal alpha site ERS 
Pascal I/O Library ERS 
9826 HPL EIO S 100 listings 
9826 HPL nisc . I/O Doc . 
9826 card documentation 
Pascal I/O Library IRS 






notoroia ] 



Mfg. Specs, ) 
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143:0 
144:0 



SPfiOES 

I'ROGRRH gpio_initiallze ( INPUT 
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, OUTPUT ); 
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145 :D 



146: 

147: 

148:0 

149 :D 

1S0:0 

151:0 

152:0 

153:D 

164:S 

15S:S 

1S8:S 

157:S 

158:S 

1S9:S 

iaO:S 

161:S 

162:S 

163:S 

164 :S 

165:0 

166:S 

167:0 

163:0 

169:S 

170:0 

171:S 

172:0 

173:0 

174:0 

175:0 

176:0 

177:0 

178:0 

179:0 

180:0 

181:0 

182:0 

183:0 

184:0 

185:0 

186:0 

187:S 

188:0 



SPHGES 



GPIO DRIVERS 



EXTERNBL MODULE extg; 



XX***XX**X****X*>li*it:^***^******iHtt* 



************* 



< 



date 

update 



08/25/81 
10/13/81 



purpose This module is a declaration of the importation text for 
t he external drive rs . 

note The assembly language code that is imported needs to be 
called 'extg'. The routines need to be called 
'extg_@f?<3i(?@$' ' eg init referenced below would be 
extg_eg_init . 'eg"^ refers to GPIO. 



1 IMPORT sysglobals , 










1 iodeclarat ions ; 








1 EXPORT 












1 PROCEDURE 


eg init 


( temp 


BNYPTP 


; 




1 PROCEDURE 


eg_isr 


temp 


PISRIB 


; 




1 PROCEDURE 


eg rdb 


temp 


BNYPTP 


VRR X 


CHPR) ; 


1 PROCEDURE 


eg_y<tb 


temp 


flNVPTR 


val 


CHPR); 


1 PROCEDURE 


eg rdw 


temp 


BNYPTP 


VBR X 


io_word 


1 PROCEDURE 


eg wtw 


( temp 


BNYPTP 


val 


io_word 


1 PROCEDURE 
2 


eg_rcl5 


( temp 


BNYPTP 


req 

VBR X 


io_word 
io_v;ord 


1 PROCEDURE 


eg^wtc 


( temp 


BNYPTP 


i1! 


io word 


2 








io word 


1 PROCEDURE 


eg tfr 


( temp 


BNYPTP 


bcb 


flNVPTR 


1 PROCEDURE 


eg clr 


( temp 


BNYPTP 


line 


io bit 


1 PROCEDURE 


eg_5et 


( temp 


BNYPTP 


line 


io_bit 


1 PROCEDURE 


eg_tesT 


( temp 


BNYPTP 


line 


io bit 


2 








VflR X 


boETlean 



1 END; ( of extg ) 
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18 

190: 

191: 

192: 

193: 

19 

195: 

196: 

197: 

19 

199: 

200: 

201 : 

202: 

203: 

204: 

205: 

206: 

207: 

208: 

209: 

210: 

211: 

212:S 

213:S 

214: 

215: 

216: 

217: 

218 

219: 

220: 

221: 

222: 

223: 

224: 

225: 

226: 

227:0 

228 :D 

229: 

230: 

231: 

232: 

233:C 

234 :S 

235: 

236: 

237: 

238: 

239: 

240: 

241: 

242: 

243: 

244: 

245: 

246; 

247 

248: 



1 nODULE init_gpio; 
< 

date 08/25/81 
update 10/04/82 

8/01/83 change rev number 

purpose This module initializes tbe gpio drivers. 



1 IMPORT iodeclarations 
1 EXPORT 



1 VBR 
-120 1 gpio_driver5 : drv_t able_type; 

-120 1 PROCEDURE io_init_gpio; 



-120 1 IMPLEMENT 



-120 1 IMPORT sysglobals 

-120 1 isr , 

-120 1 general , 

-120 1 extg ; 



PROCEDURE io_lnit gpio; 
VBR 

: type isc; 

: INTEGER; 

: io_byte; 



io_asc 
dummy 
lil 



BEGIR 



io revic 



io revid 



( GPIO revision added 2/5/82 TM > 



{ set up the driver tables ) 
UlTH gpio^drivers DO BEGIN 



qpio crive 


5 


;= dummy drivers 


lod Trit 


= 


eg init; 


iod isr 


= 


eg isr; 


iod rdb 


= 


eg rdb; 


iod wtb 


= 


eg wtb; 


iod rdw 


= 


eg rdw; 


iod wtw 


= 


eg wtw; 


iod rds 


= 


eg rds; 


iod wtc 


= 


eg w t c ; 


iod tfr 


= 


eg tfr; 


iod set 


= 


eg set ; 


iod cl r 


:: 


eg clr; 


iod te^t 


= 


eg test ; 
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24-. :C 


3 


2S0:S 




251 :S 




25.;C 


2 


253 :S 




254 :C 


2 


25MC 


3 


2S(..:S 




25 ^C 


4 


25n:C 


5 


2S:):3 




26(i:C 


S 


26 ■- :S 




2S;':C 


5 


26 !:S 




264 :C 


6 


26S:C 


6 


26(i:S 




2$7:C 


6 


26k :C 


6 


26;i:C 


7 


27u:C 


7 


271 :C 


7 


27; :C 


7 


27 !:C 


7 


274 :S 




27'. :C 


6 


27f. :C 


6 


277 :C 


6 


27t :C 


6 


27:':C 


6 


280 :C 


6 


281 :S 




28:: :C 


6 


28r<;S 




284 :C 


5 


28E.:S 




28f. :C 


4 


287 :S 




^8^:S 




28a :C 


2 


290 :S 




291 :C 


2 


29i :C 


3 


297:0 


4 


294 :C 


5 


295 :C 


5 


29e :C 


5 


297 :S 




29S:S 




299 :C 


2 


300 :S 




301 :C 


1 
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END; < of UITH > 
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( set up drivers for the interfaces > 

FOR io_i5c :=iominlsc TO iomaxisc 00 
WITH isc_table(io_isc] DO BEGIN 

IF card id = (ip98622 

THEN Begin 

io_drv_pt r ; = flDDR [9pio_d rivers) , 

UITH io_drv_ptr', io_tmp_ptr- DO BEGIN 

< if the card exists then link in an ISR for it > 
{ ??? - what happens if an ISR fires during init > 

lo_lvl: = ( (ioread t>yte(io i5c,3) DIV 16) nOD 4)*3; 
IF myisrib.INTRECBODR <> NIL 
THEN BEGIN 

{ if isr exists then unlink it > 

ISRUNLINK(io Ivl, ( Interrupt level 

ad3r (myisrib) ) ; { pt r to the isrib 

END; { of IF ) 



PERniSRLINKtiod isr, 

ANY PTR (Integer (card_ptr)»3), 

192, 

192, 

io Ivl, 

flD[jR(myisrib)); 

END; < of UIITH BEGIN > 

END; { of IF card_type = gpio_card } 

END; { of FOR iodise UIITH isc„table [io_lsc] BEGIN ) 

{ call the actJal driver initialization ) 

FOR io_i5c : = ioniinisc TO lomaxisc DO 
WITH isc table[io isc] DO 
IF card id = hp98522 
THEN SEGIN 

CF)LL(io drv ptr'^.iod init , io tmp ptr); 
END; ( of UITH IF ) ~ " 

END; ( of io_init_gpio ) 
1 END; < of MODULE initjpio > 



( isr 

{ int reg addr 

( int reg mask 

{ int reg value 

( int level 

{ isrib info 
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30f 
30? 
304 
30t 
306 
307 
308 
309 
310 
311 



1 inPORT 
1 



init gpio 
LOfiDFR ; 



1 BEGIN 

1 io init gpio; 

1 MflUKUSEf; 

1 END. < of gpio_init ialize ) 

^varn ings . 
***** Nonstandard language features enabled ***** 



< 367 Tn 9/22/82 > 



( 367 TH 9/22/82 > 



11-400 



GEN 



Description 

GEN contains most of the viewing transformations and color model transformations for DGL. 



Requirements 

DGL_TYPES, ASM, DGL.VARS, GLE_TYPES, and GLE_GEN. 



@ Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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7 


:S 


8 


:D 
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16 


■s 


17 


S 


18 


S 


19 


S 


20 


S 


21 


S 


22 


s 


23 


s 


24 


s 


25 


s 


26 


s 


27 


s 
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31 


s 
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35 


D 


36 


S 


36 


D 


37 


S 
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S 
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D 


40 


S 


41 


D 


42 


D 


43 


D 


44 


D 


45 


S 


46 


S 


47 


S 


48 


S 


49 


D 
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D 
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S 
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station graphics library 



«•« FiJe name: SEN 



( 

( Pascal w 

( 

( nodule 

( I'rogt ame 

( date 



= DGL GEN 
= BJS" 
= 2/1/81 



{ Purpose: To hold most internal routines 

( ^ev history 

{ 6 15-82 BJS - Added moonunit dump graphics stuff 

( 7 05-82 BJS - Removed HPGL clipping, no* uses flSn_RBS clipping 

< 7-05-82 BJS - Changes to add 9836C proto support 

< 8-;'S-S2 BJS - tlajor mods for GlE 

( (c) Copyright Hewlett-Packard Company, 1983. 
Ail rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes 15 prohibited without the prio- 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
IS subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DHR 7-104. 9|a). 

HEULETT-PflCKfiRD COtlPflNV 
Fort Collins, Colorado ) 

JmcdcalS 
$ref 60$ 

Sirclude 'OPTIONIi'S 

{ This include file specifies range checking, dtbug and other compiler 
options for the graphics library 

Sdebug OFF$ 

Srange OFF$ 

Scopyright 'COPYRIGHT 1984 BY HEULETT-PBCKflRD COMPRNY'S 

$FLOBT_HDU TESTS 



Jinclude 'OFTIONS'S 
Slinenum 3000$ 

$search 'TYPES' , 
'DGL_VRR3'. 

'GLE_LIB'$ 

module DGL_GENj 

1 import DGL_TYPES: 
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3010 


:D 


3011 


:S 


3012 


:D 


3013 


:S 


3014 


:D 


3015 


:S 


3016 


:D 


3017 


■s 


3018 


D 


3019 


D 


3020 


S 


3021 


D 


3022 


S 


3023 


D 


3024 


D 


3025 


S 


3026 


D 


3027 


D 


3028 


S 


3029 


D 


3030 


D 


3031 


S 


3032 





3033 


D 


3034 


S 


3035 


D 


3036 


D 


3037 


S 


3038 


D 


3039 


S 


3040 





3041 


S 


3042 


D 


3043 


S 


3044 


D 


3045 


S 


3046 


D 


3047 


S 


3048 


D 


3049 


D 


3060 


S 


3051 





3052 


S 


3053 


D 


3054 


D 


3055 





3056 


D 


3057 


S 


3058 


D 


3059 


D 


3060 


D 


3061 


D 


3062 


D 


3063 


S 


3064 


D 


3065 


S 


3066. 


D 


3067: 


S 


3068: 


C 


3C69: 


C 
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1 export 

1 procedure error { er ror_number : integer ); 

1 function min(pl,p2:integer] : integer; 

1 function max(pl,p2:integer) : integer; 

1 procedure locate r_lim its (Ixmin, Ixmax, 

2 lymin, lymax : real); 

1 procedu'-e caJculate^viewing; 

1 procedure di5play_l imit 5 { dxmin, dxmax , 

2 dymin, dymax ; reaJ); 

1 pro:edLire convert_intwtod [x, y : gshortint; 

2 var dx, dy : integer ) ; 

1 procedure convert_wtod (x, y : real; 

2 var dx, dy : integer ) ; 
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integer; 
integer } 

integer; 
real); 



1 procedure conYert_ltod (Ix, ly 

2 var dx, dy 

1 pro:edure convert_dtow (dx, dy 

2 var wx, wy 

1 pro:edure ck._sy5tem__init ; 

1 pru'iedure ck_display_init ; 

1 prcredure ck_locato r_init ; 

1 procedure ad j j5T_return__echo ( var rx,ry : real ); 

1 function opcode_ck (opcode ,nijm_integer,num_real : integer) : integer; 

1 procedure conve rt_^lsl_to_^gb f hje, sat, lite : real; var r,g,b : real); 
1 procedure conve rt_rgb_to_hsl (r,g,b : real; var hue,53t,lite : real); 

1 imp leme n t 

1 impkirt asm, 
1 dql_V3r5, 

1 qle gen, 

1 GLE T¥P£S: 



1 { 

1 < 

1 ( 

1 { 

1 ( 



General procedures and functions 

3 proiedure error ( error_number : integer); 

2 { PiirpG>e : To I03 a graphics error, and perform a graphics error escape ) 

2 beo.n 
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3070 


C 2 


3071 


C 2 


3072 


S 


3073 


D 1 


3074 


S 


3075 


2 


307S 


S 


3077 


C 2 


3078 


C 2 


3079 


C 2 


3080 


S 


3081 


D 1 


3082 


S 


3083 


D 2 


3C34 


S 


308S 


C 2 


3086 


C 2 


3087 


C 2 


3088 


S 


3089 


D 1 


3090 


S 


3091 


2 


3092 


S 


3093 


C 2 


3094 


C 2 


3095 


C 2 


3096 


S 


3097 


1 


3098 


s 


3099 


D 2 


3100 


S 


3101 


C 2 


3102 


C 2 


3103 


C 3 


3104 


C 2 


3105 


S 


3106 


1 


3107 


s 


3108 


2 


3109 


S 


3110 


S 


3111 


C 2 


3112 


C 2 


3113 


C 3 


3114 


C 2 


3115 


S 


3116 


1 


3117 


-16 2 


3118 


S 


3119 


S 


3120 


D -IS 2 


3121 


S 


3122 


C 2 


3123 


C 2 


3124 


C 3 


3126 


C 3 


3126 


C 3 


3127 


C 3 


3128 


C 3 


3129 


C 3 
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escape {graphics_error_number ) ; 
end; { error ) 

procedure ck_systein_init ; 

{ Purpose : To report an error if the system is not initialized ) 

begin 

If not 5y5tem_init then error (er r_sy5 _int } ; 
end; ( ck_5ytem_init > 

procedure ck_display_init ; 

{ Purpose ; To report an error if the display is not initialized } 

begin 

If not di5p_init then error (er r _dis_i^t ) ; 
end; { ck_di5play_init > 

procedure ck_locator_init ; 

{ Purpose ; To report an error if the locator is not initialized ) 

begin 

if not loc_init then error (e r r_loc_in t ) ; 
end; { ck_locator_init > 

function iDin(pl,p2;inte9er):integer; 

{ Purpose : To return the minimum of two integers > 

begin 

if (pi >= p2) then min := p2 
else min := pi ; 
end; { min > 

function max(pl,p2:inte9er):inte9er; 

< Purpose : To return the maximum of two integers > 

begin 

If (pi <= p2) then max := p2 
else max := pi ; 
end; ( max ) 

procedure order_values ( pl,p2 : ^eal; 

var rpl, ro2 : real); 

( Purpose : To return the passed in values ordered such that the smaller 

value is in rpl. ) 

begin 

if pi <= p2 then 
begin 

i-pl :' pl; 
rp2 := p2; 
end 
else 
begin 
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3130:C 
3131 :C 
3132:C 
3133;C 
3134:S 
3135:S 
3136:D 
3137:S 
3138:D 
3139:5 
3140:S 
3141 :S 
3142:S 
3143:S 
3144:S 
3145:S 
3146:S 
3147;D 
3148:S 
3149:S 
3150:0 
3151 :D 
3152:0 



3153: 

3154; 

3155: 

3156; 

3157; 

3158: 

3159: 

3160: 

3161 : 

3162; 

3163: 

3164: 

3165:3 

3166:0 

3157:S 

3168:D 

3169:D 

3170:0 

3171:3 

3172:0 



3173: 
3174: 

3175: 

3176: 

3177: 

3178: 

3179: 

3iaO:C 

3181 :C 

3182:C 

3183:C 

3184:C 

3185:C 

3186:C 

3187:C 

3188:C 

31B9:S 



rp2 
rpl 
end; 
; < order_values } 



:= pi; 
:= p2; 



1 function opcode_ck (opcode, num_integer , numreal : integer) : integer; 



2 < Purpose: 



-10 
-12 



To ck for a valid opcode passed. Opcodes are all defined such ) 
that : 

the hundreds digit = # of reals passed 

the lOOO's digit = # of integers passed 

This function returns values as follows: 

= ; ok 

= 2 : wrong i size 

= 3 ; wrong r size ) 



2 digit : array [0..4] of gbyte; 
2 i : gshortint; 

2 begin 

2 for i := to 4 do 

3 begin 

3 digit [i] ;= opcode - (opcode div U) * 10; 
3 opcode := opcode div 10; 
3 end; 

2 opcode ck := 0; 

2 if digit [2] <> num_reai then opcode_ck := 3; 
2 if digit[3] <> num_integer then opcode ck :- 2; 
2 end; 



-24 
-64 



I procedure convert_.hsl_to_rgb ( hue, sal, lite 
2 



real; var r,g,b : real); 



Ix , ly, Iz, f rac ,h 
j : integer; 



2 begin 

2 h -.' 6«hue; 



real; 



Ix 

ly 

2 Iz 



j := t rune ( h) ; 
f rac := h- j ; 



" lite* (1 .0-sat ) ; 

■-■- lite«(l .0-sat»frac); 

'= lite» (1 .0-5at»(l-f rac) ) ; 



case 1 of 

0,6 



begin r 

begin r 

begin r 

begin r 

begin r 

begin r 

end; ( of case ) 



lite; 

ly; 

Ix; 
Ix; 
Iz; 



lite; g 



= Iz; b 

■ lite; b 

= lite: b 

- ly; b 

= 1> 



= Ix 

= Ix 

= Iz; 

= lite; 

= lite; 

" ly; 



end ; 
end; 
end; 
end; 
end; 
end; 
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3190:D 
3191 :S 
3192:0 
3193:D 
3194:S 
319S:D 
3196:S 
3197:C 
3198:C 
3199:C 
3200:C 
3201 :C 
3202 :C 
3203:C 



3204 

3205 

3206 

3207 

3203 

3209 

3210 

3211 

3212 

3213 

3214:S 

3215:C 

3216:C 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228:C 

3229:C 

3230:S 

3231 :C 

3232:C 

3233:C 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 :C 

3243:C 

3244:C 

3245:C 

3246:C 

3247:C 

3248:C 

3249:C 



-24 1 procedure conver t_.rgb_To_hsl (r,g,b ; real; var hue, 5at, lite 
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real); 



-32 

-56 



2 be<iin 
2 hje 
2 sat 

2 lite 



real) 



var X : real ; 
tr,tg,tb : real; 

function max3(a,b,c 

beqin 
If (a 



if (b >= a) and [b >- c 

else 
max3 := c; 
eid : 

function min3(a,b,c ; real) : real; 



b) and (a >- c) then m3;<3 
then ma><3 



begin 
if (a 
else 
if (b 
else 
rTiin3 : 

end ; 



b) and (a <= c) then min3 
a] and (b <• c) then min3 



= 0; 
= 1 ; 



{ init values given, since values may be undefined ) 



rrax3 (r ,g, b) ; 
>: := min3(r,g,b) ; 

If lite <> then < calc hue and sat only if defined } 
beg in 

sat :» (lite - X) / lite; 

If sat <> then < calc hue only if defined, other wise defaults to old > 
begin 



tr 



:= (lite-r)/(lite-x) 
:= (lite-gj/dite-x 
:= (lite-6)/(lite-x) 



if r'-late then 










begin 










If Q'=x. then 


hue 


: = 


5 + 


tb 


else 


hue 


: = 


1- 


tg; 


end 










else 










if 9=Jite then 










begin 










if b=x then 


hue 


: = 


1 + 


r 


else 


hue 


:- 


3- 


b; 


end 










else 










begin 










if r^x then 


hue 


: = 


3 + 


9 


else 


hue 


; = 


5- 




end; 










hue :^ hue/6; 










end; 
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3250:C 
3251:S 
3252:D 
32S3;S 



26-Dec-84 22:39:44 Page 6 



3254: 

3255: 

3256: 

3257: 

3258: 

32S9: 

3260: 

3261 : 

3262: 

3263:C 

32S4:C 

3265:C 

3256:C 

3267:S 

3268 :D 

3269:0 



3270: 

3271: 

3272: 

3273: 

3274: 

3275: 

3276: 

3277: 

3278: 

3279:0 

3280:0 

3281 :0 

3282:S 



3283: 

3284: 

3285: 

3285 

3287: 

3288: 

3289: 

3290: 

3291 :C 

3292 :C 

3293:: 

3294 :C 

3295:C 

3296:C 

3297:C 

3298:C 

3299:S 

3300:C 

3301 :S 

3302:0 

3303:0 

3304:S 

3305:0 

3306:S 

3307 :C 

3308:C 

3309:C 



-16 

-16 
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end 

procedure ad ju5t_re1urnecho ( var rx,ry : real ); 

{ Purpose ; u. st return echo values for the effects of rubber 

begi n 

CHse cur rent_echo_t ype of 



File name : GEN *** 



band snap > 



5: ry := w_loc_echo_y ; ( Horizontal rubber band) 

6: rx :~ w_loc__echo_x ; ( Vertical rubber band ) 

7: { snap horz / vert rubber band 

if abs ( rx~w_]oc_echo_x) >= abs ( ry-w_loc_echo_y) then 

ry := w_loc echo_v 
else rx := w_Toc_ecna_x; 
otherwise ; ~ {no adjustment needed for othe 

erd; { of case > 
end; { ad just_return_echo ) 

( General viewing transformation routines 



rs ) 



* K ««*««««« X « 



*t»ltK****XX* 



1 


procedure convert_irtwtod ( x,y: gshortint; 


2 


var dx.dy: integer); 


2 


< Purpose : To convert form world to display cord > 


2 


var 


2 


1><, ly : integer; 


2 


Ix.ly : gshortint: 


2 


begin 


2 


If short defaults then 


3 


begin 


3 


dx :• x; 


3 


dy := y; 


3 


end 


3 


else 


3 


with scalef do 


4 


begin 


4 


tx 


= X * X display delta; 


4 


Ix 


= tx div x_window delta + x display offset; 


4 


'y 


= y * y_display_delta; 


4 


ly 


= ty div y window delta + y display offset; 


4 


dx 


= Ix; 


4 


dy 


= ly; 



end; { convert_in1wt od > 
procedure convert_wtod 



X , y : real ; 
ar dx ,dy : integer ] ; 



( Purpose 
beg 1 n 



To convert form world to display cord 



:- trunc(x 
; = t rune [ y 



xwtod_scale + xwtod__of f se t ) ; 
ywlod_sca]e + ywtod_of f se t ) : 
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3310:: 




2 


<URITELN('UIT0D (■,X:8:S,Y:8:5,')-',DK:S,DY:8);) 




331I:C 




2 


end; ( convert_wtod > 




3312:S 










3313:D 




1 


procedure convert ltod( Ix.ly : integer; 




3314:0 




2 


var dx.dy : integer ) ; 




3315:S 










3316:D 




2 


( Purpose : To convert from locator to display units > 




3317:5 










3318:C 




2 


begin 




3319:C 




2 


with gcb^ do 
begin 




3320:C 




3 




3321 :C 




3 


dx := trunc( ((Ix - log loc lim.xmin) * xltod scale) ♦ 




3322:C 




3 


cur disp lim.xmln + 0.5); 




3323:C 




3 


dy ;^ truncf ((ly - log^loc^lim . ymin) « yltod_scale) + 




3324 :C 




3 


cur disp lim.ymin + 0.5); 




332S:C 




3 


end; 




332S:C 




2 


end; ( convert^ltod > 




3327 :S 










3328:0 




1 


procedure convert dtow[ dx.dy : inteoer; 




3329:0 




2 


var y/x,wy : real]; 




3330 :S 










3331 :D 
3332 :S 
3333:C 




2 


( Purpose : To convert from display to world units ) 






2 


begin 




3334 :S 










3335:C 




2 


wx := (dx * xdtow offset) * xdtcw scale; 




3336:C 




2 


wy := (dy + ydtow offset) * ydtow scale; 




3337:C 




2 


end; { conver t_dtow~) 




3338:5 










3339:S 










3340:0 




1 


procedure locator__limits ( Ixmin, Ixmax, 




3341 :0 


-32 


2 


lymin, lymax : real); 




3342:S 










3343:0 


-32 


2 


{ Purpose : To set the locator limits ( in device units ) ) 
{ Note: This routine does not perform error eking > 




3344:0 


-32 


2 




3345:S 










3346:C 




2 


begin 




3347:C 




2 


with gcb'' do 
begin 




3348:C 




3 




3349:C 




3 


{ set the logical limits } 




3350:C 




3 


with log_loc_lim do 




3351 :C 






begin 




3352:: 






xmin := Ixmin 






3353:C 






xmax := Ixmax 






3354 :C 






ymin := lymin 






33S5:C 






ymax := lymax 






3356:C 






end; 




3357:S 










3358:: 
3359:S 
3360:: 




3 


< calculate the display / locator informs ) 






3 


xltod_scale := (cur_di&p_lim.xmax - cur_disp_lim.xmin) / 




3361:: 




3 


(log loc lim.xmax - log loc lim.xmin); 




3362:3 






" 




3363:: 




3 


yltod scale := (cur disp lirr. ymaK - cur disp lim.ymin) / 




3364;: 




3 


(log_loc_lim. ymax - log_loc_lim. ymin) ; 




3365 :S 










3366 :S 










3367:: 




3 


< set the locator echo position to the center of the window ) 




3368:S 










3369:: 




3 


with window _lim do 




Pascal [Rev 


3. on 


6/ 4/84] GEN. TEXT 26-Dec-84 22:39:44 Page 8 ««» File name: GEN »»« 




3370:C 




4 


begin 




3371 :: 




4 


w_lac echo x := Uxmax - xmin) / 2.0) + xmin; 




3372:: 




4 


w_lcc echo y := {(ymax - ymin) / 2.0) + ymin; 




3373:: 




4 


end; 




3374 :S 










3375 :C 




3 


{ convert to device units > 




3376:5 










3377:C 




3 


convert wtod ( w loc echo x, w loc echo y. 




3378:C 




3 


d_loc_echo_x, d_loc_echo_y ); 




3379 :S 










3380:C 




3 


end; 




3381 :S 










3382:C 




2 


end; { locator_lini t s > 




3383 :S 










3384 :S 










3386 :D 




1 


procedure calculate_viewing; 




3386 :S 










3387:0 




2 


{ Purpose : To calculate a new viewing transformation } 




3388 :S 










3389:0 




2 


var 




3390:0 


-8 


2 


temp : real; ( temp work var ) 




3391:5 










3392:0 




2 


procedure int_te5t; 




3393:3 










3394 :S 






{ Purpose : To see if conditions are right, and setup if so, for int_move 




3395:0 




3 


and int line to call fast integer device routines } 




3336:5 










3397:0 




3 


var 




3398:0 


-4 


3 


sxmin : integer; 




3399:0 


-8 


3 


sxmax : integer; 




3400:0 


-12 


3 


symin : integer; 




3401:0 


-16 


3 


symax : integer; 




3402:0 


-18 


3 


gsxmin : gshortint; 




3403:0 


-20 


3 


gsxmax : gshortint; 




3404:0 


-22 


3 


gsymin : gshortint; 




3405:0 


-24 


3 


gsymax : gshortint; 




3406:5 










3407:0 


-28 


3 


window delta x : integer; 




3408:0 


-32 


3 


window_delta_y ; integer; 




3409:S 










3410:: 




3 


begin 




3411:: 




3 


short fla<3 := false; 




3412:5 






~ 




3413:: 




3 


with gcb" do 




3414:: 




4 


begin 




3415:: 




4 


If disp init then 




3416:: 




5 


try 




3417:: 




6 


Jrange on$ { range eking done here > 




3418:S 










3419:: 




6 


< find device points for the corners of the window > 




3420 ;C 




6 


convert wtod(window lim.xmin , window lim. ymin, sxmin , symin) ; 




3421 :C 




6 


convert_wtod(window_lim. xmax, window_lim. ymax, sxmax , symax) ; 




3422:5 










3423:C 




6 


< convert to non-fix point form > 




34 24 :C 




6 


gsxmin := sxmin 






3425:C 




6 


gsxmex := sxmax 






3426:: 




6 


gsyrnin := symin 






3427:: 
3428:5 




6 


gsymax := symax 
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3429:: 




6 


<set up s 


ale i 







3430:C 


6 


3431 :C 


7 


3432:C 


7 


3433:C 


7 


3434;S 




3435:C 


7 


3436:C 


7 


3437:C 


8 


3438 :C 


8 


3439:S 




3440:C 


7 


3441 :C 


8 


3442:C 


e 


3443:C 


8 


3444 :C 


8 


344S:C 


8 


3446:C 


8 


3447:C 


8 


3448:C 


8 


3449:C 


8 


3450:S 




3451 :S 




3452:C 


8 


3453:C 


9 


3454 :C 


9 


3455:C 


9 


3456 ;C 


9 


3457 :C 


9 


3458 :C 


9 


3459:S 




3460 :C 


8 


3461 :C 


7 


3462:C 


6 


3463:S 




3464 : C 


6 


3465:C 


6 


3466 :C 


7 


3467 .-C 


4 


3468 :C 


4 


3469 :C 


3 


3470 :S 




3471:S 




3472:C 


2 


3473:C 


2 


3474:C 


3 


3475:C 


3 


3476 :C 


3 


3477 :S 




3478:S 




3479:C 


3 


3480:C 


3 


3481 :C 


4 


3482:S 




3483:C 


4 


3484 :C 


4 


348S:C 


5 


3486:S 




3487:C 


S 


3488:C 


5 


3489:S 





with window_lim do 
begin 

window_delta_x 
window_delta_>' 



t rune (xmax 
t rune (ymax 



^9:44 Poje 9 



t rune (xmin 1 
t rune (ymin ) 
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( ck delta window values in range > 
if (abs(window_delta_xl > 32767) or 
(abs(window_delta_y) > 32767) then 
e5Cape(-4); { force integer overflow > 

wit h scalef do 
begin 

x_di5pl3y delta := gsxmsx - gsxmin; 
x_window_5elt a := window delta x; 
x_di5play_of f set 

( [ - 1 rune (xmin ) 
y_di5play delta : 
y_window_3^elt a : = 
y_d J5play_of f set 

[ ( -t rune ( ymin) 



x_di5play_delta ) div x_window_delta) + gsxmin; 
gsymax - gsymin; 
window^delt a_y; 

y_display_delt a) div y_window_delta) + gsymin; 



if (x_display offset = 0) and 

(x_window_3'el t a = x_di5play_delta ) and 
(y_di5play offset = 0) and 
(y_window_3elt a - y_di splay_del t a) then 
5bort_def ault s ;= true 
else 

short„default5 := false; 



end; 

end; 
shori_f lag 



t rue ; 



recover { can't use int_move / int_line internal routines ) 
if [escapecode > -4) or < igonor all math and range errors > 
(escapecode < -8} then escape (escapecode) ; 
4 Jrange off$ 
end; 
end; { of procedure int_Test ) 



2 begin 



with gcb'" do 
begin 

{ set view surface limits to the logical display limits > 

c u r_d i s p_l im ; = log_d i sp_l im ; 

{ if desired aspect = aspect of logical limits then we don't need to 
redefine the limits as set above > 

if ( 3spect_rat io <> log_aspect) then 
begin 

{determine which device limits to change) 
if ( aspec t_ratio <= log_aspect) then 
begin 

{check display justification) 
if (di5p_ju5t = centered) then 



Pascal 


[R 


3490 


s 


3491 


c 


3492 


c 


3493 


c 


3494 


c 


3495 


c 


3496 


c 


3497 


s 


3498 


: 


3499 


s 


3500 


s 


3S01 


c 


3502 


c 


3503 


c 


3604 


c 


3505 


c 


3506 


c 


3507 


s 


3508 


c 


3509 


c 


3610 


s 


3511 


c 


3612 


c 


3513 


s 


3514 


s 


3S1S 


c 


3516 


c 


3517 


c 


3618 


c 


3619 


c 


3520 


c 


3521 


s 


3622 


c 


3523 


s 


3624 


s 


3525 


c 


3526 


c 


3527 


c 


3528 


c 


3529 


c 


3630 


c 


3531 


c 


3632 


s 


3533 


s 


3534 


c 


3535 


c 


3536 


c 


3537 


c 


3538 


s 


3539 


s 


3640 


c 


3541 


c 


3542 


c 


3543 


c 


3544 


c 


3645 


c 


3546 


c 


3547 


s 


3548 


c 


3549 


s 
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{set vertical limits for device on which vi 

centered within the logical display limits ) 

begin 

temp := O.S * [dyunits - (dxunits * aspect_rat io) ); 

cur_disp_lim. ymin := log_disp__lim. ymin + temp; 

eur_disp_lim. ymax := log_di sp^lim . ymax - temp; 
end 

else ( not centered ) 

{set vertical limits for device on which view space is 

lower left justified within the logical display limits 
begin 

cur_disp_lim. ymax := 

log_di5p_lim. ymin + (dxunits * a5pect_ratio) ; 
end; 
end 

else { current aspect ratio > aspect ratio of logical limits 
begin 

{cheek display justification) 
if (di5p_just = centered) then 

{set horizontal limits for device on which view space is 
centered within the logical display limits 
begin 

temp := 0.5 * (dxunits - (dyunits / aspect_ratio) ); 

cur_di5p_lim.xmin := log_disp_lim, xmin + temp; 

cur_disp_lim.xmax := log__disp__lim.xmax - temp; 
end 

else { not centered ) 

{set horizontal limits for device on which view space is 

lower left justified within the logical display limits 
begin 

cur_disp_lim.xmax := 

log_disp_lim.xmin + (dyunits / aspeet_ratio) ; 
end; ~ 



{ set clipping limits here > 
if di5p_init then 

with gle_geb^,cur_disp_lim do 
begin 

{URITELN('C -' XMIN: 19:1 8, XhPX: 19:18, VMIN: 19:18, vmx: 19: 18 
URITELN( 'CI=',TRUNC(XniN*0.5) : 19 , TRUNC [XhfiX^O . 5 ) :19, 
TRUN." 'YMIN+0.5) : 19 , TRUNC ( Ylinx*0 . 5 ) :19) ; ) 
infol := trunc(xmin+O.S); 
info2 :■= t rune ( xmax*-0 .5 ] ; 
info3 :- t rune ( ymin+0 . 5 ) ; 
info4 := 1runc(ymax+0.5); 
gle_clip_limi t s (gle_gcb) ; 
end ; 

{ recalculate the world to display transformation constants 



«#»: File name: GEN *** 
space is 
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3550:C 

3551 :C 

3552:C 

3553:S 

3SS4:C 

3555:C 

3S56:S 

3SS7:C 

35S8:C 

3559:S 

3660:C 

35S1 ;S 

3562:C 

3563:C 

3564 :S 

3S6S:C 

3S66:C 

3567:C 

3568 :S 

3569:C 

3570:C 

3571:S 

3572;S 

3573:C 

3574 :C 

3575: 

3576; 

3577: 

3S78: 

3579: 

3580: 

3581: 

3582: 

3583: 

3584: 

3585:S 

3586 :C 

3587: 

3588: 

3589: 

3590: 

3591: 

3592: 

3593: 

3594: 

3595: 

3596 :S 

3597 :C 

3S98: 

3599: 

3600: 

3601: 

3602: 

3603: 

3604: 

3605: 

3606: 

3607: 

3608 :S 

3609 :C 



3 
3 
3 

2 end 
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) / cur_vir_lim.xlim; 



( X scale and offset 
with cijr_di5p_lim do 
temp := (xmax - xmin 

xwtod_scale := temp « ( (viewport_llm.xmax - viewport lim.xmin) / 
(wandow_lim.xmax - window_iim.xmin)y; 

xwtod_offset := cur^disp_lim.xmin + (viewport lim.xmin « temp) - 
(wTndow_lim.xmin * xwtod_5caTe ) ; 



me name: GEN 
> 



xdtow_5cale := 1.0 / xwtod_scale; 



xdtow_off set 
xwtod offset 



;= - xwtod offset; 

;= xwtod_oTfset + 0.5 <0 . 00000001 > ; 



< y scale and offset 
with cur_dir3p_l im do 

temp :: = (ymax - ymin ) / 



vir_lim. ylim; 



ywtod_5cale := temp * ( (viewport_lim. ymax - view/port lim.ymin) / 
(window_lirri. ymax - window_Iim. ymin)y; 

yv/tod_of fset := cur^disp_lim. ymin + (viewport lim.ymin « temp) - 
(wTndowlim. ymin * ywtod_5caTe) ; 

1.0/ ywtod_scale; 



- ywtod offset; 

ywtod_oTfset + 0.5 {0.00000001); 



ydtow^scaJe : 

ydtow_off set 
ywtod_off set 

if disp_eq_loc then 
begin 

(if display and locator are the same physical device then set 
the locator limits to the display limits > 

with cur_disp lim do 

locator_limTt5 (xmin, xmax, ymin, ymax) ; 
end 
else 
begin 

{set the locator limits to current locator limits } 

with log_loc_lim do 

locator_lirnits (xmin, xmax, ymin, ymax) ; 
end; 

{ set up for int_move / int_line scale } 
int_test; ~ ~ 

end; 
{ calculate_viewing > 



-32 I procedure displ ay_l imit s ( dxmin, dxmax, dymin, dymax : real ); 
-32 2 { Purpose : To set the logical display limits in device units ) 



2 begin 

{URITELNCNEU DISPLfiY LIM 
2 > 



' ,0XniNil9:18,DXI1flX;19:18,DYniN:19:18,DYnflX:19:18); 
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3610:C 
3611:C 
3612:C 
3613:C 
3614;C 
3615;C 
3616:C 
3617 :C 
3618:C 
3619:C 
3620:5 
3621 :C 
3622:S 

3623 :C 

3624 :C 

3625 :S 

3626 iC 
3627:5 
3628 :C 
3629:5 

3630 :C 

3631 :C 
3632:5 
3633:C 
3634:5 
3635 :C 
3636:5 
3637 :C 



ith 


gcb'" do 








be 


gin 










set new 


1 


OQ limits > 




vith log disp lim 


do 




begin 










xmm 


= 


dxmin 






xmax 


= 


dxmax 






ymin 


= 


dymin 






ymax 


= 


dymax 






end; 









( set the display width and height ) 



dxunits := dxmax 
dyunits := dymax 



dxmin; 
dymin; 



{ calculate aspect ratio of new log lim } 
lo9_a5pect := dyunits / dxunits; 

{ set up new viewing transformation ) 

calculate_viewing; 



2 end; { display_limit5 ) 

1 end. < of module DGL_GEN > 



No errors. No warnings. 

««*«« Nonstandard language features enabled «*»*« 
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GLE_FILE 



Description 

GLE_FILE contains file drivers whicii interface tiie graphics drivers to the file system. 



Usage 

Used with display spooling for HPGL device models. Spooling for non-HPGL devices is not 
supported in DGL. 



Requirements 

GLE.TYPES and GLEUTLS. 



Usage 

Used in display spooling for HPGL device models. Spooling for non-HPGL devices is not 
supported in DGL. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1:D 
2;D 

3:D 
4:D 



10: 

11 : 

12: 

13: 

14: 

IS: 

16: 

17:S 

18:S 

19:S 

20:5 

21:S 

22:S 

23:5 

24:5 

2S:S 

26: 

27: 

28: 

29: 

30: 

31 : 

32: 

33: 

33: 

34: 

35: 

36:D 

37:S 

36: 

39: 

40: 

41 : 

42; 



9000: 

9001 : 

9002: 

9003: 

9004: 

9005: 

9006:D 

9007:5 

9008:D 

9009:D 

9010:D 

9011:D 

9012:D 



< 

< Graphics Low End 

< 

{ Module = GLE_FILE 

( Programer = BJS 

< Date = 10-10-82 

< 

{ Furpose: To provide general file drivers for ascii device handlers. 

{ Rev history 

( Created - 10-10-82 

( Modified - XX-XK-XX 

{ (c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DRR 7-104. 9(a) . 

HEULETT-PfiCKHRD COflPflNV 
Fort Collins, Colorado > 



SStHRCH •GLE_TYPES 

$modcal$ 

linclude 'OPTIONS'S < 



GLE_UTLS'$ 

*#«**«»*»*****« COMPILER OPTIONS ***«*««*«««x**««« ) 
( This include file specifies range checking, debug and other compiler 



options for the graphics library 

Sdebug OFF$ 

Srange OFF$ 

Scopyright 'COPVRIGHT 1984 BV HEULETT-PRCkRRD COMPfiNY'S 

JFLOHT HDU TESTS 



) 



Jinclude 'OPTIONS'S 
JLlNENUn 9000$ 

module gle_file_io; 

1 import gle_types: 

1 export 

1 type 

1 f ile_iocb_pt r = ^file_iocb; 

1 file_iocb = record 

1 file_name : anyptr; 

1 name_size : gle_5hort int ; 



***x*»»x«***»*** COMPILER OPTIONS «***»*««*««*** 



Pascal 


[Re 


9013 


D 


9014 


D 


9015 


D 


9016 


S 


9017 





9018 





9019 


D 


9020 


D 


9021 


D 


9022 


S 


9023 


D 


9024 


S 


9025 


D 


9026 


S 


9027 


D 


9028 


D 


9029 


D 


9030 


S 


9031 





9032 


D 


9033 
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D 
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D 
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C 
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C 
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C 
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c 
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out put_file : text ; 

lock_on_close : gle_short int; < 1 = lock ) 
end; 

procedure file_ini1 { anyvar iocb_pt r : anypt r ) ; 

procedure file_write [ anyvar iocb_pt r , data_pt r : anypt r ) ; 

procedure f ile_inq_timeout ( anyvar iocb_ptr: anyptr; var value : integer ]; 

procedure f ile_sei_timeout ( anyvar iocb_ptr: anyptr; value : integer ); 

procedure file_term [ anyvar iocb_ptr : anyptr ); 

implement 

import gle_utls; 

< The following types must match the types declared in GLE_HPGL, GLE_HPGLI } 

type 

ascii_buf fer_pt r = ^ascii_buf fer ; 



ascii_buffer = packed record 



maxim jm 
current 
data 
end; 



integer ; 
integer; 
packed array [1.. 32767] of char; 



1 procedure file_inq_timeout ( anyvar iocb_ptr : anyptr; var value : integer ); 

2 { Dummy procedures for file io > 
2 begin 

2 end; 

1 procedure fiIe_5et_timeout ( anyvar iocb_ptr ; anyptr; value : integer ); 

2 { Oummy procedures for file io ) 
2 begin 

2 end; 

1 procedure file_init ( anyvar iocb_pt r : anypt r ) ; 

2 var 

■256 2 name : 5tring[2S5]; 

2 begin 

2 with file_iocb_pt r (iocb_pt r )* do 

3 begin 

3 gle_copy_to_5t ring(f ile_name , name_size, name) ; 
3 rewrite (out put_file, name) ; 
3 end; 

2 end; 

1 procedure file_write ( anyvar iocb_ptr, data_ptr : anyptr ); 

2 begin 

2 with f ile_iocb„pt r ( iocb_pt r)', ascii_buf fer_pt r (data_pt r)'^ do 

3 begin 

3 writelr(output_file,data:current); 

3 current ;= 0; 

3 end; 

2 end; 

1 procedure file^term ( anyvar iocb_pt r ; anypt r ) ; 



11-410 



Pascal [Rev 3.011 6/ 4/84] GLE_.HLE.TEAr ^t-LSC-v-v iJ:;^:?'. roj; 3 »'• Fus r.ame; GLE_FILE 

9073:S 

9074 :C 2 begin 

9075:C 2 with file iocb ptrfiocb ptr)"^ do 

9076 :C 3 begin " 

9077:C 3 If lock_on_close = 1 then close (3utpiit_file, ' Jock ' ) 

9078:C 4 else close (output file): 

9079:C 3 end; 

9080:C 2 end; 

9081 ;S 

9082:C I end. { of module gle file io ) 

9083 :S - 

No errors. No warnings. 

!K»««x Nonstandard language features enabled ***** 
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GLE_GEN 



Description 

GLE_GEN provides an interface between the GLE caller and the output procedure variables in the 
GCB. It also contains a procedure used to initialize the GCB. 



Requirements 

GLE.TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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*«* File ,-,ime: GLt btN ** 



Graphics Low End 

nodule = GLE_GEN 
Programer = BJS 
Date = 10- 5-82 

Purpose: To provide an interface between the GLE caller and the procedure 
variables in the GCB. The module also initializes the GCB . 



{ Rev history 

{ Created - 10- 5-82 

< Modified - XX-XX-XX 

< [cj Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DflR 7-104. 9(a). 

HEULETT-PfiC<flRD COMPFlNY 
Fort Collins, Colorado 

Jm.:.dcal$ 

Ss-^arch 'GLE TYPES'S 

Si'iclude 'OPTIONS'S < * 



***M*******in compiler options «««*«***)««*«*«**«« ) 

> 



{ This include file specifies range checking, debug and other compiler 
options for the graphics library 

$d<;bug OFF$ 

$r)nge OFFI 

Scopyright 'COPYRIGHT 19S4 BY HEWLETT -PACKARD COMPflNY'I 

SFLOAT HOU TESTS 



Sinclude 'OPTIONS'S { 
$1 inenum 2000$ 



module gle_gen; 

1 inifjor 1 gle_t ypes ; 



1 procedure gle_move 

1 procedure gle_draw 

1 pri^cedure gle_te^t 

1 procedure gle_char_size 



»***«******» compiler options «»;*««»:»** 



{ gcb 
( gcb 
( gcb 
( gcb 



graphic5_cont rol_block_pt r 
graph ic5_cont rol_block_pt r 
graphiC5_cont rol_block_pt r 
gr-3phic5_cont rol_block_pt r 
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_text_spac ing 
text_dir 
.texT_iiist 
ma rke^r 
'inde>:_color 
clear 

clip_]imits 
initocb 
jet plp2 
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1 prcxedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 prctcedure 


gle 


1 prc>cedure 


gle 


1 procedure 


gie 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 prcxedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gle. 


1 procedure 


gie_ 


1 procedure 


gle. 


1 implement 




1 procedure 


gle. 



.3- '—K* K*- 

_ge t_polygon_info 
^set marker 
marJTer size 
flush_Fuf fer 
^term 
cursor 
polygon 

.fill_index_color 
def ine_colo r_map 
define_drawing_mode 
.linestyle 
linewidth 
|buf fer_mode 
graphic5_on__of f 
gload 
gstore 
]get_raster 
.get_color__map 
.output_escapei 
.output escapeo 
.await_B"lanking 



( gcb 

( gcb 

1 gcb 

( gcb 

( gcb 

( gcb 

[ gcb 

[ gcb 

( gcb 

( gcb 

( gcb 

( gcb 

i gcb 

( gcb 

( gcb 

( gcb 

( gcb 

( gcb 

t gcb 

gcb 

gcb 

gcb 

I gcb 

gcb 

( gcb 

gcb 
( gcb 

gcb 
t gcb 



graphics, 
graphics 
graphics' 
graphics 
graphics 
graphics' 
graphics" 
graphics 
graphics, 
graphics 
graphics' 
graphics' 
graphics 
graphics 
graphics' 
graphics' 
graphics 
graphics 
graphics] 
graphics 
graphics 
g raphics 
graphics 
graphics' 
graphics' 
graphics 
graphics 
graphics* 
graphics' 
graphics. 



cont rol 
.cont rol" 
cont rol 
.cont rol. 
cent rol 
'cont rol" 
[cont rol" 
cont rol 
.cont rol. 
_cont rol. 
|cont rol] 
"cont rol" 
cont rol. 
cont rol 
'control' 
control' 
cont rol 
cont rol. 
[cont rol] 
cont rol' 
cont rol 
cont rol. 
control] 
cont rol] 
cont rol" 
cont rol 
cont rol. 
'control' 
control' 
cont rol' 



_block_pt r 
"block_pt r 
bIock_pt r 
block_pt r 
]block_pt r 
block_pt r 
block_pt r 
_block_pt r 
block_pt r 
block_pt r 
.block_pt r 
bIock_pt r 
block_pt r 
block_pt r 
block]]]pt r 
block_pt r 
block_pt r 
block pt r 
block]^pt r 
'block_pt r 
block_pt r 
block_pt r 
block_pt r 
,block_pt r 
block_pt r 
block_pt r 
block_pt r 
bIock~pt r 
'block_pt r 
block_pt r 



procedure gle_output_escapeo ( gcb : graphic5_cont rol_block_pt r ) ; 

2 begin 

2 call (gcb'^.output_escapeo,gcb); 

2 end; 

1 procedure gle_output_escapei ( gcb : graphics_cont rol_block_pt r ) ; 

2 begin 

2 call (gcb'^ .output escape!, gcb) ; 

2 end; 

1 procedure gle_move ( gcb : graphics_cont rol_block_pt r ); 

2 begin 

2 call (gcb^. move, gcb); 

2 end; 

1 procedure gle_dr3w ( gcb : graphics_cont rol_block_pt r ) ; 

2 begin 

2 call (gcb"^. draw, gcb); 
2 end; 

1 procedure gle_text ( gcb : graphic5_cont rol_block_pt r ) ; 

2 begin 
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2072:C 
2073:C 
2074 :S 
2075:D 
2076 ;S 
2077:C 
2078:C 
2079:C 
2080:S 
2081 :D 
2082;S 
2083 :C 

2084 :C 

2085 :C 
2086:S 
2087:D 
2088:S 
2089:C 
2090:C 
2091 :C 
2092:S 
2093:D 
2094 :S 
209S:C 
2096:C 
2097:C 
2098:S 
2099:0 
2100:S 
2101 :C 
2102:C 
2103:C 
2104:S 
2105:0 
2106;S 
2107:C 
2108:C 
2109:C 
2110:S 
2111:D 
2112:S 
2113:C 
2114:C 
211S:C 
211$:S 
2117:D 
2118:S 
2119:C 
2120:C 
2121 :C 
2122:S 
2123:D 
2124;S 
2125:C 
2126:C 

2127 :C 

2128 :C 
2129:C 
2130:C 
2131:C 



call (9cb^. text ,gcb ) ; 
end; 



I procedure gle^char^size ( gcb : graphics_cont rol_block_pt r ); 



begin 

call (gcb". char size, gcb); 
end; 

procedure gle_text_5pacing ( gcb : grdphic5_cont rol„block_pt r ); 



begin 

call (gcb". text_.spacing,gcb) ; 
end; 

1 procedure gle_text_dir [ gcb : gr aphics_cont rol_block_pt r ); 



begin 

call (gcb". textdir ,gcb) ; 
end; 



1 procedure gle_.clear ( gcb : 9raphics_cont rol_block_pt r ); 



begin 

call (gcb". clear , gcb) ; 
end; 



1 procedure gle_text_ju5t ( gcb : graphics_cont rol_block_pt r ]; 

2 begin 

2 call (gcb". text_dir ,gcb) ; 
2 end; 

1 procedure gle_marker { gcb : graphics_cont rol_block_pt r ); 



begin 

call (gcb".rTiarker ,gcb) 
end; 



1 procedure gle_.index_color ( gcb : graphics_cont rol_block_pt r ); 



begin 

call (gcb". index_color ,gcb) ; 
end; 



1 procedure gle_clip_limit5 ( gcb : graphics^cont rol_block_pt r ); 



begin 

call (gcb".clip_limit s,gcb) ; 
end ; 



1 procedure gle_init_gcb [ gcb : gr aphic5_cont rol_block_pt r ); 

2 begin 

2 with gcb" do 

3 begin 

3 display_name char count :- 0; 

3 display~handTer_cKar_count := 0, 

3 iocb ;=~nil; 

3 device_buf := nil; 
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2132:C 
2133:C 
2 1 34 : C 
2135:C 
2136:C 
2137:C 
2138:3 
2139:0 
2140:3 
2141:C 
2142:C 
2143:C 
2144:3 
2145:0 
2146:3 
2147:C 
2148:C 
2149:C 
2150:5 
2151;D 
2152:3 
2153:C 
2154:C 
2155:C 
21S6:S 
2157:D 
2158:3 
2159:C 
2160:C 
21S1:C 
2162:3 
2163:0 
2164:S 
216S:C 
2ie6:C 
2167:C 
2168:C 
2169:3 
2170:D 
2171:5 
2172:C 
2173:C 
2174 :C 
217S:C 
2176:3 
2177:D 
2178:3 
2179:C 
2180:C 
2181 :C 
2182:3 
2183:0 
2184:3 
2185:C 
2186:C 
2187:C 
2188:3 
2189:0 
2190:3 
2191 :C 



3 
3 
3 
3 
3 
2 

I procedure gle_get_polygon_info ( gcb ■ graphics_cont rol_block_pt r ); 



dev_^dep^stuf f := nil; 
devTce^Tnfo := nil; 
error return := 0; 
spooling :- 0; 
end; 



begin 

call (gcb".get_polygon_info,gcb) ; 
end; 



1 procedure 9le_5et_.plp2 ( gcb : graphics_cont rol_block_pt r ); 



begin 

call (gcb".inq_plp2,gcb); 
end; 



1 procedure gle_.set_marker [ gcb : graphics_cont rol_block_pt r ]; 



begin 

call (gcb". set_marker,gcb) 
end; 



1 procedure gle„mdrker_5ize ( gcb : graphics_cont rol_b3ock_pt r ); 



begin 

call (gcb" .niarker_size, gcb] ; 
end; 



1 procedure gle_f lush_buf fer ( gcb : 3raphics_cont rol_block_pt r ); 



begin 



with gcb" do 
call 



end; 



(gcb".flush_buf fer,gcb) ; 



1 procedure gle_.tertn ( gcb : graphics_cont rol_block_pt r ); 



begin 



with gcb" do 



call( 



?cb do 
(io_.te 



rm, iocb); 



1 procedure gle__cursor ( gcb : graphics__cont rol_block_pt r 



begin 

call (gcb". cursor , gcb) 
end; 



1 procedure gle_.polygpn ( gcb : graphics_cont rol_block_pt r ); 

2 begin 

2 call (gcb". polygon. gcb) ; 
2 end; 

1 procedure gle _f ill_index_color ( gcb : gr aphic5_cont rol_block_pt r ); 

2 begin 
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2192:C 2 call (gcb^.fill index color, gcb); 

2193:C: 2 end; 

2194:J. 

2195:0 1 procedure gle_def ine_CDlor_map( gcb ; graphics control block pt r ): 

2196:S 

2197:C 2 begin 

2198:C 2 call (gcb'^. define color map, gcb): 

2199:C 2 end: 

2200 :S 

2201;Ci 1 procedure gle_define drawing mode ( gcb : graphics control block pt r ); 

2202 :S " ~ ~ 

2203 ;C 2 begin 

2204:C 2 call (gcb^. define drawing mode, gcb); 

2205:C 2 end; 

2206:E 

2207:C' 1 procedure gle_linestyle ( gcb : graphics_cont rol block ptr ); 

2208:; 

2209:1 2 begin 

2210:C 2 call (gcb" . 1 lnestyle,gcb) ; 

2211:C 2 end; 

2212:E 

2213:Ci 1 procedure gle_linewidth ( gcb : graphics control block ptr ): 

2214:5 

221S:C 2 begin 

2216:C 2 call (gcb" . linewidt h,gcb) ; 

2217:C 2 end; 

2218:S 

2219:0 1 procedure gle_buffer mode ( gcb : graphics control block ptr ); 

2220:S 

2221 :C 2 begin 

2222:C 2 call (gcb~. buffer mode, gcb); 

2223:C 2 end; 

2224 :S 

2225:0 I procedure gle graphics on off ( gcb : graphics control block ptr ); 

2226:S 

2227:C 2 begin 

2228:C 2 call (gcb". graphics on off, gcb); 

2229:C 2 end; ~ ~ 

2230;E 

2231:D 1 procedure gle^gload ( gcb : graphics control block ptr ); 

2232:S 

2233:C 2 begin 

2234:C 2 call (gcb".gload,gcb) ; 

2235:C 2 end; 

223S:S 

2237:0 1 procedure gle_gstore ( gcb : graphics control block ptr ); 

2238:S 

2239:0 2 begin 

2240:C 2 ':all (gcb" .gstore ,gcb) ; 

2241:0 2 end; 

2242:5 

2243:D 1 procedure gle_get_raster ( gcb : graphics control block ptr ); 

2244:5 

2245:0 2 be.jin 

224S:0 2 call (gcb". get raster, gcb); 

2247:0 2 end; 

2248:5 

2249:0 I procedure gle_get_color_map ( gcb : graphics_cont rol block ptr ); 

2250:S 

2251:0 2 be.) in 
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2252:C 2 call (gcb". get color map, gcb) ; 

2253:0 2 end; 

2254 :S 

2255:D 1 procedure gle_await_blank ing ( gcb : graphics_cont rol block ptr ); 

2256:S 

2257:C 2 becjin 

2258:C 2 call (gcb". await blanking, gcb ) ; 

2259:0 2 end; 

2260:S 

2261 :S 

2282 :C 1 end. { of module gle_gen ) 

Wo errors. No warnings. 

«*»«* Nonstandard language features enabled ***** 
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GLE_GENI 



Description 

GLE_GENI provides an interface between the GLE caller and the input procedure variables in the 
GCB. It also contains a procedure to initialize the GCB. 



Requirements 

GLE.TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). ^ 
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*** File name: GLE_GENI 
) 



f'urpose: To provide interface procedure to the procedure variables in 
the GCB and to provide GCB init iaiizat ion. 



( Rev history 

{ Created - 10-10-82 

{ Modified - XX-XX-XX 

( (c) Copyright Hewlett-Packard Company, 1983. 
All rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject io restrictions as set forth in 
paragraph (b) (3) (6) of the Rights in Technical 
Data and Computer Software clause in 
DRR 7-104. 9(a) . 

HEULETT-PflCKARD COMPANY 
Fort Collins, Colorado 

Isearch 'GLe_TYPES'$ 

$modcal$ 

Sinclude 'OPTIONS'S ( «*«*««*»*«*** 



COMPILER OPTIONS *«** 



:«»:»»«««»«X*«« 



< This include file specifies range checking, debug and other compile 
options for the graphics library 

Sdebug OFF$ 

Srange OFF$ 

Scopyright 'COPYRIGHT 1984 BY HEULETT-PRCKRRO COMPANY'S 

SFLOAT HDU TESTS 



Sinclude 'OPTIONS'S < *»«««* 
Slinenum 3000$ 

module gle_geni; 

1 import gle_types ; 

1 export 

1 procedure gle_init___inpLJt_qcb 

1 procedure gle_get_rnput_pi p2 

1 procedure gle__input_term 

1 procedure gle_input_echo 



** COMPILER OPTIONS *«*****♦««»******* ) 



( gcbi : graphics_input_cont rol ^block_pt r 

( gcbi : graphics_input_cont rol_bIock_pt r 

(gcbi : graphiC5_input_cont rol_block_pt r 

{ gcbi : graphic5_input_cont rol_block_pt r 
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3017:S 




3018:D 
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3019:S 




3020 :D 


1 


3021 :S 




3022 :C 


2 


3023:C 


2 


3024 :C 


3 


3025:C 


3 


3026:C 


3 


3027:S 




3028:C 


3 


3029 :C 


3 


3030:C 


3 


3031 :C 


3 


3032:C 


3 


3033 :C 


3 


3034 :C 


2 


303S:S 




3036:D 


1 


3037:S 




3038;C 


2 


3039rC 


2 


3040 :C 


2 


3041 :S 




3042:0 


1 


3043:S 




3044 :C 


2 


3045 :C 


2 


3046 :C 


3 


3047:C 


2 


3048:5 




3049:D 


1 


3050:3 




3051 :C 


2 


3052 :C 


2 


3053:C 


2 


3054 :S 




3055:0 


1 


3056:S 




3057:C 


2 


3058:C 


2 


3059:C 


2 


3060:S 




3061 :D 


1 


3062 :S 




3063:C 


2 


3064:: 


2 


3065 :C 


2 


3066:3 




3067 :D 


I 


3068 :S 




3069:C 


2 


3070 :C 


2 


3071 :C 


2 
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procedure gle_input_escapeo 
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procedure gle_start digitize 
procedure glelget^dlgit ize 
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( gcbi 
( gcbi 
( gcbi 
gcba 
( gcbi 



graphics_lnput_cont rol_block_pt r 
graphic s_input_cont rol__block_pt r 
graphic s_input_cont rol_block_pt r 
graphic s_input_cont rol_block_pt r 
graphic5_input_cont rol_block_pt r 



implement 

procedure gle_inat_input_gcb ( gcbi : graphics_inpijt_cont rol_block_pt r ) 

begin 

with gcbi^ do 
begin 

input_name char count ;= 0; 
input_handTer_cFar_count := 0; 

iocb := nil; 
device_buf := nil; 
dev^dep stuff := nil; 
devTce_Tnfo := nil; 

error_return := 0; 
end; 
end ; 

procedure gle_get_lnput_pl p2 ( gcbi : graphics_input_cont rol_block_pt r ) ; 

begin 

call (gcbi'^ . inq_plp2,gcbi ) ; 

end ; 

procedure gle_lnput_term [ gcbi ; graphic5_input_cont rol_b lockup t r ) ; 

begin 

with gcbi-^ do 



ith gcbi 
callfio t 



(io_term, iocb) ; 
end; 

procedure gle_input_echo ( gcbi : graphics_input_cont rol_block_pt r ) ; 

begin 

call (gcbi''. input_echo,gcbl) ; 
end; 

procedure gle_input_escapei ( gcbi : graphics_input_cont rol_block_pt r ); 

bey in 

call (gcbi". input _e sea pei, gcbi); 
end ; 

procedure gle_i nput_escapeo ( gcbi : graphic5_input_cont rol_bIock_pt r ); 

beg in 

call (gcbi". input _esc a peo, gcbi) ; 
end ; 

procedure gle_s ample ( gcbi : gr aphics„input_cont rol_block_pt r ) ; 

beg in 

c.ill (gcbi". sample, gcbi); 
end , 
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1 procedure gle_starl_digitize [ gcbi : g-aphic5_input_cont rol_block_pt r ); 



3072:3 
3073:0 
3074 :S 
3075:C 

3076 :C 

3077 :C 
3078:S 
3079:0 
3080:S 
3081 :C 
3082:C 
3083:C 
3084:3 
3085 :C 



begin 

call (gcbi''. start digit ize, gcbi) ; 
end : 

1 procedure gle_get_digit ize ( gcbi : graphics_input_cont rol_block_pt r ); 

begin 

call (gcbi" .get_digit ize, gcbi ) ; 
end : 

1 end. { of module gle_geni > 



No errors. No warnings. 

*««** Nonstandard language features enabled ***** 
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GLE HPGL 



Description 

GLE_HPGL contains the driver routines to drive HPGL output devices. 



Requirements 

GLE_TYPES, GLE_STEXT, GLE.ASTEXT, GLE.SCLIP, GLE_ASCLIP, GLE.SMARK, GLE.UTLS, and G1.E_AUTL. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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File name; GLE_HPGL »• 



1 :D 
2:D 
3:D 
4;D 
5:D 
6:0 
7:D 
8:0 
:D 
:S 
:D 
:0 
:D 
:0 
:0 
:0 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 
:S 



10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18 
19: 
20: 
21 : 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31 : 
32:S 
33:S 
34:0 
35:S 
36:0 
37:0 
36:0 
39:D 
40:D 
41 :0 
42:0 
43:0 
43:0 
44 :S 
45:S 
46:0 
47:S 
48:0 
49:0 
50:0 
51 :0 
52:S 
53:S 
54 :S 
55:S 
56:0 
7000:0 
7001 :S 
7002:0 



( 

{ G[ aphics Low End 

{ 

( ncdule = GLE_HPGL_OUT 

< Programer = BJS 

< Dete = 10- 5-82 

< 

< Purpose: To provide device dependent routines to drive hpgl output 

< plotters. 



( 
< 
< 
< 



Rev history 

Created - 10- S-82 BJS 

Nodified - 11-24-82 BJS 

6-28-83 BJS 

3-14-84 BDS 



removed refs to str routines 

added import of gle_astext (routine moved from 

gle_stext 

added identifiers for 7586B, 7550fl, 7090, 7440 



< (cj Copyright Hewlett-Packard Company, 1983. 

fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

Paragraph (b) [3) (B) of the Rights in Technical 
ata and Computer Software clause in 
DflR 7-104. 9(a). 

HEULETT-PfiCKBRD COHPRNY 
Fort Collins, Colorado 

Ssearch 'GLE_TVPES' , 

'GLE SCLIP', 

'flSn SCLIP' , 

'GLE.STEXT', 

■nsn_STEXT', 

'GLE SnORK' , 

'GLE_UTLS'$ 

$moccal$ 
$int lude 'OPTIONS'S < 

< This include file specifies range checking, debug and other compiler 
cptions for the graphics library 

$del ug OFFJ 

$rar qe OFF$ 

Scofyright 'COPYRIGHT 1984 BY HEULETT-PPCKfiRD COMPflNY'S 

tFLCflT HDU TESTS 



**«*«***«««*«««* COMPILER OPTIONS ****«i****«******** } 



Sinclude 'OPTIONS't 
ilirenum 7000S 



modi.le GLE_HPGL_OLil ; 



******* 



»»•« COMPILER OPTIONS 



********** 
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File name: GLE HPGL 



7003 :S 
7004 :D 



7005: 

7006; 

7007: 

7008: 

7009: 

7010; 

7011: 

7012: 

7013: 

7014: 

7015: 

7016; 

7017: 

7018 

7019 

7020: 

7021: 

7022: 

7023: 

7024: 

702S: 

7026: 

7027: 

7028 

7029; 

7030; 

7031; 

7032; 

7033; 

7034; 

7035:0 

7036:0 

7037:D 

7038:0 

7039:S 

7040:0 

7041:8 

7042 :C 

7043 :C 

7044 :C 

7045 :C 

7046:C 

7047: " 

7048; 

7049: 

7050: 

7051 : 

7052; 

7053: 

7054 ; 

7055: 

7056; 

7057; 

70S8;S 

7059 :C 

7060 :C 
7061 :C 
7062 ;C 



import gle_types: 

expc r t 

const 

max buffer = 255: 
bufTer_fudge = 32; 

type 

ascii_buf fer_pt r = "ascil_buf fer ; 



ascii_buffer = packed record 



maximum 
current 
data 
end : 



integer; 
integer ; 
packed array [1 . .max_buf fer] of char; 



dr iver_st ate_def = (moving , drawing, start_of_buf fer , unknown) ; 

hpgl_device_rec_pt r= '* hpgl_device_rec; 
hpgl_device~rec = 

record 
driver_state : driver_state_def ; 

end; 

procedure 9le_init_hpgl_output ( gcb : graphics_cont rol_block_pt r ); 

implement 

import gle_stext, 
gle_a5text , 
gle_asclip, 
gle_sclip, 
gle^smark, 
gle_ut Is; 

1 procedure hpgl_f lush_buf fer ( gcb : graphics_cont rol_block_pt r ); 

2 begin 

2 with gcb", 

3 ascii buffer_ot r (device_buf )', 

3 hpgl_5evice_ rec_pt r (dev_dep_stuf f )" do 

3 begin 

3 if current <> then call ( io_wr i te , iocb ,device_buf ) ; 

3 driver_state := st ar t_of_buf fer ; 

3 end; 

2 end; 

1 procedure dutrmy ( gcb : g raphics_cont rol_block_pt r ); 

2 begin 
2 end; 

1 procedure buf fer_cleanup ( gcb : graphics_cont rol_block_pt r ); 

2 begin 

2 with gcb", ascii„buf ferpt r (gcb".device_buf )" do 

3 if [current > rraximLim - buf f er_f udge ) or [c u r r ent_buf f e r_mode = 0) then 

4 bpql_f lush_buf fer [ gcb ); 
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7063:C 




2 


end; 




7064 :S 










706S:D 




1 


procedure add, char dala ( gcb : graphics control block ptr; 




7056:D 




2 


count : gle shortint; 
s : anychar ptr ); 




7067:D 




2 




7068;D 




2 


var 




7069:D 


-2 


2 


i : gle shortint; 




7070:3 






~ 




7071:C 




2 


begin 




7072:C 




2 


with gcb", ascii„buf fer_ptr(gcb^.device_buf )^ do 




7073:: 




3 


begin 

Tor i :-■■- 1 to count do 




7074 :C 




3 




707S:C 




4 


data [:L + cur rent] := s"[i]: 




7076:C 




3 


current := current + count; 




7077 :C 




3 


end; 




7078;C 




2 


end; 




7079 :S 










7080:0 
7081 :D 




1 

2 


procedure add parn data { gcb : graphics control block ptr; 
value : gle short int ) ; 




7082:0 




2 


var 




7083:0 


-2 


2 


count : gle shortint; 




7084 :S 










7085 :C 




2 


begin 




7086 :C 




2 


with gcb'^,ascii buffer pt r (gcb''. device buf)'' do 




7087 :C 




3 


begin ~ 




7088 :C 




3 


gle write integer [value, count , addr (d3ta[current+l ])) ; 




7089:C 




3 


current := current -^ count; 




7090:C 




3 


end; 




7091 :C 




2 


end; 




7092:S 










7093:0 




1 


procedure change state ( gcb : graphics control block ptr; 




7094:0 




2 


new_state : driver _state_def ); 




709S:S 










7096:0 




2 


var 




7097:0 


-1 


2 


change : boolean; 




7098 :S 










7099:C 




2 


begin 




7100:C 




2 


with gcb",hpgl device rec ptr(dev dep stuff)" do 




710I:C 




3 


begin 




7102:C 




3 


change := new_5tate <> driver_st ate ; 




7103:C 




3 


if fdr iver_st ate = unknown) or 




7104:C 




4 


j ( (driver_state = moving) or (dr iver_st ate = drawing)) and change) then 
7105): 'flODK' of a constant may not be supported on other implementations 




«»«yflRNING: 


(1 


xne 




7105:C 




4 


add char data (gcb, 1 , addr (' ; ')); 




7106:C 




3 


if change then 




7107:C 




4 


begin 




7108:C 




4 


driver state := new state; 




7109:C 




4 


case driver_state oT 




«««UHRNING: 


(1 


ine 


7110): 'RDOR' of a constant may not be supported on other implementations 




7110:C 




5 


moving : add_char_dat a ( gcb, S, addr ( ' PU ; PR' ) ); 
7111): 'ftODR' of a constant may not be supported on other implementations 




«»«UfiRNING: 


(1 


ine 




7111:C 




5 


drawing : add char data ( gcb, 5, addr ( ' PD ; Pft ' ) ); 




7112:C 




5 


St art_.of_buffer , unknown : ; 




7113;C 




5 


end; ( of case ) 




7114:C 




4 


end; 




7U5:C 




3 


end; 




7116:C 




2 


end; 




7117:S 










7118:0 




1 


procedure hpg:_output_e5capeo ( gcb : graphics_cont rol_block_pt r ); 




7119:S 
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7120:C 




2 


begin 




7121 :C 




2 


with gcb",hpgl device rec ptr(dev_dep stuff)" , 




7122:C 




3 


ascii_bufTer_pt r"fgcb^.device_buf7'do 




7123:C 




3 


begin 




7124:C 




3 


try 
change state ( gcb, unknown ); 




7125:C 








7126:C 






add char dat a(gcb, infol , anypt r ( info ptrl)); 




7127:C 






bufTer cleanup ( gcb ); 




7128:C 






recover 




7129:C 






if escapecode = -20 then 




7130:C 




5 


begin 




713l:C 




5 


current := 0; 




7132:C 




5 


escape (-20) ; 




7133:C 




5 


end; 




7134:C 




3 


end; 




713S:C 




2 


end; 




7136:S 










7137:0 
7138:S 
7139:0 




1 


procedure hpgl_output_e5capei ( gcb : graphic5_cont rol_block_pt r ]; 






2 


var 




7140:0 


-2 


2 


i : gle shortint; 




7141:0 


-6 


2 


sptr : anychar_ptr; 




7142:S 










7143:C 




2 


begin 




7144;C 




2 


with gcb",ascii buffer pt r (gcb". device buf)" do 




714S:C 




3 


begin 




7146:C 




3 


try 




7147:C 




4 


call (io read, iocb, device buf); 




7148:C 




4 


sptr := anyptr(info ptrl); 




7149:C 




4 


infol := current; 




7150;C 




4 


for i :- 1 to current do 




7151:C 




5 


sptr"[i] := data[i] ; 




7152:C 




4 


current := 0; { reset buffer counter > 




7153:C 




4 


recover 




7154:C 




4 


if escapecode = -20 then 




715S;C 




5 


begin 




7156:C 




5 


current := 0; 




7157:C 




5 


escape(-20) ; 




71S8:C 




5 


end; 




71S9:C 




3 


end; 




7160:C 




2 


end; 




7161:S 










7162:0 
7163:S 
7164:0 




1 


procedure hpgl_get_plp2 ( gcb : graphics_cont rol_block_pt r ); 






2 


var 




7165:0 


-2 


2 


cnt : gle shortint; 




7166:0 


-4 


2 


tent : gle_5hortint ; 




7167:0 


-8 


2 


temp : integer; 




7168:S 










7169:C 




2 


begin 




7170:C 




2 


with gcb". 




7171:C 




3 


ascii buffer_ptr (gcb" .device_buf )", 




7172:C 




3 


hpg 1^3evice,_rec_ pt r (dev_dep_stuf f )" do 




7173:C 




3 


begin 




7174:C 




3 


try 




7175:C 




4 


if spooling ■-•- then 




7176:C 




5 


begin 




7177:C 
•»«UBRNIHG: 


(1 


5 
ine 


change_:it ate ( gcb, unknown ); 
7178): 'POOP' of i3 constant may not be supported on other implementations 
adcl__chdr_,data ( gcb, 2. dddr('CP') ); 


11-423 


7178:C 

i 




S 





7179:C 


5 


7I80:C 


5 


7181 :C 


5 


7182:C 


5 


7183:C 


5 


7184:C 


5 


7!85:C 


5 


7186:0 


5 


7187:C 


5 


7188:C 


5 


7189:C 


5 


7190:C 


5 


7191:C 


6 


7192:C 


6 


7193:C 


6 


7194:C 


6 


7195:C 


6 


7196:C 


5 


7!97:C 


6 


7198:C 


6 


7199:C 


6 


7200 :C 


6 


7201 :C 


6 


7202:C 


5 


7203:C 


6 


7204 :C 


5 


7205:C 


5 


7206:C 


6 


7207 :C 


5 


7208:C 


5 


7209:C 


5 


7210:C 


4 


7211:C 


4 


7212:C 


6 


7213:C 


5 


7214:C 


6 


7215:C 


6 


7216:C 


3 


7217:C 


2 


7218:S 




7219:0 


1 


7220:S 




7221 :D 


2 


7222:0 


-4 2 


7223:0 


-12 2 


7224 :S 




722S:C 


2 


722S:S 




7227:C 


2 


7228:C 


3 


7229:C 


3 


7230:C 


3 


7231:C 


3 


•UBRNINi;: 


(line 


7232:C 


4 


•UfiRNING: 


(line 


7233:C 


5 


«UJflRNING: 


(line 


7234:C 


5 


7235:C 


5 



hpql_f lu5h_buf fe r ( gcb ); 
call (io read, iocb, device_buf); 
tent := T; 

infol := gle_read_integer (current ,addr (data [1 ]) ,cnt ) ; 
cnt := cnt + tent; 

info3 := gle_read_integer (current , addr (data [cnt ]), tent ) ; 
cnt := cnt + tent; 

info2 := gle_read_integer (current , addr (data [cnt] ), tent ) ; 
cnt := cnt + tent; 

info4 := gle_read_integer (current , addr (data [cnt] ), tent ) ; 
current := 0; 

if infol > info2 then { make xmin <= xmax > 

begin 

temp := infol' 
info] ;= info2; 
info2 := temp; 
end; 
if info3 > info4 then 
begin 

temp := info3: 
info3 ;= info4; 
info4 := temp; 
end; 



{ make ymin <= ymax ) 



= di5play_min_x; 

= di5pla>'_max_x ; 

= display_min_y; 

= display_max_y; 



end 
else 
begin 
infol 
info2 
lnfo3 
info4 
end; 
recover 

if escapecode = -20 then 
begin 

current := 0; 
e5eape(-20) ; 
end; 
end; 
end; 

procedure hpgl_get_hard_elip ( gcb : graphics_cont rol_block_pt r ); 

var 

tent, cnt : gle shortint; 

tplx, tpl y, tp2x, tp5y : gle_5hort int ; 

begin 

with gcb^, 

ascii buf fer_pt r (geb^ .device_buf ] ^ , 
hpql_3evice_rec_pt r (dev_dep_st uff ) do 
Begin 
try 
7232): 'RDDR' of a constant may not be supported on other implementations 

if gle match(4, addr (display_name) ,4 , addr ( '7580' ) ) or 
7233): flD0R ' of a constant may~not be supported on other implementations 
gle match(4 , addr (display_name) ,4 , addr ( '7585 ') ) or 
): 'flOPR' of a constant may not be supported on other implementations 
gle_match(4 , addr (display_name) ,4,addr('7586')) then 
begin 
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7236:C 
7237:C 

• •UlflRNING: 
7238:C 
7239 :C 
7240:C 
7241 :C 

7242 :C 

7243 :C 

7244 :C 
7245 :C 
7246 :C 
7247 :C 
7248 :C 
7249 :C 
7250 :C 
7251 :C 
7252 :C 

••USRNINO: 
7253:C 

• tUFIRNINC: 
7254 :C 



7255: 

7256: 

7257: 

7258: 

7259: 

7260: 

7261: 

7262: 

7263: 

7264: 

7265: 

7266: 

7267; 

7268: 

7269:C 

7270:C 
••UnRNING: 

7271 :C 
• •UlflRNING: 

7272:C 

7273: 

7274: 



7275: 

7276: 

7277: 

7278: 

7279: 
««unRNING: 

7280:C 
••USRNING: 

7281 :C 

7282:C 

7283:C 

7284 :C 

7286:C 

7286:C 

7287:C 

7288:C 



5 
6 
(line 
6 
6 
6 
6 
6 
6 
6 
6 



if spooling = then 
begin 



7238): 'ADDR of a constant may not be supported on other implementations 
add char_data ( gcb, 2, addr('OH') ); 
^^PgT_f lush_buf fer ( gcb ); 
call [io read, iocb, device_buf); 
tent := T; 



6 
(iine 
6 
(line 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
6 
6 
5 
(line 

(line 
6 
6 
6 



7253) : 

7254) : 



infol 
cnt : = 
info3 
cnt : = 
info2 
cnt ; = 
info4 
current 
end 
else 

begin 
'flODR of a constant may not be supported on other implementations 

if ( gle_match(4, addr (display_name) ,4, addr ( '7586' )) ) or 
'flDDR' of a constant may not be supported on other implementations 
( gle_mateh(4, addr (display_name) ,4, addr ( '7585' )) ) then 
begin 



= gle_read_integer (cur rent , addr (data [1 ]) ,cnt ) ; 
cnt +~tent7 

= gle_read_integer [current , addr (data [cnt] ), tent ) ; 
cnt + tent; 

= 9le_read_integer (cur rent , addr [data [cnt ]), tent ) ; 
cnt + tent; 

- gle_read_integer (current , addr [data[cnt] ), tent ) ; 
:= 0; 



infol 
info2 
info3 
info4 

end 
else 

begin 
infol 
info2 
info3 
info4 

end; 
end 



:• -23656 

:= 23656 

:. -17962 

:= 17962 



= -16190 

= 16190 

= -10485 

» 10485 



< E size > 



(line 



(line 
7 
7 



end 
else 
7271): 'ODOR' of a constant may not be supported on other implementations 

if (gle match(4,addr(display_name) ,4,addr('7470'))) or 
7272): 'flDD^' of a constant may not be supported on other implementations 
[gle_match [4 ,addr (display_name ) ,4, addr ( '7440' ) ) ) then 
begin 

infol := 0; 
info2 :- 10300; 
info3 := 0: 
info4 :• 7650; 
end 
else 
7280): 'flODft' of a constant may not be supported on other implementations 

if (gle match (4 ,addr (displayname) ,4 , add r ( '747S' ) ) ) or 
7281): 'flOD^' of a constant may not be supported on other implementations 
(gle_mateh (4 , addr (display_name ),4,addr('7090'))) then 
begin 

infol := 0: 
info2 :• 16640; 
info3 := 0: 
info4 := 10365; 
end 
else 
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(line 


7289:C 


7 


7290:C 


8 


7291 :C 


8 


7292:C 


8 


7293:C 


8 


7294 :C 


e 


7295:C 


8 


7296 :C 


8 


«»«UflRNING: 


(line 


7297 :C 


8 


7298 :C 


9 


7299 :C 


9 


7300:C 


9 


7301:C 


9 


7302:C 


9 


7303:C 


9 


7304 :C 


9 


7305:C 


9 


7306;C 


9 


7307:C 


9 


7308:C 


9 


«»»UflRNING: 


(line 


7309;C 


9 


7310:C 


9 


7311:C 


9 


7312:C 


9 


»«»UBRNING: 


(line 


7313;C 


9 


7314:C 


9 


••♦UBRNING: 


(line 


731S:C 


9 


73ie:C 


9 


»»»WfiRNING: 


(line 


7317:C 


9 


7318:C 


9 


*««U)BRNING; 


(line 


7319:C 


9 


7320 :C 


9 


7321:C 


9 


7322 :C 


9 


7323 :C 


4 


7324 :C 


4 


7325:C 


5 


7326:C 


5 


7327:C 


5 


7328:C 


5 


7329:C 


3 


7330:C 


2 


7331:S 




7332:D 


1 


7333:S 




7334:C 


2 


7335:C 


2 


7336:C 


3 


7337:C 


3 


7338:C 


3 


7339:C 


4 


*»*UHRNING: 


(line 


7340:C 


S 
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7289}: 'flDDR' of a constant may not be supported on other implementations 
if 9le_match(4,acJdr(dispIay_name) ,4,acldr( '7550') ) then 
begin 

infol := 0: 
info2 := 16450; 
info3 := 0; 
info4 ;= 10170; 
end 
else 
7297): 'RDDR' of a constant may not be supported on other implementations 

if gle_match(4,addr(display_name) ,4,addr ['9872' ) ) or (spooling = 1) then 
begin 

mfol := 0: 
info2 := 160OO; 
info3 := 0; 
info4 := 11400; 
end 
else 

begin { initialize the device an3 use P1/P2 values ) 
hpql_get^plp2 ( gcb ); 
tplx := infol; tp2x := info2; 



7309) ; 



tply := info3; tp2y := info4; 
'flDDR' of a constant may not be supported on other implementations 



{ BDS 3/28/84 > 



7313) 
731S) 
7317) 
7319) 



add char_data ( gcb, 3, addr('IN')) 

hpgl flush buffer ( gcb ' 

^iP9iZ9et_prp2 ( gcb ); 

{ restore pi , p2 > 

flDDR' of a constant may not be supported on other implementations 

add_char_data ( gcb, 2, 3ddr('IP')); 

add parm_data [ gcb, tplx " 

.__. __ . j,^ supported on other implementations 

r> ')); 



fiDOR^' of a constant may not 
add_char_data [ gcb, I , add 
add parm_data ( gcb, tply ) 
RDDP' of a constant may not 
add_char_data f gcb, 1 , add 
add parm_data { gcb, tp2x ) 
flDDl?' of a constant may not 
add_char_data ( gcb, 1, add 
add parm~data ( gcb, tp2y ) 
hpgT_flu5h__buffer ( gcb ); 
end; 
recover 
if escapecode - -20 then 
begin 

current := 0; 
escape ( -20) ; 
end; 
end; 



be supported on other implementations 



be supported on other implementations 



end; 

procedure hpgl_move 



gcb : graphics_cont rol_block_pt r 



begin 

with gcb'^jhpgl device rec ptr(dev dep stuff)" 
ascii_bufTer_ptrTdevIce_buf j'^ do" 
begin 

try 

if driver_state = moving then 
7340): 'flDDR' of a constant ma/ not be li 
add_char_dat a ( gcb, l, addr(', 



jpported on other implementations 

')) 



Pascal [Rev 


3.0M 


7341 :C 


5 


7342;C 


5 


7343:C 




»»«URRNING: 


(line 


7344 :C 




7345 :C 




7346:C 




7347.-C 




7348 :C 




7349 :C 




73S0:C 




7351 :C 


5 


73S2:C 


5 


7353:C 


5 


7354 :C 


5 


7356:C 


3 


7356 :C 


2 


73S7:S 




7368:0 


1 


7369:S 




7360:C 


2 


7361:C 


2 


7362:C 


3 


7363 :C 


3 


7364 :C 


3 


7365:C 


4 


»**UqRNING; 


(line 


7366:C 


5 


7367 :C 


5 


7368:C 


5 


7369:C 


4 


»*»UJRRNING: 


(line 


7370:C 


4 


7371 ;C 


4 


7372:C 


4 


7373:C 


4 


7374 :C 


4 


7375:C 


4 


7376 :C 


4 


7377:C 


5 


7378 :C 


5 


7379 :C 


5 


7380 :C 


S 


7381 :C 


3 


7382:C 


2 


7383:S 




7384 ;D 


1 


7385:S 




7386:C 


2 


7387:C 


2 


7388:C 


3 


7389:C 


3 


7390:C 


4 


7391 :C 


4 


7392:C 


4 


7393:C 


4 


7394 :C 


5 


7395:C 


S 


7396:C 


5 


7397:C 


5 
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else 

ctiange_state [ gcb, moving ); 
add parm data ( gcb, end_x); 
7344): 'flDUR' oT a constant may^not be supported on other implementations 
add_char_data ( gcb, 1, addr(', " ) ) ; 
add_parm_data ( gcb, end_y) ; 
cur rent_pos_x := end_x; 
current_po5_y := end_y; 
buf fer^cleanup ( gcb ) ; 
recover ~ 

if escapecode = -20 then 
begin 

current := 0; 
escape(-20) ; 
end; 
end; 
end; 

procedure hpgl_dr3w ( gcb : graphics_cont rol_block_pt r ); 

begin 

with gcb", hpgl device rec ptr[dev dep stuff)'*' , 
ascii_bufTer pt rJdevTce^buf )^ do" 
begin ~ 
try 
if driver state = drawing then 
7366): 'flDDR' oT a constant may not be supported on other implementations 
add_char_data { gcb, 1 , addr ( ' , ' ) ) 
else 

change_state [ gcb, drawing ); 



7370) 



add parm_data ( gcb, end_x); 
'flPDR' of a constant may not be supported on other implementations 



add_char_data ( gcb, 1, addr(', ')); 
add_parm_data [ gcb, end_y); 
cur?ent_pos_x := encl_x; 
current_pos~y := end_y; 
buf fer_cleanup ( gcb ); 
recover 

if escapecode = -20 then 
begin 

current := 0; 
escape(-20) ; 
end ; 
end; 



end ; 

procedure hpg.I__buffer_mode( gcb 



begin 
with gcb" ,ascii _buf fer_pt r (device_buf ] 
begin 
try 
hpgl_flush buffer ( gcb ); 
current_buTfer_mode := infol ; 
recover 

if escapecode = -20 then 
begin 

current : = 0; 
escape( -20) ; 
end ; 



graphic s_cont rol_block_p1 r ) ; 
do 
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7398:C 




3 


erd; 




7399:C 




2 


eno; 




7400 :S 










7401 :D 




1 


procedure hpgl_set_color ( gcb : graphics_cont rol_block_pl r ); 




7402 :S 










7403:C 




2 


beqin 




7404 :C 




2 


with gcf.hpgl device rec pTr{dev dep stuff)^ , 




7405 :C 




3 


a5Cii_bufTer_pt rXgcb^.device_bufT^ do 




7406:C 




3 


begin 




7407 :C 




3 


try 
change stale ( gcb, unknown ); 
7409): 'flDDR' of a constant may not be supported on other implementations 
add char data ( gcb, 6, addr ( ■ PU;SP' ) ); 




7408 :C 




4 




»»»URRNING: 


(1 


ine 




7409:C 




4 




7410:C 




4 


add parm data ( gcb, infol ); 




7411 :C 




4 


bufTer cleanup [ gcb ) ; 




7412 :C 




4 


current color index := infol; 




7413 :C 




4 


recover 




7414 :C 




4 


if escapecode = -20 then 




7415:C 




5 


begin 




7416:C 




S 


current := 0; 




7417:C 




5 


escape (-20) ; 




7418:C 




5 


end; 




7419 :C 




3 


end; 




7420 :C 




2 


end; 




7421 :S 










7422 :S 






(****»*«*«#*******»«*»« this procedure is never used *«**«**«««***««««****** 




7423 :S 






procedure hpgl fill inde:^ color ( gcb : graphics control block pt r ); 




7424 :S 






" 




7425 :S 






beain 




7426 :S 






with 9cb",hpql device rec_pt r [dev_dep_5tuf f )" do 
current polygon color ;= infol; 




7427 :S 








7428 :D 




1 


end; ) 




7429;S 










7430:D 




1 


procedure hpgl_lirie5t yle ( gcb : graphics_cont rol_block_pt r ); 




7431 :S 










7432:C 




2 


beqin 




7433:C 




2 


with gcb^,hpgl device rec ptr{dev dep stuff}^ , 
ascii buf fer_ptr (9cb^.device_buf j'^ do 




7434 :C 




3 




7435:C 




3 


begin 




7436 :C 




3 


change state ( gcb, unknown }; 
current linestyle := infol; 




7437:C 




4 




7438 :C 




4 




7439:C 




4 


current pattern length := info2; 




7440 :C 




4 


current linestyTe mode := info3; 




7441 :C 




4 


current linc-^tyle pattern := info4; 




«»«UflRNING: 


(1 


ine 


7442): 'RDDR' of a constant may not be supported on other implementations 




7442:C 




4 


add char data (9Cb,2, addr (' LT ' ) ) ; 
if Infol = then 




7443 :C 




4 




7444:: 




5 


begin 




744S:C 




5 


end 




7446 :C 




5 


else 




7447:C 




5 


if infol = 7 then 




7448:C 




6 


add parm data{gcb,0) 




7449:C 




6 


else 




7450 :C 




6 


begin 




7451:C 




6 


if info3 = then 




7452 :C 




7 


add parm data (gcb, Infol ) 




7453 :C 




7 


else " 




7454 :C 




7 


add parm data (gcb, -infol ) ; 




«»«UflRNING: 


(1 


ine 


74b5): 'fiDDR' of a constant may not be supported on other implementations 
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7455 :C 




6 


add char data (gcb, 1 , addr (' , ']); 




7456 :C 




6 


add parm data (gcb, info2) ; 




7457 :C 




6 


end; 




7458 :C 




4 


buffer_cleanup ( gcb ); 




7459 :C 




4 


recover 




7460 :C 




4 


if escapecode = -20 then 




7461 :C 




5 


begin 




7462 :C 




S 


current := 0; 




7463 :C 




5 


e5Cape(-20) ; 




7464 :C 




5 


end; 




7465 :C 




3 


end; 




7466 :C 




2 


end; 




7467:S 










7468 :D 




1 


procedure hpgl_clear( gcb : graphics_cont rol_block_pt r ); 




7469 :S 










7470 :C 




2 


begin 




7471 :C 




2 


with gcb'-jhpgl device rec ptr(dev dep stuff)^ , 
asciT buffer ptr(gcb'^.devlce_buf) do 




7472 :C 




3 




7473 :C 




3 


begin 




7474 :C 




3 


fry 

change state ( gcb, unknown ); 
7476): 'flODR'~of a constant may not be supported on other implementations 




7476 :C 




4 




«»»UflRNING: 


(1 


ine 




7476:C 




4 


add char data(gcb,2 , addr ( ' PG' ) ) ; 




7477:C 




4 


bufTer cleanup ( gcb ); 




7478:C 




4 


recover 




7479:C 




4 


if escapecode = -20 then 




7480:C 




6 


begin 




7481:C 




5 


current ;= 0; 




7482:C 




6 


escape (-20) ; 




7483:C 




5 


end; 




7484 :C 




3 


end; 




7485 :C 




2 


end; 




7486:5 










7487 :D 




I 


procedure hp9l_cursor ( gcb : graphics_cont roI_block_pt r ); 




7488 :S 










7489:C 




2 


begin 




7490 :C 




2 


with gcb'^,hpgl device rec ptr(dev dep stuff)"^ , 




7491 :C 




3 


ascil buffer pt r (gcb". device buf)"do 




7492:C 




3 


begin 




7493:C 




3 


try 

cnanqe state ( gcb, unknown ); 
7495): 'fiDDR' of a constant may not be supported on other implementations 




7494 :C 




4 




«««UfiRNING: 


(1 


ine 




7495 :C 






add_char_data ( gcb, 5, addr ( 'PU; Pfl' ) ) ; 




7496:0 






add parm data ( gcb, infol); 
7497): 'fiOPR' o7 a constant may not be supported on other implementations 




««»UfiRNING: 


(1 


ine 




7497:C 






add char data ( gcb, 1, addr(', ')); 




7498 :C 






add parm data ( gcb, info2); 




7499:C 






cur rent_cursor state := info3; 




7500:C 






hpgl_f lush_bufTer ( gcb ); 




7501 :C 






recover 




7502:C 






if escapecode = -20 then 




7S03:C 




5 


begin 




7504 :C 




5 


current := 0; 




7505 :C 




5 


escape (-20) ; 




7506:C 




5 


end; 




7507:: 




3 


end; 




7508:: 




2 


end ; 




7509 :S 

7510 :D 




1 


procedure gle_init_hpgl_output [ gcb : graphics_cont rol_block_pt r ) ; 


n-426 


7S11:S 
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7512:0 

7513:D 

7S14:D 

7515:S 

7S16:C 

7517: 

7518: 

7S19: 

7620: 

7521: 

7522: 

7523: 

7624: 

7526:: 

7S26:C 

7527 :C 

7628 :C 

7629 :C 

7530 :C 

7531 :C 

7532 :C 
7533:C 
7534 :C 
7635:C 
7536 :C 
7537:C 
7538;C 
7539:C 
7540 :C 
7541 :C 
7542 :C 
7543:C 



2 var 

2 saved timeout : integer; 

2 i : 9Te_shortint: 

2 begin 

2 with gcb'^, 

3 npgl_^device_rec_pt r (dev dep stuff)^, 
3 ascii_bjf fer_ptr (device^bufT'^ do 

3 try 

4 current := 0; 

4 maximum := max buffer; 



7544: 

7546: 

7646: 

7547: 

7548: 

7549: 

7550 : 

7651: 

7562: 

7553:C 

7554 :C 

7556 :C 

7556:C 

7SS7:C 

7658:C 



■'559:C 


4 


7560:S 




7561:C 


4 


7562:S 




7563:C 


4 


7564 :C 


4 


7S65:C 


5 


76S6:C 


6 


7567 :C 


6 


7568:C 


6 


7669:C 


6 


7570:: 


6 


•UHRNING: 


(line 7571 



driver_5tate 

unclipped_move 

unclipped_draw 

move 

draw 

c lear 

text 

char_size 

clip_limit s 

text__spacing 

linest vie 

text_dir 

text__just 

marke r 

marke r_size 

seT__marker 

index color 

inq_prp2 

get_polygon info 

9raphics_on~off 

cursor 

calc„50ft text_xform 

buf fer_mo3e 

output_escapeo 

OLJtput_escapei 

define_drawing_mode 

define_coJor map 

polygon "" 

f ill_index_color 

linewidth 

gload 

g5tore 

get_raster 

get^color_map 

awaTt_blank ing 

flush_buffer 

sof t_font_pt r 

error_rettj rn := 0; 
if spoo.ling = then 
try 

call (iQ_anq_ timeout , iocb, saved_t imeout ] ; 

call (io_set_timeout , iocb, SCO { m5 ) ) ; 

< send cormand that all HPGl plotters can respond to 



St art_of_buffer ; 

hpgl_move ; 

hpgl_dr aw; 

gle_sof t j:l ip__move ; 

gle sof t[2':l ip^draw; 

hpgT_clea- ; 

gle _sof t_Text (hpgl_text >; 

9le_sof t_char_5ize; 
= gle_sof t_clip_limits ; 
= gle sof t_text_spacing; 
• npgT_line5t yle; 
= gle_5oft__text_dir; 
~ gle__5of t2text_just ; 
= gle_5of t_narker ; 
= gle_5of t_marker_size; 
= gle soft r)et__marker ; 
~ npgT_set2color ; 
= hpgl_get_plp2; 
= durmy; 
= dummy; 
= hpgl_CLJf sor ; 
= qle text xform; 
= npgT__bufTer_mode; 
= hp9l_outpui_escapeo; 
- hpgl^out put_esc apei ; 
= d ummy ; 
= dummy; 
= dLHTmy; 
= dummy; 
= dummy; 
= dummy; 
= dummy; 
= dummy; 
= dummy; 
= dufrmy; 
= hpgl_f lush^buffer; 

:= addr ( font 1 ; 



{ if the conmand fails then t^e address does not match > 



( the device 
'PDDR' of a constant may not b' 



supported or other implementations 



Pabcal [Rev 
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6/ 4/ 


7571 :C 




6 




7572:: 




6 




7573:0 




6 




7574 :C 




6 




7575:S 








7576:0 




6 




7577:S 








7578:0 




6 




*»»URRNING: 


(1 


ine 


7579) 


7579:0 




7 




7580:C 




7 




7581 :0 




7 




7582:S 








7683;C 




7 




7534:0 




7 




7585:0 




7 




7686:0 




7 




7687:0 




7 




7688:0 




7 




7589:0 




8 




7590:0 




8 




7591:0 




8 




7592:0 




8 




7693:0 




8 




7594:0 




8 




7595:0 




9 




7596:0 




9 




7597:0 




9 




7598:0 




9 




7599:0 




9 




7600:5 








7601:0 




6 




7602:0 




6 




7603:0 




7 




7604:0 




3 




7605:0 




3 




7606:0 




3 




7607:0 




3 




7608:0 




8 




7609:S 








7610:0 




4 




7611;S 








7612:0 




4 




7613:C 




5 




«*»UfiRNING: 


(1 


in.! 


76141 


7614:0 




S 




7615:0 




5 




»««UflRNING: 


(1 


ine 


7616) 


7616:0 




5 




7617:0 




6 




7618:0 




(5 




•••UHRNING: 


(1 


ine 


7619) 


7619:0 




6 




»»«UfiRNING: 


(i 


ine 


7620) 


7620:0 








7621:0 








7622:0 








7623:0 








7624:0 








7625:0 
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add char_data I gcb, 2, addr('CE') ); 
hpgT_fliJsh_buffer ( gcb ); 
call (io_read, iocb, device_buf ) ; 
curr-ent := 0; 

( if this point is reached then a valid HPGL device was found > 

try ( perform an output identify seq. Note a 98720 will fail > 
'PDDR of a constant may not be supported on other implementations 

... -^-- -■- ' --^ , 2, - ' ■ ■ • 

gcb 



add char^data ( gcb, 2, addr('OI') ); 
hpgT_flL)5h_buffer ■ -— > 
call ( io read, 



iocb, device_buf ) ; 



= 1 to current do displayname [i] := datafi]; 



for 

for i := current+1 to 6 do display nameti] 
d i spl a y_rame_c ha recount := current" 
current : = 0; 
recover 

if escapecode = -26 { io system > then 
begin 

display^name := '9872fl '; 
display_name_char_count := 5; 
cur rent := 0; ~ 
end 
else if escapecode = -20 (stop key) then 
begin 

current := 0; 
escape (-20) ; 
end 
else escape (escapecode) ; 

recover 

if escapecode = -26 then error_return := 1 
else if escapecode = -20 {stop key) then 
begin 

current ;= 0; 
escape(-20) ; 
end 
else escape (escapecode) ; < ignor io errors ) 

call (ic_set_t imeout , iocb, 5aved_t imeout } ; 

if error_return = then 
begin ~ 

'flDDR' of a constant may not be supported on other implementations 
add char_data (gcb, 12, add r ( 'DF;SP1 ; 11130; ' ) ]; 
hpql_flush_buffer ( gcb ); 
'RDDR of a constant may not be supported on other implementations 

if gle_match(4,addr(display_name) ,4,addr('9111' )) then { 9111 is input only ) 

escape(-26) ( force io error ) 
else 
'flDDR' of a constant may not be sjpported on other implementations 

if gle_match(display_name_char _count ,addr (display_name) ,5, addr ( '7470H' ) ) or 
'flDDR' of a constant may not be sjpported on other implementations 

gle_match(di5play_name_char count , addr (display_name) ,4 , addr ( '7470' )) then 
begin 

pallette := 2; 
cont_linestyles := 8; 
vect_line5t yles :- 0; 
end 
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7626:C 
*URRMNG: 



7627 
7628 
7629 
7630 
7631 
7632 
7633 

«*«UflRNING 
7634 :C 

***UP1RNING 
7635:C 

««*UflRNIMG 
7636:C 
7637;C 
7638 :C 
7639:C 
7640:C 
7641:C 
7642:C 

»«*UflRNING 
7643 :C 

««*UflRNING 

7644 :C 
**«UnRNING 

7645 :C 
*««LJflRNING 

7646 :C 
**«UflRNING 

7647 :C 
«*«UflRNlMG 

7648 :C 
***LJftRNING 

7649 :C 
«««LJfiRNING 

7650:C 
***UflRNIMG 

7651 :C 
««*URRNING 

7652 :C 
7653 
7654 
7655 
7656 
7657 
7658 
7659 

*«*UfiRNING 

7660 :C 
«**UjqRNING 

7661 :C 
»*«U)fiRNING 

7662 :C 
*««UflRNIMG 

7663 :C 

7664 :C 

7665 :C 
***UflRNlNG 

7666 :C 



(iine 7627) : 



(Une 76:-:4) 

8 
[line 76:5) 

9 
(line 76;-;6) 

9 

9 

9 



(line 

9 

(line 

10 

( line 
10 

(line 
10 

(line 
10 

(line 
10 

(line 
10 

(line 
10 

(line 
10 

(line 
10 
10 
10 
10 
10 
10 
10 
10 

(line 
10 

(line 
11 

(line 
11 

(line 
11 
11 
11 

(line 
11 



7643) 
7644) 
7645) 
7646) 
7647) 
7648) 
764 9) 
7650) 
76S1) 
76S2) 



7660) 
7661) 
7662) 
7663) 



else 

'POOR' of 

if gie_matc 
begin 
pallett 
cont_li 
vect_li 
end 
else 
'RODR' of a CO 
if gle mate 
'flODR' ' 



natant may not be supported on 
h(display_name_char_count , addr 



nestyles 
nestyles 



other implemenlations 
(display_name) ,4, addr [ '7440' ]) then 



'flDDR' 



'RDDR' 
'POOR' 
'RDDR' 



7666) : 'RDDR 



of" 
gje_matc 
of a CO 
gje^natc 
begin 
pallett 
cont_ii 
vec t_li 
end 
else 
RODR' of a CO 
i^ (gle_mat 
RODR' of 

(gle mat 
RDDR' of ~ 

RODR' of - - 
(gle_mat 
of 

(gle_mat 
of a CO 
(gle_mat 
of " "" 
(9le_mat 
RDDR' of 

(gle_mat 
RODR' of 

(gle mat 
RDDR' of - 
(gle_mat 
begin 

pallett 
cont_li 
vect^li 
end 
else 
begin 
RDDR' of 
if 
of 

of a'co 
[gle 

of 

(gle, 
palle 

else 

of a 

if (gle. 



nstant may not be supported on 
h (display„name_char__count , addr 
nstant may not be supported on 
h (di5play_name_ch3r_count , addr 
nstant may not be supported on 
h (display_name_char_count , addr 



other implement at ions 
(display__name) ,5, addr [ '74750' ) ) or 

other implemenlations 
[di5play_name) ,4, addr [ '7475' ) ) or 

other implement at ions 
(display_name) ,4, addr [ '7090' ) ) then 



nestyles := 8; 
nestyles := 0; 



nstant may 
ch(di5play_ 
nstant may 
ch(display^ 
nstant may 
ch(display_ 
nstant may 
ch(display_ 
nstant may 
ch(display_ 
nstant may 
ch{di5play_ 
nstant may 
ch(display_ 
nstant may 
ch(di5play_ 
nstant may 
ch(display_ 
nstant may 
ch(display_ 



nestyles 
nestyles 



not be 
name c 
'not Fe 
name c 
not Fe 
name c 
'not Fe 
name c 
not Fe 
name c 
'not Fe 
name c 
not Fe 
name c 
not Fe 
name c 
not Fe 
name c 
not Fe 
name c 



suppc 

har_co 

suppo 
har_co 

suppo 
har_co 

suppo 
har__co 

suppo 
ha 

suppo 
har_co 

suppo 
har_co 

suppo 
ha 

suppo 
har_co 

suppo 



har 



CO 



rted on 
unt ,add 
rted on 
unt , add 
rted on 
unt , add 
rted on 
unt , add 
rted on 
unt , add 
rted on 
unt , add 
rted on 
unt , add 
rted on 
add 
rted on 
unt , add 
rted on 
unt , add 



other 
r [displ 
other 

(displ 

other 
r (displ 

other 

(displ 

other 
r (displ 

other 
r (displ 

other 
r (displ 

other 
r (displ 

other 
r (displ 

other 
r (displ 



implemen 
a y_n ame ) 
implemen 

ay_name) 
implemen 
ay_name) 
implemen 
ay_name ) 
implemen 
ay_name) 
implemen 
ay_name) 
implemen 
ay_name ) 
implemen 
a y_n ame ) 
implemen 
a y_n ame ) 
implemen 
a y_n ame ) 



tations 

S, addr 
tations 

5, addr 
tations 

4, addr 
tations 

5, addr 
tations 
,5, addr 
tat ions 
,4, addr 
tat ions 
,5, addr 
tat ions 
,5, addr 
tations 

5, addr 
tations 

5, addr 



75800')) 


7580B')) 


7580'))) 


758Sfi')) 


7585B' ) ) 


7585'))) 


7586B')) 


7586'))) 


7SS0fi')) 


7550'))) 



) or 



■RDDR' 
'RDDR' 



'RDDR' 



(gle 



be supported on 

name_cha r_count 
"be supported on 

name_cnar_count 
"be supported on 
_name_char_count 
"be supported on 

name char count 



nstant may not 
jnatch(di5play 
nstant may not 

match(display, 
nstant may not 
_match(di5pldy. 
nstant may not 

niatch(displdy 
tte := 4 



nstant may not be supported on 
ma tch(dibplay_name_cha recount , 



other implementations 
, addr (displ ay_n ame) , 5, addr ( '9872R ' ) ) ) or 

other implementations 
,addr (di5play_name) , 5, addr ( '9872B ' ) ) ) or 

other implementations 
, addr(dl5play_name) , 5, addr ( '9872S ' ) ) ) or 

other implementations 
, addr (displ ay_name) ,4, addr ( '9872' ) ) ) then 



other implementations 
addr(di5play_name) , 5, addr ( '9872C' ) ) ) 
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(line 
12 
12 
12 
12 
13 
13 



7667: 
7668: 
7669: 
7670; 
7671 : 
7672: 
7673: 
7674 : 
767S: 
7676: 
7677: 
7678: 
7679; 
7680: 
7681: 
7682; 
7683; 
7684; 
7685: 
7686: 
7687: 
7688; 
7689; 
7690; 
7691: 
7692; 
7693: 
7694: 
7695: 
7696: 
7697; 
7698; 
7699: 
7700; 
7701 ; 
7702: 

7703 :C 

7704 :C 

7705 ;C 
7706 ;S 
7707 :C 
7708;C 
7709;C 
7710;S 
7711 ;C 
7712;C 
7713;C 
7714:C 
7715;C 
7716:C 
7717;C 
7718:C 
7719;C 
7720:C 

7721 :C 

7722 ;C 

7723 :C 
7724:5 
772S:C 
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of a constant may not be supported on other implementations 

(qle_match(display_name_cha recount ,addr (display_name) ,5,addr('9872T'))) then 
pallette ;» 8 

< assume 9872 like device ) 



else 

if spooling = then pallette 
else 

e5cape(-26); ( can't init device, force io error } 



cont linestyles 
vectll^linest yles 
end; 



hpgl get_hard_clip 
dispTay_min_x - - 
display_min_y 
display_max_x 
display_max_y 



0; 

p I get. ) 

infol : 
info3; 
info2; 
info4; 



gle_soft_clip_limit5 ( gcb ); 

gamut := pallette; 
polygon support ;= 0; 
display"handler_name := 'HPGL 
display"handler_char_count := 4 

display_res_x := 40; 
display__res_y := 40; 

linewldths ;» 1; 
char_siHes ;= -1; 
background := 0; 
complement_5upport ;= 0; 
non_dominant_support := 0; 
crase_support := 0; 
color_map support := 0; 
redef_baclrground := 0; 



( set default clipping limits > 
< polygon routine dummyed out ) 



polygon^fill factor 
polygon_soli3_f ill 
dither_5upport 

cur rent_pos_x ;= 0; 
cur rent_pob_y := 0; 
cur rent_cur5or_state 



' 16; 
= 5; 
» 0; 



< off > 

< imed visb > 



end; 
end. 



current_buf fer_mode := 

end; 

recover 

begin 

If escapecode = -26 then error_return := 1 
else if escapecode = -20 <stop key) then 
begin 

current := 0; 
e5cape(-20) ; 
end 
else escape (escapecode) ; < ignor io errors > 
end; 
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7726:S 

hio errors. 57 warnings. 

***** Nonstandard language features enabled *««*« 
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GLE_HPGLI 



Description 

GLE_HPGLI contains the driver code for HPGL input devices. 



Requirements 

GLE_ TYPES, and GLE_UTLS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 :U 

2:1) 

3:0 

4:11 

5:1) 

6:1) 

7:D 

8:D 

9:S 

10:1) 

11:1) 

12:1) 

13:S 

14:S 

15:5 

16:S 

17:S 

18 :S 

19:S 

20 :S 

21 :S 
22:S 

23 :S 

24 :S 

25 :S 
26:5 
27:5 
28:5 
29:5 
30 :D 
31:S 
32:5 



33 

34 

34 

35 

36 

37 

38:S 

39:D 

40 :D 

41 :D 
42:0 
43:S 
44:5 
45:5 
46:E 
47 :D 

18000 :D 
18001:5 
18002:D 
18003:5 
18004 :D 
18005:5 
1800e:D 
18007:5 
18008 :D 
18009:0 
18010:D 
18011:5 



Graphics Low End 

Hodule = GLE_HPGL_IN 
Programer - BJ5 
Date = 10-10-82 

Purpose: To provide HPGL input handler routines. 

Rev history 
Created - 10-10-82 
flodified - 03-15-84 BDS fidded support for 7S86B, 7550fl, 7440, 7090 

(c) Copyright Hewlett-Packard Company, 1983. 
Oil rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

garagraph (b) (3) (B ) of the Rights in Technical 
ata and Computer Software clause in 
OPR 7-104. 9(a). 

HEULETI-PflCKRRD COMPRNY 

Fort Collins, Colorado > 



********** 



$SE«RCH ■GLE_TyPE3','GLE_UTLS' ,'GEN_TOOLS'$ 

$modcal$ 

SINCLUDE 'OPTIONS'S { *«««**«*««»«*«*«*»* COMPILER OPTIONS ******** 

{ This include file specifies range checking, debug and other compiler 
options for the graphics library ) 

Sdebug OFF$ 

$range OFFI 

Scopyright 'COPYRIGHT 1984 BY HEULETT-PfiCKURD COMPflNY'} 

SFLOPT RDU TESTS 



SINCLUDE 'OPTIONS'S 
ILINENUn 18000$ 

module gle_hpgl_in; 

1 import gle_types; 

1 export 

1 const 

1 max buffer = 255; 

1 bufTer_fudge = 32; 



«« COMPILER OPTIONS «»»««*»»»»«•»»»«»»» ) 
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18012:D 


1 


18013:D 


1 


18014:5 




18015:0 


1 


18016;D 


1 


18017:0 


1 


18018:0 


1 


18019:0 


1 


I8020:S 




18021:0 


1 


18022:S 




18023:0 


1 


13024:5 




18025;S 




18026:0 


1 


18027:S 




18028:0 


1 


18029:5 




18030:C 


2 


18031:C 


2 


18032:C 


3 


18033;C 


3 


18034 :C 


3 


18035;C 


3 


18036;C 


2 


13037:5 




18038:0 


1 


18039:0 


2 


18040:0 


2 


18041:0 


2 


18042:0 


-2 2 


18043:S 




18044 :C 


2 


1304S:C 


2 


18046:0 


3 


18047 :C 


3 


18048:C 


4 


18049:C 


3 


I8050:C 


3 


18051 :C 


2 


19052:5 




18053:0 


1 


18054:0 


2 


18055:0 


2 


18056 ;D 


-2 2 


18057;S 




ie058:C 


2 


18059:C 


2 


18060:C 


3 


18061 :C 


3 


18062:C 


3 


18063:C 


3 


18064:C 


2 


18065:S 




18066:0 


1 


18067:S 




18068:: 


2 


18069:C 


2 


18070:C 


3 


18071 :C 


3 
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type 

a5cii_buffer_pt r = '^ascii__buf fer; 



ascii_buffer = packed record 



maximum 
current 

data 

end; 



integer; 
integer; 
packed array [1 . .max_buf fer] of char; 



procedure 9le_init^hpgl_input ( gcbi ; graphic5_input_cont rol_bIock_pt r ) 

implement 

import gle_utls<, 
gen_tools) ; 

procedure hpgl_flush_bijf fer ( gcbi : 9raphics_input_cont rol_block_pt r ) ; 

begin 

with gcbi^, 

ascii_buffer_pt r {device_buf ) ^ do 
begin 

if current <> then call (io_write, iocb,device__buf ) ; 
end; 
end; 

procedure add_char_^dat a ( gcbi : graphics input_cont rol block_ptr; 
~ ~ count : qle_5hoTt int ; ~ 
5 : anycnar_pt r ) ; 
var 

1 : gle_5hort int ; 

begin 

with gcbi^,ascii_buf fer_pt r (gcbi'*" .device_buf )^ do 
begin ~ " 

for i := 1 to count do 

dat3[i+current] := s^ti]; 
current := current + count; 
end; 
end; 

procedure add__parm_data ( gcbi ; graphics inpul_cont rol_block ptr; 

value : gle_5hortTnt ) ; " 

var 

count : gle_short int ; 

begin 

with gcbi", ascii_buffer_pt r (gcbi". device_buf)'^ do 
begin 

gle_write_integer (value , count , add r (data[current + l] ] ) ; 
current := current ♦ count; 
end; 
end; 

procedure hpgl_input_e5Capeo ( gcbi : graphic5_input_cont rol_block_pt r ) ; 

begin 

with gcbi" do 
begin 

add_char_dal a(9cbi,infol,anyptr (info_pt rl ) ) ; 
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18072 :C 
18073:C 
18074 :C 
18075:S 
18076:D 
18077:S 
18078:0 
18079:0 
18080:0 
18081 :S 
18082:C 



18083: 
18084: 
18065: 
1808S: 
18087: 
1808S: 
18089: 
18090: 
18091: 
18092: 
18093: 
18094: 
1809S:D 
18096:0 
18097:0 
18098:0 
18099 :S 
18100:C 
18101:C 
18102:C 
18103:C 
«»«UfiRNING: 
18104:C 
]810S:C 
18106:C 



18107 
18108 
18109 
18110 
18111; 
18112: 
18113 
18114 
18115 
18116: 
18117: 
18118: 
18119: 
18120: 
18121: 
18122: 
18123: 
18124: 
18125; 
18126; 
18127: 
18128: 
18129; 
18130; 



hpgl_f lush_buffer ( gcbi ); 
eno; 



1 procedure hpgl_input_e5capei ( gcbi 

2 var 
2 i : 9le_shortint ; 

2 sptr : anychar_ptr; 

Z begin 

2 with gcbi^,ascii_buffer_pt r{gcbi'^.device_bur)'' do 

3 begin 

3 call (io_read, iocb, device_buf); 

3 sptr := anypt r (info_pt rl} ; 

3 infol := current; 

3; for i := 1 to current do sptr"[i] - data[i]; 

3 current := 0; 

3 end; 

2: end: 



grdphics_input_cont rol_block_pt r 



1 procedure hpgl_get._input_plp2 ( gcbi 

2: 



{ reset buffer counter } 
graphics_input_control_block_ptr ) ; 



cnt 
2 tent 
2 temp 



gle,_shortint ; 
gle_5hortint ; 
integer; 



2 begin 

2 with gcbl^, 

3 ascii^buf fer_pt r (gcbi".device_buf )^ do 
3 begin 

(linel8104): 'POOR' of a constant may not be supported on other implementations 

3 add char_data ( gcbi, 2, addr('OP'} ); 

3 hpgT_flu5h_buffer ( gcbi ); 

3 call (io read, iocb, device buf ) ; 

3 tent := T; - '■ 

3 infol := gle_read_integer (current , addr (data [1] ), cnt ) ; 

3 cnt := cnt + tent; 

3 info3 := gle_read_integer (cur rent , addr (data [cnt] ), tent ) ; 

3 cnt := cnt + tent; 

3 info2 := gle read_integer (cur rent , addr (data[cnt] ), tent ) ; 

3 cnt := cnt + tent; 

3 info4 := gle_read_integer (cur rent , addr [dat a[cnt] ), tent ) ; 

3 current := 0; 

3 if infol > info2 then < make xmin <= xmax ) 

4 begin 

4 temp := infol; 

4 infol := info2; 

4 info2 ;= temp; 

4 end; 

3 if info3 > info4 then 

4 begin 
4 temp := info3; 
4 info3 ;= info4; 
4 info4 := temp; 
4 end; 
3 end; 
2 end; 



< make ymin <= ymax ) 
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18131:0 

18132:S 

18133:0 

18134:0 

18135:0 

18136:S 

18137:C 

18138:C 

18139:C 
«««UBRNING 

18140:C 
«««UfiRNING 

18141:C 
«««U)fiRNING 

18142:C 

18143:C 
«»«UfiRNING 

18144:C 

1814S:C 

18146:C 

18147:C 

18148:C 

18149:C 

181S0:C 

18151:C 

181S2:C 

18153:C 

18154:C 

181S5:C 

181S6:C 

18157:C 
«««UfiRNING 

18158:C 
•♦•UflRNING 

18159:C 

18160:C 

18161:C 

18162:C 

18163:C 

18164:C 

18165:C 

18166:C 
«««UfiRNING 

18167:0 
»»«UflRNING 

18168:C 

18169:C 

18170:C 

18171:C 

18172:C 

18173:C 

18174:C 

18175:C 
♦UnBNING 
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1 procedure hpgl_get_input_hard_clip ( gcb: : graphic5_input_cont rol_bloek_pt r ); 



tcnt.ent : gle shortint; 

tplx, tply, tp2j<,tp5y : gle_shortint; 



2 begin 

2 with gcbi-^, 

3 ascii buf fer_pt r [gcbi". device_buf]^ do 

(linel8140): "^ftODR' of a constant may not be supported on other implementations 

3 if gle match (4 , addr (input name] ,4 , addr ( '7580' ) ) or 

(linel8141): 'flOUR' of a constant may not be supported on other implementations 

4 gle match (4 . addr (input_name) ,4 , addr ( '758S' ) ) or 

(linel8142): 'ftODR' of a constant may not be supported on other implementations 

4 gle_match(4 , addr (input_name) ,4, addr ( '7586' ) ) then 

4 begin 
(linel8144); 'flODR' of a constant may not be supported on other implementations 

4 add char_data ( gcbi, 2, addr('OH') ); 

4 hpgT_flu5h_buffer ( gcbi j; 

4 call (io read, iocb, device buf); 

4 tent := T; 

4 infol ;. gle_read_lnte9er (cur rent , addr (data[l] ), cnt ) ; 

4 cnt := cnt + tent; 

4 info3 ;* gle_read_integer (cur rent , addr (data[cnt] ), tent ) ; 

4 cnt := cnt + tent; 

4 info2 :;= gle_read_integer (current , addr (dataCcnt] ), tent ) ; 

4 cnt :a ent + tent; 

4 info4 := gle_read integer (cur rent , addr (dat3[cnt] ), tent ) ; 

4 current := 0; 

4 end 

4 else 
(linel81S8): 'flODR' of a constant may not be supported on other implementations 

4 if gle match(4,addr (input_name) ,4,addr ( '7470' ) } or 

(linel8159): 'POPR' of a constant may not be supported on other implementations 
6 gle_match(4,addr(input_name) ,4,addr ( '7440' )) then 

5 begin 



18176 
18177 
18178 
18179 
18180 
18]; 



s 


infol 


b 


info2 


b 


info3 


b 


info4 


5 


end 


b 


else 



= 0; 

= 10300; 

= 7^50; 



{changed from 7600 per 7550 doc) 



(linel8167): 'RDDR' of a constant may not be supported on other implementations 
5 if gift match(4,addr(lnput_name) ,4,adcir ( '7475' ) ) or 
inel8168): 'fiOUR' of a constant may not be supported on other implementations 
gle_match[4,addr (input^name) ,4, addr ( '7090' ) ) then 
begin 



(1 



infol ;:= 0: 
6 info2 := 16640; 

6 :nfo3 := 0: 
6 info4 := 10365; 
6 end 
6 else 
(linel8176): 'PDDR' of a constant may not be supported on other implementations 

6 if gle_match(4,addr(input_name) ,4,dddr ( '7550' ) ) then 

7 begin 



infol 

info2 
info3 
info4 



= 1^450; 

= 0, 

= 10170; 
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18182:C 
18183:C 

»»«lJfiRNIrJG: 

18184:C 

18185:C 

18186:C 

18187:C 

18188:C 

16189:C 

18190 :C 

18191 :C 
»«»UBRNING: 

18192:C 

18193: 

18194: 

18195: 

18196: 

18197: 

18198: 

18199: 

18200: 

18201 : 

18202: 

18203: 
»»«UnRNIfJG: 

18204:C 

1820S:C 

18206:C 
««»UflRNING: 

18207 :C 

18208:C 
•••UfiRNING: 

18209:C 

18210:C 
»«»UflRNING: 

18211 :C 

18212:C 
«««UPRNING: 

18213:C 

18214: 

18215: 

18218: 

18217: 

18218: 

18219: 

18220: 

18221 : 

18222: 

18223: 

18224: 

18225:0 

18226:0 

18227:0 

18228:0 

18229:0 

18230:0 

18231 :D 

18232:0 

18233:0 

18234:0 



end 
else 
81f-4): 'RDDR' of a constant may not be supported on other implementations 
If gle_match(4, addr[input_name) ,4,addr ( '9372' ) ) then 
begin 

infol :. 0; 
info2 := 16000; 
info3 :■ 0; 
info4 := 11400; 
end 
else 
8192): 'flDDR' of a constant may not be supported on other implementations 
if gle_match(4, addr ( input_name ) ,4, addr ( '91 11 ' ) ) then 
begin 

infol := 0: 
info2 := 12032; 
info3 := 0: 
info4 := 8704; 
end 
9 else 

9 begin { initialize the device and use P1/P2 values ) 
9 npgl_get input_plp2 ( gcbi 1; 
9 tplx := Infol; lp2x := info2; 
9 tply := info3; tp2y := info4; 
(linel82C4): 'flODR' of a constant may not be supported on other implementations 
9 add char^data ( gcbi, 2, addr('IN')); 
9 hpgT_get_irput_pi p2 ( gcbi ); 
9 ( restore pi, p2 ) 
(Iinel8207); 'RDDR' of a constant may not be supported on other implementations 
9 add_char_data ( gcbi, 2, addr('IP')); 
9 add parm_data ( gcbi, tplx ); 
(linel82C9): 'RDDP' of a constant may not be supported on other implementations 
9 add_char_data ( gcbi, 1, addr(', ')); 
9 add parm_data ( gcbi, tply ); 
(linel8211): 'RDOf' of a constant may not be supported on other implementations 
9 add_char_data i gcbi, 1, addr(', ')); 
9 add parm_data ( gcbi, tp2x ); 

8213): 'pool?' of a constant may not be supported on other implementations 



(linel 
7 



(linel 
8 
9 
9 
9 
9 
9 
9 



(linel 
9 
9 
9 
9 
2 enC; 



add_char_dat a ( gcbi, 1, addrC, 
add parm_data ( gcbi, tp2y ); 
hpgT flush buffer ( gcbi ); 



end; 



1 prccedure hpgl_sample ( gcbi 
0. .255; 



graph ic5_input_cont rol_block_pt r ) ; 



tyte 
byte 



cnt 

button 

status 



gle_shcr tint ; 
gle shcr tint ; 
paclTed record 
case byte of 

; (whole 

1 : (part 



gle short int ) ; 
packed record 

bitl5,bitl4,bitl3,bitl2,bitll, 

pen_down, 
nev._cur50 r , 
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18235:0 
18236:0 
18237:0 
18238:0 
18239:0 



18240: 

18241: 

18242: 

18243: 

18244: 

18245: 

18246: 

18247: 

18248: 

18249: 

18250:C 
«««LjnRNING: 

182S1:C 

18252:C 

18253:C 

18254:C 

1825S:C 

18256:C 

18257:S 

18258:C 

18259 :C 

18260:S 
•••UPRNING: 

18261;C 

18262:C 

18263:C 

18264:5 

1826S:C 

182S6:C 

18267:5 

18268;C 

18269:C 

18270:0 



18271 : 
18272: 
18273: 
18274 : 
18275: 
18276: 
18277: 
18278:0 
18279:5 
18280:C 
18281 :C 
18282:0 
*«»UPRNING: 



283 
18284 
18285 
18286 
18287 
18288 
18289 
18290 



end; 
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proximity, 
sof tkey, 
srq, 
error, 
ready, 
init , 

point_ready, 
bitl, 

bitO : boolean; 
end) ; 



File name: GLE HPGLI 



2 beg 
2 
3 
3 

(lineie25 
3 
3 
3 
3 
3 
3 

3 
3 



ith gcbi^, 

scii buf fer_pt r (gcbi" .device_buf ) 
begin 



do 



'POOR' of a constant may not be supported on other implementations 
add char_data ( gcbi, 2, addr('Ofi') ); 
npQT_f lush_buf fer ( gcbi ); 
call (io_read, iocb, device_buf); 

infol := gle_read_integer (cur rent , addr (data [1] ), cnt ) ; 
info2 := gle_read_integer (cur rent , addr (data [cnt + 1 ]) ,cnt ) ; 
current := 0; 

input_cpx : = infol ; 
input_cpy := info2; 



(linel8261): 'POOR' of a constant may not be supported on other implementations 

3 ' -. , , 

3 
3 



4 

5 
5 
5 
3 
2 end 



add char_data ( gcbi, 2, addr('OS') ); 

hpqT_flu5h_buffer ( gcbi ); 

call {io_read, iocb, device_buf); 

gle_read_jnteger (current, add r(data[l]), cnt); 



status .whole 
current := 0; 

If Stat us .part . point_ready then 

info3 := -1 
else 
if Stat us . part . pen_down then 

info3 := 1 
else 

info3 ;= 0; 
end; 



1 procedure hpgl_st ar t_digit ize [ gcbi : graphics_input_cont rol_block_pt r ); 



2 beg 
2 w 
3 
(linel828 
3 
3 
3 
2 end 

1 pro. 

2 var 
-4 2 1 



ith gcbi" do 
begin 

3): 'flDDR' of a constant may not be supported on other implementations 
add char_data I gcbi, 8, addr ( ' PU;SG;DP' ) ) ; 
hpgl_f lush_buf fer ( gcbi ); 
end; 

ledure hpgl_get_digit ize ( gcbi : graphics_input_cont rol_block_pt r ); 

.nt.cnt : gle _shor t int ; 
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18292:S 










18293:C 




2 


begin 




18294 :C 




2 


with gcbi', 




1829S:C 




3 


ascii buffer pt r (gcbi^. device buf)" do 




1829e:C 




3 


begin 




»»»UflRNING: 


(1 


iniel8297] : 'flODR' of a constant may not be supported on other implementations 




18297:C 




3 


add char data ( gcbi, 2, addr('OD') ); 

hpgT flush buffer ( gcbi ); 

call (io read, iocb, device buf): 




18298 :C 




3 




18299:C 




3 




1S300:C 




3 


tent U T; - 




18301 :C 




3 


infol :- gle_read_integer (cur rent , addr (data[l] ) ,cnt ) ; 




18302:C 




3 


cnt := cnt + tent; 




18303:C 




3 


info2 :- gle read integer (cur rent , addr [data[cnt] ), tent } ; 




18304:C 




3 


ent := cnt + tent ; 




1830S:C 




3 


info3 := gle read integer (cur rent , addr (data[ent] ), tent ] ; 




18306:C 




3 


current := OT 




• ••UflRNING: 


(1 


inel3307) : 'flDOR' of a constant may not be supported on other implementations 




18307:C 




3 


add char data ( gcbi, 2, addr('OC') ); 
hpgl flush buffer ( gcbi ); 




18308:C 




3 




18309:C 




3 


end; 




18310:C 




2 


end; 




183U:S 










18312;D 
18313:S 
18314;C 




1 


procedure hpgJ_input_echo ( gcbi : graphics_input_eont rol_block_pt r ); 






2 


begin 




18315:C 




2 


with gcbi*^ do 
begin 




18316:C 




3 




18317:C 




3 


If infol <> then 




18318:C 




4 


begin 




«««UfiRNING; 


(1 


inel8319): 'flDOR' of a constant may not be supported en other implementations 




18319:C 




4 


add char data ( gcbi, 2, addr('BP')); 
hpgT flush buffer ( gcbi }; 




18320:C 




4 




18321:C 




4 


end; 




18322 :C 




3 


end; 




18323:C 




2 


end; 




18324:3 










18326 .D 
18326:S 
18327:D 




1 


procedure gle_.init_hpgl_input ( gcbi : g raphics_input_cont rol_block_pt r) ; 






;> 


var 




18328:D 


-4 


2 


saved timeout : integer; 




18329:D 


-8 


2 


i : integer; 




18330:5 










18331 :C 




2 


begin 




18332:C 




2 


with gcbi", ascii buffer ptr(device buf)" do 




18333:C 




3 


begin 




18334:C 




3 


try 




1833S:C 




4 


maximum := max buffer; 




18336:C 




4 


current := 0; 




18337:C 




4 


error return := 0; 




18338:3 










18339:C 




4 


call (io inq timeout, iocb, saved timeout ); 




18340:C 




4 


call (io set timeout, iocb, 500 < ms > ); 




18341 :C 




4 


( send comnand that all HPGL plotters can respond to ) 




18342:C 




4 


{ if the command fails then the address does not match ) 




18343:C 




4 


< the device. > 




«««UfiRNING: 


(1 


inel8344) : 'flDDR' of a constant may not be supported on other implementations 




18344:0 




4 


add char data { gcbi, 2, addrf'OE') ); 




18345:0 




4 


hpgl flush buffer ( gcbi ); 

call (io read, iocb, device buf); 




18346:0 




4 




18347:C 




4 


current := 0; 
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18348:5 










18349:0 




4 


{ if this point is reached then a valid HPGL device was found > 




18360:3 










18351:0 




4 


try { perform an output identify seq. Note a 9872fl will fail > 




•••UfiRNING: 


(i 


inel8352): 'flDDR' of a constant may not be supported on other implementations 




18352:0 




S 


add char data ( gcbi, 10, addr ( 'In30;DC ;0I ' ) ); 

hpal flush buffer [ gcbi ); 

call (ic^read, iocb, device_buf ) ; 




18353:0 




5 




18354:0 




6 




183S5:S 










18356:0 




S 


for i := 1 to current do input_name [i] := data[i]; 




18357:0 




S 


for i := current+1 to 6 do input_name [i] :~ ' '; 




18358:0 




S 


input name char count := current; 




18359:0 




S 


current := 0; 




18360:0 




5 


recover 




18361:0 




5 


if escapecode = -26 then 




18362:0 




6 


begin 




18363:0 




6 


input name := '98720 '; 




18364:0 




13 


input^rame char count :- S; 




18365:0 




6 


curreit :- 0; 




18366:0 




6 


end 




18367:0 




6 


else 




18368:0 




IS 


escape (escapecode) ; 




18369:3 










18370:0 




4 


sample 


= hpgl sample; 




18371 :0 




4 


start^digitize 


= hpgl_start_digitize; 




18372:0 




4 


get digitize 


= hpgl_get_dTgitize ; 




18373:0 




4 


inq_plp2 


= hpgl get_input plp2; 




18374:0 




4 


input echo 


= hpgl input echo; 




18375:0 




4 


input escapei 


= hpgl input escapei; 




18376:0 




4 


input_.escapeo 


= hpgl input escape©; 




18377:3 










18378:0 




4 


input_res_.x := 40; 




18379:0 




4 


input_res"y := 40; 




18380:3 










18381 :0 




4 


input_handier_name := 'HPGL '; 




18382:0 




4 


input handler char count := 4; 




18383:3 










18384:0 




4 


^'Pgi_get_input_hard clip ( gcbi ); 




18385:0 




4 


input_min_x := infoT; 




18386:0 




4 


input max x := info2; 




18387:0 




4 


input min y := info3; 




18388:0 




4 


input_max_,y := info4; 




18389:3 










18390:0 




4 


input^epx := input min x; 




18391:0 




4 


input_cpy := input_min_y; 




18392:3 










18393:0 




4 


recover 




18394:0 




4 


if escapecode = -26 then error return := 1 




18395:0 




5 


else escape [escapecode] ; { ignor io errors > 




18396:3 










18397:0 




3 


try 




18398:0 




4 


call (io_se1_timeout, iocb, 5aved_t imeout ); 




18399:0 




4 


recover 




18400:0 




4 


if escapecode = -26 then er ror__return := 1 




18401 :0 




5 


else escape (escapecode) ; ( ignor io errors > 




18402:0 




3 


end; 




18403:0 




2 


end ; 




18404:3 
18405:3 
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18406:0 




1 


end. < hpgl_ir,put } 
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18407:S 

No errors. 2S warnings. 

***** Nonstandard language features enabled ***** 
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GLEHPIB 



Description 

GLE_HPIB contains I/O routines which interface the graphics Hbrary to the system HP-IB I/O 
drivers. 



Usage 

Used with HPGL displays or locators connected via HP-IB. 



Requirements 

GLE_TYPES, GENERAL_0, lODECLARATIONS, SYSGLOBALS, lOCOMASM, and GLE_UTLS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 

11-437 



rascal [Rev 
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1 :S 

2:0 





< > 




3:0 





{ G aphics Low End > 




A:D 





( i 




5;D 





( nodule = GLE HPIB > 




6:0 





< Pogramer = BJ3 } 




7:0 





( D.ite = 10-10-82 > 




8:D 





\ > 




9:0 





{ Pjrpose: To provide 10 routines for ascii device handlers. > 




10:S 








11:0 





< Rf!v history } 




12:0 





( i.'reated - 10-10-82 > 




13:0 





< nodified - 12-12-83 BOS -- Brought needed general 1 and hpib_l > 




14:0 





{ routines in-line. > 




1S:S 








16:S 




( (c) Copyright Hewlett-Packard Company, 1983. 
fill rights ars reserved. Copying or other 




17:3 






18:S 




reproduction of" this program except for archival 




19:S 




purposes is prohibited without the prior 




20:S 




written consent of Hewlett-Packard Company. 




21:S 








22:S 








23:S 




RE3TRICTE0 RIGHT3 LEGEND 




24:S 








25:S 




Use, duplication, or disclosure by the Government 




26:S 




is subject to restrictions as set forth in 




27:3 




paragraph (b) (3j (B) of the Rights in Technical 
Data and Computer Software clause in 




28:3 






29:S 




DfiR 7-104. 9(a). 




30:3 








31:3 




HEWLETT-PBCKHRD COMPPNY 




32:0 





Fort Collins, Colorado > 




33:S 








34:0 





SSEllRCH 'CLE TYPES' , 




35:0 





'GLE UTLS'S 




36:0 





SmodcalS 




36:0 





Jini:lude '0PTI0N3'$ ( ««»««««»»«««»«««««« COMPILER OPTIONS «•»*«««»»««««»« > 




37:3 








38:3 




( 'his include file specifies range checking, debug and other compiler 




39:0 





options for the graphics library > 




40:3 








41:0 





Sdehug OFF$ 




42:D 





Srange OFF$ 




43:0 





Scopyright 'COPYRIGHT 1984 BY HEULETT-PPCKfiRD COtlPflNY'S 

$FH)flT HDUJ TESTS 




44:0 







45:3 








46:3 








47:3 








48:3 








49:0 





$ini lude 'OPTIONS'S < «»»«««««»«««»«««««« COMPILER OPTIONS »»«»*«»»«»«»»»« ) 




10000:0 





SLIMENUfI 10000$ 




10001 :S 








10002:0 





module gle_hpib_io; 




10003:3 








10004:0 


1 


import gie types, 




10005:0 


1 


general 0, 
locomasm; 




10006:0 


1 




10007:3 








10008:0 


1 


expor t 




10009:0 


1 


typp 
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10010:0 




hpib locb ptr = '^ hpib locb; 




10011 :D 




hpib iocb = record 




10012:0 




device^addr 


anypt r ; 




10013:0 




name_size 


gle_short int ; 




10014:0 




address 


integer ; 




10015:0 




select code 


integer; 




10016:0 




error 


integer; 




10017:0 




end; 




10018:0 




timeoutrec = record <tttt J3 8/3/83) 




10019:0 




counter: integer; {tttt JS 8/3/83> 




10020:0 




fifsttime: boolean; (tttt JS 8/3/83> 
end: (tttt 33 8/3/83) 




10021 :0 






10022:3 








10023:0 




procedure hpib init ( anyvar iocb ptr : anyptr ); 




10024:0 




proc:edure hpib_inq timeout ( anyvar iocb_ptr : anyptr; var value : integer ); 
procedure hpib set timeout [ anyvar iocb ptr ; anyptr; value : integer j; 




10025:0 






10026:0 




procedure hpib wriTe ( anyvar iocb ptr, data ptr : anyptr 1; 




10027:0 




procedure hpib read f anyvar iocb^ptr, data~ptr : anyptr ); 




10028:0 




procedure hpib^term ( anyvar iocb_ptr : anyptr ); 




10029:3 








10030:0 




implement 




10031:3 








10032:0 




import 




10033:0 




lodeclaratiors. 




10034:0 




cgeneral 1 , ) 
(hpib 1,7 




10035:0 






10036:0 




gle_utl5; 




10037:3 








10038:0 




< The following types must match types declared in GLE_HPGL, and GIE_HPGLI > 




10039:0 




type 




10040:0 




a'.cii_buffer_ptr = "a5Cii_buf fer ; 




10041:3 








10042:0 




ascii_buffer = packed record 




10043:0 




maximum : integer. 




10044:0 




current : integer; 




10045:0 




data : packed array [1.. 32767] of char; 




10046:0 




end; 




10047:3 








10048:0 




<ll !lll mil NIIM illll llllllllllllllllll II II IIIIIIIIIIIIIMIIIIIIIIMIIIII) 




10049:3 








I0050:D 




<»«» general_l »»•) 




10051:3 








10052:3 




{The following procedures have been brought in-line to avoid importing 
general 1 and hpib^l . NOTE: These routines must be duplicates of those 
found in general_l and hpib_l and therefore must reflect any modifications 




10053:3 
10054:3 






10055:0 


1 


to t hose modules . > 




10056:3 








10057:3 








10058:3 








10059:0 


1 


FUNCTION timerexists: boolean; external; { tttt JS 8/3/83 ) 




10060:3 








10061 :D 


1 


FlNCTION t imed_out (var rec : timeoutrec): boolean; external; (tttt JS 8/3/83) 




10062:3 








10063:3 








10064:0 


I 


PPOCEDURE ioreset ( select code : type isc); 




10065:C 


2 


BtGIN 




10066:C 


2 


UITH ISC tab]e[select^code] DO 




10067:C 
10068:C 


3 
3 


CfiLL ( io_iJrv pt r'- . iod_Tnit , 
io tmp ptr); 
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10069:C 


2 


END; ( of ioreset ) 
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10070:S 




10071:S 




10072:D 


1 


10073:0 


2 


10074 :C 


2 


1007S;C 


2 


10076:C 


3 


10077:C 


3 


10078:C 


3 


10079:C 


2 


10080:S 




10081 :D 


1 


10082:0 


-8 2 


10083:C 


2 


10084:C 


2 


1008S:C 


3 


10086:C 


3 


10087:C 


3 


10088:C 


3 


10089:C 


2 


10090:C 


3 


10091:C 


3 


10092 :C 


3 


10093 :C 


3 


10094 :S 




10095 :C 


2 


10096:5 




10097:C 


3 


10098:C 


3 


10099:S 




10100:C 


3 


10101 :S 
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PROCEDURE writechar ( select_cc.de : type isc 

CHP- ■ 



CHPR ); 



type isc 
REAL 



< in seconds ) ); 
- 1 byte left for shifts > 



value 
BEGIN 

UITH isc table[select_code] DO 
CfiLL(io_3rv_ptr'^.iod_wtb, 
io tmp_ptr, 
value) ; 
END; < of writechar ) 

PROCEDURE 5et_timeout ( 5elect_code 

time 
BEGIN 

IF time>8191 ( 4 byte timeout 

THEN BEGIN 

< error ) 

io escapefaoe bad tmo, select code); 
END; { of IF ) 
IF (time>0) BND (time<0.001) 
THEN BEGIN 

< error > 

20 escapefioe bad tmo, select code); 
END; { of IF > 

UITH isc_lable[5elect_code] DO BEGIN 

{ the table entry used by drivers is in milliseconds > 
use r_time: -ROUND (time" 1000); 

IF io_tmp_ptr <> NIL THEN io_tmp_pt r^. t imeout := user_time; 

END; { of UITH DO BEGIN ) 

END; < of set_timeout ) 

<»»» hpib_l ««»> 

PROCEDURE 5end_command( select code 

command 
BEGIN 

UITH isc_table[select code) DO 
CSLL ( io_drv_ptr".Iod_5end, 
io_tmp ptr, 
cofT»nan3) ; 
END; < of send_command ) 



pe isc 
SR ); 



t ypeisc ) 



FUNCTION my_address ( 5elect_code 

: type hpib addr ; 
BEGIN 

IF isc_table [;ielect code].io fmp ptr <> NIL 
THEN BEGIN 

UITH isc_table[5elect_code) . io_tmp_pt r^ 00 
IF addressed <> -1 
THEN BEGIN 

my_address :=addressed; 
END 
ELSE BEGIN 
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< error ) 

io_escape ( ioe no i _hpib , select _code) 
EfJD; { of IF addressed ) 
END 

ELSE BEGIN 
( error ) 

io_esc:ape (ioe_not_hpib , select_code) ; 
END; { of IF io_tmp_ptr > 
; { of my_addres5 > 



FUNCTION act ive_cont roller 

( select code : t ype isc 1 
: BOOLEflFI; 
BEGIN 

IF isc table[select code]. card type=hpib card 
THEN BEGIN 

active cont roller :=b it set (i05tatjs( select code, 3), 6): 
END ~ ~ _';./» 

ELSE BEGIN 

active controller := TRUE; 
END; ( oT IF > 
END; < of active_cont roller } 



f***t*****xiof*******»****i* this function is not used 
{FUNCTION system_cont roller 

( select code : type isc ) 
: BOOLEflR; 
BEGIN 

IF isc table[select code]. card type=hpib card 
THEN BEGIN 

system controller :=b it set (iostatust select code, 3 ) ,7) ; 
END " " - / - ;> 

ELSE BEGIN 

system controller := TRUE; 
END; of"IF 
END; of systemcont roller > 



****t*».7).***.****.**) 



<FUNCTION end^set 



***** this functio is not used ** 

( select_code : type_isc ) 
: BOOLEAN ; 
VRR mybool : BOOLEfiN; 
BEGIN 

UITH isc_i able[select^code] DO 
CALL ( io_drv__pt r"^ .Tod_end , 
io tmp_pt r , 
my&ool,] : 
end_set := mybool; 
END; of send_contnand > 
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FUNCTION addr_to_taU( device 

: type_isc: 
vnR io_isc : type isc; 

timer : INTECER; 

hpibrec: timeoutrec; 

BEGIN 
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t ype_device) 
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{tttt JS 8/3/83) 



IF device>iomaxisc 
THEN BEGIN 

io_isc ;=device DIV 100; 

WITH i5c_tabie[io_i5c] DO BEGIN 

IF io tmp ptr <> NIL 

THEfl BE5IN 

< set up user timeout - in case system drivers changed it > 
io_tmp_pt r" . timeout :=user_t ime; 



IF io tmp pt r^. addressed <> 

THEH BEiJIN 
IF 



-1 



AND 



card_type <> hpib card 
I device nOD 100 > Jl ) 
THEN io_e5cape (ice misc, iodise) ; 
send_corTniand(io_i5C,CHR(talk_con5tant+{device MOD 100))); 
send_conTtiand(io_isc, '?' ) ; 

send command(io i5c,CHR(my address(io isc)*listen constant)); 
END 

ELSE BEGIN 
< error ) 

io escape(ioe not hpib,io isc); 
END; ( of IF ) 
END 

ELSE BEGIN 
END; ( of IF ) 
END; ( of UITH DO BEGIN ) 
END 
ELSE BEGIN 

io_isc :=device; 

UITH i5c_table[io_i5C] DO BEGIN 

{ set up user timeout - in case system drivers changed it ) 
IF io_tmp_ptr <> NIL THEN io_tmp_pt r" . t imeout : =use r_t ime ; 

IF card lype=hpib card THEN 
BEGIN 

IF NOT active_cont roller (io_isc) 
THEN BEGIN 

{ if non controller *ait until listener ) 
IF user time = 
THEN BEGIN 
REPEAT 

( wait forever ) 
UNTIL bit 
END 
ELSE BEGIN 



_5et [iostatus( io_i5c,6) , 10) ; 
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{ wait for timeout value } 

IF timerexists THEN BEGIN {t 

bpibrec . first time : = t rue; < 

hpibrec .counter :=user_t ime ; < 

REPERT I 

UNTIL timed_out (hpibrec) OR < 

bit set (iostatusfio isc, 6), 10); { 

END { 

ELSE BEGIN < 
timer:"u5er time«3; 
REPEBT 

t ime r : = t ime r - 1 ; 
UNTIL ( timer = ) OR 

bit_set (io5tatus(io_i5c,6) ,10) ) 
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tt JS 8/3/83) 

ttt JS 8/3/83) 

tit JS 8/3/83) 

ttt JS 8/3/83) 

ttt JS 8/3/83) 

ttt JS 8/3/83) 

ttt JS 8/3/83) 

ttt JS 8/3/83) 



IF NOT bit_5et (io5tatus(io_isc,6),10) 
THEN io escape ( ioe_timeout , io_i5c) : 
END; ( of IF user time=0 ) 
END; < of IF > 
END; { of IF card type = hpib card ) 
END; ( of UITH DO BEGIN ) 
END; < of IF ) 

addr_to_t alk : =io_isc; { return select code ) 

END; ( of addr_to_talk ) 



(tttt JS 8/3/83) 
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$PfiGE» 

FUNCTION addr_to_li5ten 

( device 
: type_isc; 

VflR iO_15C 
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type_device) 



t ime 
fipibrec 



type isc: 
IWTECER; 
timeout rec; 



<tttt JS 8/3/83) 



IF device>iomaxi5c 

THEN BEGIN 

io_isc:=device DIV 100; 

WITH i5c_table[io_i5c] DO BEGIN 

IF lo tmp ptr <> NIL 

THER BECIN 

\ set up user timeout - in case system drivers changed it > 
lo_tmp_pt r^. t imeout : = user_t ime; 

IF io tmp pt r^. addressed <> -1 
THER BEEIN 

IF ( card_type <> hpib card ) RND 
( device MOD 100 > 31 ) 
THEN io_escape ( ice misc,io isc); 
send_command(io_isc,CHR(my_a5dress(io_isc)+talk constant) ) ; 
send_command [ io_i5C , '? ' ) ; " 

send commandfio isc ,CHR (listen constant* (device MOD 100))); 
END ~ ~ 

ELSE BEGIN 
< error ) 

io_escape(ioe not hpib.io isc); 
END; { of IF ) 
END 

ELSE BEGIN 
END; ( of IF ) 
END; ( of UITH DO BEGIN > 
END 
ELSE BEGIN 

io_isc :=device; 

UITH i5c_table[io_isc] DO BEGIN 

< set up user timeout - in case system drivers changed it ) 
IF io_tmp_ptr <> NIL THEN io_tmp_pt r^. timeout :=user_time; 

IF card type=hpib card THEN 
BEGIN" 

IF NOT act ive_cont roller (io isc) 
THEN BEGIN 

( if non controller wait until talker > 
IF user time s c> 
THEN BEGIN 
REPEAT 

{ wait forever ) 
UNTIL bit set (io5tatu5(io isc, 6), 9); 
END " -,,,,, 
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ELSE BEGIN 

< wait for timeout valje } 
IF timerexists THEN BEGIN 
hpib rec .firsttime:=true: 
hpibrec .counts ' :=user time; 
REPEAT 
UNTIL timed_o jt (hpibrec) OR 

bit set (iostatu5(io_isc,6) , 9); 
END 
ELSE BEGIN 

timer:=user time*3; 
REPEAT 

timer :=timer-l; 
UNTIL ( timer = 6 ) OR 

( bit_set (iostatus (io isc, 6), 
END; 

IF NOT bit_5et ( iostatus(io_isc,( 
THEN io escape ( ioe_t imeout , io_ 
END; { of IF user time=0 > 
END; < of IF ) 
END; ( of IF card type = hpib card > 
END; ( of UITH DO BEGTN ) 
END; ( of IF > 

add r_t o_listen:=io_isc; 

END; { of addr_to_listen > 




.61,9) 
-_isc) 



9) ) ; 

<tttt JS 8/3/83) 
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set to talk exists because of HPIB_2/HPIB_3 - 
those routines are intended to be the controller 
( active ) and should not wait for the card to be 
addressed as talker. addr_to_talk is used by 
data transfer routines. set_to_talk is used by 
bus control routines. 



^ **«**»»«**«*««**««*««««# this function is never used «*»*«******* 
(FUNCTION set_to_talk ( device : type^device) 

: type_isc; 
VflR loisc : type_isc; 
1 EGIN 

IF device>ioma>;isc 
THEN BEGIN 

io_isc : = add r_to_talk (device) ; 
END 
ELSE BEGIN 

io_isc :=device: 

WITH i5C_table[io_isc] DO BEGIN 

set up user timeout - in case system drivers changed it 
IF io_tnip_ptr <> NIL THEN io_tmp_pt r"" , t imeout : =user_t ime; 

IF card_type=hplb_card THEN 
BEGIN 

IF NOT active cont roller E io_isc ] 
THEN BEGIN ~ 

io_e scape (ioe_not_act ,io_isc ) ; 

END; of IF 
END; of IF card type = hpib_card 
END; of UITH DO BEGTN 
END; of IF 

setto talk :=io_isc ; return select code 

FND; of set_To__talk } 
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set to listen exists because of HP1B_2/HPIB_3 - 
tho5e routines are intended to be the controller 
( active ) and should not wait for the card to be 
addressed as listener. addr_to_li5ten is used by 
data trans fer routines. set_to_li5ten is used by 
bus control routines. 



^ *****«»***»***x**«* this function is never used **«*«««***««*«»« 
(FUNCTION set_to_listen 

(device : t ype_device) 

: type_isc; 
VflR io isc : type isc; 

timer : INTESER; 
BEGIN 

IF device>iomaxisc 
THEN BEGIN 

iodise :=addr_to_li5ten (device) ; 

ENO 

ELSE BEGIN 

io_isc :=device; 

UITH i5C_table[io_isc] DO BEGIN 

set up user timeout - in case system drivers changed it 
IF io_tmp_ptr <> NIL THEN io_tnp_pt r"^ . t imeout : =U5e r_t im« ; 

IF card type=hpib card THEN 
BEGIN"" 

IF NOT active_cont roller (io_isc ) 
THEN BEGIN 

io_e scape ( ioe_not_act , io_isc) ; 

END; of IF 
END; of IF card type = hpib_card 
END; of UITH DO BEGTN 
END; of IF 

set_to_listen: -iodise ; 

END; of set_to_.listen > 



1 {|l IIM IIIIMIIIIIIIIII llllllllllinillll III! IliMlilllliMlllllllllillllll) 
1 procedure hpib__inq_t imeout ( anyvar iocb_ptr : anyptr; var value : integer ); 
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10468:S 

10469:C 2 begin 



10470:C 2 with hpib iocb ptr(iocb ptr)" do 

10471 :C 3 begin " - 

10472:C 3 value := isc tableCselect codel.u:.er time; 

10473:C 3 end: "" - J _ . 

10474:0 2 end: 



1 procedure hpib_set_t imeout ( anyvar iocb_ptr : anyptr; value : integer ); 



1047S:S 

10476:0 

10477:S 

10478:C 2 begin 

10479:C 2 with hpib^iocb pt r (iocb_pt r )" do 

10480:C 3 set timeout Tselect code , value/1000) ; 

10481:C 2 end; ~ - , i i , 

10482:S 

10483:0 1 procedure hpib_init ( anyvar iocb_ptr ; anyptr ); 

10485:0 2 var 

10486:D -2 2 cnt : gle shortint: 

10487:S " 

10488:C 2 begin 

10489:C 2 witn hpib iocb ptr(iocb ptr)' do 

10490:0 3 begin " 

10491:C 3 Irror : .= 1; 

10492:C 3 try 

10493:C 4 address : == gle_read integer ( name size, device addr, cnt )■ 

10494 :C 4 select code := address div 100; 

10495 :C 4 if rseTect_code >' minrealisc) and 

10496:C 5 (select code <= maxrealisc) then 

10497:C 5 begin ^ 

10498:C 5 loreiLet (select code): 

10499 :C 5 error := 0; 

10S00:C 5 end; 

10S01:C 4 recover 

10502:C 4 ^ error is set, ignore range and io escapes } 

!Si2?'S 5 ^' (escapecode <> -8) and (escapecode <> -26) then escape(e5capecode ) ; 

10504 : C 3 end; 

10S05:C 2 end; 

10506 :S 

10507:0 1 procedure hpib write ( anyvar iocb ptr, data ptr : anyptr ); 

10508 :S ~ -r , _.- 

10509:0 2 var 

10510:0 -4 2 i : integer; 

10511:0 -6 2 io isc : type isc; 

10512:S 

10513:C 2 begin 

10514:C 2 with hpib_iocb ptr(iocb ptr)^,a5cii buffer ptr(data ptr)^ do 

105I5:C 3 begin ~ ~ ' -►■ i _k j 

1051S:C 3 io_isc := addr to_listen ( address ) ; 

10517:C 3 with isc_tableTio_i5C] . io_drv_pt r", isc table[io isc] do 

10518:C 4 begin 

10519:C 4 Tor i := 1 to current do 

10520:C 5 call liod__wtb, io_tmp_ptr, datati] ); 

10521:C 4 wrilechar (io_i5c , io_car riage rtn); 

10522:C 4 writecharfio isc,io line feetj); 

10S23:C 4 end; > _ . . 

10S24:C 3 current := 0; 

10S25:C 3 end; 

10526:: 2 end; 

10527:3 
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10528:0 1 procedure hpifc_read ( anyvar iocb_ptr, data_ptr : anyptr ); 

1 v0^9 I S 

10530:0 2 var 

10531:0 -4 2 i : integer; 

10532:0 -6 2 io isc : type isc; 

10533:3 

10534 :C 2 begin 

10535:0 2 with hpib iocb ptr(iocb ptrj'^.ascii buffer ptrfdata ptr)^ do 

10536:0 3 begin ~ ~ _ _k i _^ j 

10537:C 3 lo_i5C :» addr to_talk j address ); 

10S38:C 3 with isc_tableTio isc]. 10 drv ptr^, isc table[io isc] do 

10539:0 4 begin ~ - - . _ i _ j 

10540:0 4 i := 0; 

10541:0 4 repeat 

10542:0 5 i := i ♦ 1; 

10543:0 5 call (iod_rdb, io^tmp ptr, data[i]); 

10544:0 5 until ( ( i >= maximum T or { datafij = io line feed ) ); 

10545:0 4 if data[i] = io line feed then i :- i - 1;~ 

10546:0 4 if i <> then Tf daTa[i] = io carriage rtn then i := i - 1: 

10547:0 4 current := i; - - 

10548:0 4 end; 

10549:0 3 end; 

10550:0 2 end: 

10551 :S 

10552:0 1 procedure hpib term ( anyvar iocb ptr : anyptr ): 

I0S53:S _ I J 

10564:0 2 begin 

10556:0 2 end; 

10556:3 

10557:0 1 end. < of module gle hpib io > 

10558:0 1 = _ K _ / 

10559:0 1 SLIST C)N$ 

No errors. No warnings. 

««*«* Nonstandard language features enabled ***** 
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GLE_KNOB 



Description 

GLE_KNOB provides a device handler for the built-in knob input device. 



Requirements 

GLE_TYPES, GLE_UTLS, and SYSGLOBALS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Piickard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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n 6/ 4/.WJ b.c_Ki..^a . iLXT 26Dec-S4 22:32:52 Page 1 *»« 

( 

{ I raphics Low End 

{ 

{ nodule = GLE KNOB_IN 

( [Togramer = BJ3 

( [ ate = 11-05-82 

{ 

( furpose: To provide a device handler for the knob input device. 

{ Pev history 

( Crejied - 

{ Modified - 



11- S-82 

4-11-84 BY JUS -- remove unitio dependecies 



[cj Copvrl^ht Hewlett-Packard Company, 1983, 
Pll rignts are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (8) of the Rights in Technical 
Data and Computer Software clause In 
DRR 7-104. 9(a) . 



HEULETT-PACKflRD COMPfiNY 
Fort Collins. , Colorado 



SUCSDS 

JSEFlRCH 'GLE_TYPES', 

$mcdcal$ 

SINCLUDE 'OPTIONS'S 



'GLE_UTLS'J 
{ ««»x«»x»«»»»»*>i:»« COMPILER OPTIONS 



i This include file specifies range checking, debug and other compiler 
options for the graphics library ) 

Sdebug OFF$ 

Irange OFF$ 

Scopyright "COPYRIGHT 1984 BY HEWLETT -PflCkfiRD COMPRNY^S 

SFLOBT HDW TESTI 



SINCLUDE 'OPTIONS'! 

ILINENUM 18000$ 

mo.Jule gle_knob_in; 

1 import gle_t ypes , 

1 export 
1 

1 1 yps 

1 k nob_device_rec_pt r 



»«♦«*****«* 



COMPILER OPTIONS 



"knob device rec; 
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18010 


:D 


18011 


:D 


18012 


:D 


18013 


:D 


18014 


:D 


18015 


;D 


J8016 


:D 


18017 


D 


18018 





18019 


D 


18020 


D 


18021 


D 


18022 


D 


18023 


S 


18024 


D 


18025 


D 


18026 


D 


18027 


S 


18028 


D 


18029 


S 


18030 


S 


18031 


C 


18032 


S 


18033 


D 


18034 


C 


1803S 


c 


18036 


c 


18037 


c 


18038 


c 


18039 


c 


18040 


c 


18041 


c 


18042 


c 


18043 


c 


1*044 


s 


18045 


D 


18046 


D -270 


18047 


-272 


18048 


C 


18049 


C 


18050 


c 


18051 


c 


18052 


c 


18053 


c 


18054 


c 


18055 


c 


18056 


c 


18057 


c 


18058 


s 


18059 


D 


18060 


D -270 


18061 


C 


18062 


C 


18063 


C 


18064 


C 


18065 


C 


18066 


C 


18067 


C 


18068: 


c 


18069: 


c 



■iob_device_rec = packed record 
knob_type : gle_shoriint; 



echo_rate : gle_shortint; 

echo_mult : gle_shor t int ; 

las t_but : integer ; 
digit ize_enabled : boolean; 

la5t_>; : integer ; 

la5t_y ; integer; 
e id; 



{ 

{ 1 

{ 2 

( 3 



- unk nown device 

- 9816 

- 9826 

- 9836 

- 9836c 



1 procedure gle_ini t_knob_input [ gcbi : graphics_input_cont rol_block_pt r ) ; 

1 implement 

1 imp jrt gle_utl5, sysglobals; 



1 procedure eot(fp: fibp); begin end; 



<do nothing) 



1 pro.;edure openf ib (anyvar F: fib; unuin: unitnum); 

2 beg in 

2 if (jnum<=0) or (unum>rnaxunit ) then ioresult := ord(ibadunit ) 

3 elS'* with F do 

4 bijgln 

4 fistextvar := false; 

4 f linit : = unum; 

4 f'iot :- eot ; 

4 cUI!unitable''[jnum].dam, f, unum, openunit); 

4 end; 

2 end: 



1 procedure gunitread ( u: integer; buf: charptr 

2 var f : rile; 

2 r : amrequestt ype ; 

2 begin with unitable'^tu] do 

3 bf^gin 

3 Dpenfib[f, u); 

3 i ■ ioresult = ord (inoerror) then 

4 begin 

4 r :== readbytes; 

4 can(tm, addr(f), r, buf", len, 0); 

4 end ; 

3 end; 

2 end 

1 fun<tion gunitbusy ( u: integer): boolean; 

2 var f: file; 

2 beg:.n with uni table" [u] do 

3 bigin 

3 gunitbusy := t rue; 
3 0fenfib(f u ) ; 

3 if ioresult = ord ( inoe r ro r ) then 

4 begin 

4 caTl(tm, addr(f), unitstatus, f, 0, 0); 

4 gunitbusy := iibp(addr(f))'^,fbu5y; 



len : integer) 
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18070:C 




3 


end; 




18071 :C 




2 


end; 




18072:S 










18073:S 










18074 :S 










1807S:0 




1 


procedure knob^dummy ( gcbi : graphics_input_cont rol_block_pt r ); 




18076:S 










18077;C 




2 


begin 




18078 :C 




2 


end; 




18079:S 










18080:0 
18081 :S 
18082:C 




1 


procedure knob_get_input_plp2 ( gcbi : graphics_input_cont roI_block_pt r ); 






2 


begin 




ie083:C 




2 


with gcbi'*', knob device rec ptr(dev dep stuff)''' do 




18084:C 




3 


case knob type of 




1808S:C 




4 


: begin { input xxx^ must be set by confiq ) 




18086:C 




4 


infol 


= input_min_x; 




18087:C 




4 


info2 


- lnput_max_x; 




18038:C 




4 


info3 


= input min y; 




18089:C 




4 


info4 


= input max y; 




18090:C 




4 


end; 




18091 :C 




4 


1,2 : begin 




18092:C 




4 


infol 


" 0: 
= 3^9; 




18093:C 




4 


inro2 




ie094:C 




4 


info3 


" 0: 




1809S:C 




4 


info4 


= 2^9; 




18096:C 




4 


end; 




18097:C 




4 


3,4 : begin 




18098:C 




4 


infol 


' 0; 




18099:C 




4 


info2 


= 511; 




18100:C 




4 


info3 


= 3^9: 




18101:C 




4 


info4 




18102:C 




4 


end; 




18103:C 




4 


end; { case } 




18104:C 




2 


end; 




1810S:S 










ieioe:D 




1 


procedure knob_sample ( gcbi : graphics_input_cont rol_block_pt r ); 




18107:S 










18108:0 




2 


van 




18109:0 


-1 


2 


ch : char; 




18110:0 


-6 


2 


mycharptr: charptr; 




18111:0 


-6 


2 


X ad j, 




18112:0 


-6 


2 


y_ad]. 




18113:0 


-18 


2 


rate ; inteqer; 




18114:0 


-19 


2 


comnandinprogress : char; 




18115:0 


-24 


2 


interruptlevel : integer; 




18116:0 


-24 


2 






18117:C 




2 


begin 




18118:C 




2 


mycharptr:=addrlch); 

with gcbi^, knob__device_rec_pt r (dev_dep_5tuf f )^ do 




18119:C 




2 




18120:C 




3 


begin 




18121 ;C 




3 


If last but < then info3 := -1 




18122:C 




4 


else info3 := 0; 




18123:C 




3 


if quni1bu5>'(2) then 

( if no keys in type ahead buffer ) 




18124:C 




4 




18125:C 




4 


begin 




18126:C 




4 


{ just return last position } 
infol :-■ input cpx; 




18127;C 




4 




18128:C 




4 


info2 :- input cpy; 




18129:C 




4 


end " 
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18130:C 






else 




18131 :C 






begin 




18132:C 






gun it read (2,mycharpt r , 1 ) ; 
X adi := 0; 




18133:C 








18134:C 






y adj := 0; 




18135:: 






rate := 0: 
case ord(ch) of 




18136:C 








18137:C 




5 


8 : x_adj := -echo_rate; ( left arrow ) 
28 : X adi := ■•-echo rate; { right arrow ) 




1B138:C 




5 




18139:0 




5 


10 : y adi ;= -echo rate; ( down arrow > 
31 : y adi := -^echo rate; { up arrow ) 




18140:C 




5 




18141 :C 




5 


49,33 ' 


rate 


- 1 


< number 1 ) 




18142:C 




5 


50,64 


rate 


= 2 


< ... 2 ; 




18143:C 




5 


51,35 


rate 


= 3 






18144 :C 




5 


52,36 


rate 


- 4 






1814S:C 




5 


53,37 


rate 


= 5 






18146:C 




5 


54,94 


rate 


- 6 






18147:C 




5 


55,38 


rate 


= 7 






18148:C 




5 


56,42 


rate 


= 8 






18149:: 




5 


57,40 


rate 


= 9 


{ number 9 } 




18150:: 




5 


otherwise 




18151 :: 




5 


begin 

if ch . chr(13) then ch := ' '; 




18152:C 




S 




18153:C 




5 


if digitize enabled then 




18154;C 




6 


begin 




1815S:C 




6 


If (last but = 0) then 




1815e:C 




7 


begin 

last but := -ord(ch) ; 




18157:C 




7 




18158:C 




7 


infoS := -1; 




18169:C 




7 


last X := input cpx; 




18160:C 




7 


last y := input cpy; 




18161 :C 




7 


end 




18162:C 




7 


end 




181$3:C 




6 


else 




18164:C 




6 


info3 := ord(ch); 




1816S:C 




5 


end; 




18166:3 










18167:C 




5 


end; { of case ) 




18168:5 










18169:0 




4 


{ ck for new rate ) 




18170;C 




4 


If rate > then 




18171:: 




5 


echo_rate := (echo_mult * [rate-1) * 1); 




18172:S 










18173:0 




4 


< calc new X and y ) 




18174:C 




4 


input cpx := gle shortint max(input min x,gle shortint min (input_max x, input cpx+x adj 


); 


18176:0 




4 


input_cpy := gle_shortint_max (input_min__y,gle_shortint_min (input_max_y, input_cpy+y_adj 


); 


18176:5 










18177:0 




4 


infol :=: input_cpx; 




18178:0 




4 


info2 := input_cpy; 




18179:: 




4 


end; ~ 




18180:0 




3 


end; 




18181:: 




2 


end; 




18182:5 










18183:0 




1 


procedure knob_star t_digitize ( gcbi : 9raphics_input_cont rol_block_pt r ); 




18184:5 










18185:0 




2 


begin 




18186:C 




2 


with gcbi',knob._device_rec_pt r (dev_dep_stuf f )^ do 




18187:C 




3 


begin 
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18188:C 




3 


digiti2e_enabled := true; 




18189:C 




3 


ecno_(nulT :- 


info2; 









Pascal IRev 3. ON 6/ 4/84] GLE_KNOB .TEXT 



2S-Dec-84 22:32:52 Page S *•» File name: GLE_KN08 ««« 



18190:C 
18191:C 
18192:C 
18193:S 
18194:D 
18195:S 
18196:C 
18197:C 
18198:C 
18199:C 
ie200:C 
18201 :C 
18202:C 
18203:C 
18204:C 
18205:C 
18206:S 
18207:D 
18208:E 
I8209:C 
18210 :C 
18211:C 
18212:S 
182I3:D 
18214:5 
1821S:C 
18216:C 
IS217:C 
18218:C 
18219:C 
18220:C 
18221 :C 
18222:C 
18223:: 
18224:: 
18225:: 
18226:C 
18227:: 
18228:: 
18229:: 
18230:: 
18231 :C 



la5t_but := 0; 
end; 



enj; 

procedure k nob_get_digi t ize ( gcbi 



be^in 

.vit h gcbi^, knob_device_rec_pt r (dev_dep_5t uf f 
begin 

digit ize^enabled := false; 
■ la5t_x; 

last y; 
= ab5(Ia5t_but) ; 



grapr(ics_input_cont rol_block_pt r ) ; 
do 



end; 



infol 
info2 
info3 
last_but 

end 



1 procedure knob_i nput_echo ( gcbi : graphics_input_cont rol_block_pt r ); 

2 bejin 

2 If gcbi". infol <> then write(#G); 
2 end; 



1 procedure gle_init_knob_input 



18232 

18233 

18234 

18235 

18236 

18237 

18238:0 

18239:: 

18240:: 



18241 

18242 

18243 

18244 

18245 

18246: 

18247: 

18248: 



begin 

with gcbi'^,knob_device_rec_pt r (dev_dep_5tuf f ] 
begin 

input_handler_name := 'KNOB '; 
input_handler_char_count := 4; 



gcbi : graphics_input_cont rol_block_pt r) ; 
do 



sample 

start digitize 

get_dTgitize 

input_echo 

input~escapei 

input escapeo 

inq_pTp2 



= knob_sample; 

= knob_start digitize; 

= knob_get_dTgitize ; 

= knob~input_echo; 

= knob_dummy; 

= knob_dunimy; 

= knob_get_input_plp2; 



case knob^type of 

1 : begTn 

input_name := '9816R '; 
input name_char count :» 5; 
input~re5_x := J. 375; 
input_res_y := 2 . 37301S8730I587 ; 
end; 

2 : begin 

input_name ;= '98260 ' ; 
irput_name_char count ;= 5; 
input_res_>; := 5.325; 
input_res_y := 3.32222222222222; 
end; 

3 : begin 

lnpuT_n3me ;= '98360 '; 
inpLit_name_char count := 5: 
input_re5_!( := 2.43333333333333; 
input_res_y := 2.43125; 
end; 

4 : begin 

inpu1_ndnie := '9836G '; 



( 168mm X 126nnti ) 



< 120rin X 90mm ) 



( 210rtin X leOmm ) 
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18250:C 


4 


18251:: 


4 


18252:0 


4 


18253:: 


4 


18254:: 


4 


18255:0 


4 


18256:0 


3 


18257:0 


3 


18258:0 


3 


18259:0 


3 


18260:: 


3 


18261 :: 


3 


18262:5 




18263:: 


3 


18264:0 


3 


18265:0 


3 


18266:: 


3 


18267:: 


3 


18268:: 


3 


18269:0 


3 


18270:0 


3 


18271:0 


3 


18272:0 


3 


18273:C 


2 


18274 :S 




18275:0 


1 


18276:S 




18277:D 


1 
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input_name_char count := 6; 
inpiJt_re5_x := ?. 35483870967742 ; 
input_res_y := 2.38650306748466; 
end; 
otherwise ; 
end; 



( 217mm X 163rTim > 



input^cpx :=■■ infol ; 

input_cpy :■■ info2; 

la5t_x := infol; 

last y := info2; 

last^but :=■- 0; 

knob_get_inpLt_plp2 ( gcbi ]; 
input_min__x := infol; 
input_max~x := info2; 
input_min_y := info3; 
input_max_y : = info4; 



( setup init input values > 



diqitize_en3bled : 
ecno_rate := 1 ; 
error_returr := 0; 

end ; 



1 end. < knob_input ) 
1 $LIST 0N$ 



false; 



No errors. No warnings. 

*««*« Nonstandard language features enabled »»** 
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GLE_RGL 



Description 

GLE_RGL provides high-level device handler routines for raster devices. 



Requirements 

GLE.TYPES, SYSGLQBALS, SYSDEVS, GLE_ARAS_OUT, GLE_STEXT, GLE.ASTEXT, GLE.SCLIP, GLE.ASCLIP, 
GLE_SMARK, and GLE_AUTL. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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:D 
:D 
:D 
:D 
:D 
:D 
:D 
:D 
9:S 
10:0 
11:0 
12:D 
13:S 
14:S 
15:S 
16:S 
17:S 
18:S 
19:S 
20:S 
21 :S 
22: 
23: 
24: 
25: 
2$: 
27: 
28: 
29: 
30:0 
31 :S 
32:0 
33 :D 
34:0 
35:0 
36:0 
37:0 
38:0 



39: 
40: 
40: 
41: 
42: 
43: 
44: 
45: 
46:D 
47:D 
48:0 
49:S 
50:S 
51 :S 
52:S 
53:0 
8000 :D 
8001 :S 
8002:D 
8003:S 
8004 :D 
8005:8 



{ Graphics Low End 

( 

( rodule = GLE_RRS_0UT 

{ Programer = BJS 

{ Date = 11-06-82 

{ 

{ Purpose: To provide device handler routines for raster devices, 

( Rev history 

( Created - 11-05-82 

< Modified - 02-14-84 BDS (added code for gator black/white) 

i (c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DHR 7-104. 9(a). 

HEULETT-PnCKBRD COMPI^NY 
Fort Collins, Colorado > 



Ssearch 


'GLE TYPES' , 





'GLE STEXT' , 





■nsn STEXT' , 





'GLE SCLIP' , 





'nsn SCLIP' , 





'GLE SnpRK' , 





'GLE nUTL', 





'ROLL'S 


$modcal$ 




Iin.;lude 


■OPTIONS'! 



{ x)«««i«x»»««»x«»k«»x COhPILER OPTIONS »**«**** 

< This include file specifies range checking, debjg and other compiler 
options for the graphics library 

Sdebug OFF$ 

Srange OFF$ 

Scopyrighl 'COPYRIGHT 1984 BY HEULETT -PRCKflRD COnPfiNY'S 

$Fl,OflT_HDLJ TESTS 



Jin.:lude 'OPTIONS'S { *«*«««*«****« 
Ilinenum 8000$ 

moi3jle gle__ra5_out ; 

1 import gle_types, s/sglobals, 5ysdev5,gle_ara5_ouT ; 



COMPILER OPTIONS *** 
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[Re 


8006 


:D 


8007 


:S 


8008 


:D 


8O09 


:D 


8010 


:S 


8011 


:0 


8012 


:D 


8013 


:D 


8014 


:D 


8015 


:D 


8016 


:0 


8017 


:D 


8018 


:D 


8019 


:D 


8020 


:S 


8021 


■D 


8022 


S 


8023 


S 


8024 


D 


8025 


D 


8026 





8027 





8028 





8029 


D 


8030 


D 


8031 


D 


8032 


D 


8033 


D 


8034 


D 


8035 


D 


8036 





8037 


D 


8038 


D 


8039 


D 


8040 


D 


8041 


D 


8042 





8043 





8044 


D 


8045 


D 


8046 


D 


8047 


D 


8048 





8049 


D 


3050 


D 


8051 





8062 


D 


8053 


D 


8064 


D 


8055 


D 


8056 


D 


8057 


D 


8058 





8059 


D 


8060 


D 


8061 


D 


8062 


D 


8063 


D 


8064 


D 


8065 


D 
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expM rt 

proi:edure 9le_init_ra5ter_output [ gcb : graphic 5_cont rol_block_ptr) ; 
proiedure gator_clear { gcb : g raph ic 5_cont rol_block_pt r ); 



** File name: GLE RGL **« 



r,ister_byte = 0. .255; 

r,i5ter__code_space = packed a r ray [1 . . 240] of 
dither_type - packed array [0..15] of raster 
cnap_def = packed record 



asterbyte ; 
.byte ; 



map 


red 


gle shortint; 


map.. 


qrn 


gle shortint; 


map 


^lu 


gle shortint; 


end; 







sy5tem_cmap_def - packed array [0..15] of cmap_def; 



r est erdevice_rec_ 

raster_device_rec 
record 
addrl 
addr2 
addr3 
n3 

device type 
deviceaddress 
monitortype 
planel_addr 
planel_of fset 
plane2_of fset 
plane3_offsei 
r^glines 
gspacing 
Bytesperline 
hard_xmax 
hard.__ymax 
red_Tntensi t y 
9rn_inten5ity 
blu intensity 
di tHer_pat ter r 
cur5or_x 
cursor_y 
area draw_mode 
pen_3raw_mode 
linepat tern 
pen_nuinber 
cpen 

oldpat t er n 
rgltempl 
rgltemp2 
rgltempS 
rgltemp4 
rgltempS 
repeat rate 
repeatcount 
index 
sof tvec 
sy5lem_cmap 
br ight ne5S_seqL 



raster_device_rec ; 



anyptr ; 
anyptr ; 
anyptr j 
gle_shortint 
gle_short int 
integer ; 
gIe_short int 
anyptr ; 

integer ; 
integer ; 
integer ; 
gle_5hor t int 
gle_shor t int 
gle_short int 
gle_5hor t int 
gle_short int 
gle_shor t int 
gle_shor t int 
gle shortint 
ditFier_type; 
gle_shor t int 
gle_short int 
gle_short int 
gle_short int 
gle_short int 
gle_shor t int 
gle_5hor t int 
gle_sfio rt int 
integer ; 
integer ; 
integer ; 
integer ; 
integer j 
gle_stior t int ; 
gle_short int ; 
integer ; 

raster_code_5pace ; 
: 5ystem_cmap_def ; 
ence : pac^ed array [0. 
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15] of gle_short int ; 
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[Re 


8066 


:D 


9067 


:D 


8068 


:0 


8069 


:S 


8070 


:D 


8071 


D 


8072 


D 


8073 





8074 





8075 





8076 


S 


8077 


D 


8078 


D 


8079 


D 


8080 


D 


8081 


D 


8082 


D 


8083 


S 


8084 


D 


8085 


S 


8086 


D 


8087 


D 


8088 


D 


8089 


D 


8090 


D 


8091 


D 


8092 


S 


8093 


D 


8094 


D 


8096 


D 


8096 


D 


8097 


D 


8098 


D 


8099 


S 


8100 


D 


8101 


D 


8102 





8103 





8104 


S 


8105 


S 


8106 





8107 


D 


8108 


D 


8109 


D 


8110 


S 


eiii 


S 


8112 


S 


8113 





8114 


s 


6115 


c 


8116 


c 


8117 


c 


8118 


c 


8119 


s 


8120 


D 


8121 


S 


8122 


C 


8123 


c 


8124 


c 


8125 


c 



3. Oh 6/ 4/84] GLE_RGL.TEXT 



count 

cnap^address 
end; 
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; packed array [0..15] of gle_5hortint ; 
integer ; 



const 

packed_pixe.l_odd byte_displa>' 
packed_pl>;el_di splay 

packed_pixel_3_plane_di splay 
byte_per_pi;<el_di splay 
gator^display 

dominant 

erase 

non_dominant 

compliment 

clr,_with_Lf1 

one_wit h_LM 



= 

-^ 1 

= 2 

= 3 

= 4 

= 3; 

= C; 

:l6. 

= 128; 

= 255; 



1 implement 



import gle_st«xt , 
gle_astext . 
gle_5clip, 
gle_asclip, 
gle_smi3rk, 
gle_aut 1 ; 



1 type 

1 word array - packed array [1 . .maxint ] of 9le_5hortlnt ; 

1 fixed_word_array = array [0..13] of gJe_shortint ; 

1 map_array = arraytl . .maxint] of integer; 

1 wd^ptr = '^vo^d_a^^ay; 

1 byte_array - packed array [0..maxint] cf ra5ter_byte; 

1 var 
-4 1 f b_pt r : ^byte array; 
-8 1 fb_ptr_ptr : '^Integer; 

-8 1 (const) 

-8 1 (init_crt = f ixed_word_ar ray [22,16,21,01,48,11,48,48,0,15,0,0,0,0 ];(17"> 
-8 1 <init_crt = f ixed^word.ar ray [20,16,17,2,48,11,48,48,0,15,0,0,0,0 ];<19"> 

-8 1 {init_crt - fixed word_array [20,16,16,4,48,11,48,48,0,15,0,0,32,0 ];<17"-NEU) 



1 PROCEDURE wai'_ready; 

2 BEGIN 

2 REPEAT 

3 UNTIL status". notbusy 
3 END; 

1 PROCEDURE set_rule ( rule : INTEGER ) ; 

2 BEGIN 

2 replregcopy ;= rule; 

2 wait._ready; 

2 rule^reg"^ := rule; 



Pascal [Rev 

8126:C 
8127:S 
8128:S 
8129:S 
8130:S 
8131:S 
8132:S 
8133:S 
8134:D 
813S:S 
8136:0 
8137:S 
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8138 

8139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

81S2:D 

S153:D 

8154:S 

ei55:D 

8156:D 

8157:D 

8158;S 

8159:0 

8160:D 

8161:D 

8162:D 

8163:D 

8164:D 

8165:D 

8168:D 

8167:D 

8168:D 

8169;D 

8170:0 

8171 :D 

S172:D 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

3180 

8181 

8182 

8183 

8184 

8185 



3. on 3/ 4/84] GLE_RGL.1EXT 

2 END; 

{PROCEDURE 5et_UU ( rule : INTEGER ); 

BEGIN 

writeregcopy := rule; 
wait ready; 
WW ri?g' := rule; 
-8 1 END;T 

1 PROCEDURE 5et_width ( width : INTEGER ); 

2 BEGIN 

2 windowregcopy := width; 

2 wait ready; 

2 widtli reg'^ := width; 

2 END; 



1 procedure gate r_f lll_index_colo r ( gcb : gr aphic5_cont rol_block_pt r 

2 t ype 



-12 
-16 
-20 

-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 
-20 



File name: GLE RGL »** 



dptl = packed array [0. 


.15] of boolean 






dpt2 = packed array [0. 


.16] of dptl; 






i : integer; 










: integer; 










r : integer; 










g : integer; 










b : integer; 










t = true; 










f = false; 










dp = dpt2[dptl 






f ,f ,f 






dptl 






f,f ,f 






dptl 






f,f ,t 






dptl 






t,f ,t 






dptl 






t,f ,t 






dptl 






t .f ,t 






dptl 






t . ' , t 






dptl 






t ,f ,t 






dptl 






t ,f ,t 






dptl 






t ,f ,t 






dptl 






1 ,f ,t 






dptl 






t ,f ,t 






dptl 






t ,f ,t 






dptl 






t ,f ,t 






dptl 






t ,f ,t 






dptl 






t ,t ,t 






dptl 






t ,t ,t 




!:?:!;! i 



begin 

with gcb", ra5ter_device_rec_pt r (dev_deD_stuf f ) ■^ do 
begin 

if infol = then {set up dither pattern) 

begin 

r := info2; 
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name: GLE_RGL »»« 




8186:C 




4 


g := info3: 






8187:C 




4 


B :=■ info4; 






8188:S 












8189:C 




4 


current_polygon_red := r; 






8190:C 




4 


cur renr^polygonqreen :- g; 






8191:C 




4 


cur rent'"polygon blue := b; 






8192:S 












8193:C 




4 


r := r*32) div 64; 






3194;C 




4 


g :■ g»3:2) div 64; 
6 :» B-t32i div 64; 






8195;C 




4 






8196:3 












8197:C 




4 


red_interisity := r; 






8I98:C 




4 


grn intersity := g; 
51u_irttersity := 6; 






8199:C 




4 






3200:5 












8201 ;C 




4 


i:=r; 






8202:C 




4 


if i<g then i;=g; 
if i<6 then i:=b; 






8203:C 




4 






8204 :S 












820S:C 




4 


for j: = to 15 do dither pat tern [j] ;^0; 






8206 :C 




4 


for ]:=0 to 15 do if dp[i,j] then dither_pattern[j] :=1 ; 






8207:3 












8208 :C 




4 


store dit (gcb) ; 






3209 :C 




4 


end 






8210:C 




4 


else 






8211:C 




4 


if infol = 1 then 






8212:C 




5 


begin 

for i := to 15 do 






8213:C 




5 






8214:C 




6 


dither pattern[i] :^ info2; 






8215:C 




5 


store dltlgcb) ; 






8216:C 




5 


end; 






8217:3 












8218:C 




3 


end; 






8219:C 




2 


end ; 






8220:3 












8221 :S 












8222:3 












8223:D 




1 


procedure gator_clear ( gcb ; graphics_control_Dlock_pt r ); 






8224 :S 












8225:D 


-4 


2 


van i : integer; 






8226:3 












8227:C 




2 


begin 






8228:C 




2 


if gcb-.info2 • then set rule(clr with LM) 






8229 :C 




3 


else set rule(one with LM) ; 






8230:C 




2 


set widlh(-1024); 






8231 :C 




2 


witK gcb", raster device rec ptr(dev dep stuff)" do 






8232:C 




3 


begin 

for i := To hard_yma^ do (fij^ to allow for changing 






8233:C 




3 


ymax) 




8234 :C 




4 


begin 






823S:C 




4 


wail ready; 






823$:C 




4 


fb ptr- [i»1024] := 0; 






8237:C 




4 


end; 






8238:C 




3 


e:id; 






8239:C 




2 


set rule (dominant ) ; 






8240:C 




2 


end; 






8241 :S 












8242:3 












8243:3 












8244 :D 
8245:3 




1 


procedure setup_gator (gcb : graphics_cont roI_block_pt r) ; 
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name: GLE_RGL *** 




8246:D 




2 


var 






8247 :D 


-96 


2 


color_li5t ; packed array [0..47] of gle shortint; 






8248:D 


-100 


2 


i : integer; 






8249:3 












82S0:C 




2 


begin 






8251 :C 




2 


(with gcb" do) 






8252:3 






{if infol = mgator c then begin 






82S3:C 




2 


5et_WAv{0) ; ) 






8254 :C 




2 


{ I moved this as a fix ) 






8255:S 






{blinkl reg := 255; 






8256:3 






blink2''reg := 255; 






8257:C 




2 


set 6845s (gcb); 






8258:C 




2 






8259:3 






(for 1 := to 13 do 






8260:3 






begin 






8261 :S 






crt"[l] :- i; 






8262:3 






crt"t2) ■■' init crt[I]; SETJP 6845 






8263:C 




2 


end; ) 






8264 :C 




2 


status", bitO := write to status; 






8265:3 






(color list [0] := 0; 






8266:3 






color list [1] := 0; 






e267:C 




2 


color list[2] := 0;) 






8268:0 




2 


i :- 5; 






8269:3 






(repeat 






8270:5 






i := i ♦ 3; 






8271 :S 






color listti] ■■= 1023; 






8272:3 






color list [i+1] := 0; 






8273:3 






color li5t[l+2] := 0; 






8274 :C 




2 


until i"= 45;) 






8275:C 




2 


with gcb" do 






8276 :C 




3 


begin 

Infol :» 0; 






8277:C 




3 






8278:C 




3 


ihfo2 := 1; 






8279 :C 




3 


info_ptrl := addr (color_Iist ) ; 






8280:C 




3 


call (define color map, gcb); 






8281:C 




3 


end; 






8282:C 




2 


set rule(dominant) ; 






8283:C 




2 


end; 






8284:5 












8285:3 






(procedure rdummy ( anyvar a,b : anyptr); 






8286:3 












8287:3 






begin 






8288:D 


-8 


1 


end; > 






8289:3 












8290:D 




1 


proc'idure rdumniy_proc ( gcb ; gr aphics_cont rol_biock_ptr ); 






8291:3 












8292:D 




2 


VfiR 






8293:D 


-2 


2 


I : GLE SHORTINT; 






8294:3 












8296 :C 




2 


begin 






8296:C 




2 


with gcb", raster device rec ptr(dev dep stuff)" do 






8297:3 






(for J := to 15 do 






8298 :C 




3 


IJRITELN(LISTING, •DIT[' ,1 :0, '] = ', DITHER PPTTERNtl ] ) ; ) 






8299:C 




3 


end; 






8300:3 












8301:0 




1 


procedure rget_poIygon_info ( gcb ; graphics_cont rol_block_pt r ); 






8302:3 












8303:C 
8304 :C 




2 
2 


begin ( only solid fill supported > 
wi:h gcb" do 
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8305:C 




3 


if info2 = poly<3on solid fill then error return := 
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8306 


:C 


8307 


:C 


8308 


;S 


8309 


:D 


8310 


:S 


8311 


■D 


8312 


D 


8313 


D 


8314 


D 


8315 


D 


8316 


S 


8317 


D 


8318 


D -4 


8319 


D -36 


8320 


-40 


8321 


D -44 


8322 


D -108 


8323 


-112 


8324 


S 


8325 


C 


8326 


C 


B327 


C 


8328 


C 


6329 


C 


8330 


C 


8331 


C 


8332 


C 


8333 


C 


8334 


C 


8335 


C 


8336 


C 


8337 


C 


8338 


c 


8339 


c 


8340 


s 


8341 


c 


8342 


c 


8343 


c 


8344 


c 


8345 


c 


8346 


c 


8347 


c 


8348 


s 


8349 


c 


8350 


c 


8351 


c 


8352 


c 


8353 


c 


8354 


c 


8355 


c 


8356 


c 


8357 


c 


8358 


c 


8359 


c 


8360 


c 


8361 


c 


8362 


c 


8363 


c 


8364 


c 


8365 


c 
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n 6/ 4/84] GLE_RGL.TEXT 

4 else 

2 end; 

] procedure rdef ine_color_map ( gcb : 9raphic5_cont rol_block_pt r ]; 



error return 



1; 



type 

color_map_def = packed array [0. 
coJor_inap_pt r = ''color map_def- 
color_data_def = packe? array [0. 



15] o' gle_shortint ; 



color_data_pt r_def = '^color_data_def ; 



coior_fiiap : color_map_pt r ; 

temp_coIor_tnap ; colo'r_map_def ; 

n, i T 9le_short int ; 

temp : integer ; 

brt : array [0..15] of intege r ; 

color__data_pTr : color_data ptr_def; 



47] of gle_shortint; 



2 begin 



gcb"^, ra5ter_device_rec_pt r (dev_dep_5tijf f )'^ do 
begin 
color 
for 



wit 



data 

':= i' 

h s/s 

egin 

n : = 

map_ 

mapj 
temp 



_pTr := info ptrl; 
nfol to info? do 
tem_cniapti] do 



infol)*3; 

color^dat a_pt r^tn] ; 
color_dat a_pt r'En+l] ; 
color_data_pT r''[n+2] ; 



.color_map[iy 



end; 



:= Tl5-map_ red div 641* 
(l5-niap^grn div 64) 
(15-m3p_.blu div 64) ; 



256 + 
16 



if color map support = yes then 
begin "~ 

colo r_map := anypt r (cmap_addres5) ; 

r await _blanking (gcb): 

for 1 := infol to info2 do 

color_map^[i] := temp__color_map [i] ; 
end; 

for i := to 15 do 

with system_cmap[i] do 
beqih 

brt [i] := map_red*23+map_grn*69+map_blu»8 
brightnes5_sequence [i] := i ; 
end; 
for n := to 14 do 
for i := n+1 to 15 do 
if brt [il>brt [n] then 
begin 

Temp : = brt [i] ; 
brt [:i] := brt [n] ; 
brt [n] :- temp; 
temp ;= brightness_5eq 
bright ne55_5equence [i] 
bright ness^sequence [r] 
end ; 



ce[i]; 
b r ightne55_5equence[n] ; 
temp; 
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8366:5 




8367 :S 




8368 :S 




8369:S 




8370:C 


3 


8371:C 


3 


8372;C 


2 


8373:S 




8374 :D 


1 


8376:S 




8376:D 


2 


8377:D 


-2 2 


8378:D 


-10 2 


8379:S 




8380:C 


2 


8381 :C 


2 


8382:C 


3 


8383:C 


3 


8384 ;C 




8385:C 




8386:C 




8387;C 




8388:C 




8389:0 




8390:C 




8391 :C 




8392:C 




8393:C 


3 


8394 :C 


3 


839S:S 




8396:C 


3 


8397:C 


3 


8398:C 


3 


8399:C 


3 


8400 :C 


3 


8401 :C 


3 


e402:C 


3 


8403 :C 


3 


8404 :C 


3 


8405 :C 


3 


8406 :C 


3 


8407 :C 


3 


8408 :C 


3 


8409 :C 


3 


8410:: 


3 


841 1:C 


3 


8412:C 


3 


8413:C 


3 


8414:C 


3 


8415:C 


3 


8416:C 


3 


8417:C 


3 


8418:C 


3 


8419:C 


3 


8420:C 


3 


8421 :C 


3 


8422:C 


3 


8423:C 


3 


8424 :C 


3 


8425:C 


3 
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{FOR N :- TO 15 00 

URITELN(LISTING/N = ', 
FOR N := 6 TO 15 DO 

UITH SVSTEM CMRPtN] DO 
UIRITELN(l.TSTING,'N = 
end; 
end ; 
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, 'BRI [N]= • ,BRIGHTNESS_SEQUENCE[N] ) ; 
,N,'CMflP[N]= ',nflP_RED:8,MftP_GRN:8,MflP_BLU:8);) 



1 procedure gle_init_r a5ter_out put ( gcb : graph ics_cont rol_block_pt r) ; 



var 

cnt : gle_shortint ; 
I , id : integer ; 

2 begin 

with gcb'^, raster device_rec_pt r [dev_dep_5tuff ) 
begin 

if (infol = m9837a) then 
begin 

fb_ptr_pTr := info ptrl; 
fb ptr~":= anyptr(fE pt r ptr"^); 
rule reg := anypt r (Info? + (hej* ( '4008' ) ) 1 : 
widtF_reg := anyptr(info2 + (hex ( '400c' ) ) ) ; 
status := anypt r(info2 + ( hex ( '4000' ))) ; 
crt := anyptr(info2 + (hex (' 6000' ))} ; 
{if infol = mgator_c then ww_reg := anyptr[info2 
end ; 

error_return := 0; 
rgcbinit ( gcb ) ; 



■ do 

<or (infol = mgator_c)> 



(hex('4108')));) 



move 


= 


rmove; 




draw 


= 


rdraw; 


clear 


= 


rclear; 


text 


= 


gle_soft„text ; 


clip limits 


= 


gle_sof t__clip_limit 5 


char__size 


= 


gle soft char size: 


text spacing 


= 


gle soft"text spacin 


text dir 


= 


gle soft text dir; 


text~ju5t 


= 


gle soft text just; 


marker 


= 


gle_soft_marker ; 


narker_size 


= 


gle soft marker size 


set marker 


= 


gle soft set marker; 


index color 


= 


rbet_color; 


line St vie 
await_^blanking 


= 


rlinest yle; 


= 


rawait blanking; 


linewTdth 


= 


rdummy proc; 


inq plp2 


= 


rget_pTp2; 


get_polygon_info 


= 


rget polygon info; 
gle text xform; 


calc_5of t_text_xform 


= 


fill~index_cclor 


= 


rfiTl incfex color; 


grapHics on off 


= 


rgrapHich_on_of f ; 


cursor 


= 


rcursor ; 


define drawing mode 


= 


rdefine drawing mode 


polygon 


= 


rpolygon; 


def ine_color__map 




rdefine_colcr map; 


buffer mode 


= 


rdummy^proc 




output escape! 


= 


rdummy_proc 




output escape© 


= 


rdummy__proc 




flush Euffer 


= 


rdutntny proc 




ae t raster 


^ 


rget raster 
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8426:S 












8427:C 


3 




sof t_font_ptr := addr(font); 






8428:5 












8428 .-C 






case infol of 






8430:C 






munknown : { reserved ) ; 






8431:C 






m9816a : < 9816 > 






8432:C 






begin 






8433:C 






display name := '9816fl '; 






84 34:C 






display^name char count := 5; 






8435:C 






display res x :« 1.375; 
displaylres.y := 2 .37361587301587 j 


< 168mm X 12enltl ) 




8436:C 










8437:C 






end; 






8438:C 






m9826a : ( 9826 ) 






8439 :C 






begin 






8440 ;C 






display name := '9826PI '; 






8441 :C 






display name char count := 5; 






8442:: 






display res x := 5.325; 
display'res y := 3.322222222222222; 


( 120mm X 90mni ) 




8443:C 










8444 :C 






end; 






8445 :C 






m98363 : { 9836 ) 






8446 :C 






begin 






8447 :C 






display name := '9836R '; 






8448 :C 






display name char count := 5; 
display res x - J.433333333J33333 ; 






8449:C 






{ 210mm X 160mm ) 




8450 :C 






display_re5_y := 2.43125; 






8451 :C 






end; 






8452 :C 






m9836c : < 9836C ) 






8453:C 






begin 






8454 :C 






display name := '9836C '; 






8455:C 






display name char count := 5; 
display res x := 7.35483870967742; 






8456:C 






( 217mm X 163nltl ) 




8457 :C 






display res y := 2.38650306748466; 






8458 :C 






end; 
m98827a : ( 98627 ) 






8459:C 










8460 :C 






begin 






8461 :C 






display name := '98627fi' ; 






8462 :C 






display name char^count := 6; 






8463 :C 






devicea^dress := info2; 

display res x := 3.333333333333333; 






8464 :C 










846S:C 






display~res"y := 3.333333333333333; 






8466 :C 






end; 






8467 :C 






m9837a : ( Gator Black/Uhite ) 






8468 :C 






begin 






8469 :C 






display name := '9837a ' ; 






8470 :C 






display name char count := 5; 
display res x := J. 291666666666667 ; 






8471 ;C 






< 312mm X 234rr<n ) 




8472 :C 






display~res"y ;= 3.282051282051282; 






8473 :C 






if lnfo3 = T then 


(added to detect current} 




8474 :C 


5 




begin 


{ymax. ) 




847S:C 


5 




n glines := 768- 
hard ymax ;» 767; 






8476 :C 


5 








8477:C 


5 




end; 






8478:C 






await_blanking := rdurrmy_proc; 






8479:C 






setup gator(gcb); 
clear := gator clear; 






8480:C 










8481:C 






fill index color := gator fill index. 


.color; 




8482:C 






define color map := rdummy proc; 






8483:C 






end; 






8484 :S 

8485:5 






{mgator_c : Gator Color 
begin 
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8486 :S 






display name := 'Gator '; 






8487:3 






display name char count := 5; 
display res x := J. 291666666666667 ; 






8488 :S 






312mm X 234rrm 




8489 :S 






display res^y :- 3.282051282051282; 
await^bTankTng :« rdummy_proc; 






8490 :S 










8491:5 






setup~gator (gcb) ; 

clear :- gator clear; 

define color map := rdummy proc; 






8492:5 










8493:5 










8494:5 






INF02 :« 0; UHV IS THIS HERE ?? 




8495:S 






GflTOR CLEflR(GCB); 






8496:C 


4 




end;> 






8497:C 


4 




end; {of case > 






8498:5 












8499:5 












8S00;C 


3 




display_handler_name := 'RRSTER'; 






8501 ;C 


3 




display handler char count := 6; 






8502:S 












8503:C 


3 




display min x ;= 0; 






8S04:C 


3 




display_min_y := 0; 






8S0S:C 


3 




display max x := hard xmax; 






8508:C 


3 




display_max_y := hard_ymax; 






8507:5 












8508:S 












8509:C 


3 




infol := 0; info2 := display max x; 






8510:C 


3 




info3 := 0: info4 := display max y; 
gle„50ft_clip__limits ( gcb ]; ( set defau 






8511 :C 


3 




t clipping limits > 




8512:S 












8513:C 


3 




pen_draw_mode := 0; 
area_draw_mode := 0; 






8S14:C 


3 








8515:C 


3 




pen number := 1; 






8S16:C 


3 




infol := 1; 






8517:C 


3 




rset color(gcb); 






8518:C 


3 


e 


Id; 






8519:C 


2 


end 








8520:5 












8521 :C 


1 


end 


, < output ) 






8522:5 












No errors. No 


warning 


3 . 

Nonstandard language features enabled ***** 
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GLE_SCLIP 



Description 

GLE.SCLIP provides a routine which sets GLE clip limits. 



Requirements 

GLE.TYPES. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 :D 

2:D 

3:D 

4:D 

5:D 

6:D 

7:D 

8:D 

9:S 

10:D 

11:D 

12:D 

13:S 

14:S 

15:S 

16:S 

17:S 



18 

19:S 

20:S 

21:S 

22:S 

23:S 

24:S 

2S:S 

26:S 

27:S 

28:S 

29:S 

30:0 

31:S 

32:3 

33:0 

34:0 

34:0 

35:S 

36:S 

37:0 

38:S 

39:D 

40:0 

41:0 

42:0 

43:S 



< 

( Graphics Low End 

( 

( nodule ■ GLE_SCLIP 

( Programer = BJS 

( Date » 10-10-82 

< Purpose: To provide software clipping routines. 

< Rev history > 

< Created - 10-10-82 > 

< Modified - XK-XX-XX > 

( (cl Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTEO RIGHTS LEGEMD 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
OHR 7-104. 9(a) . 

HEULETT-PflCKHRD COnPPNV 
Fort Collins, Colorado ) 

SmodcalJ 

Ssearch 'GLE TyPES'S 

Sinclude 'OPTIONS'! ( ««»»«»«»»««»»««»«««« COnPILER OPTIONS «»»«»«»«««««««»*»« > 

< This include file specifies range checking, debug and other compiler 
options for the graphics library > 

Sdebug OFF$ 

Srange OFFS 

$copyright 'COPYRIGHT 1984 BV HEULETT -PflCKflRD COhlPfiNV'S 

SFLOflT HOU TEST$ 



8000:0 
eooi :S 
6002:0 
6003:S 
6004:0 
6005 :S 
6006:0 
eO07:S 
6008:0 
6009:S 
6010:0 
6011 :S 



Sindude 'OPTIONS'S < •»«««««»»««»«««««»«« COnPILER OPTIONS »»««««»« 
Slinenum 60001 

module gle_sclip; 

1 import gle_types; 
1 export 

1 procedure gle_sof t__clip_l imit s ( gcb : graphic5_cont rol_block_pt r) ; 
1 implement 



*»**i**t* 



Pascal 


[Re 


6012 





6013 


S 


6014 


i: 


601S 


c 


6016 


r. 


6017 


<: 


6018 


i: 


6019 


i: 


6020 


V. 


6021 


i; 


6022 


c 


B023 


s 


6024 


r 


B025 


s 


No errors. 
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1 proL:edure gle_5of t._cl ip_limit s ( gcb : graphic5_cont rol_block_pt r ]; 



2 begin 

2 with gcb'^ do 

3 begin 

3 clip_limits_xmir 

3 clip_limits_xmax 

3 clip_larni t s_ymin 

3 clip_limit s_>'max 

3 end; 

2 end; 



1 end. ( module gle_:iclip } 



= infol ; 

= info2; 

= info3; 

= info4; 



No warnings, 

*««*« Nonstandard language features enabled ***** 
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GLE SMARK 



Description 

GLE_SMARK provides software marker routines. 



Requirements 

GLE_TYPES, and GLE_AUTL. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 

2:C 

3:C 

4:C 

5:D 

6:D 

7;D 

8;D 

9:0 

10:S 

11 :D 

12:C 

13:D 

14:S 

15:S 

16:S 

17:E 

18:S 

19:E 

20:S 

21:S 

22:S 

23:S 

24 ;S 

26:S 

26:S 

27:S 

28:S 

29:S 

30:S 

31:0 



32 

33 

34 

35 

36 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

45 

47 

48 

49 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008; 

5009; 



{ Graphics Low End 

< nodule = GLE_SMfiRK 

{ Programer = BJS 

( Date = 10-15-82 

{ Purpose: To provide software marker routines. 












< Rev history ) 

( Created - 10-15-82 BJS > 

{ Modified - XX-XX-XX ) 

( (cj Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DPR 7-104. 9(a). 

HEULETT-PfiCKfiRD COnPHNY 
Fort Collins, Colorado > 

SmodcalS 

Jsearch 'GLE.flUTL', 

■GLE_TVPES>$ 

lanclude 'OPTIONS'S < ««»««««»»««««»«««»« COtlPILER OPTIONS ««•»•»«••«««»•«»«• 

( This include file specifies range checking, debug and other compiler 
options for the graphics library > 

Sdebug OFFJ 
Jrange OFFJ 
Scopyright 'COPVRIGHT 1984 BY HEULETT-PHCKflRD COtlPHNY'S 

sfloht hdu tests 



************ 



Sinclude 'OPTIONS'S ( 

Jl inenum 50001 

module gle_smark; 

1 import gle_types; 

1 export 

1 priicedure gle_sof t_marker 

1 procedure gle^sof t_set_marke r 



«««»« COMPILER OPTIONS «••»»««••«»« 



gcb : graphic5_cont rol_block_pt r ) 
gcb : graphics^cont rol_block_pt r 
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S010:D 
S011:S 
5012:D 
5013:S 
5014:0 
S01S:S 
5016:0 
5017;S 
5018:0 
5019:0 
5020:5 
5021:0 
5022:0 
5023:0 
5024:0 
5025 :D 
5026:0 
5027:0 
5028:0 
5029:0 
5030 :S 
5031:0 
5032:0 
5033:0 



5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049:0 

5050:0 

5051 :D 

S052:D 

5053:D 

5054 :D 

5055:0 

5056:0 

S0S7:D 

5058 :D 

5059:D 

5060:D 

5061 :D 

5062 :D 
5063:D 
5064 :D 
5065:0 
5066:D 
5067:0 
5068:0 
5069:0 



1 procedure gle_sof t._marker_size ( gcb : graphicscont rol_block_pt r ); 

1 implement 

1 import gle_autl; 

1 procedure gle_5of t_mar ker ( gcb : graphics_cont rol_block_pt r ) ; 

2 const 

2 tnarker_cell_5hift = -2; { part of marker viewing transformation ) 



2 


type marker data * -2. 


2; 










2 


index def = 0. .50; 










2 


marker record = packed record 








2 


X 


_po5 : mark 


er data 






2 


y'. 


pos : marker data 






2 


penup : bool 


ean; 






2 


end 












2 


mark def = packed array 


1 . .47} of marker 


2 


marker_index__def = packed array 


1..10] of 


indexed 


2 


const 












2 


markers = 












2 


mark def [ marker record 


X pos 





y„pos 





penup 


2 


marker record 


x_pos 





y_po5 





penup 


2 


marker~record 


X pos 





y_pos 


2 


penup 


2 


marker~record 


X_pOS 





y_pos 


-2 


penup 


2 


marker_record 


X_P0S 


2 


y_pos 





penup 


2 


marker record 


X pos 


-2 


y_pos 





penup 


2 


marker record 


X pos 


2 


y_p05 





penup 


2 


marker record 


x_pos 


-2 


y_po5 





penup 


2 


marker_record 


X_p0 5 


-2 


y_pos 


2 


penup 


2 


marker_record 


x~pos 


2 


y_p05 


-2 


penup 


2 


marker record 


X~p0 5 


2 


y_pos 


2 


penup 


2 


marker record 


X pos 


-2 


y_pos 


-2 


penup 


2 


marker]3record 


X_P0 5 


-1 


y_pos 


-2 


penup 


2 


marker_record 


X pos 


1 


y_po5 


-2 


penup 


2 


marker^record 


X_p0 5 


2 


y_pos 


-1 


penup 


2 


marker record 


x_pos 


2, 


y_pos 


1 


penup 


2 


marker_record 


X_p0 5 


1 


y_pos 


2 


penup 


2 


marker_record 


X pos 


-1 


y_pos 


2 


penup 


2 


marker record 


X pos 


-2 


y_pos 


1 


penup 


2 


marker record 


X pos 


-2 


y_po5 


-1 


penup 


2 


marker_record 


X_p0 5 


-1 


y_pos 


-2 


penup 


2 


marker_record 


x_pos 


-2 


y_pos 


-2 


penup 


2 


marker_record 


X pos 


2 


y_pos 


2 


penup 


2 


marker record 


X pos 


-2 


y_P05 


2 


penup 


2 


marker_record 


X_pOS 


2 


y_pos 


-2 


penup 


2 


marker_record 


x_pos 


0, 


y_pos 


2 


penup 


2 


marker~record 


X_p0 5 


2, 


y_pos 


-2 


penup 


2 


marker^record 


x^pos 


-2, 


y_pos 


-2 


penup 


2 


marker^record 


X pos 


0, 


y_pos 


2 


penup 


2 


markerL,record 


X_P0S 


-2, 


y_pos 


-2 


penup 


2 


marker^record 


X pos 


2 


y_pos 


-2 


penup 


2 


marker~record 


X pos 


2 


y_pos 


2 


penup 


2 


marker record 


x~pos 


-2 


y_pos 


2 


penup 


2 


marker^record 


X_p05 


-2, 


y_pos 


-2 


penup 


2 


marker_reco rd 


X pos 


0, 


y_po5 


2 


penup 


2 


marker record 


X pos 


2 


y_pos 





penup 


2 


marker record 


X pos 


0, 


y_po5 


-2 


penup 



true ] 

false] 

true], 

false) 

true], 

false] 

true], 

false] 

true], 

false] 

true], 

false] 

true], 

false] 

false] 

false] 

false] 

false] 

false] 

false] 

false] 

true], 

false] 

true], 

false] 

true], 

false) 

false) 

false) 

true], 

false 

false 

false 

false 

true], 

false) 

false] 
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6070:0 




S07I:D 




S072:D 




S073:D 




5074:0 




5075:0 




5076:D 




5077:0 




5078:0 




5079:0 




5080 :S 




5081 :D 




5082:0 




S083:D 




5084:0 




508S:D 




5086:0 




5067:0 




5068:0 




5089:0 




5090:D 




5091 :D 




5092:S 




5093:0 




5094:0 


-4 


5095:0 


-6 


S096:0 


-e 


5097:0 


-10 


5098:0 


-12 


S099:D 


-14 


5100:0 


-16 


5101:0 


-18 


6102:0 


-22 


6103:0 


-26 


5104:0 


-30 


5105:0 


-34 


6106:0 


-38 


S107:O 


-42 


6108:D 


-46 


5109:0 


-50 


6U0:S 




5111 :C 




5U2:C 




5U3:C 




5114:C 




S115:C 




6116:C 




5117:C 




6118:C 




5119:C 




S120:C 




S121:C 




5122:C 




5123:C 




S124:C 




S125:C 




S126:C 




5127:C 




5128:C 




6129:C 
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marker_record [x_pos 

ftiarker^record [x_pos 

friarker_record [x_pos 

rriarker_record [x_po5 

rr.arker_record [x_pos 

marker _record [x_pos 

marker_record [x_po5 

rrarker_record [x_pos 

rrarker_record [x_pos 

marks r_record E'^_pos 



Tiarker_index = 

rnar'ker_index_def [ 




cpx 

cpy 

dx 

dy 

local 

local 

saved 

saved 

saved 

saved, 

saved 

saved' 

saved 

saved 



nleger; 

lacked array [1 . . 1 ] 
gle_shortirn ; 
gle_5hort int ; 

gle_shortint ; 

9le_5hortint ; 

_x_po5 : gle_short 
,y pes : gle_shor1 
_cnar__width : in 
char_height : in 
Jext_cos_dir : in 
.text_sin_di r : in 
.line_patTern : in 
[linestyle : in 

length : in 

mode : in 



int; 

int ; 

teger ; 

teger; 

teger; 

teger; 

teger; 

teger; 

teger; 

teger; 



y.pos 
y.pos 
y._pos 
y.pos 
y._pos 
y._po s 
y._po s 
y.po s 
y._po s 
y._po s 



0, penup 

2, penup 

-2, penup 

-2, penup 

2, penup 

2, penup 

-2, penup 

2, penup 

-2, penup 

2, penup 



false], 
false], 
true]. 

false], 

false], 

false], 

false] , 

false], 

true] 

false]]; 



begin 

with gcb'^ do 
begin 

saved_mode : = cur rent _linestyle_mode; 
saved_length := cur rent _pattern_:engtli; 
5aved_linestyle := current_line5tyle; 
saved_line_pattern := current__line;.tyle pattern; 
infol ;= 0; info2 := 1; 
info3 := 0; infoA := -1; 
call ( linestyle, gcb ); 
cpx := cur ren t_pos_x; 
cpy :- c jr rent_pos_y; 
if marker_type > 9 then 
begin 

saved_char_width := char_widih; 
5aved_ch3r_height := char_heiQht; 
5aved_text_cos dir := te>;t_co5'dir; 
sayed__te;'<t_sin~dir := te>;t_sin__"di r; 
infol := marker_width * 8; 
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■c 


5131 


■ C 


5132 


•c 


5133 


C 


5134 


.C 


5135 


•c 


5136 


c 


5137 


c 


5138 


c 


5139 


c 


6140 


c 


5141 


c 


5142 


s 


5143 


c 


5144 


s 


5145 


c 


5146 


c 


6147 


c 


5148 


c 


5149 


c 


5150 


c 


6151 


c 


5152 


c 


5153 


c 


5154 


c 


6155 


c 


5156 


c 


5157 
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info2 := marker_heigh t * 8; 

call ( char size , gcb ) ; 

infol := 32768; 

info2 := 0; 

call ( text dir , gcb ) ; 

s[l] := chrT38+marker_t ype) ; 

end_;< := cpx - (marke r_widt h div 2): 

end V := cpy - (marker_height aiv 2); 

call ( move , gcb ) ; 

info pt rl := addr(5) ; 

infoT := 1 ; 

call { text, gcb ) ; 

< reijtore char state } 

infoli := saved_char_width ; 
info2 := saved_char_height ; 
call ( char_size, gcb ) ; 
infol := saved_text_cos_dir ; 
info2 := saved_text sin^dir; 
call ( text_dir, gcK ) ; 
end 
else 

for i ::= marker index [marker_type] to marker_index [marker type+l]-l do 
with marker5[i] do 
becain 

iocaJ_x_pos := >:_pos; { move packed field to temp to force type > 

locaI_y pos := y pos; { to gle_shortint > 

dx :=-- gTe_i5hiftX(local_x_pos « marker_width) marker_cell shift) + cpx; 

dy -.--^ gle ishift ((local_y_pos * marker_height ) .marker cell shift) + cpy; 

end_x := ax; 

end_y := dy; 

if penup then 

call ( move, gcb ) 
else 

call ( draw, gcb ); 
end; 
infol := saved^linestyle; 
info2 := saved^length; 
info3 ;= saved^mode; 
info4 := saved line_pat tern; 
call ( linestyTe, gcb ); 
end_x := cpx; { restore cp } 

end y := cpy; 
call ( move, gcb ); 



1 procedure gle_5of t_.set_marker ( gcb : g raphics^cont rol_block_pt r ); 

2 begin 

2 with gcb-^ do 

3 marl<er_type := infol; 
2 end; 

1 procedure gle_sof t_marker_sJ2e ( gcb ; graphic5_cont rol_block_pt r ); 

2 begin 

2 with gcb" do 

3 begin 
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marker_width 

marker__height 

end; ~ 



infol ; 

info2; 



erd; 

erd. < module gle_5mark } 



warnings . 
«»««* Nonstandard language features enabled 
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GLE_STEXT 



Description 

GLE_STEXT provides software text setup routines and tlie text size and rotation transformation. 



Requirements 

GLE_ TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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( 

{ C.raphics Low 

< 

{ riodule = GLE STEXT 

( Crogramer = BJ3 

( Late = 10-;0-82 

{ 

{ F'urpose: To provide software text routines. 



{ F ev history 



Created 
Modified 



10-10-82 
6-28-83 



BJS Removed soft_text from export text. This 
procedure is imported from gle_a5text. 

BDS Put Range Check on around calculation of 
dx and ay to eliminate random vectors. 



(c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DOR 7-104. 9|a) . 

HEWLETT -PSCKPRD COMPflNY 
Eort Collins, Colorado 



Smcdcall 

Ssearch 'OLE TYPES'S 

Sirclude 'OPTlON.'j't { **)♦:***«***«*»««»; 



COMPILER OPTIONS 



!*********** 



{ This include file specifies range checking, debug and other compiler 
options for the graphics library ) 

Sdebug OFF$ 

Srange OFF$ 

Scopyright 'COPYRIGHT 1984 BY HEULETT-PfiCKflRD COMPRNY'S 

$Fl OflT NOW TESTS 



COMPILER OPTIONS »* 



Jinclude 'OPTIONS'S ( ************** 
Jlinenum 4000$ 

mo jule gle_stext ; 

1 import gle_types. 
1 excort 

1 var font ['GLE_GLE_STROKE_TflBLE'l : array [0. maxint] of gle_shor tint ; 



*********** ) 
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4009:S 

4010:D 

4011 :0 

4012:0 

4013:0 

4014:0 

4015:S 

4016:0 

4017:S 

4018:D 

4019:S 

4020:0 

4021 :D 

4022:0 

4023:0 

4024 :D 

4025:S 

4026:D 

4027:D 

4028:S 

4029:C 

4030:C 

4031:C 

4032:C 

4033:C 

4034 :C 

4035:C 

4036:C 

4037: 

4038: 

4039: 

4040: 

4041 : 

4042: 

4043: 

4044: 

4045: 

4046: 

4047:C 

4048:C 

4049:S 

4050:C 

4061 :C 

4052:C 

40S3:C 

4054:C 

405S:C 

4056:C 

4057:S 

4058:D 

4059:S 

4060:C 

4061:C 

4062:C 

4063 :C 

4064 :C 

4065:C 

4066:C 

4067:C 

4058:C 



-4 
-12 



( gcb 
( gcb 
( gcb 
( gcb 
( gcb 



g raphiC5_cont rol_block_pt r 
9 raphics_cont rol_block_pt r 
g raphics_cont rol_block_pt r 
9raphics_cont ro l_bIock_pt r 
graphics_cont ro]_block_pt r 



1 procedure gle_sof t_char_size 
1 procedure gle_sof 1_text_spacing 
1 procedure gle_sof t_text_dir 
1 procedure gle_sof t_text_3U5t 
1 procedure gle_text_xform 

1 implement 

1 procedure gle_text_xform ( gcb : graphics_cont rol_block_pt r ) ; 

2 const 

2 f raction_adjust = 32768; 

2 re5_adju5t - 8: 

2 adju5ted_cell_width 

2 ad3usted_cell_height 

2 var i ; integer; 

2 dx.dy : integer; 

2 begin 

2 with 

3 

3 

3 



7 * f raction_adgust ; 
9 « f raction_ad;]ust ; 



gcb*^ do 
egin 
SRPNGE ONt 
for i :=■ to 15 do 
begin 

if i < 8 then 
begin 

dx :- ((i-1) 
cosx_table [i] 
sinx_table[i] ;= (dx « 
end; 

dy := ((i-4J » char height 
siny_t sbletl] :~ ( -3y * te 
cosy^tableii] := (dy * tex 
end; 



char_width) div res_adjust; 
= fdx * text_co5_dir ] div 
= (dx * text_sin_dir ) div 



adqusted_ce21_wldth; 
ad justed_cell2width; 



div re5_adjust; 

t_5in dir) div ad4usted_cel]_height ; 
_cos_3ir] div adjusted cell height; 



3 
3 
3 
3 
3 
3 
2 end: 



dx := (char_width + char_space); 

text_5pace_x := ( dx * text_co5_dir ) div f raction_adjust ; 

text_5pace_y := ( dx * text_5in_dir ) div f raction_ad3U5t ; 

dy := - (char_height ♦ line_space); 

text_line_x := ( -dy * text_sin dir ) div f raction_adiust ; 
text line y := { dy * text_cos 3i r ) div fraction adjust; 
SRflNK 0FF$ < T added to avoid rantJom vectors ) 

calc_text_xform := 0; { transformation is not needed ) 
end : 



1 procedure gle^sof t._char_size ( gcb : graphics_cont rol_block_pt r ) ; 

2 beg in 

2 with gcb" do 

3 if (char_width <> infol) or (char_height <> info2) then 

4 begin 

4 calc_text xform := 1; { calc new transform ) 

4 char_widtH := infol; 

4 charheight := info2; 

4 end ; 
2 end 
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4069:S 

4070:D 1 procedure gle soft text spacing ( gcb : graphics control block ptr); 

4071 :S - - _ ^ 

4072:C 2 begin 

4073:C 2 with gcb" do 

4074:C 3 if (char_:>par.e <> infol) or (line_space <> info2) then 

4075:C 4 begin 

4076:C 4 calc_text xform := 1; { calc new transform > 

4077:C 4 char_:;pace := infol; 

4078:C 4 line_space := info2; 

4079:C 4 end; 

4080:C 2 end; 

4081 :S 

4082;D 1 procedure gle soft text dir ( gcb : graphics control block ptr); 

4083 :S 

4084 :C 2 begin 

4085:C 2 with gcb" do 

4086:C 3 if (text cos dir <> Infol) or (te^t sin dir <> info2) then 

4087:C 4 begin 

4088:C 4 calc_text xform := 1; < ca]c new transform > 

4089:C 4 text_co5_<Ji r := Infol; 

4090 :C 4 text_sin_dir ;= info2: 

4091 :C 4 end; 

4092:C 2 end; 

4093:S 

4094:D 1 procedure gle soft text lust ( gcb : graphics control block ptr); 

4095:5 

4096:C 2 begin 

4097:C 2 with gcb" do 

4098:C 3 if (char_)U5t_x <> infol) or (char_ju5t_y <> InfoZ) then 

4099:C 4 begin 



4100:C 4 calc_text xform := 1 

4101 :C 4 char_iu5t~x := infol 

4102:C 4 char_ju5t_y := info2 

4103:C 4 end; 

4104:C 2 end; 

4105:S 

4106:C 1 end. ( module gle stext ) 

4107:S 

4108:S 

No errors. No warnings. 

***«« Nonstandard language features enabled 



< calc new transform ) 
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GLETYPES 



Description 

GLE_TYPES defines the input and output graphics control blocks (GCBs) used by the GLE routines 
as well as the machine-type identifier tokens, and some globals for bit-mapped display use. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 

2:D ( 

3:D i Graphics Low End 

4:D < 

S:D ( Module • GLE_TyPES 

6:D { Programer = BJS 

7:0 ( Date » 10- 5-82 

8:0 ( 

9:0 { Pjrpose: To define the graphics control blocks used by GLE. 
10:S 

11:0 { Rev history 
12:0 { Created - 10- S-82 BJS 

13:0 { Modified - 11-29-82 BJS Clean up and changed booleans to shortints 
14:S 

1S:S ( (c) Copyright Hewlett-Packard Company, 1983. 
16:S fill rights are reserved. Copying or other 

17:S reproduction of this program except for archival 

18:S purposes is prohibited without the prior 

19:S written consent of Hewlett-Packard Company. 

20:S 
21:S 

22:S RESTRICTEO RIGHTS LEGEND 

23:S 

24:S Use, duplication, or disclosure by the Government 

25:3 is subject to restrictions as set forth in 

26:S paragraph (b) (3) (B) of the Rights in Technical 

27:S Data and Computer Software clause in 

28:S OfiR 7-104. 9(a) . 

29 :S 

30:S HEULETT-PPCKSRD COnPBNV 

31:0 Fort Collins, Colorado > 

32:S 

33:0 Stables on$ 
34:0 Smodcall 

34:0 Sinclude 'OPTIONS'! ( compiler options > 
35:S 

36:8 { This include file specifies range checking, debug and other compiler 

37:0 options for the graphics library 

39:D Sdebug OFF$ 

40:0 {range OFF$ 

41:0 {copyright 'C0PYRI3HT 1984 BY HEULETT-PPCKfiRD COnPflNY'S 

42:0 SFLOHTJDU TEST$ 

43:S 

44:S 

45:S 

46:S 

47:0 Sinclude 'OPTIONS't ( compiler options } 
1000:0 Slinenum lOOOS 
1001 :S 

1002:0 module gle_types; 
1003:S 

1004:0 1 export 
1005:S 

1006:0 1 type gle_byte = -128 .. 127; 
1007:0 1 gle shortint = -32768 .. 32767; 
1008;S 

1009:0 1 anychar = packed array [l..maxint] of char; 
1010:0 1 anychar pt r = '^anychar; 
1011:S 
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1012:0 1 gle_char6 = packed array [1..6] of char; 

1013:3 

1014:D 1 gr aphic5_cont rol_block_pt r - "^gr aphics_cont rol_block; 

1015:D 1 graphics_input_cont rol_block_pt r = ^graphics_input_cont rol_block; 
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1016;0 

I017:D 

1018:S 

I019:D 

1020:0 

1021 :D 

1022:0 

1023:0 

1024:0 

1025:S 

1026:0 

1027:0 

1028:S 

1029:0 

1030:0 

1031:0 

1032:0 

1033:0 

1034:0 

1035:0 

1036:0 

1037:0 

1038: 

1039: 

1040: 



1041:0 



1042: 
1043: 
1044: 

1045: 

1046: 

1047: 

1048: 

1049:0 

1050:0 

1051:0 

1052:0 

1053:0 

1054:0 

1055:0 

1056:0 

1057:0 

1058:0 

1059:D 

1060:D 

1061:S 

1062:D 

1063:S 

1064:D 

1065:0 

1066:0 

1067:D 

1068:D 

1069:5 

1070:D 

1071:D 

1072:D 

1073:D 

1074;D 

1075;D 



SpageS 

^*.M**it»ii»tiX%»:if*M*-ti*9*»**m***».** OUTPUT * 
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graphics _control_b lock 
packed record 



i n f o t 

info2 
info3 
info4 



integer ; 
integer ; 
integer; 
integer; 



{ holds info passed to and from GLE > 



info _pt rl 

info_ptr2 



anypt r; 
anypt r; 



aw3it_blanking : procedure ( gcb 

buffer mode : procedure ( gcb 

char__5Tze : procedure ( gcb 

clear ; procedure ( gcb 

clip_limiTs : procedure ( gcb 

cursor : procedure ( gcb 

define_color__map : procedure ( gcb 

define_d rawing_mode : procedure ( gcb 

draw : procedure ( gcb 

f ill _index_color : procedure ( gcb 

f lus'IT_buf fer : procedure ( gcb 

get_colo r_map : procedure ( gcb 

get_raster : procedure ( gcb 

get_polygon_info : procedure f gcb 

gload : procedure ( gcb 

graphic5,_on_off : procedure ( gcb 

gstore : procedure gcb 

index color : procedure [ gcb 

inq_pTp2 : procedure ( gcb 

linewidt h : procedure gcb 

liner^tyle : procedure gcb 

marker : procedure j gcb 

marker_si2e : procedure gcb 

move : procedure I gcb 

outpiJt_escapei : procedure gcb 

output_escapeo : procedure ( gcb 

polygon : procedure ( gcb 

set_narker : procedure f gcb 

text : procedure ( gcb 

text__dir ; procedure ( gcb 

text.just : procedure ( gcb 

text_spacjng : procedure ( gcb 



graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 
g raphics 
graphics, 
graphics 
graphics^ 
graphics 
graphics. 



_cont rol. 

cont rol" 
^cont rol" 
'cont rol" 
_cont rol 

cont rol 
_cont rol. 
|]c o n t r 1| 
'cont rol" 

cont rol 

cont rol 
_cont rol. 
.control" 
"cont rol' 

cont rol 
.cont rol[ 
,cont rol" 
'cont rol' 

cont rol 

cont rol 
[cont rol' 
jzonx rol' 

cont rol 

cont rol 
^cont rol" 
'cont rol' 
,cont rol. 

cont rol 
_cont rol" 
l^cont rol' 

cont rol 
'cont rol' 



block 
block' 
block" 
'block' 

block 
block' 
block" 

"block" 
"block" 
"block" 
'block* 
block' 
'block' 
"block" 
block" 
block" 
block" 
block' 
"block" 
block 
"block" 
"block" 
block" 
block" 
"block" 
"block" 
"block" 
"block" 
"block" 
"block" 
block_ 
block 



,ptr 
.ptr 
Ptr 
ptr 
ptr 
.ptr 
ptr 
ptr 
ptr 
,ptr 
,Ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 



lo_inq timeout 
io_rea3 
io_5et_t imeout 
io_term 
io_w/ri te 



procedure ( gcb : g raphics_cont rol_block_pt r ] ; 

procedure ( anyvar iocb_pt r : anyptr; var value : integer) 

procedure ( anyvar locb_ptr, dev_buf_ptr : anyptr ); 

procedure ( anyvar iocb_pt r : anyptr; value : integer); 

procedure ( anyvar aocb_pt r : anypt r ) ; 

procedure ( anyvar iocb_pt r , dev_buf_pt r : anypt r ) ; 



iocb : anypt r ; 

device_buf : anypt r ; 

dev_^dep_^;;l uf f : anyptr; 
devi"ce_Tnfo : anyptr; 
device_info_char_count 



{ ptr to io system dependent info > 
{ ptr to device dependent buffer ) 
( ptr to device dependent information ) 
{ pointer to device identifier (e.g. 3] ) 
gle she rt int ; { # char in device_info > 



error_return : gle_5hortint; { used by some procedures > 
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1076; 

1077; 

1078: 

1079; 

1080; 

1081; 

1082: 

1083:D 

1084 :D 

1085:0 

1086;0 

1087:0 

1088:0 

1089;S 

1090; 

1091: 

1092; 

1093: 

1094: 

1095: 

1096: 

1097: 



1098:0 



1099; 

1100; 

1101; 

1102; 

1103: 

1104: 

1105; 

1106; 

1107:0 

1108:S 

1109:0 

1110:0 



1111: 

1112:0 

1113:0 

1114:3 

1115:0 

1116:0 

1117:0 

ni8:S 

1119:0 

1 1 20 : S 

1121:0 

1122:0 

1123:0 

1124:0 

1125:0 

1126:D 

1127:0 

1128:0 

1129:S 

1130:0 

1131 :D 

1132:0 

U33:D 

1 1 34 : S 

1135:D 
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spooling : gle_5ho r 1 i nt ; { '1' if output goes to a file ) 



di5play_name 
di5pl3y_name char__count 
display_handTer_name 
di5play_handler_c ha recount 



gle_char6; ( name of display device > 

gle shortmt; { # chars used in display name > 

gle_char6^ { 'HPGL', 'RASTER', 'GPIS"^> 

gle_shortint ; { # chars used in display_handler_name > 



di5play_res_x 
display_re5_y 

di5play_rnin_x 
di5play_nin_y 
display_nax_x 
display_nax_y 



real; 
real; 
intege r; 
intege r; 
intege r ; 
intege r ; 



{ point s pe r mm in x direction 

( points per mm in y direction 

{ minimum x device coordinate j 

( minimum y device coordinate 

{ maximum x device coordinate 

{ maximum y device coordinate ' 



( genera 

backgrou 

compleme 

non_domi 

era5e_su 

color_ma 

po 1 ygo n_ 

redef_ba 

poly<jon_ 

polvgon_ 

d2tner_s 

pallet te 

gamut 

cont..lini 

vect~lini 

linewidt 

char siz 



1 info stuff } 



nd 

support 
t_support 

pport 

p_5jpport 

support 
kqround 
ill factor 
oliH_fill 

uppor t 



estyles : gle 
estyles : gle 

hs : gle_shor 
gle_5hor 



gle_shor 

gle_shor 
gle_shor 
gle_shor 
gle_shor 
gle_5hor 
gle_shor 
gle_shor 
gle_shor 
gle_shor 
integer ; 
integer; 
Shortint ; 
_short int ; 
tint; { 
tint; { 



int 


< '1' 


int 


{ '1' 


int 


{ '1' 


int 


< '1' 


int 


< '1' 


int 


( '1' 


int 


( '1' 


int 


( apro 


int 


< fill 


int 


{ '1' 


( 


number o 


< 


number o 


S 


number o 


number o 


umbe 


r of lin 


umber of cha 


1 for contin 



if drawing in color supported, '0' if not ) 

if complement drawing supported > 

if non-dominant drawing supported > 

if erase drawing supported ) 

if color map supported > 

if polygons are supported > 

if color can be changed > 

X size of a line in device units > 
line spacing which is used for doild fill > 

if polygons use dither } 

f distinct colors supported } 
pf colors which can appear at same time) 
if continuous linestyles supported > 
if vector adjusted linestyles supported ) 
lewidths supported > 

racter sizes supported, 

uously varying sizes > 



{ current value information } 



current_pos_> 
current_pos_y 
end_x 

end_y 

marker_t ype 
marke r_widt h 
marker_heaght 



char 
char 
line 
text 
text 
char 
char 

clip 
clip 
clip 
clip 

curr 



height 

space 

space 

sin__dir 
co5'"dir 
jusT^x 
ju&t_y 



integer 
integer 
integer 
integer 



gle_shortint ; 
integer ; 
integer ; 

gle_5hort int ; { 



< last point used > 



if Rata char set to be used > 



integer ; 
intege r ; 

integer; 
integer ; 
integer ; 
i nt ege r ; 
integer ; 
intege r ; 



{ current character info ) 



lim:it s_xmin 
limit s_xmax 
"lim it s_ymin 
limit s_ymax 



integer 
integer 
integer 
integer 
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rit_ 



_state : g]e_short int ; 



{ off - 0; on 



1 ) 
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1136:D 
1137:D 

1138:S 

1I39:D 

U40:S 

1141:D 

1142:D 

1143:D 

1144:0 

1145:S 

1146:0 

1147:0 

1148:0 

1149:0 

1150:S 

1151 :D 

1152:D 

1153:0 

1154:0 

1155:S 

1156;D 

1157:D 

1158: 

1159: 

1160: 

1161 : 

1162: 

1163: 

1164: 

1165:0 

1166:0 

1167:0 

1168:D 

1169:D 

1170:S 

1171:0 

1172:0 



1173 

1174 

1175 

1176 

1177:D 

1178:S 

1179:0 

1180:0 

1181 :D 

1182:S 

1183:0 

1184:D 

1185:D 

1186;D 

1187:0 

1183:S 

1189:D 

1190;D 

1191 ;D 
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integer ; 
integer; 



** File name: GLE TYPES *«* 



gle_short int ; ( buffered = 1; unbuffered = > 



current_cijr5or_x 
cur rent_ctjrsor_y 

cur rent _bijffer_mode 

current_l:Lne style 
cur rent_li nest yle_pat tern 
cur rent_p<Jt tern length 
cur rent_li nest yTe_mode 

cur rent __co lor index 
cur rent_fi]l_^Tndex 
cur rent_drawTng_mode 
current_linewidt h 

cur rent_polygon_color 
cur rent_polygon_red 
cur rent_pC'lygon_green 
cur re n t_po 1 ygo n_b 1 ue 

< temp storage of some regs ) 
old_a5 : integer; 
old_a6 : integer ; 

{ software text stuff ) 

text_5pace_x : integer; ( spacing xSy after characters } 
text__space_y : integer ; 

text_line_x : integer; < linefeed spacing > 

text_line_y : integer; 

cosx_table : packed array [0..7] of gle_shortint ; 

cosy_table : packed array [0..15] of gle_shortint ; 

sinx_table : packed array CO. .7] of gle__shortint ; 

siny_table : packed array [0..15] of 9le_shortint ; 

calc_text xform 
calc soft~text xform 



gle_short int ; 

gle_5hort int ; 
gle_shortint ; 
gle_short int ; 

gle_5tiort int ; 
gle_5hort int ; 
gIe_5hort int ; 
gle_short int ; 

gle_short int ; 
gle_5hor tint; 
9le_5hort :nt ; 
gle_5hortint ; 



-1 if rgb > 



gle_5hortint ; { '1' if text xform needs to be recalculated ) 
procedure ( gcb ; graphic5_cont rol_block_pt r }; 



sof t_font_pt r 



50ft_text tempi 
sof t_text~'temp2 



{ software clipping stuff } 
unclipped_move : procedure ( gcb 
unclipped][draw : procedure ( gcb 



anyptr; { points to font table ) 



integer ; 
integer ; 



graph ics_cont rol_block_pt r ) ; 
graphics_cont rol_block_pt r ) ; 



sof t_clip_savexO 
soft_clip savexl 
sof t_clip_saveyO 
sof t_clip_5aveyl 
sof t_clip_5wi tch 

sof t_clip_cpx 
sof t_clip_cpy 
end : 



integer; 
intege r ; 
integer ; 
integer ; 
gle_short int ; 

integer; 
integer; 



Pascal 


[Re 


1192 


:D 


1193 


:0 


1194 


:S 


1195 


■D 


1196 


■D 


1197 


D 


1198 


D 


1199 


D 


1200 
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1201 


S 


1202 


D 


1203 


S 


1204 


D 


1205 


D 


1206 





1207 





1208 
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1209 
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1212 
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1221 
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1223 
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1229 
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1230 
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1232 
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1233 


D 


1234 
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1239 
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1240 
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1241 
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1242 
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File name: GLE TYPES *** 



Spaq-iJ 



graphic5_input cont rol_block = 
packed record 

infol : integer; { holds info passed to and from GLE } 
info2 : integer; 
info3 : integer ; 
info4 : integer; 



info_pt rl : anypt r ; 

get_digit ize 
inqplp2 

input_echo 

input_escapei 

input~escapeo 

sample 

start_digitize 



procedure ( gcb 

procedure gcb 

procedure 

procedure 

procedure 

procedure 

procedure 



gcb 
gcb 
gcb 
gcb 
gcb 



graphics_input_cont ro l_block_pt r 
graphics_input_cont roi_b lockup t r 
graphic s_input_cont rol_b lockup t r 
graphics_input_cont rol_block_pt r 
graphics_input_cont rol_block_pt r 
graphics_inpLit__cont rol_block_pt r 
graphics_input^cont rol3loc''_pt f 



dummy_xxx 

io_inq timeout 
io_rea3 

io_5et_timeout 

io_term 

io_write 

iocb : anypt r ; 

device_buf : anypt r ; 

dev^dep_^st uff: anyptr; 

devTce_Tnfo : anyptr; < pointer to device identifier (e.g. 

device_info_char count : gle_short int ; { * char in device_inTo > 

error_return : gIe_short int ; < used by some procedures > 



procedure ( gcb : graphics_input_cont rol_block_pt r ) ; 

: procedure ( anyvar iocb_ptr : anyptr; var value : integer); 

: procedure ( anyvar iocb_pt r , dev_buf_pt r : anypt r ) ; 

: procedure ( anyvar iocb_pt r : anyptr; value : integer ) ; 

: procedure ( anyvar iocb_pt r : anypt r ) ; 

: procedure ( anyvar iocb_ptr, dev_buf^„ptr : anyptr ); 

ptr to 10 system dependent info ) 
ptr to device dependent buffer ) 
ptr to device dependent information > 

701) > 



input_name 

input_name_ char_count 
i n pu t _h a ndTe r_n ame 
input_handler_char_count 



nput_re5_:< 
nput_re5_y 
np(jt_min_x 
nput_max_;< 
nput_min_y 
nput_max_y 



input_cpx 
input_cpy 
end ; 



real; 
real ; 
integer ; 
integer ; 

integer; 
integer ; 

integer ; 
integer ; 



9le_char6^ { name of display device } 

gle_5ho rt int ; { # chars used in display name > 

gle_char6; ( 'HPGL', 'KNOB', 'GPIS' T 

gle_5hort int ; { # chars used In display_handler_name ) 

{ points per mm in x direction ) 

( points per mm in y direction > 

< input, min and max device coordinates ) 



< Uhere device dependent echoes are started ) 



5Tatus_def = 

packed record 

bitl5,bitl4 bili3,bitl2,bitll,bitlO,bit9,bit8, 
notbusy,bit6,vblank,bit4, hz50 ,monoc hrome,bit 1 ,bi tO 

end ; 



_3r r ay 



packed arraytl ■ -fiiaxint ] of gle_sho rt int ; 
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File name: GLE TYPES »»« 



1252:D 

1253:D 

1254:D 

125S:0 

1256:0 

1257:D 

1258:0 

1259:0 

1260:0 

12S1 :S 

1262:S 

1263:0 

1264: 

1265: 

1266: 

1267: 

1268: 

1269: 

1270: 

1271 : 

1272: 

1273:0 

1274:0 

1275: 

1276: 

1277: 

1278: 

1279; 

1280: 



-12 
-16 
-20 
-24 
-24 
-24 
-25 
-30 



const 

(nunknown 

m9816a 

m9826a 

rri9836a 

m9836c 

m98627a 

m9837a 

mgator_c 



no =0; 
ye s = 1 ; 



= 0; 
' 1 1 
= 2; 

- 3; 

= 4; 

= S; 

- 6; 
= 7: 



rule reg : 'qle_shortint ; { 

widtTi_reg : gle ^short int ; ( 

inq_buffer: "^gle^short int ; { 

crt :^array: { 

status : "status.def; ( 

WW reg : ^gle shortint: { 
blTnkI_reg [ hex ( •564100' ) ] 
blink2_reg [ hex ( '564104' j ] : 
write_to_stat us : boolean; 
cont rol_5pace ; Integer; 



[HEK('564008' )] 
[HEX ('56400:' 1] 
[HEX('564100' j] 

gle shortint ; > 
[ HEX('F66000') i 
[ hex('664000') ] 
[ hex('E64108') ] 
: gle_shortint ; 
gle_short irt ; 



gle_short int ; ) 
gle short int ; > 
packed array [0. 

word_array; > 
status_def ; ) 
gle shortint ; > 



.maxint] of 



1281 :S 



-30 1 implement 



Pascal [Rev 3. on 6/ 4/84] GLE_TYPES , TEXT 

1282:0 -30 1 tpageS 

Dump of GLE_TYPES 
Imported ; 

Exported : 
SNYCHPR type 

array elbitsize=8 unpacksi2e-21 
HNVCHfiR_PTR type 

pointer tjnpacksize=4 align=2 
B[INK1_REG van lev- 1 addr 
BLINK2 REG var lev= 1 addr 
CONTROr_SPfiCE var lev 1 addr 
CRT var lev= 1 addr 

GLE BYTE type 

subrange min=-128 max=127 unpac 
GLE_CHBR6 type 

array elbit5ize»8 unpacksize«6 
GLE SHORTINT type 

suHrange mine-32768 max=32767 u 
GLE TYPES module lev=l 
GRHPh1CS_C0NTR0L_BL0CK type 
record ijnpacksize=730 align=2 
SUfilT BLANKING field offset 
BflCKGfOUND field offset 
BUFFER nODE field offset 
CflLC_Si3FT_TEXT XFORn field of 
CflLC TEXT XFORR field offset 
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47483647 allgn=2 

^131072 long 

' 6S578 long 

-30 gloSalbase = GLE TYPES 
-16 globalbase ■= GLE_TYPES 

ksize=2 align=2 bitsize=8 signed 

align=2 

npack5ize=2 align=2 bit5ize=16 signed 



CHfiR HEIGRT 

CHHR JUST X 

CHfiR JUST~Y 

CHRR~SIZE~ 

CHfiR_SIZES 

CHfiR_SPflCE 

CHRR UIOTH 

CLEflR 

CLIP LinlTS 



field offset 

field offset 

field offset 

field offset 

field offset 

field offset 

field offset 

field offset 

field offset 



CLIP_LIMITS_XrifiX field offset 
CLIP_LiniTS_xnlN field offset 
CLIP LIMITS YttflX field offset 
CLIP LIMITS YMIN field offset 
COLOR tlfiP SUPPORT field offse 
COMPLFMENT support field offs 
CONT_LINESTylES field offset 
COSX_THBLE field offset 
COSY IflBLE field offset 
CURRFNT BUFFER MODE field off 
CURRENT~COLOR TNOEX field off 
CURRENT_CURSOf_STBTE field of 
CURRENT_CURSOR_X field offset 
CURRENT_CURSOR Y field offset 
CURRENT DRRUINC MODE field of 
CURRENT_FILL INUEX field offs 
CURRENT LINEJtylE field offse 
CURRENT_LINESTYLE_MODE field 
CURRENT_LINESTYLE„PHTTERN fie 
CURRENT_LINEUIDTH field offse 
CURRENT_PBTTERN_LENGTH field 
CURRENT POLYGON BLUE field of 
CURRENT "POLYGON COLOR field 



=24 
•398 
= 32 

fset-ees 

=666 
=466 
=486 
-490 
"40 
=432 
=470 
=462 
=48 
=56 
=498 
=494 
= 508 
=502 
t=406 
et=400 
=426 
=570 
586 
5et=620 
set«530 
f5et=510 
=512 
= 516 
fset=534 

S2 
t=522 

off5et=523 
Id offset=524 
t=536 

off5et=526 
fset=544 
ffset=538 
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CURRrNT_POLVG0N__GREEN field offset=542 

CURRFNT_POLYGCIN_fiED field off5et = S40 

CURRl NT_POS X field 0ff5et=434 

CURRl NT_POS_Y field offset=438 

CURSOR field offset-64 

DEFINE_COLOR nfiP field off5et=72 

DEFINE DRHUIRG MODE field Offse1=80 

DEVICE BUF field off5et=332 

DEVIi:E_INFO field offset=340 

DEVICE INFO CHfiR_COUNT field off5et»344 

DEV OEP„STuFF "field offset=336 

DISPi fiy_HfiNOLER_CHFIR_COUNT field off5et=364 

DISPI BVJBNOLER_NflnE field off5et=358 

DISPLfiv_nfiX_X field off5et=390 

DISPLHy_Mfix_Y field ofr5et=394 

DISP RvniNX field offset=382 

DISP BV_niN Y field 0ff5et=38S 

DISP-RY.Nfinr field offset=3S0 

DISPRY^NfiriE CHHR COUNT field offse1 = 356 

DISP-fiY_RES_^ Tleld offset=36i6 

DISP.PY RES Y field offset=374 

DITHtR_SUPPnRT field off5et=416 

DRnu field offset'Se 

DUrlMY_XXX field Off5et-280 

END X field offset=442 

END V field off5et=446 

ERS5L SUPPORT field offset-404 

ERROR RETURN field off5et-346 

FILL Index color field offset=96 

FLUSR_BUFFFR field offset=104 

GHMUT field off5et=422 

GET_COLOR flflP field offbet-112 

GET_POLyGCiN_lNFO field off5el = 128 

GET RRSTER field offset-120 

GLOHlJ field offset=136 

GRfiPHICS ON OFF field off5et.l44 

GSTORE field off5et=152 

INOEX_COLOR field off5et=160 

info; field dffset=0 

INFO:: field offset=4 

INF03 field off5et=8 

INF04 field off5et=12 

INFO PTRl field offset=ie 

INF0"PTR2 field offset=20 

INQ P1P2 field off5et=168 

I0C5 field off5et=328 

10 INQ TinEOUT field off5et=288 

IO_RLfin field 0ff5et = 298 

I0_SE:T TIMEOUT field off5et = 304 

I0_TERR field offset=312 

10 UPITE field off5et=320 

KfiTR field Off5et=460 

LINE5TYLE field offset=184 

LINEUIDTH field off5et=176 

LINEUIDTHS field off5et=430 

LINE SPfiCE field offset=474 

HHRKFR field off5et=192 

nPR<E.R HEIGHT field off5et=456 

nsR<[R;;siZE field off5et=200 

MBRKfR_TYPE field off5et=4S0 
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MflRKFRJ/IDTH field off5et=452 

MOVE field offbet=208 

NON_[:OnlNfiNT_SUPP0RT field offset»402 

0LD_f.5 field offset=S46 

OLD fi6 field offset=650 

OUTPUT ESCflPEI field offset=2I6 

OUTPliT ESCflPEO field offset=224 

PRLLETTE field offset=418 

POLYGON field offset=232 

POLYGON FILL FRCTOR field off5et=412 

POLYGON.SOLIC FILL field off5et=414 

POLYGON SUPPOl?T field off5et=408 

REDEF BHCKGROUND field Off5et=410 

SET mRRKER field offseti240 

SIN? TABLE field offset-SlS 

SINY'TRBLE field off5et=634 

SOFT CLIP_CPX field off5et=722 

SOFT CLIP CPY field 0ff5et=72e 

SOFT"CHP_SRVEXO field offset. 704 

SOFT'CLIP SRVEXl field off5et=708 

SOFT'CLIP_SRVEYO field off5et»712 

S0FT""CLIP_SRVEY1 field off5et = 716 

SOFTlCLIP SWITCH field Off5et"720 

SOFT^FONT PTR field offsel.676 

SOFT"TEXT_TEnPI field offset>680 

S0FT"TEXT_TEnP2 field offset=684 

SPOOIING field off set=348 

TEXT field off5et=248 

TEXT COS DIR field off5et=482 

TEXT'DIR" field offset=2S6 

TEXT""JUST field off5et=264 

TEXT"LINE_X field off5et»Se2 

TEXT_LINE y field off5et=S66 

TEXT "SIN CIR field offset=478 

TEXT~SPflCE_X field offset=SS4 

TEXT^SPHCE Y field offset-SSS 

TEXT SPHCIfJG field off5et=272 

UNCLTPPED_DRHU field off5et=696 

UNCLIPPED tlOVE field 0ff5et-688 

VECT LINE5TYLES field offset=428 
GRflPHICE_C0NTR0L^eLOCK_PTR type 

pointer unpack5Tze-4 aliqn=2 
GRRPHIC£_INPUT_CONTR JL_BLi5CK type 
record Linpacksize=200 align=2 

DEVICE aUF field offset«128 

DEVICE INFO field offset=136 

DEVICE INFO CHRR COUNT field offset=140 

DEV OEP stuff "field offset»132 

DunRY_xS<x field offset=76 

ERROR RETURN field off5et=142 

GET DIGITIZE field off5et=20 

INFCi field offset'O 

INF02 field off5et=4 

INF03 field offset=8 

INF04 field off5et=12 

INFO PTRl field off3et=!6 

INPUT CPX field offset=192 

INPUT_CPY field off5et = 196 ,, A'jn 

INPUT_ECHO field off5et = 36 II-I/U 

INPUT_ESCRPEI field offset=44 
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INPUT_ESCfiPECi field offset=52 

INPUT_HnNDLER' CHAR COUNT field offset-158 

INPUT_HnNDLER_NfiME field off5et=152 

INPUT_nnx X field offset=i80 

INPUT_nPX_Y field offset=188 

INPUT_niN X field offset-176 

INPUT_MIN Y field off5et=184 

INPUT_Nnrif field off5et«144 

INPUT NnnE CHRR COUNT field offset=150 

INPUT_RES y field offset=160 

INPUT RES^y field off5et=lS8 

INQ PTP2 field off5et=28 

IOCS field offset=124 

10 INQ TIMEOUT field off5et=e4 

lOlREflCr field offset=92 

IO_SET TIMEOUT field off5et=100 

10 TERR field offset-lOS 

10 URITE field offset=116 

SnRPLE field off5et=60 

STfiRTJIGITIZE field off5et=68 
GRfiPHICSJNPUT C0NTR0L_8L0CK PTR type 
pointer unpaclTs ize=4 align=? 

INQ BUFFER var ]ev= 1 addr= -12 globalbase = CLE TYPES 

MSSTSfi konsl 1 

M9826B konst 2 

t19836fi konst 3 

M9836C konst 4 

M9837fl konst 6 

M98627fl konst 5 

MGBTOR C konst 7 

MUNKNOON konst 

NO konst 

RULE REG var lev» 1 addr= -4 globalbase = GLEJYPES 

STBTOS var lev 1 addr= -20 globalbase = GLE TYPES 

STRTUS DEF type 
record unpacksize=2 align=2 

BITO field offset-O bitoffset>15 

BITl field off5et=0 bitoffset=14 

BITIO field offsefO bitoffset.B 

BITll field off5et=0 bitoffset=4 

BIT12 field off5et=0 bitoffset=3 

BIT13 field offset'O bitoffset=2 

BIT14 field offset^O bitoffset^l 

BIT15 field offset-O bitoffset=0 

BIT4 field offset=0 bitoffsefll 

BIT6 field offset^O bitoffset=9 

BITS field offset=0 bitoff5et=7 

BIT9 field offset^O bitoff5et=6 

HZ50 field offset-O bitoffset«12 

MONOCHROME field offset^O bitoffset=13 

NOTBUSY field offset=0 bitoff5et«8 

VBLflNK field offset=0 bitoffset=10 

yiDTH REG var ]ev= 1 addr= -8 globalbase = GLE TYPES 

URITE TO_STfiTUS var lev= 1 addr= -2S globalbase = GLE_TYPES 

UU REC var lev= 1 addr= -24 globalbase = GLEJYPES 

U_!?RRflY type 

array elbitsize=16 unpacksize=4 (OFLO) align=2 

YES konst 1 
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GLE_TYPES dump complete 

1283:C 1 end. ( GLE TYPES > 

1284:0 1 4LIST 0N$ 

1285:S 

No errors. No warnings. 

*»x** Nonstandard language features enabled *«««* 
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GLE UTLS 



Description 

GLE_UTLS provides general tools for GLE routines. 



Requirements 

GLE.TYPES. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:D { 

2:D ( Graphics Low End 

3:D ( 

4:D ( Module = GLE_UTLS 

5:D ( Programer = BJS 

6:D < Bate = 11-15-82 

7:C ( 

8:D { Purpose: To provide general GLE tools 

9:£ 

10:D < Rev history ) 

11:D ( Created - 11-15-82 J 

12:D ( Modified - XX-KX-XX > 
13:S 

14:S ( (c) Copyright Hewlett-Packard Company, 1983. 

15:S All rights are reserved. Copying or other 

16:S reproduction of this program except for archival 

17:S purposes is prohibited without the prior 

18:S written consent of Hewlett-Packard Company. 
19:S 
20:S 

21 :S RESTRICTED RIGHTS LEGEND 
22:S 

23:S Use, duplication, or disclosure by the Government 

24:S is subject to restrictions as set forth in 

25:S paragraph (D) (3) (B) of the Rights in Technical 

26:S Data and Computer Software clause in 

27:S DHR 7-104. 9(a) . 

29:S HEULETT-PnCKHRD COMPHNV 

30;D Fort Collins, Colorado > 

31 ■ S 

32:D Ssearch 'GLE^TVPES'S 

33:D SsysprogS 

33:D Sinclude 'OPTIONS'S ( «»«««*««««««««»«« COMPILER OPTIOMS «»«*»»•«•»»»***»»»»»«« ) 

34 :S 

35:S < This include file specifies range checking, debug and other compiler 

36:D options for the graphics library > 

37 : S 

38:D Sdebug OFF$ 

39:D Srange OFF$ 

40:D Scopyright 'COPYRIGHT 1984 BY HEWLETT-PPCKPRD COMPANY'S 

41 :D IFLOflT_HDU TESTS 

42:S 

43:S 

44:S 

45:3 

46:D Sinclude 'OPTIONS'S { »«««««««»«««»«»»« COMPILER OPTIONS «««««»*«««»»««««»»«««« ) 
21000:D Slinenum 21000$ 
21001:S 

21002:0 module 9le_utls; 
21003:S 

21004;D 1 import gle types; 

21005:S 

21006:D 1 export 
21007:5 

21008:0 1 function gle_read_integer ( size : gle_short int ; s : anychar_ptr; var count : gle_shortint ) : 9le_ 
s ho r t i n t ; 
21009:0 1 procedure gle_wr ite_integer { value : gle_sho rt int ; var size : gle_5hort int ; s : anychar_ptr ); 
21010:0 1 procedure gle_cop/ to_5tring [ s : anychar_ptr; si : gle_5hor t int ; var d ; string ); 
21011:D 1 function gle^matcFi ( sizel : gie_short int ; si : anycnar_ptr; 
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21012:0 2 size2 : gle shortint; s2 : anychar_ptr ) : boolean; 

21013:0 1 function gle_short int_min ( pl , p? : gle_shortint ) : 9le_5ho r t int ; 

21014:0 1 function gle^short int_max ( pl,p2 : gle_shortint ) : gle_shortint ; 
21015:E 
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21016:0 




1 


SPPGEI 




21017;D 




1 


implement 




21018:S 










21019:0 




1 


functicm gle shortint min ( pl,p2 : gle ^hortint ) : gle shortint; 




21020:S 










21021 :0 




2 


( Purpose : To return the minimum 16 bit integer } 




21022:S 










21023:C 




2 


begin 




21024:C 




2 


if pi < p2 then gle^short int_min := pi 




21025:C 




3 


else gle shortint mTn := p2;~ 




21026:C 




2 


end; ( gle_sho rt int_min > 




21027:3 










21028:0 




1 


function gle_5nortint_max ( pl , p2 : gle_5hortint ) : gle_5Hor t int ; 




21029:S 










21030:0 




2 


( Purpose : To return the maximum 16 bit integer > 




21031:S 










21032:C 




2 


begin 




21033:0 




2 


If pl > p2 then gle_5hortint_max := pl 




21034:0 




3 


else gle_shor t int_m3x := p2;~ 




21035:C 




2 


end; ( 9le_shortint_max ) 




21036:5 










21037:0 




1 


procedure gle_write_integer ( value : gle shortint; 




21038:0 




2 


var size : gle shortint: 




21039:0 




2 


s : anychar_ptr ); 




21040:3 










21041 :0 




2 


{ Purpose : To convert a 16 bit signed integer to P5CII > 




21042:3 










21043:0 




2 


var 




21044 :D 


-20 


2 


t : packed array [1..20] of char; 




21045:0 


-22 


2 


i : gle shortint; 




21046:0 


-24 


2 


temp value : gle shortint; 
digit : gle shortint; 




21047:0 


-26 


2 




21048:3 










21049:0 




2 


begin 




21050:0 




2 


temp value :■= ab5(value]; 




21051:0 




2 


i :» 0; 




21052:C 




2 


repeat 




210S3:C 




3 


J := i ♦ 1; 




21054:0 




3 


digit := temp value mod 10; 




21055:C 




3 


t[i] := chr((3igit) ♦ 48); 




21056:C 




3 


temp value := temp value div 10; 
until temp value = 0; 




21057:0 




3 




21058:0 




2 


if value < then 




21059:0 




3 


begin 

1 := i ♦ 1; 




21060:0 




3 




21061 :C 




3 


t[i] :• •-'; 




21062:0 




3 


end; 




21063:5 










21064:0 




2 


size := i; 




21085:0 




2 


for 1 := 1 downto 1 do 




21066:0 




3 


s'tsize-i-tl] :■' t [i] ; 




21067:0 




2 


end; ( write_integer } 




21068:S 










21069:0 
ort int ; 
21070:5 




1 


function gle_read_integer [ size : gle_shor t int ; s : anychar_ptr; var count : gle_shortint ) 


: gle_sh 










21071:0 




2 


{ Purpose : To convert from PSCII to a 16 bit signed integer > 




21072:5 










21073:0 




2 


var 




21074:0 


-2 


2 


value : gle_short int ; 
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21075:0 


-3 


2 


neg : boolean; 




21076:0 


-6 


2 


digit : gle :ihortint; 




21077:0 


-8 


2 


i : gle lihortint ; 




21078:0 


-10 


2 


start : gle^short int ; 




21079:3 










21080:C 




2 


begin 




21081 :C 




2 


I := 1; 




21082:0 




2 


while (s'^tH ' ' ') and ( i <= size ) do i := i * 1; 




21083:0 




2 


if i > size then e5cape(-8); 




21084:3 










21085:0 




2 


if 5''[i] ~ '"' then 




21086:0 




3 


begin 




21087:0 




3 


1 :- i + 1; 




21088:0 




3 


neg ;= true; 




21089:C 




3 


end 




21090:0 




3 


else 




21091 :C 




3 


neg := false; 




21092:0 




2 


value := 0; 




21093:0 




2 


start := i; 




21094:0 




2 


while (s'^[i] >= '0') and (s^[i] <= '9') and (i <= size) do 




21095:0 




3 


begin 




21096:0 




3 


digit := ord(s^[i]) - 48; 
value := value * 10 + digit; 




21097:0 




3 




21098:0 




3 


i :» i ♦ 1; 




21099:0 




3 


end; 




21100:0 




2 


if (i > size+1) or (i = start) then e5cape(-8); 




21101:0 




2 


count := i; { next free byte ) 




21102:0 




2 


if neg then value := -value; 




21103:0 




2 


gle read integer := value; 




21104:0 




2 


end; X rea3_integer > 




21105:3 










21106:0 




1 


procedure gle_copy._to_st ring ( s : anychar ptr; si : gle shortint; var d : string ); 




21107:3 










21108:0 




2 


{ Purpose : To convert from a packed array of char to string format > 




21109:5 










21110:0 


-2 


2 


var 1 : gle_5hort int ; 




21111:5 










21112:0 




2 


begin 




21113:0 




2 


5etstrlen(d,sl) ; 
for i := 1 to si do 




21114:0 




2 




21115:0 




3 


d[l] := s~:i]; 




21116:0 




2 


end; ( copy_to„st ring ) 




21117:5 










21118:0 




1 


function 9]e_match ( sizel : gle shortint; si : anychar ptr; 




21119:0 




2 


5ize2 : gle_short int ; 52 : anychar_ptr ) : boolean; 




21120:5 










21121:0 




2 


{ Purpose : To return true if the two packed array of char match > 




21122:5 










21123:0 


-2 


2 


var i : gle shortint; 




21124:5 










21125:0 




2 


begin 




21126:0 




2 


If sizel = size2 ^hen 




21127:0 




3 


begin 




21128:0 




3 


I := l; 




21129:0 




3 


Ipartial eval on$ 




21130:0 




3 


while li <- sizel) and (5l-^[il = 52'(il) do i := i ♦ 1; 




21131:0 




3 


gle match := i > sizel; 




21132:0 
21133:0 




3 

3 


end 

else gle match :- false; 
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21134:0 




2 


end; < match } 
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2113S:S 
21136:C 
2U37:S 

No errors. No warnings. 

**»*» Nonstandard language features enabled *«*«* 
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HDRV 



Description 

H_DRV provides low- level driver support. 



Usage 

H_DRV is used by the 98624 and built-in HP-IB interfaces. 



Requirements 

SYSGLDBALS and IDDECLARATIONS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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seal [Rev 


3. on 


l:S 




2:S 




3:S 




4;S 




S:S 




6:S 




7:S 




8:S 




9:S 




10:S 




11 :S 




12:S 




13:S 




14:S 




1S:S 




16:S 




17:S 




18:S 




I9:D 





20:S 




21:S 




22 :D 





23:D 





24 :D 





2S:D 





26:0 





27:D 
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(• 

{■:) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
rfjroduction of this program except for archival 
p(Kp05es is prohioited without the prior 
wi itten consent of Hewlett-Packard Company. 

RESIRICTED RIGHTS LEGEND 

Us'i, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
Diiragraph (b) (3) (B) of the Rights in Technical 
D.ita and Computer Software clause in 
DM 7-104. 9(a). 

Hl.lJLETT-PflCKfiRD COnPflNY 

Fo-t Collins, Colorado «) 

SnoDCPL ONI 
SPilRTIHL EVflL 0N$ 
SSrHCKCHFCK ONS 
SRiWGE OFF$ 

$di;bug 0FF$ 
sovflcheck off$ 
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28:0 $PHGE$ 

29 :S 

30 *D [**********************t***»********x***»:****************t***************) 

31:0 (• «) 

32:0 » not RELEASED VERSION 3.0 « 

33:D • «) 

35:D (• ») 

36:0 (» «) 

37:D (• lOLIB HPIB DRIVERS «i 

38:0 (• «) 

39:0 • *) 

40:0 (»x«itx«««x»*«««*s«x»»«««»):«««*«*«»»x««*««»»«««»««»»*«»»«»»««»*»*:«»»««»»x«] 

41:0 (• ») 

42:0 » » 

43:0 » library - lOLIB • 

44:0 • name - HPI8_DRIVERS « 

45:0 (* module(s) - h drv «) 

46:0 Of* - hpib «) 

47:0 • «) 

48:0 » author - * 

49:0 (» phone - *) 

50;D » « 

51:0 (» date - June 1 , 1981 « 

52:0 (* update - Aug 1 , 1983 *} 

53:0 » release - ??????????'??? » 

S4:D (« t) 

55:0 (« source - 10LIB:H DRV. TEXT «) 

56:0 (» object - IOLIB:H DRV. CODE «) 

57:0 (» «) 

58 :0 l******»***XM**»X*******»:*MX**X***X***»*****X»*******X****:^*X**»****»****S 
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* j 
BUG FIX HISTORY - after release •) 

BUG « BY / ON LOC DESCRIPTION 

367 



S9:D 
60 :D 
61:D 
62 :D 
63:0 
64 :D 
65:0 
66:0 
67;D 
68:0 
69:0 
70:0 
71:0 
72:0 
73:0 
74:S 



SPflGEI 











09/22/82 



hpib._ini t ialize Allow execute of driver *) 
and have it install 
itself in the system. 



*!t***»»»**X**X»if»*X***** 



************#»*#*»»»**»*#*« 
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75:0 
76:0 
77:0 
78:0 
79:0 
80:0 
81:0 
82:0 
83:0 
84:0 
86:0 
86:0 
87:0 
88:0 
89:0 
90:0 
81:0 
92:0 
93:0 
94:0 
96:0 
96:0 
97:0 
98:0 
99:0 
100:0 
101:0 
102:0 
103:0 
104:0 
106:0 
106:0 
107:0 
108:0 
109: 
110: 
HI: 
112: 
113: 
114: 
115: 
116: 
117: 



SPflGES 



«***»***»#««*«*««»« 



««KJ«X*X«««««»«««ll(«X 



********* 



This is the source code for an external procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



1 . 
2. 
3. 



KERNEL modules 
driver modules 
lOLIB modules 



The KERNEL modules consist of the following modules 



iodeclarat ions 

iocomasm 

general_0 



contains static r/w space ) 



[ initialization & low level 
routines like ioread/iowrite) 
The KERNEL modules also have an executable program segement 
that gets executed at the time it is loaded. This program 
initializes the static read/write memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is not a driver for it. 

The driver modules consist of the actual assembly or PflSCftL 
routines that deal with a specific interface card. There is 
also an executable program segment for each driver module. 
This program searches the select code table in the static r/w 
initialized by the KERNEL general module for all select codes 
that have the right interface car3 ( HPIB drivers will search 
for the 98624 interface ). This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLIB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 
SYSTEn.INITLIB file as object code I not EXPORT text 1. The 
export text will reside on the SYSTEn. LIBRflRV file 
of the library will reside on the SYSTEM. LIBRflRV . 



I- T 
The r 



est 



(********************************* 



******************************* 
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118:0 
119:0 
120:0 
121:0 
122:0 
123:0 
124:0 
125:0 
126:0 
127:0 
128:0 
129:0 
130:0 
131:0 
132:0 
133:0 
134:0 
135:0 
136:0 
137:0 
138:0 
139:0 
140:0 
141 :D 
142:0 



$ PAGES 
j...... 

» 

(« 

1« 

» 

[ * 

« 

» 

(• 

































t**%*Tt^*ti*%*M****.*.Z***t»i**mKm**»t**tc**M**»***M*9»*»:***********] 



1. 

2. 
3. 
4. 
5. 



9826 I/O Designers Guide 
68000 Manual 
Pascal alpha site ERS 
Pascal I/O Library ERS 
9826 HPL EIO 8 lOD listings 
9826 HPL Hisc. I/O Ooc. 
9826 card documentation 
Pascal I/O Library IRS 



Mfg. Specs. ) 



(»«»»* 



»x»xx«»x««x»««»»x*»«*««»»« 



■■******** 
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143:0 
144 :D 
145:S 
146 :S 
147:S 
148:S 
149:D 



SPflGES 

PROGRnn hpib_initialize ( 



{ This module has a program segment so that there is 
an executable entry point into the module, 
fit INITLIB time this program is executed. > 
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150 


D 


151 


D 


152 


S 


153 


s 


154 


s 


155 


s 


155 


s 


157 


s 


158 


s 


159 


s 


160 


s 


161 


s 


162 


s 


163 


D 


164 


s 


165 


D 


166 


D 


167 


S 


168 


D 


169 


s 


170 


D 


171 


D 


172 


D 


173 


D 


174 


D 


175 


D 


176 


D 


177 


D 


178 





179 


D 


180 


D 


181 


D 


182 


D 


183 


D 


184 


D 


185 


D 


186 


D 


187 


D 


188 


S 


189 


D 
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purpose This module is a declaration of the importation text for 
the external drivers. 



The assemblj/ language code that is imported reeds to be 
The routines need to be calle 
eh init referenced below woul 
'eh"^ refers to external HP-IB. 



bly 
xth' 

Kth_eh_init . 



called 'exth'. fheroutines need to be called 
'exth_?3^^^' - eh init referenced below would be 



SSEHRCH 'iaLIB:KERNEL. CODE'S 
sysglobals , iodeclarations ; 



IMPORT 
EXPORT 



PROCEDURE eh init 
PROCEDURE eh"'isr 
PROCEDURE eh~rdb 
PROCEDURE eh wtb 
PROCEDURE eh_rdw 
PROCEDURE eh wtw 
PROCEDURE eh^Vds 

PROCEDURE eh_wtc 

PROCEDURE eh tfr 
PROCEDURE eh^send 
PROCEDURE eh'ppoll 
PROCEDURE eh_c]r 
PROCEDURE eh "set 
PROCEDURE eh_test 

PROCEDURE eh_end 

END; { of exth ) 



( temp 


RNYPTR 


; 




! temp 


PISRIB 


; 




temp 


flNYPTR 


VflR X 


CHAR); 


temp 


RNYPTR 


val 


CHfiR); 


temp 


flNYPTR 


VRR X 


io word) : 


temp 


fINYPTR 


val 


io word) ; 


temp 


flNYPTR 


reg 

vfiR X 


io word; 






io word) ; 


( temp 


RNYPTR 


req 
val 


io word; 






io word ) 


temp 


RNYPTR 


bcb 


RN7PTR ) ; 


temp 


RNYPTR 


val 


CHRR ; 


temp 


RNYPTR 


VflR X 


CHAR ; 


temp 


RNYPTR 


line 


io bi ) ; 


( temp 


RNYPTR 


line 


io bit : 


( temp 


flNYPTR 


line 


io~bit ; 






VflR X 


BOffLEflN ) 


( temp 


flNYPTR 


VflR X 


eOOLEflN ) 
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190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203:D 

204 :S 

205:S 

206:D 

207:D 

208:D 

209:S 

210:S 

211:D 

212:S 

213:5 

214:D 

215:S 

216:D 

217:D 

218:D 

219:D 

220:5 

221:S 

222 :D 

223 :D 

224 :D 



225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
236 
236 
237; 
238: 
239: 
240: 
241: 
242: 
243: 
244: 
246 
246 
247: 
248: 
249; 



1 SPfiGES 



1 nODULE init hpib; 
< 



date 08/25/81 
update 12/16/82 

8/01/83 JS change rev number 

purpose This module initializes the HPIB drivers, 
iodeclarations ; 



1 EXPORT 
1 VflR 
-120 1 hpib_drivers : drv_table_type; 



-120 1 PROCEDURE io_init_hpib; 



-120 1 ihplehent 



-120 
-120 
-120 
-120 



sysglobals 

isr , 

general_0 , 
exth ; 



PROCEDURE io init hpib; 
VflR 



10_3 sc 

dummy 
io Ivl 
BEGIR 

io_revid 



type isc; 

INTEKR; 

io_byte; 



io_revid + ' H3.0' ; 



( HPIB revision added 2/5/82 TH ) 



{ set up the driver tables > 

UITH hplb^drlvers DO BEGIN 

hpib^drTvers := duminy_drivers; 



icd_Init 

iod_i5r 

iod_rdb 

lod_wtb 

iod_rdw 

iod_wtw 

iod_rds 

iod_wtc 

iod_end 

iod_tf r 

iod_5end 

iod_ppoll 

iod^set 

iod clr 

iod "test 



eh_init ; 
= eh_isr; 
= eh~rdb; 
= eh_wtb; 
= eh_rdw; 
= eh_wtw; 
= eh_rds; 
= eh_wtc; 
= eh^end; 
= eh_tfr; 
= eh_5end: 
= eh_ppoll; 
= eh_set ; 
= eh clr ; 
- eh"te5t; 
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250:C 3 END; ( of UIITH ) 

251:S 

252 :S 

253:C 2 < set up drivers for the interfaces > 

254:S 

255:C 2 FOR lo isc: =iomini5c TO iomaxisc DO 

256:C 3 WITH isc table [io.isc] DO BEGIN 

257;S 

258 :C 4 IF ( card_icl • Iip98624 ) OR 

259:C 5 ( card id = internal_hpib) 

2S0:C 5 THEN BESIN 

261 ;S 

262:C 5 io drv pt r :=RDDR (hpib drivers); 

263 :S 

264 :C 5 UITH io drv ptr", io tmp ptr" 00 BEGIN 

265:C 6 IF io isc=7 

266 ;C 7 THEH BEGIN 

267:C 7 io_lvl := 3; 

268 :C 7 END 

269:C 7 ELSE BEGIN 

270:C 7 lo lvl:=f(ioread byte(io isc, 3) OIV 16) MOD 4)-t3; 

-- - - -|D; ( of IF > 



( if the card exists then link in an ISR for it } 
< ??? - what happens if an ISR fires during init ) 



271 :C 7 END 

272:S 

273:C 

274:C 6 < ??? - what happens if an ISR fires during init > 

275:S 

276:C 6 IF rnyisr lb . INTREGRODR <> NIL 

277:C 7 THEN BEGIN 

278:C 7 ( remove any existant isr } 

279:C 7 ISRUNLINK(io Ivl, ( interrupt level 

280LC 7 ad3r(niyisrib) ) ; ( ptr to the isrib 

281 :C 7 END; { of IF ) 

282 :S 

233:: 6 PERnlSRLINK(iod isr, < isr 

284:C 6 PNYPTR (TNTEGER(card_pt r ) »3) , ( int reg addr 

285:C 6 192, ( int reg mask 

286:C 6 192, { int reg value 

237:: 6 io Ivl, { int level 

288:: 6 RDtyR{myisrib) ) ; < isrib info 

289:: 6 END; •; of UITH // DO BEGIN > 

290 :S 

291 :: 5 END; ( of IF card id > 

292:5 

293:: 4 END; { of FOR iodise UITH isc_table [io_i5c] BEGIN > 

294 :S 

295:5 

296:: 2 < call the actual driver initialization > 

297:S 

298:5 { this is seperate from the set up stuff in case 

299:5 there are 2 or more cards connected - and generate 

300:: 2 an isr ) 

301:S 

302:: 2 FOR io_isc :=lominisc TO iomaxisc DO 

303:0 3 UITH isc table[io isc] DO 

304:0 4 IF ( car3 id = hp58624 ) OR ( card id = internal hpib ) 

305:0 5 THEN BECIN 

306:: 5 CflLL(io drv pt r^ . aod_inat , io_tmp_ptr); 

307:0 5 END; ( ofuITH IF ) 

308:5 

309:5 
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310:C 2 fND; < of io_init_hpib > 

311:5 

312:C 1 END; < of MODULE init hpib ) 
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PsscaJ [Re 


V 3 


on 


6/ 4/84] H_DRV.TEXT 


313:D 




1 


SPFIGES 


314;S 








31S:D 




1 


IMPORT init hpib , 


316:D 




1 


LOflDFR ; 


317:S 








318:S 








3:8:C 




1 


BEGIN 


320 :C 




1 


io init hpib: 


321:C 




1 


MfllfKUSEl?; 


322 :C 




1 


END. < of hpib_inltialize ) 


No errors. 


No 


warnings . 



26-Dec-84 21:26:22 Page U «»» File name: H_DRV 
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< 367 Tn 9/22/82 ) 

«**«« Nonstandard language features enabled *««i» 
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HEAPT 



Description 

HEAPT supports the Pascal procedures: NEW, DISPOSE, MARK and RELEASE. 



Usage 

The Compiler emits calls to the routines when the $HEAP_DISPOSE$ directive has been turned 
on. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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Pascal [Rev 

1:S 
2:S 
3:S 


3. 


on 


6/ 1/84] HEnPT.TEXT 26-Dec-84 22:50:31 Page 1 »»» File name: HEfiPT »»» 

(» 

(c) Copyright Hewlett-Packard Company^ 1983. 
fill rights are reserved. Copying or other 










4:S 








6:S 






reprodjction of this program except for archival 




6:S 






purposes is prohibited without the prior 




7:S 
8:S 
9:S 






written consent of Hewlett-Packard Company. 












10:S 






RESTRICTED RIGHTS LEGEND 




ll:S 










12:S 






Use, duplication, or disclosure by the Government 




13:S 






is subject to rest rictiorts as set forth in 




14:S 






parjgraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 




1S:S 








16:S 






OHR 7-104. 9(a) . 




17:S 










18:S 






HEU:,ETT-PBCI<HRD COIPSNY 




19:0 







Fort Collins, Colorado *) 




20:S 










21:S 










22:D 







(» V2/83 - 3:32 pn ») 




23:D 







Smodcal .debug off, range off$ 




24 :D 







Sstackcheck offS (« 2-nar-83 -- 3:32 pm «) 




25:S 










26;D 







ext.>rnal module sysglobals; 




27;D 






e < po r t 




28:D 






var 




29:0 


-2 




escapeco: -32768 .. 32767; 




30:0 


-6 




FIBptr: integer; 




31 :D 


-10 




tryrec: integer; 




32:0 


-14 




heapmax: integer; 




33:0 


-18 




heapbase: integer; 




34:0 


-22 




ioresult: integer; 




35:0 






end; 




36:8 










37:D 






modile hc<n; 




38:S 










39 :D 






impnrt 




40:0 






heapcnax, { intege r/anypt r ) 




41:D 






heapbase; { integer/anypt r ) 




42 :S 










43:0 






expnrt 




44 :S 










4S:D 






p ocedure Hestablish; 




46:0 






p ocedure New (var object : integer ; bytesize : integer ) ; 
procedure Dispose (var object : integer ; bytesize : integer ) ; 
p-ocedure ^^a^V (var next freeword: integer ) ; 




47:0 








48:D 








49:0 






P'ocedure Release (nextfreeword : integer) ; 




60:S 










51:D 






imp iement 




62:0 






const 




53:0 






nilptr = 0; (integer equivalent of nil pointer) 
maxptr = 16777215; {biggest physical address) 
smallest = 2; {smallest allocatable object (words)) 
stdbU = 16; (largest "standard" object) 




54:0 








55:0 








56:0 








57:0 






otherlist ^ stdblk+1; (for nonstandard objects) 




58:0 






tvpe 




59:0 






stdlists " smallest . .stdblk; 




60:0 






al lists = smallest .. otherlist ; 
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61 :D 






pointer = nil pt r . .maxpt r ; 




62:0 






pointertrick = packed record 




63:0 






case boolean of 




64 :D 






true: { longform: integer ); 
false: ( highbyte: 0..255; 
lower3: pointer ) 




65:0 








66:0 








67:0 






end; 




68:0 






mp = ^memblock; 




69:0 






memblock = packed record 




70:0 






smallsize: 0. .255; 




71 :D 






link: pointer; 




72:0 






case (smallsize=0) boolean of 




73:0 






true: ( bigsize: Integer ) 




74:0 






end; 




75:0 






freearray = array [allists] of pointer; 




76:0 






dsap = -^dsa; 




77:0 






dsa = record 




78:0 






fakeone: memblock; 




79:0 






freelist: freearray; 




80:0 






wordsdisposed : integer; 




81 :D 






dirty: boolean; 




82:0 






end; 




83:S 






( 




84 :S 






piocedure Newwords (var p:anyptr; wordlen : integer) ; external; 




85:0 






) 




86:0 






ftnction longpointer (p:pointer): integer; 




87:0 


-4 


2 


var t; pointertrick; 




88 :C 




2 


begin 




89 :C 




2 


t. lowers := p; t. highbyte := 255; 
longpointer := t. longform 




90 :C 




2 




91 :C 




2 


end; 




92:5 










93:0 




1 


function shortpointer (p:integer): pointer; 




94:0 


-4 


2 


var t; pointertrick; 




95:C 




2 


begin 




96:C 




2 


t. longform := p; shortpointer := t.lowerS 




97 :C 




2 


erd; 




98:S 










99:0 




1 


function getsize [p:pointer): integer; 




100:0 


-4 


2 


var size: integer; 




101 :C 




2 


begin 




102:C 




2 


with mp(p)'^ do 




103:C 




3 


begin 




104:C 




3 


size := mp[p}''. smallsize; 




105:C 




3 


if size = then size := bigsize; 




106:C 




3 


getsize := size; 




107:C 




3 


end; 




108:C 




2 


end; 




109:S 










110:0 




1 


procedure putsize (p:pointer; size : integer ) ; 




111 :C 




2 


begin 




112:C 




2 


wit h mp(p)'^ do 




113:C 




3 


if size > otherlist then 




114 :C 




4 


begin smallsize := 0; bigsize := size end 




116:: 




4 


else 




116:C 




4 


smallsize := size; 




117:C 




2 


end; 




118:3 
119:0 




1 


procedure Hestablish; 
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120:0 




2 


const 
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**« 


121 :D 




2 


emptydsa == 




122:0 




2 




dsa [ fakeoneimemblock [small size: ( smallest -1 ] , linlt : nilptr] , 




123:D 




2 




f reel i5t : f reearray[ (otherlist -smallest+i ) of nilptr], 




124:D 




2 




wordsdisposed :0, dirtyifalse ]; 




125:D 




2 


var 






126:0 


-2 


2 


i 


: allistij; 




127:C 




2 


'^S 


in 




128:C 




2 


eyA«ords(anypt r(heapbase) , (sizeof (dsa) + l) div 2); 




129:C 




2 


d 


sap(heapbase)'^ := emptydsa; 




130:C 
131:S 
132:0 




2 


end 


; (Hestablish) 






1 


procedure recomb ine ; 




133:0 




2 


lab 


el 1,2; 




134:0 




2 


var 






135:0 


-28 


2 


f 


akeaddr,f ,g, t his , t hislink , f limit ,hiahmark: pointer; 




136:0 


-42 


2 


f 


5ize,gsi;:e,wordcoLjnt : integer; i: allists; 




137:C 




2 


beg 


m 




138:C 




2 


w 


ith dsaptheapbase)'^ do 




139:C 




3 




begin 

nighmark := sho rtpointer (heapma>« ) ; 

f ate add r := sho rt pointer (integer [ addr [fakeone) ] ) ; 




140:C 




3 






141:C 




3 






142 :C 




3 




fakeone.link := nilptr; 




143 :C 




3 




fakeone. smallsize := smallest-1; 




144:C 




3 




for i := smallest to otherlist co 




145:C 




4 




while freeli5t[i] <> nilptr dc 




146:C 




5 




begin 

f :■■'- freelistCi]; 




147:C 




5 






148:C 




S 




freelistCi] := mp( f )". link ; 




149:C 




5 




this := fakeaddr; 




150:C 




5 




thislink := mp(this]^. link ; 
while thislink <> nalptr co 




151;C 




5 






1S2:C 




6 




if thislink > f then goto 2 




153:C 




7 




else 




154 :C 




7 




begin 




155:C 




7 




this := thislink: 

thislink := mp( this )" .link; 




156:C 




7 






157:C 




7 




end: 
mp(f)^.iink := thislink; 




IS8:C 




S 


2: 




159:C 




5 




mp( this)". link := f; 




160:C 




5 




end; 




161:C 




3 




f := fakeone.link; wordcount := 0; 




162:C 




3 




while f <> nilptr do 




163:C 




4 




begin 




164:C 




4 




if highmark < f then goto 1; 




165:C 




4 




fsize' := getsize(f ) ; 




16S:C 




4 




flimit := f+f size+f size ; 




167:C 




4 




while mp(f)''.link = flimit co (adjacent) 




168:C 




5 




begin 




169:C 




S 




9 := mptfj'-.link; 




170:C 




5 




mp(f)^.link := mp (q ) "^ . li nk ; 
g-size := getsize[gT; 
flimit := g+gsize+gsize ; 




171 :C 




5 






172:C 




5 






173:C 




S 




end; (while) 




174:C 




4 




if hi'jhmark <= flimit then 




175:C 




5 




begin 

heaixiax ;= longpointer ( 1 ) ; 




17$:C 




5 






177:C 




5 




goto 1 ; 




178:C 




5 




end ; 




179:C 




4 




f;iize := (flimit-f) div 2; 




180:C 




4 




wordcount := wordcount+f size ; 
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... 


181 :C 




4 




putsize [f ,f size) : 

if fsize > otherlist then i:=otherli5t 




182:C 




4 






183:C 




5 




else i;^fsize; 




184:C 




4 




g := mp[f l^.link; 




185:C 




4 




mp[f) ".link := freelist[i] ; 
freelist[i] := f; 




186:C 




4 






187:C 




4 




f := g; 




188:C 




4 




end; (fonil) 




189:C 




3 


1 : 


dirty := false; wordsdisposed :-•-- wordcount; 




190:C 




3 




end; {with heapbase) 




191:C 
192:S 
193:0 




2 


end 


; (recombine) 






1 


procedure hreturn (p:pointer; wordlen : integer ) ; 




194:0 


-2 


2 


var 


list: allists; 




195:C 




2 


beg 


in 




19S:C 




2 


W 


ith d5ap(heapba5e)'",mp(p)'" do 




197:C 




3 




begin 




198:C 




3 




If wordlen < 




199:C 




4 




then wordlen := -wordlen 




200:C 




4 




else wordsdisposed := wordsdijposed+wordlen; 




201:C 




3 




dirty := true; 




202:C 




3 




if wordlen > otherlist then list := otherlist 




203:C 




4 




else list := wordlen; 




204 :C 




3 




put5ize(p, wordlen) ; 
link := freelist[list]; 




205:C 




3 






206:C 




3 




freelist Clist] := p; 




207:C 




3 




end; (with) 




208:C 




2 


end 


; (hreturn) 




209:S 












210:0 




1 


procedure hallocate (var p:poinler; wcrdlen : integer) ; 




211:0 


-4 


2 


var 


longp: anyptr; 




212:S 












213:0 




2 


function tryit: pointer; 




214:D 




3 


label 1,2; 




215:0 




3 


var 




216:D 


-12 


3 




temp, pre V, next: pointer; 




217:D 


-28 


3 




If rag, j, len,size: integer; 




218:C 




3 


b 


egin 




219:C 




3 




with dsapfheapbase)" do 
begin ien := wordlen; 




220 :C 




4 






221 :C 




4 




if len < otherlist then 




222 :C 




5 




begin 




223 :C 




S 




temp := freelist [len] ; 




224 :C 




S 




if temp <> nilptr then 




225:C 




6 




begin 

freelist [len] := mp( temp) ^. link; 




226 :C 




6 






227 :C 




6 




goto 1 




228:C 




6 




end; 




229 :C 




S 




end; 




230:C 




4 




Ifrag := len+smallest ; 




231 :C 




4 




for size := Ifrag to stdblk do 




232:C 




5 




begin 




233:C 




5 




temp := f reel i st [s ize] ; 




234 :C 




S 




if temp <> nilptr then 




235:: 




6 




begin 

freelist [size] := mp( i emp)" . link; 




236:C 




6 






237:C 




6 




hreturn (temp* len* len, :.en-size) ; 




238 :C 
239:C 




6 
6 




goto 1 
end; 
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240:C 




5 




end; 





Pascal [Rc-v S.OM 


241 :C 


4 


242 :C 


4 


243 :C 


5 


244 :C 


5 


245 :C 


5 


246 ;C 


5 


247 :C 


5 


248 :C 


4 


249:C 


4 


250:C 


5 


251 :C 


5 


252:C 


6 


253:C 


6 


254 :C 


5 


255 :C 


6 


256:C 


5 


257:C 


4 


258:C 


S 


259 :C 


4 


260 :C 


4 


261 :C 


3 


262 :S 




263 :C 


2 


264 :C 


2 


265:C 


2 


266 :C 


3 


267 :C 


2 


268 :C 


3 


269:C 


3 


270:C 


3 


271:C 


3 


272:C 


2 


273:S 




274 :D 


1 


27S:C 


2 


276:C 


2 


277:C 


2 


278:S 




279:D 


I 


280 :C 


2 


2ei:C 


2 


282:C 


2 


283:C 


2 


284 :S 




285 :D 


1 


286:D 


-8 2 


287 :C 


2 


288:C 


2 


289:C 


2 


290 :C 


3 


29I:C 


3 


292:C 


3 


293:C 


3 


294:C 


3 


295:C 


4 


296:C 


4 


297:C 


4 


298;C 


4 


299:C 


4 


300:C 


4 
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prev := nilptr; next := f reelisi [otherlist] ; 
while next <> nilptr do 
begin 

size := getsize{rtext ) ; 

if (size=len) or ( size>=lf rag) then goto 2; 
prev ;= next; next := rnp(next J'^. link; 
end; 
2 : temp := next ; 

if next <> nilptr then 
begin 

if prev = nilptr 

then f reelist [otherlist] ;= mp(next )'^.link. 
else mp(prev)*.link :=mp(next j'". link; 
if size <> len then 

hreturn(rext+len+len, len-size); 
end; 
1: if temp <> nilptr then 

wordsdisposed := wordsdisposed-wordlen; 
t ryit : = temp; 
end; ^with heapbase) 
end; <tryit> 

begin (hallocate) 
p := tryit; 
if {p=nilptr} and dsap(heapbase)'^.dirt y then 

begin recombine; p := tryit end; 
if p = nilptr then 
begin 

Newwordst longp, word len) ; 
p := shortpointer(integer(longp)); 
end : 
end; (nallocate) 

procedure Hark <var next freeword: pointer); 
tjegin 

nextfreeword := heapmax; 
end; 

procedure Release (next freeword : integer); 
oegin 

heapmax := nextf reeword: 

if heapbase <> nilptr then reconfibine; 

end; 

procedure New (var objec t : integer ; bytesize : integer); 

var ptr: pointer; wordsize: integer; 

begin 

wordsize := (bytesize+l ) div 2; 
if heapbase = nilptr then 

Newwords (anyptr [object ), wordsize) 
else 
begin 

if wordsize < smallest then wordsize := smallest; 
if dsap (heapbase)^ -wordsdisposed < wordsize then 

Newwords (anyptr (abject ) ^wordsize) 
else 
begin 

nailocate(ptr, wordsize) ; 
object := longpointer (pt r ) ; 
end; 
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end; 
enci; (New) 

procedure Dispose {var object : integer; bytesize : integer ); 

var ptr: pointer; wordsize: integer; 

begin 

if heapbase <> nilptr then 
begin 

wordsize := (bytesize+1) div 2; 
if wordsize < smallest then wordsize := smallest; 
ptr:=shortpointer(object) ; 
if ptr » nilptr then escape(-3); 
hreturn (ptr, word size) 
end; 
object := niipt r ; 
end; (Dispose) 



301 .-C 


3 


302 :C 


2 


303 :S 




304 :D 


1 


305 :D 


-8 2 


306 :C 


2 


307 :C 


2 


308 :C 


3 


309 :C 


3 


310:C 


3 


311:C 


3 


312:C 


3 


313:C 


3 


314:C 


3 


315:C 


2 


316:C 


2 


317:S 




318:C 


1 


319:S 





end. (heapmanager > 

No errors. No warnings, 

«K»«* Nonstandard language features enabled **«* 
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HPHIL 



Description 

HPHIL provides driver routines for the Hewlett-Packard Human Interface Link (HP-HIL). 



Requirements 

A804XDVR, SYSGLOBALS, SYSDEVS, ISR, and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 
2:S 
3:S 
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Pag 


! 1 




(c) Copyright Hewlett-Packard Company, 1984. 
fljl rights are reserved. Copying or other 






4:S 








5:S 




reproduction of tMs program except for archival 






6;S 




purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 






7:S 
8:S 








9:S 
10;S 




RESTRICTEO RIGHTS LEGEND 






11:S 










12:S 




Use, duplication, or disclosure by the Government 






13.-S 




IS subject to restrictions as set forth in 






14:S 




paragraph (b) (3) (B ) of the Rights in Technical 

Data and Computer Software clause in 






15:S 








16:S 




DBR 7-104. 9(a) . 






17:S 










18:S 




HEUiLETT-PHCKflRD COnPflNV 






19:D 





Fort Collins, Colorado *) 






20:S 










21:D 





SsysprogS 

Sstackcneck off$ Sheap dispose off$ 






22:D 









23:0 





Siocheck off$ Jrange oTf$ Sovflcheck off$ 






24:0 





Sdebug off$ 






2S:S 










26:0 





program loopinit; 






27:S 










28:0 




module hphil; { HP Human Interface Loop ) 






29:S 










30:0 




import a804xdvr, sysdevs , sysglobals, asm; 






31 :S 










32:D 




export 

FUNCTION INITLO0P:BOOLEflN; (4/6/84 SFB) 






33:D 
34 :S 
35:0 










implement 






36:0 




const 






37:0 




readctrl = hexI'FB' ; ( 8042 COnmNDS > 






38:0 




writectrl= hexf'EB' ; 






39:0 




startcmd = hex('E0' ; 






40:D 




readbusy = hex( '02' ; 






41:D 




t rigger = hex ( 'C5' ; 






42:S 










43:S 










44:0 




type 






45:0 




5tat5'1atatype = packed record { data bye with status 5 > 


46:0 




case integer of 






47:0 




:(b:byte); 






48:0 




1 :(lerror 


boolean; 




<7> 


49:0 




padding 


0. .3; 


(6 


.5) 


50:0 




polling 


boolean ; 




<4> 


61 :D 




conmand 


boolean; 




<3} 


62 :D 




devaddr 


0..7); 


<2 


■0> 


63:D 




end; 






54 :S 










55 :D 




Ipctrltype ^ packed record ( loop control byte 


> 




56 :D 




case boolean of 






57:D 




t rue : {b:byte) ; 






58:0 




false : (doreconfigure : boolean; 






69:0 




pad6,pad5 : boolean; 






60:0 




cookkbd 


: boolean; 
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61:0 
62:0 
63:0 
64:0 
65:0 
66:S 
67:0 
68:D 
69:0 
70:S 
71:0 
72:C 
73:0 
74 :C 
75:S 
76:0 
77:0 
78:0 
79 :C 
80:C 
81:C 
82:C 
83:C 

84 :C 

85 :C 
8e:C 
87;C 
88:C 

89 ;C 

90 :C 

91 :C 
92:C 
93:C 
94:S 
95:0 
96:0 
97:C 
98:C 
99:C 

C 
C 
C 
C 
C 
C 



100 

101 

102 

103 

104 

105 

106:C 

107:C 

108:C 

109:C 

110:C 

111 :C 

112:C 

113:C 

114:C 

115:C 

116:C 

117:C 

118:C 

119:C 

120:0 



1 
2 
1 
2 

1 
2 
2 
2 
2 
3 
4 
4 
4 
4 
4 
4 
4 
4 
5 
4 
4 
2 

-16 1 
1 
2 
2 
3 
4 
5 
5 
5 
S 
6 
5 
5 
5 
6 
S 
6 
5 
5 
S 
5 
S 
6 
6 
5 
5 



pad3 

noreconf ig 
noerrs 
doautopoll 



boolean 
boolean 
boolean 
boolean 



Idst atu55isr 
Idcl rio 



kbdhook type; 
procedure; 



procedure dunnydataproc (var statbyte,databyte :byte ; var done iboolean) ; 

begin end; 

procedure dunttiyopsprocfop: loopdvrop); 

b'igin end; 

procedure Icoirmand; 
C'inst 

timeout20= hexl'FE'); 

"^SlTH LOOPCONTROL" DO (4/6/84 SFB) 

if loopisok or loopinconfig then 
begin 

scndcmd (startcmd) ; 

senddat a f8 + loopdevice) ; ( cormand ft address ) 

senddata loopcmd); ( id command ) 

senddata(timeout20) ; ( 20milli sees ) 

loopcmddone: =fal5t; looperror:=false; 

sendcmd (t rigger) ; 

repeat call (Rbdpollhook ,t rue) ; 

until loopcmddone or looperror; 
end 

else looperror :=t rue ; 
end; ( Icortmand > 

{ statu56 isr for describe operation ) 

procedure descr ibedata (var statbyte.dat abyte :byte; van done :boolean) ; 
begin ( load describe record for the current loop device ) 
UITH LCOPCONTROL~ DO (4/10/84 SFB) 

with loopdevicestloopdevice] do (4/6/84 SFB) 

case devstate of 

1; begin desc rip.darray[l ] :=chr (dat abyte) ; devstate:=2; end; 
2: begin 

descrip.dar ray[2] :*chr (databyte) ; ( header byte ) 

if descrip. numaxes>0 then dev5tate:=3 

else devstate :=1 1 ; 
end; ( low order count ) 

3: begin descrip. darray [4] :=chr (dat abyte) ; devstate;=4; end; 
4: begin 

descrip. darray [3] :=chr (databyte) ; ( high order count ) 

if desc rip, abscoords then devstate:=5 

else devstate :=1 1 ; 
end; 
5..10:begin ( swap even / odd bytes ) 

desc rip. darray[devst ate- 1* (or d( odd (devstate) )*2)]:=chr(databyte): 
devstate : =devst ate*l+ord(not descrip.5izel6]: 
if (devstate>6) and (descrip. numaxes=l ) then devstate:=ll 
else 

if (devstate>8) and (desc rip. numaxes=2) then devstate :=1 1 ; 
end; 
11: begin ( prompts & buttons ) 
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121:C 

122:C 

123;C 

124:C 

125: 

126: 

127: 

128: 

128: 

130: 

131: 

132: 

133: 

134: 

135: 

136: 

137: 

138: 

139: 

140: 

141: 

142: 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

ISO: 

ISl: 

152: 

153: 

154: 

1S5: 

156: 

157: 

158; 

159: 

160: 

161: 

162; 

163: 

ie4:C 

16S;C 

166:C 

167:C 

168:C 

169:C 

170:C 

171:S 

172;C 

173:S 

174:C 

175:C 

176:C 

177:C 

178:S 

179:0 

180:0 



5 if descrip. hasprompts then desc rip.dar ray[ll ] :=chr (databyte) ; 

5 devstate;=12; 

5 end; 

5 otherwise 

5 end; < case devstate > 

2 end; ( describedata ) 



procedure rawshift; 



{ change 8042 to raw mode ) 



oldpriority 
Ctrl reg 
tempstuff 
begin 

UITH LOOPCONTROL' DO 
if not rawmode then 
hegin 



integer; 
Ipct rltype; 
byte : 



o Idprio r it y:=int level; 
setintlevel (7) 



<4/6/84 SFB> 



{ locK out interupts ) 



cmd_read_l ( re adctrl, temps tuff); ctrlreg.b:=tempstuff; 

ctrlreg.doautopoll:=false; 

ct rlreg . noe r rs ; = t me ; 

ct rlreg .noreconfig: = false; 

isendcmd (writectrl); 
senddata[ord(ctrlreg.b)); 

repeat { wait for polling to stop } 

cmd_read_l ( readbusy, loopdata) ; 
until not odd(loopdata div 4); 
rawmode : = t rue; 

set intlevel (oldpriority) ; < restore interupts ) 
end; 
end; ( rawshift ) 

procedure normshift; { change 8042 to normal mode ) 
var 



oldpriority 
ct rlreg 
tempstuff 



begin 
UITH 



integer; 
1 pc t r 1 1 ype ; 
byte; 

DO 



(4/6/84 SFB) 

{ lock out interupts } 



LOOPCONTROL-^ 
if rawmode then 
begin 

bldpriority:=intlevel; 

setintlevel(7); 

cmd reao 1 ( readct rl, tempstuff ) ; ct rlreg .b:=tempstuff; 

ctrTreg.3oautopoll:=true; 

ct rlreg .noe r rs :=t rue ; 

ct rlreg. noreconfig:=fal5e; 

sendcmd (writect rl ) ; senddat a (ord (ct rlreg -b) ) ; < start auto polling ) 

rawmode := false; 
set int level (oldpriority); 
end; 
end; < normshift } 



procedure describe; 
const 



( issue describe for loopdevice ) 
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2 
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2 
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2 
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2 
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2 
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19S:C 


» 


196:C 


( 


197:C 


( 


198:C 


» 


199:C 


t 


200:0 


2 


201:C 


2 


202 :C 


2 
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207:0 


2 
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2 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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2 
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1 


223:0 


2 
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2 


225:0 


2 
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2 


227:0 -4 


2 


228:0 -6 


2 


229:0 -8 


2 
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2 


231:C 


2 


232:C 


3 


233:C 


3 
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3 
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3 
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3 
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3 


238:C 


3 


239:C 


3 


240:C 
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va r 

oldpriority : integer; 
i : 1 . .11 ; 

begin < describe ) 
oldpriority :- int level; { lockout interupts > 

setintlevel (7) ; 
statusShook :=describedata; 

WITH LOOPCONTROL" DO {4/10/84 SFB) 

with loopdevicesl loopdevice] do 
begin 
devstate :=1 ; 
cpsproc :=durrfnyopsproc ; 
dataproc :=dummyda t aproc; 

for i:=l to 11 do descrip. dar ray [i] :=chr (0) ; { clear the record > 
loopcmd:=idcmd; 

Icommand; { send the conmand and wait for it to finish ) 
end ; 
statu s6 hook :=dunimydat aproc; 
set int level [oldpriority); 
end; { describe ) 

procedure checkloop; 
const 

readlstat = hex('Ffl'); 
var 

oldpriority 
begin 
UITH LOOPCONTRCiL 
BEGIN 
loopisok :=f9l5e; 
LOOPDflTH := 



integer; 

DO 



oIdpriority:-int level; 

setintlevel[7); 

Cfnd_read 1 (readlstat, loopdata) ; 

Joopi5okT*loopdata<l28 ; 

set int level (oldpriority) ; 



{4/6/84 SFB) 



{4/24/84 SFB > 
{ lock out interupts ) 



{4/6/84 SFB) 



END; 
end; { checklocip ) 

procedure configure; 

label 1; 

CONST 

REflO INTR riflSK = 4; {SFB 3/5/84 > 



temp : loopdvrpt r ; 
i : shortint ; 
OLDMflSK : byte:; 
begin { configure ) 
UITH LOOPCCNTROL'" DO 
BEGIN 



{ SFB 3/5/84 } 

{4/6/84 SFB) 



ChD READ UREflD INTR hflSK .OLDhftSK ) ; { SAVE OLD 804X URSK - SFB 3/5/84 ) 

CftLr(hflS(('0PSH00ir,KBDPflSK,6); { ENRBLE LOOP - SFB 3/5/84 ) 

loopdevreading:=false; { 3.0 BUG #39 3/17/84 ) 

checkloop; 

if not loopisok then goto 1; 

rawshift ; 

loopinconfig :. = t rue; 

< get device description for all (7) devices ) 
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8 
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8 
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8 
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8 
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3 
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3 
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3 
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3 
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2 
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1 


278 :C 


2 


279 .'C 


2 
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for i:=l to 7 do 
begin 

loopdevice :=i; 

describe; 

if looperror then goto 1; < kick out & wait for 5tatus5, le_conf igured > 
end; 



1 ^^^^ 
Tor i : 



find and attach drivers to devices ) 
■ =1 to 7 do 
begin 

loopdevice :=^i; 

temp : = loopd river list ; 

while temponil do 

with loopdevices [loopdevice] do 

begin 

if ( temp-^.daddrsO) or ( temp'' .daddr = loopdevice) then 

if [descrip. 2d>=temp^. lowid) and (descrip, id<=temp'^. highid) then 
begin < hook, up the driver > 
opsproc : =t emp'^.opsproc ; 
dat aproc :=temp" .dat aproc : 

^all (opsproc, re set device J ; {tell driver to reset > 
temp:=nil; { cancel the search ) 
end 

else temp:=temp" .next 
else temp:=temp".neKt; < 3.0 BUG FIX 4/6/84 > 
end; { while . . with ) 
end; { for } 

1 : loopinconfig := false; 
normshif t ; 

IF 0DD(0LDnfi3K] THEN 
CflLL(MflSKOPSHOOK,0,KBDnflSK) ; { DISABLE LOOP IF IT UflS PREVIOUSLY 

OFF - SFB 3/5/84 ) 
END; (4/6/84 SFB) 

'?nd; ( configure > 

procedure reset theloop; < clear io call > 
begin 
configure; call(oldclrio); 

280:C 2 end; 
281:5 

282:D 1 procedure endcmdproc (var statbyte,databyte: byte; van done :boolean) ; 

283:C 2 begin 

284 :C 2 UITH LOOPCOMTROL-" DO {4/6/84 SFB) 

285:C 3 BEGIN 

286 :C 3 loopcmddone := true; status6hook: =dunTnydat aproc ; 

287:C 3 loopdata :* databyte; 

288 :C 3 END; 

289:C 2 f-nd; 
290:S 

291:D 1 PROCEDURE SENDHPHILCND (OP : HPHUOP); {4/9/84 SFB) 

292:C 2 f^EGIN 

293:C 2 CfiSE OP OF 

294:C 3 RfiUSHIFTOP : RfiUISHIFT; 

295:C 3 NORMSHIFTOP : NORMSHIFT; 

296:C 3 CHECKLOOPOP : CHECKLOOP; 

297:C 3 CONFIGUREOP : CONFIGURE; 

298 :C 3 LCOnhfiNDOP : LCOMMfiND; 

299:C 3 END; 

300 :C 2 [NO; 
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procedure statu!)5i5r(var st atb yt e, dat abyte: byte; var done: boo lean); 
var status : 5tat5datat ype ; 
begin 
status. b:=dat abyte; 

UITH LOOPCONTROL* 00 {4/6/84 SFB) 
if status . lerror then 
begin 
looperror : = t rue; 
5tatLJ56hook: =dumfnydat aproc ; 
if status .b=!le_loopdown then 

loopisok : =fal5e 
else 
if Stat us .b=le_configured then 
begin < loop has been reconfigured ) 
call (oldstatus5isr,statbyte, databyte, done) ; { let keyboard proc know > 
if not loopinconfig then configure; 

loopdevreadin9:=fal5e; < 3.0 bug #39 3/17/84 > 

end; 
end 
else 
if Stat us .command then 
begin 
if status . polling then { end of polled data ) 
begin 
Stat usShook :=duFrn)ydat aproc; { ignore next data ) 
call (loopdevices [loopdevice] .opsproc , dat aended) ; 
loopdevreading:=false; ( 3.0 bug #39 3/17/84 ) 

end 
else 
begin { comnand ending ) 

St atusShook :=endcmdproc; 
end; 
end 
else 
if St atus . polling then 
begin { polling data starting ) 
{ check if device now reading 3.0 bug #39 3/17/84) 
If loopdevreading then {3.0 bug #39 3/17/84) 

call(loopdevice5[loopdevice] .opsproc, dataended) {3 .0 bug #39 3/17/84) 
else {3.0 bug #39 3/17/84) 

loopdevreading;=true; (3.0 bug #39 3/17/84) 

loopdevice :=5tat us.devaddr; 

status6hook := loopdevices [loopdevice] .dataproc; 
call (loopdevices [loopdevice] .opsproc.datastarting) ; 
end 
else 
begin { data starting for current cormand ) 

looperror:= loopdeviceostatus.devaddr; 
end; 
end ; { st at usSisr ) 

function initlooprboolean; 
begin 

IF LOOPCONTROL = NIL THEN {4/9/84 SFB) 
BEGIN 
NEU(LOOPCONTROL); {4/9/84 SFB) 

UITH LOOPCONTROL'" DO (4/6/84 SFB) 
BEGIN 
init loop:=f3l5e ; 
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'StatusSisr; 

'dummydat aproc ; 

=cleariohook; { save old hook > 
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4 rawmode :=fal5e; 

4 loopisok :=false; 

4 if kbdtype=itfkbd then 

5 begin 

5 oldat atiJsSisr :=status5hook ; { save old hook > 

5 statu s5 hook:--'-'-'"'-- 

S status6hook : 

5 oldclrio : 

5 cleariohook : = reset the loop; 

5 HPHILChDHOOK:=SENDHPHILCMD; {4/9/84 SFB> 

5 configure ; 

5 initloop := t rue ; 

5 end; 

4 END; (UITH LOOPCONTROL") 

3 END {IF LOOPCONTROL = NIL) 

3 ELSE 

3 BEGIN <4/9/84 SFB) 

3 CONFIGURE; (IF INITLOOP RLREflDY DONE JUST CONFIGURE) 

3 INITLOOP := FALSE; {DON'T MPRKUSER) 

3 END; 

2 end; { initloop > 

1 end; { loopinterf ace module > 

1 import hphil J loader ; 

1 begin 

1 if initloop then markuser; 
1 end. 

No errors. No warnings. 

*»*** Nonstandard language features enabled ***** 
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INIT 



Description 

INIT contains the following: 

• ISR: Installs and removes interrupt service handlers using ISRIBs. 

• MISC: Miscellaneous support utilities and DAM for unblocked devices. 

• FS: File support routines. The IMPLEMENT portion of the listing has been suppressed due 
to the proprietary nature of the software. 

• INITUNITS: Creates the unit table. 

• LDR: Interface to Loader and miscellaneous support. 

• SETUPSYS: The initialization. 



Usage 

INIT is used by the operating system (OS) kernel (in INITLIB). 
Many routines in FS are called directly by compiler generated code. 



Notes 

Includes: ISR, MISC, FS, INITUNITS, LDR and SETUPSYS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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(c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
i=. subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data ana Computer Software clause in 
DfiR 7-104. 9(a) . 

HEULETT-PftCKARD COMPflNY 

FcrtCoIlins, Colorado *) 



$modcal$ 

$heap_dispose off$ 

liocneck off$ 

Irange off$ Jovflcheck off$ 

J^ebuq offj 

SstacCcheck off$ 

Isearch 'INITLOflO', 'flSM'S 

program setupsys (input , output, keyboard, listing); 

1 Sinclude 'ISR'S; 
1 module isr; 

1 iff port sy5globals,asm; 

1 export 

1 procedure isrlink (procent ry 

2 iint regaddr 
2 lintregmask 
2 lint regvalue 
2 lintjevel 
2 isribp 

1 procedure permisrlink (procent ry : isrproctype; 

2 lintregaddr : charptr; 
2 lint regmask : byte; 
2 lintregvalue : byte; 
2 lintlevel : byte; 



isrproctype; 

charpt r; 
byte; 
byte ; 
byte ; 
pisrib) ; 



isribp 



1 procedure is runl ink ( 1 int level 

2 isribp 



1 procedure isrchange (procent ry 

2 isribp 



1 implement 



pisrib ) ; 

byte; 
pis rib) ; 

isrproctype ; 
pisrib] ; 
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C 


89 


c 


90 


c 


91 


s 


92 


c 


93 


c 


94 


c 


95 


c 


96 


c 


97 


s 


98 


c 


99 


c 


100 


c 


101 


c 


102 


c 


103 


c 


104 


c 


105 


c 


106 


s 


107 


c 


108 


c 


109 


c 


110 


s 


111 


D 


112 


D 


113 


D 


114 


D 


115 





116 


S 


117 


C 


113 


C 


119 


c 



3. on 6/ 4/84] ISR.TEKT 



1 
2 
2 
2 
2 
2 
2 begin 



ocedLire isrlink(procentry 

lint regaddr 
lint regmask 
lint regvalue 
lintlevel 
isribp 
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isrproctype; 
charpt r; 
byte; 
byte; 
byte; 
pisrib) ; 



with isribp^ do 
begin 

int regaddr 
int regmask 
int regvalue 
proc 
link 
end ; 
interruptt able [lintlevel] :=i5ribp; 



:= lintregaddr; 

:= lintregmask; 

:= lint regvalue; 

:= procent ry; 

:* interrupttabJe [lintlevel] ; 



procedure permisrlink (procent ry 

lint regaddr 
lint regmask 
lint regvalue 
lintlevel 
isribp 



isrproctype ; 
charpt r ; 
byte ; 
byte; 
byte; 
pisrib) ; 



nxt link 

plinkp 



pisrib; 
''pisrib; 



2 begin 

2 nxtlink ;= interruptt able [lint level]; 

2 plinkp := addr(interrupttable[lintlevel]); 



^hile nxtlink <> perminttable [lintlevel] do 
begin 

plinkp := addrjnxtlink^.link); 



end; 

vit h isribp" do 

begin 

ant regaddr 
int regmask 
int regvalue 
proc 
link 

end; 



xtlink'-link; 



lint regaddr ; 
lint regmask ; 
lint regvalue; 
procent ry; 
nxtlink; 



2 plinkp"" ;= isribp; 

2 perminttable [lint level] ;= isribp; 
2 end; 

1 procedure is runlink (lint level : byte; 

2 isribp : pisrib) ; 
2 var 

2 nxt link : pisrib; 
2 plinkp : '"pisrib; 

2 begin 

2 fixtlink :- inter rupt t able [lint level] ; 

2 plinkp := addr [inter rupttable [lintlevel]]; 
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120: 

121: 

122: 

123: 

124: 

125: 

126: 

127;C 

128:C 

129:C 

130:C 

131:S 

132:C 

133:" 

134: 

135: 

136: 

137: 

138: 

139: 

140: 

141: 

142:C 

143:C 

144:C 

145;C 

146:C 

147:S 

148:C 

149:S 

1S0:C 

ISO: 

151: 

152: 

153: 

154: 

155: 

156: 

157: 

158: 

159: 

160; 

161: 

162: 

163: 

164: 

165: 

166: 

167:0 

168:0 

169:0 

170:0 

171:0 

172:0 

173:0 

174:0 

17S:S 

176:0 

177:0 

178:3 



while [nxtlink <> nil) and (nxtlink <> isribp) do 
begin 

plinkp := addr (nxtlink^. link ) ; 

nxtlink := nxtlink". link ; 
end; 

if nxtlink <> nil then 
begin 

if perminttabletlintlevel] = nxtlirk then 
permint table[lintlevel] := nxt lirk"^. link ; 



plinkp"" 
end; 



nxtlink", link; 



2 end; 

1 procedure isrchange (procent ry : isrproctype; 

2 isribp : pisrib) ; 
2 var 

2 saveintlevel: integer; 

2 begin 

2 saveintlevel : =int level : 

2 setintlevel (7) ; {disable all interrupts) 

2 with isribp" do proc :=procent ry ; 

2 setintlevel (saveint level 1 : 

2 end; 

1 end {module isr) 

2 Sinclude 'ISR'$; 
$include 'msC'l; 

module misc; {homeless orphans} 

import sysglobals, asm; 
export 




type 

(« CfiTHLOGUE INFORMfiTION, zero entry refers to the directory Itself 
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179: 

180: 

181: 

182; 

183; 

184 ; 

185; 

186; 

18 

188:0 

189:0 

190:0 

191 :D 

192;S 

193;S 

194:0 

19S;S 

196:0 



197: 

19 

199: 

200: 

201: 

202: 

203: 

204:0 

205 :S 

206: 

207: 

208: 

208: 

210: 

211; 

212; 

213: 

214: 

215: 

216: 

217:5 

218:5 

219:0 

220:3 

221 :D 

222:C 

223 :C 

224 :C 
225:3 
226:0 
227:0 



228 

229 

230 

231 

232 

233 

234 

235:C 

236:C 

237:C 

238:C 



cname ; 
ceft : 
ckind : 
cpsize : 



tid; 
short int ; 
filekind; 
integer ; 



{name of file or directory) 
{external 
{file kind 
{ physical 



file or directory) 
file type (LIF)) 



3) 



clsize: integer; {logical s 



cstart: integer; {starting 

cblocksize; integer; 
ccreatedate, clastdate: 
ccreatetime, clasttime: 
cext ral , 



or 
{size of a 
daterec; { 
timerec; { 
{extension 



cextra2: integer; {secondary 

or 
cinfo: string[20]; {comment o 

end; 

passentry = record 

pbits; integer; 
pword; passtype; 
end; 



size of file 

of total data space on volume) 
ize of file 

unused space on medium) 
location of file 

first possible data location) 

sector or block) 
reation, last modified dates) 
reation, last modified times) 

total possible number of files 
requested number of files) 
discretionary field 
start index of requested catalog) 
• miscellaneous information) 



idle: byte; 



{ idle character 



3.0 bug jws 3/20/84 ) 



procedure getioer rmsg(var s :string; lastior ; integer); 

procedure pr interror (er rorcode, lastior; integer); 

procedure upc(var s: string]; 

function ueovbytes(unit ; unltnum); integer; 

procedure unblockeddam(anyvar f: fib; unum: unitnum; request: damrequesttype) ; 

procedure initf ilekinds ; 

procedure lockup; 

procedure lockdown; 

implement 

procedure lockup; 
2 begin 

2 locklevel :=■ locklevel ♦ 1; 
2 end; 

1 procedure lockdown; 

2 var saveio; integer; 
2 saveec: shortint; 
2 begin 

2 locklevel := locklevel - 1; 

2 if locklevel = then 

3 begin 

3 saveio := ioresult; 

3 saveec ;= sysescapecode; 

3 while act ionspending > do 

4 begin 

4 call (defer red act ion [act ions pending]]; 
4 actionspending := ac t ionspending - 1; 
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239:C 


4 


end; 








240:C 


3 


loresult := saveio; 








241 :C 


3 


f. ysescapecode :- saveec; 








242:C 


3 


end; 








243:C 


2 


end; 








244 :S 












245:S 












246:0 


1 


procedure upc(var s: string 


; 






247 :D 


-2 2 


var i: shortint; 








248:D 


-3 2 


c: char; 








249 :C 


2 


begin 








250;C 


2 


for i := 1 to strlen(s) do 








251:C 


3 


begin 








252 :C 


3 


c ;=■ s[i]; (this 


assignment saves two or three subscripts) 




253:C 


3 


if (c >= ' a' ) and [c <= 


z' 


then 5[i] := chr (ord(c)t (ord( 'fl' ) -ord ( 'a' ) ) ) ; 




254 :C 


3 


end; 








255 :C 


2 


end; 








256 :S 












257:0 


1 


function ueovbyte!3(unit : unitnum): integer; 




258:0 


2 


label 1; 








259:0 


-4 2 


var return bytes: integer 








260:0 


-8 2 


saved loresult: inteqer; 
saved reportbit: boolean 






261:0 


-9 2 






262:0 


-12 2 


tracks: shortint; 








263:0 - 


674 2 


f: fib; 








264:5 












265:0 


2 


function try t racks ( numbe r of 


racks: shortint): boolean; 




266:C 


3 


beqin (try tracks) 








267:C 


3 


T.fpeof := number of t racks* (30»2S6) -unitable'Cunit] .byteoff set : 




268:C 


3 


f.funit := unit; f.fiTeid 


• = 


0: 




269:C 


3 


call (unitable^tunit] .tm, 


addr(f), readbytes, f.fbuffer, 256, f .fpeof-512) ; 




270:C 


3 


if ioresult=0 then 








271:C 


4 


begin 








272:C 


4 


return bytes := f.fpeof; 


( «< desired side-effect! ) 




273:C 


4 


try tracks := true 








274:C 


4 


end (If) 








27S:C 


4 


else 








276:C 


4 


try tracks := false 








277:C 


4 


end; (try_tracks) 








278:5 












279:C 


2 


beain (ueovbytes) 








2eO:C 


2 


with unitable"[unit] do 








281 :C 


3 


if not uisblkd then ueovbytes 


:= maxint 




282:C 


4 


else if (lettero'H') and (lettero'F') then ueovbytes :- umaxbytes 




283:C 


5 


else 








284 :C 


5 


begin 








285 :C 


5 


saved reportbit := ureportchange; ureportchange := false; 




286 :C 


5 


saved ioresult := ioreSL 


It 






287 :C 


5 


return bytes := 0; 




(in case none of the tries succeed!!!) 




288 :C 


5 


if letter>'H then 








289:: 


6 


if try tracksdSO) then goto 1; (OS disc init'ed by a 9895) 




290 :C 


5 


for t racks := 61 to 67 do 






291 :C 


6 


if not try 1 racks (t racks 


then goto 1; (SS disc init'ed by a 9885) 
(goto 1); (SS disc init'ed by a 8895) 




292 :C 


5 


if not try trscks(73) ir 


en 




293:C 


5 


1: ioresult := saved ioresi 


It 






294 :C 


5 


ureportchange := saved reportbit; 




295 :C 


5 


if return_bytes<=umaxbyt 


es 


then ueovbytes := return bytes 




296 :C 


6 






else ueovbytes := umaxbytes; 




297 :C 


5 


end; 








298 :C 


2 


end; (ueovbytes) 
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299 :S 












300:0 


1 


procedure getioer rmsg (var s 


: string; lastior : integer); 




301:0 


-4 2 


var dummy: integer; 








302:C 


2 


begin 








303:C 


2 


case lastior of 








304:C 


3 


ord (inoerror 


S 




'(no I/O error reported)'; 




305:C 


3 


ord(zbadblock 






'block parity error' : 




306;C 


3 


ord (ibadunit 






'illegal unit number' ; 




307:C 


3 


ord (zbadmode 






'illegal ID request'; 




308:C 


3 


ord (zt imeout 






'device timeout'; 




309:C 


3 


ord (ilostunit 






'volume has gone off-line'; 




31C:C 


3 


ord(il05tfile 






'file lost in dir' ; 




311:C 


3 


ord(ibadtitle 






'bad file name'; 




312:C 


3 


ord(inoroom 






'no room on vol' ; 




313:C 


3 


ord (inounit 






'logical volume not found'; 
'file not found' ; 




314:C 


3 


ord inof ile 








31S:C 


3 


ord idupfile 






'dup dir ent ry ' ; 
'file already open' ; 




316:C 


3 


ord inotclosed 








317:C 


3 


ord inotopen 






'file not open'; 




318:C 


3 


ord(ibadformat 






'bad input format'; 




319;C 


3 


ord znosuchblk 






'block number out of range'; 




320:C 


3 


ord znodevice 






'device absent or unaccessible' ; 




321 :C 


3 


ord zinitfail 






'medium formatting/sparing failed'; 




322:C 


3 


ord zprotected 






'medium is write protected'; 




323:C 


3 


ord(zstrangei 






'unexpected interrupt'; 




324 :C 


3 


ord (zbadhardware 






'hardware fault'; 




325:C 


3 


ord zcatchall 






'unrecognized error state'; 




326:C 


3 


ord zbaddma 






'Dm absent or unavailable , 




327 :C 


3 


ord inotvalidsize 






'file size not compatible with type'; 




328:C 


3 


ord inotreadable 






'file not opened for reading'; 




329:C 


3 


ord inotwriteable 






'file not opened for writing'; 




330:C 


3 


ord ( inotdi rect 






'file not opened for direct access'; 




331 :C 


3 


ord(idirfun 






'no room in directory'; 




332:C 


3 


ordiistrovfl 






'string subscript out of range'; 




333 ;C 


3 


ordfibadclose 






'bad file close string parameter'; 




334 :C 


3 


ord (ieof 






'tried to read or write past eof; 




335 :C 


3 


ord (z uninitialized 






'medium uninitialized'; 




336 :C 


3 


ordfznoblock 






'block not found'; 




337:C 


3 


ordfznotready 






'device not ready or medium absent'; 




338:C 


3 


ordfznomedium 






'medium absent ' ; 




339:C 


3 


ord f inodirecTory 






'no directory on volume'; 

'file type illegal or does not match'; 




340:C 


3 


ord(ibadfiletype 








341:C 


3 


ord (ibadvalue 






'parameter illegal or out of range'; 




342;C 


3 


ord (icantstretch 






'file cannot be extended'; 




343:C 


3 


ord (ibadrequest 






'undefined operation for unit/file'; 




344 :C 


3 


ord(inotlockable 






'file not lockable'; 




345:C 


3 


ord(ifllelocked 






'file already locked'; 




346 :C 


3 


ord(if ileunlocked 






'file rot locked'; 




347:C 


3 


ord (idi rnotempt y 






'directory not empty' ; 




348:C 


3 


ord { itoomanyopen 






'too many files open on device'; 




349:C 


3 


ord(inoaccess 






'access to file not allowed'; 




350 :C 


3 


ord(ibadpa5S 




; = 


'invalid password' ; 




351 :C 


3 


ord (i f ilenotdir 




: = 


'file is not a directory'; 




352:C 


3 


rd ( inotondir 




: = 


'operation not allowed on directory'; 
'cannot create /UORKSTRTIONS/TEMP FILES'; 
'unrecognized SRn error'; 




363:C 


3 


rd ( ineedtempdir ) 
ordiisrmcatcnall ) 




: = 




354 :C 


3 




; = 




355 :C 


3 


ord [zmediumc hanged) 




: = 


'medium may have been changed'; 




356:5 
3E7:C 


3 


ot herwise 
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35S:C 


3 


begin set St r len ( s 


,0); 
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358 :C 3 


360 :C 3 


361 :S 


362 :C 3 


363 :C ?. 


364 :S 


365:0 1 


366:0 2 


367:0 -164 2 


368:0 -164 2 


369:0 -164 2 


370 :C 2 


371 :C 2 


372:S 


373 :C 2 


374 :C 3 


375 :C ;i 


376 :C :i 


377:: 3 


378 :C 4 


378 :C 4 


380 :C * 


381 :C 4 


382 :C 4 


383 :C 4 


384 :C 4 


38S:C 4 


386 :C 4 


387 :C 4 


383:3 


389 :C 4 


390:S 


391 :C 4 


392 :C 4 


393:C 4 


394 :C 4 


395 :C 4 


396 :C 4 


397 :C 4 


398:C A 


399:C 4 


400 :C 4 


401 :C 4 


402;C 4 


403:C 4 


404 :C 4 


405:C 4 


406:C 4 


407:C 4 


408:C 4 


409:C 4 


410:S 


411:C 4 


412:C 4 


413:C 4 


414:C 3 


415:C 3 


416:C 3 


417:C 3 


418:C 3 
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end; 



strwrite[s, 1, dummy, 'ioresult was 



lastior :1 ) ; 



end (•10 ERRORS*) ; 
2 end; 

procedure printerrorferrorcode, lastior : integer) 

label I; 

var s,5t: string[803: 

excp_line ['excp_line'] : integer; 

excp_pc [' excp_pc' ] : integer; 
begin 

writeln(cteol,bellchar); write (cteol); 



if er 

wri 

else 

begi 

ca 



-1 

-2 

-3 

-4 

-S 

-6 

-7 

-8 



rorcode > then 

teln (out put.'Rb normal terminat ion . 



Halt code ' ,er rorcode :1 ) 



errorcode of 

= 'normal termination not cau<3ht by GO'; 

~ 'abnormal termination not caught by GO' 

= 'not enough memory'; 

= 'reference to NIL pointer'; 

= 'integer overflow'; 

= 'divide by zero' : 

= 'real math overflow'; 

= 'real math underflow ; 

= 'value range error'; 

- 'case value range error'; 



-10: getioerrms9(s, lastior] 



(» IORESULT <> «) 



-U 
-12 
-13 
-14 
-15 
-16 
-17 
-18 
-19 
-20 
-21 
(•-22 
-23 
-24 
-25 
-26 
-27 
-28 
-29 



s := 'CPU word access to odd address'; 

s := 'CPU bus error'; 

s := 'illegal CPU instruction'; 

s :« 'CPU privilege violation'; 

s := 'bad argument: SIN/COS'; 

s := 'bad argument: LN'- 

5 := 'bad argument: SORT'; 

s := 'bad argument: real/BCD conversion'; 

s := 'bad argument: BCD/real conversion'; 

s := 'stopped by user'; 

s := 'unassigned CPU trap'; 

»•»«».««»»«««»« call to debugger 
goto 1; («*««*««« give no message 

s := 'macro parameter not 0..9 or P..Z'; 

s := 'undefined macro parameter'; 

s := 'I/O routine error'; 

s := 'graphics routine error'; 

s := 'ram parity error'; 

5 := 'misc floating pt hardware error'; 



ot herwise 

s := 'undocumented error' 
end; f«CBSE ERRORCODE*) 
writeln(output. 



writeln ( 'er ror '.errorcode:! 
if excp line >= 6 then write 
writelnX'PC value: 



: ',!,cteol) 
line number: 
cp_.pc:l); 



write (cteol) ; 
' ,excp_line : 1 



Pascal [Rev 3.0M 6/ 4/84] nlSC.TEXT 



26-Dec-E4 21 :04:28 Page 



*» File name: INIT *«« 



419: 

420: 

421 : 

422: 

423: 

424: 

425: 

426:D 

427:0 

428:0 

429:C 

430:C 

431 :C 

432:C 

433:C 

434:C 

435:C 

436:C 

437:C 

438: 

439: 

440: 

441: 

442: 

443: 

444: 

445: 

446: 

447: 

448: 

449: 

450: 

451: 

452: 



453:C 



4S4: 

455: 

456: 

457: 

458: 

459: 

460: 

481:C 

462:C 

463 :C 

464:C 

465;C 

456:C 

467:C 

468:C 

469:C 

470:C 

471:C 



472 
473 
474 

475 
476 
477 
478 



3 end; 

2 1: end («PRINTERROR«) 



-2 1 [»DIRECTORY PCCESS METHOD FOR DIRECT UNIT OPEN, HSSUnES NO DIRECTORY ») 



procedure uni 
type vidptr 
var buf: sho 
begin 

ioresult := 

with f, unit 

case reques 

St retchit , 

purgef ile , 



stripname: begin 



blockeddam(anyvar 

■ id; 
rtint ; 



able''[unum] do 
t of 



getvo lumen 
setvolumen 
openunit , 
open volume 
c reatef ile 
openf ile : 



If 5trlen(ftitie) > tidleng then 
begin 

ioresult := ord ( ibadt it le 
5etstrlen(ftid,0); 
end 
else 

ftid := ftitle; 
5et5trlen(ftitle,0); 
end; 
ame: vidpt r (addr (f ) )^ := uvid; 
ame : uvid := vidpt r (addr (f ) )'; 



fib; unutn: unitnum; request: damrequesttype) ; 



(can't do anything) 

frothing to do); 

(changed stripname for version 2.2 on 4-nay-83) 

'move ftitle to ftid and set ftitle to null) 



begin 
fileid 
urepor 
if req 
else 
else 



urepor 
fleof 
f isnew 
if 



else i 
else 



= 0; 
tchange := false; 

uest = openunit then fpeof := umaxbytes 
f not uisbll<d then fpeof :- maxint 
begin 

FPEOF := hflXINT; {CHfiNGED FOR 9122 4/11/84 SFB) 
call(tm, addr(f), readbytes, buf, 2. 0); (TOUCH DISC) 
(UNITBBLE^[UNUrl] .UtlPXBVTES URS VflLIOfiTEO BY Th CPLL - 
IE DISC CONTROLLER SENT PRESENT HEDIfi VALUE IF SMBRT 
ENOUGH) 
fpeof :- ueovbyte5(unum) : (MOVED 4/11/84 SFB) 
(UEOVBYTES SET TO UMflXBYTES IF BLOCKED S NOT 9885/9895) 
end; 
tchange := true; umediavalid ;= true; 
:= fpeof; 
:- false; 

not uisblkd then 

not fistextvar then am 

else am 

f not fbuffered then am 

not fistextvar then am 

else am 



serialtextamhook 
amtable"[untypedf ile] 
amt able''[dataf ile] 
amtable' [f kind] ; 



otherwise ioresu] 
end ; 



t := ord(ibadreque5t j 
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479:S 

480:D -2 1 (« SCCESS HETHOD FOR UNBUFFERED TRANSFERS «) 

481 :D -2 1 (updates fpos, checks logical limits of file, calls "stretch" if necessary) 

482;S 

483:D 1 proi:edure unbuf fedam(fp; fibp; request: amrequest type; 

484:D 2 anyvar buffer: window; buffsize, position: integer); 

485:D 2 labirl 1; 

486:C 2 beg in 

487:C 2 with fp", unitable~[f unit ] do 

488:C 3 cjse request of 

489:C 4 i eadbytes .writebytes ; 

490;C 4 begin 

491 :C 4 fpos := position + buffsize; 

492:C 4 if fpos > fleof then 

493:C 5 if ( request=readbytes) then begin ioresult := ord(ieof); goto 1; end 

494:C 6 else 

49S:C 6 begin 

496:C 6 if fpos > fpeof then 

497:C 7 begin 

498:C 7 calKdam, fp", funit, stretchit); 

499:C 7 if fpos :* fpeof then begin ioresult := ord(ieof); goto 1; end 

500:C 8 end; 

501 :C 6 fleof := fpos; fmodified := true; 

S02:C 6 end; 

503:C 4 call{tm, fp, request, buffer, buffsize, position); 

504:C 4 end; 

505:C 4 'lush: call(tm, fp, request, buffer, buffsize, position); 

S06:C 4 citherwise ioresult := ord(ibadrequest ) ; 

507:C 4 end; 

508:C 2 1: 

509:C 2 end: 

S10:S 

511:S 

512:D -2 1 (» ACCESS METHOD FOR SERIAL TEXT INPUT DEVICES «) 

513:D -2 1 {converts a carriage return character to an 'end of line' indication) 

S14:S 

515:D 1 procedure serialtextam( fp: fibp; request: amrequest type; 

516:D 2 anyvar buffer: window; buffsize, position: integer); 

S17:D -4 2 var i: integer; 

518:C 2 begin 

519:C 2 with fp", unitable"[f unit) do 

520:C 3 begin 

521:C 3 Cdll[lm, fp, request, buffer, buffsize, position); 

522:C 3 ii ioresult = ord (inoer ror ] then 

523:C 4 if request = readbytes then 

524:C 5 begin 

S2S:C 5 feoln :« buffer [buffsize-1 ] = eol; 

526:C 5 for i :=: to buffsize - 1 do if buffer [i]=eol then bufferd] := ' '; 

527 :C 6 end; 

S28:C 3 end; 

529:C 2 end, 

530:S 

S3I:D -2 1 (» fiCCESS METHOD FOR OBTfl FILES »l 

532:D -2 1 { acr omplishes general purpose buffering) 

533:S 

534:D 1 procedure st andardam( fp: fibp; request: amrequest t ype; 

535;D 2 anyvar buffer: window; buffsize, position: integer); 

536:0 2 label 1,2: 

S37:D 2 var lastblock, block, oldfleof, oldfpos, <rdq) 

538:0 -38 2 firstpos, firstbytes, middiebytes, endbytes, i: integer; 
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539:D -37 2 c: char; 

640 :S 

541:0 2 procedure flushbuffer; 

542:0 -4 3 var bufsize: integer; 

543:C 3 begin with fp" do 

544:C 4 jr fbufchanged <block buffer has been written) then 

545:C 5 begin 

546:C 5 bufsize := fleof - flastpos; 

547:C 5 if bufsize > fblksize then bufsize := fblksize; 

548:C 5 call (unitable"[f unit ] . tm, fp, writebytes, fbuffer, bufsize, flastpos); 

549:C 5 if ioresult <> ord [ inoerror ) then goto 1; 

550;C 5 fbufchanged := false; 

551:C 5 end; 

552:C 3 end; 

553 :S 

5S4:D 2 procedure fetchbuffer; 

555:D -8 3 var i, bufsize: integer; 

556:C 3 begin if blockolaslblock then with fp^ do 

SS7:C 5 begin 

558;C 6 flushbuffer; 

559:C 5 lastblock := block; flastpos := lastblockJfblksize; 

S60:C S bufsize := oldfleof - flastpos; 

561 ;C 5 If bufsize <= then bufsize := else 

S62:C 6 begin 

563:C 6 if bufsize > fblksize then bufsize := fblksize; 

664:C 6 call (unit able" [funit] . tm, fp, readbytes, fbuffer, bufsize, flastpos); 

S65:C 6 if ioresult <> ord( inoerror ) then goto 1; 

566 :C 6 end; 

567:C 5 (or i := bufsize to fblksize-l do fbuffer(i] := chr(O); 

568:C 5 end; 

569:C 3 end; 

S70:S 

571 :C 2 begin with fp" do 

572:C 3 begin 

573:C 3 ioresult := ord ( inoerror ) ; 

574:C 3 oldfleof := fleof; oldfpos :» fpos; (rdq) 

575:C 3 case request of 

S7e:C 4 flush: begin 

677:C 4 flushbuffer: 

678:C 4 call(unitabie"[funit] .tm, fp, flush, fp", 0, 0); 

579:C 4 end; 

580:C 4 writeeol: begin 

681 :C 4 c := eol; 

582:C 4 5tandardam(f p, writebytes, c, 1, position); 

583:C 4 end; 

584:C 4 readtoeol: 

585:C 4 begin 

S86:C 4 middiebytes := 0; 

587:C 4 fpos := position; 

588:C 4 if buffsize > fleof - position then buffsize := fleof - position; 

589:C 4 lastblock ;= [flastpos - flastpos mod fblksize) div fblksize; 

590:C 4 while buffsize > do 

591 :C 6 begin 

692:C S block :- fpos div fblksize; 

593:C 5 fetchbuffer; 

594:C 5 firstpos := fpos - flastpos; 

595:C 5 firstbytes := fblksize - firstpos; 

596:C 5 if firstbytes > buffsize then firstbytes := buffsize; If CAA 

597:C S for i := to firstbytes-1 do 11-OUU 

598:C 6 if fbuf f e r [f i r 5 t pos+i] =eol then 
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599;C 


7 


600:C 


5 


601:C 


5 


602 :C 


5 


603 :C 


5 


604 :C 


5 


605 :C 


4 


606 :C 


4 


607 ;C 


4 


608 :C 


4 


609 :C 


4 


610:C 


4 


6U:C 


4 


612;C 


5 


613:C 


6 


ei4;C 


6 


61S:C 


6 


616:C 


7 


617:C 


7 


618:C 


7 


619;C 


8 


620 :C 


3 


621 :C 


7 


622 :C 


6 


623:C 


6 


$24 :S 




625:C 


4 


626:C 


5 


627:C 


4 


628:C 


4 


629:C 


5 


630:C 


15 


631 :C 


6 


632;C 


6 


633:C 


6 


634 :C 


15 


635:C 


5 


636:C 


5 


$37:C 


5 


638:C 


6 


639;C 


(5 


640 :C 


5 


641 :S 




642 :C 


5 


643:C 


15 


644 :C 


6 


645:C 


6 


646;C 




647 :C 




e48;C 




649:C 




650:C 




651 :C 




652 :C 


6 


653 :C 


6 


654 :C 


6 


655 ;C 


6 


656:C 


6 


657:C 


7 


658 :C 


7 
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fpos:^oldf pos; goto 1; end 



atretchit ) ; 

rd (ieof ) ; fpos 



oldfpos; 



begin firstbytes := i; buffsize := i; goto 2; end; 
2: move left (fbuffer [first pos] , buffer [l+middlebytes] , firstbytes) ; 
rniddlebytes := middlebytes + firstbytes; 
fpos := fpos + firstbytes; 
buffsize := buffsize - firstbytes; 
end; 
buffer[0] := chr [middlebytes ) ; 
if middlebytes>0 then fp^.feoJn := false; 
end; 
readbytes^writebytes: 
begir 

fpos := position * buffsize; 
if fpos > fleof then 
if (request = readbytes) then 

begin <feoln := true;) ioresult := ord(ieof) 
else begin 

if fpos > fpeof then 
begin 

call (unit ablc^Cfunit]. dam, fp^, funit 
if fpos > fpeof then begin ioresult : 
goto 1; 
end; 
end; 
fleof := fpos; fmodified := t rue; 
end; 

if flastpos < then lastblock := -1 
else lastblock ;= flastpos div fblksize; 
block := position div fblksize; 

if (buffsize=l) and (block=la5tblock ) {the most corrmon easel) then 
if request = readbytes then bufferfO) :« fbuffer [position mod fblksize] 
else begin 

fbuffer[posit ion mod fblksize] := buffer[0]; 
fbufchanged := t rue; 
end 
else 
begin 

firstpos := (-position) mod fblksize; 
if firstpos >= buffsize then 

begin firstbytes := buffsize; endbytes := 0; end 
else begin firstbytes := firstpos; sndbytes :=fpos mod fblksize; end; 
middlebytes := buffsize - firstbytes - endbytes; 

if firstbytes > then 
begin 

fetchbfjf fer ; 
if request=readbytes 

then moveleft (fbuffer [fblksize~f irstpos] , buffer, firstbytes) 
else 

begin 

moveleft (buffer, fb uf fe r [fbll- si je -first pos], firstbytes); 

fbufchanged := true; 

end; 
block := block + 1; 
end; 
while middlebytes > do 
begin 
if requests readbytes 

then begin 

fetchbuf fer; 
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65g 

660 
661 
662 
663 
664: 
66S: 
666: 
667; 
668: 
669: 
670: 
671; 
672; 
673: 
674: 
675: 
676: 
677; 
678: 
679: 
680: 
681: 
682; 
683: 
684: 
685: 
686: 
687: 
688: 
689: 
690, 
691: 
692: 
693: 
694: 
695 
696: 
697 
698 
699 
700 
701 
702 
703: 
704: 
705; 
706: 
707 
708: 
709: 
710 
711: 
712: 
713. 
714 
715 
716 
717 
718 



moveleft (fbuffer, buf fe r [f i rstbytes] , fblksize) 
end 
else begin 

f Ijshbuffer; 

lastblock := block; flastpos := lastblock * fblksize; 
moveleft (buffer [firstbytes], fbuffer, fblksize); 
fbufchanged := true; 
end; 
middlebytes ;= middlebytes - fbltsize; 
firstbytes := firstbytes + fbUsize; 
block := block * 1; 
end; 
if endbytes > then 
begin 

fetchbuffer; 
if reque5t= readbytes 

then moveleft (fbuffer, buffer[fi rstbytes], endbytes) 
else begin 

moveleft (buffer [firstbytes] , fbuffer, endbytes); 
fbufchanged := t r ue ; 
end; 
end; 
end ; 
if fistextvar then if request = readbytes then 
for i := to buffsize-1 do 
if buffer[i] = eol then begin feoln := true; bufferti] := ' '; en 
else feoln := false; 
end; 
otherwise ioresult := ord(ibadreqLJest ) ; 
end ; 
end; 
1 : 
end; 

procedure Initf ilekinds ; 
var f k :: f ilekind; 
begin 
serialtextamhook := serialtextam; 



?. <new(efttable) ; 

2 new(amtable) ; 

2 new(suffixtable); 

2 for fk := untypedfile to lastfkind do 

3 begin 

3 suffixtable"[fk] := "; 

3 amtable'^[fk] := unbuffedam; 

3 efttable'-[fk] := 0; 

3 end; 

2 efttable" 



[untypedfile] 



suffix table" [bad file] 
efttable" [badfile] 



:- 'BfiD' 
:= 2; 



[datafile] 



flLREflOY DONE IN BOOT LOADER) 



{no suffix > 
{no buffering) 
{ unassociated LIF file type) 



{LIE directory) 
{no suffix) 
{no buffering) 

{bad block indication) 
{LIF bad block marker) 
{no buffering) 

{DCD Pascal data file) 



11-501 
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719:C 


2 


<no suffix) 




720:C 


2 


anitable'^ [dafafile] := standardam; (general purpose biiffering) 




721 :S 








722:C 


2 


suffixtable'Ccodefile] := 'CODE': <code file suffix) 




723:C 


2 


el t table" [codefile] := -5582; <DCD Pascal code file) 




724:C 


2 


■ no buffering) 




725:5 








726 :C 


2 


sLffixtsble'Csysfile] := 'SYSTn'; (suffix for system file) 
efttable" [sysfile] := -5822; (DCD system (boot) file) 




727 -.C 


2 




728 :C 


2 


<no buffering) 




729;C 


2 


end ; 




730:5 








731:S 








732:C 


1 


end (miscellaneojs stuff module) 




733:S 








734 :C 


2 


Sinclude 'MISC'S; 




2130:C 


2 


SLIST ONS 




2131:S 








2132:C 


2 


SLIST OFF, include 'FS'S; 




2132:D 


1 


ILIST ON, include ' INITUNITS'S ; 




2133:D 


1 


module initunits; 




2134:5 








2135:0 


1 


import sysglobals, mini, asm, fs; 




2136:S 








2137:D 


1 


expert 




2138:S 








2139:0 


1 


procedure nounit(fp; fibp; request: amrequest type; anyvar buffer: window; 




2140:0 


2 


bufsize, position: integer); 




2141 :0 


1 


procedure rodam(anyvar f: fib; unum; unitnum; request: damrequest type) ; 




2142:0 


1 


procedure noisr (isribpt r ; pisrib); 




2143:0 


1 


procedure unitioinit; 




2144:S 








2145:D 


1 


implement 




2146;S 








2147;D 


1 


procedure crtioSalias 'sysdevs crtio'S 




2148:D 


2 


(fp: fibp; request: amrequest type; anyvar buffer: window; 




2149:0 


2 


bufsize, position: integer); EXTERNAL; 




2150:S 








2151:0 


1 


procedure kbdioSalias 'sysdevs kbdio'S 




2152:0 


2 


(fp; fibp; request: amrequest type ; anyvar buffer: window; 




2153:0 


2 


bufsize, position: integer); EXTERNAL; 




21S4:S 








2155:0 


1 


procedure boottm Jalias 'bootdarTmodule boottm'S 




2156:D 


2 


(fp: fibp; request: amrequest type ; anyvar buffer: window; 




2157:0 
21S8:S 
2159:0 


2 


bufsize, position: Integer); EXTERNfiL; 




1 


procedure bootdam lalias 'bootdarmodule bootdam'S 




2150:0 
2161:5 
2162:0 


2 


(anyvar f: fib; unum: unitnum; request; damrequestt ype ) ; EXTERNRL; 




1 


procedure initbootdam Salias 'bootdanniodule_initbootdam'$ ; EXTERNfiL; 




2163:5 








2164:D 


1 


procedure unblockeddam Salias 'niSC UNBLOCKEDOfin'S 




2165:0 
2166:5 
2167:D 


2 


(anyvar f: fib; unum: unitnum; request: damrequest type) ; EXTERNRL; 




1 


procedure nois r ( is r ibpt r : pisrib); 




2168:C 


2 


begin 




2169:C 


2 


end ; 




2170:S 








2171:0 


1 


procedure initsyslsr; 




2172:0 


-4 2 


var i:integer; 
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2173:C 


2 


begin 

for i:= 1 to 7 do 




2174:C 


2 




2175:C 


3 


oegin 




2176:C 


3 


interrupttableli] := nil; 
perminttable[i] := nil; 




2177:C 


3 




2178:C 


3 


end ; 




2179:C 


2 


end; 




2180:S 








2181 :D 


1 


procedure initunitent ry (un: unitnum; 




2182:D 


2 


p dam: damtype; 




2183:0 


2 


p am; amtype; 




2184:0 


2 


\ P sc, ) 




2185:0 


2 


( p ba, ) 




2186:0 


2 


( P du, ) 




2187:0 


2 


( p dv: byte; ) 




2188:0 


2 


( p_byteof f set : integer; ) 




2189:0 


2 


( p_devid; shortint; ) 




2190:0 


2 


p_uvid: vid; 




2191:0 


2 


( p dvrtemp: integer ) 




2192:0 


2 


( p letter; char; ) 
( p offline: boolean ) 




2193:0 


2 




2194:0 


2 


p uislnteractive; boolean; 




2195:0 


2 


( p umediavalid: boolean; ) 




2196:0 


2 


( puuppercase: boolean; ) 




2197:0 


2 


( p uisfixed: boolean; ) 




2198:0 


2 


( p ureportchange; boolean; ) 




2199:0 


2 


( p_pad: 0. .1 ) 




2200:0 


2 


p uisblkd: boolean (; ) 




2201:0 


18 2 


( p umaxbytes; shortint ) ); 




2202:C 


2 


begin ( initunitent ry} 

with unitable" [un] do begin 




2203:C 


2 




2204 ;C 


3 


d am : - p d am ; 




2206:C 


3 


tm := p am: 




2206:C 


3 


5C := 5- 






2207:C 


3 


ba := 






2208:C 


3 


dj := 






2209:C 


3 


dv ;= 






2210:C 


3 


byteoffset := 






2211 :C 


3 


devid := 






2212:C 


3 


uvid := p_uvid; 




2213:C 


3 


(Wrtemp := 0: 

letter := chr(O); 




2214:C 


3 




2216:C 


3 


offiine := false; 




2216:C 


3 


uisinteractive := p_Lisinteractive ; 




2217:C 


3 


umediavalid := false; 




2218:C 


3 


ijuppercase := not p^uisblkd; 




2219:C 


3 


uisfixed := false; 




2220:C 


3 


iireportchange :--= false; 




2221:C 


3 


pad ;- 0; 




2222:C 


3 


uisblkd :- p uisblkd; 




2223:C 


3 


if uisblkd then 




2224:C 


4 


umaxbytes ;= 0; 
er() (with) 




2225:C 


3 




2226:C 
2227:3 
2228:0 


3 


end; {initunitentry} 




1 


procedure nounit(fp: fibp; request: amrequest type; anyvar buffer: window; 




2229:0 


2 


bufsize, position:, integer); 




2230:C 
2231 :S 


2 


ijegin ioresult := o '"d (znodevice) end; 


11-502 


2232:0 


1 


>roc(-dure nodamfanyvar ■ 


; fib; unLjm: unitnum; request: damreque st t ype ] ; 
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2233:C 




2 


begin ioresult := ord[znodevice) end; 




2234 :S 










2235 :D 




1 


procedure initunitable; 




2236 :D 


-2 


2 


var i: unitnum; 




2237:C 




2 


begin 




2238 :C 




2 


new(unitable) ; 




2239 :C 




2 


for i := to maxunit do 




2240 :C 




3 


inilunitentry 




2241 :C 




3 


(i, nodam , nounit, ", ^alse , false) ; 




2242 ;S 










2243 :C 




2 


initunitentry 

[1, unblocKeddam.crtio, 'CONSOLE', true, false); 




2244 :C 




2 




2245;C 




2 


inilunitentry 

(2, unblockeddam.kbdlo, 'SVSTERn', false , false) ; 




2246:C 




2 




2247:C 




2 


initunitentry 




2248:C 




2 


(3, bootdam , boottm, ", false, true ); 




2249:C 




2 


initunitent ry 

(6, unblockeddam.crtio, 'PRIMER', f alse , false) ; 




2260:C 




2 




2251 :S 










2252:C 




2 


end; 




2253:S 










2254 :D 




1 


procedure unitioinit; 




225S:D 


-2 


2 


var i: unitnum: 




2256:0 


-664 


2 


f: fib; 




2257:C 




2 


begin 




2258:C 




2 


initsysisr ; 




2259:S 










2260:C 




2 


sysunit := 3; 




2261 :C 




2 


initunitable; 




2282 :C 




2 






2263 :C 




2 


end; 




2264:S 










2265 :C 




1 


end 




2266:5 










2267 ;C 




2 


JLIST ON, include ' INITUNITS'J; 




2267 :D 






Sinclude 'LOR'$; 




2268:D 






module Idr; 




2269:S 










2270:D 
2271 :S 
2272:0 






import sysglobals, misc, fs, loader, asm; 








export 




2273:D 






procedure openlinkf ile(var filename: string); 
procedure load (flletogo : fid; permanent: boolean); 




2274;D 
2275 :S 
2276 :D 












procedure initsysunit; 




2277:0 






procedure lockfiles; 




2278:0 






procedure openfiles; 




2279:S 










2230:0 






procedure go; 

procedure loadrom(name: fid); 




2281:0 








2282 :S 










2283 :S 










2284:0 






implement 




2285:5 










2286:0 






procedure lockfiles; 
begin 




2287 :C 








2288 :C 




2 


close input ) ; 




2289 :C 




2 


close output 'LOCK' ) ; 

close gfiles 2]"); (KEVBOHRD) 




2290 :C 




2 




2291 :C 




2 


close gfiles 4]", 'LOCK'); (LISTING) 
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2292:C 




2 


end; 




2293:5 










2294:0 




1 


procedure openfiles; 
begin 

if not f ibp(addr(input ) )^. f readable then 




2295:C 




2 




2296:C 




2 




2297:C 




3 


reset (input, 'CONSOLE:'); 




2298 :C 




2 


with fibp(addr(output ))'do 




2299:C 




3 


begin 




2300:C 




3 


if (fleof>0) and fwriteable then close (output, 'LOCK'); 




2301:C 




3 


if not fwriteable then rewr ite (output , 'CONSOLE:'); 




2302:C 




3 


end; 




2303:S 










2304 :C 




2 


if not fibp(gfiles[2] )".freadable then (KEVBOflRO) 




2305 :C 




3 


reset (gfiles[2]~, 'SYSTERri:'); 




2306:C 




2 


with fibp(gfi]es[4] )' do 




2307:C 




3 


begin (LISTING) 




2308:C 




3 


if (fleof>0) and fwriteable then close (gfiles[4]", 'LOCK'); 

if not fwriteable then rewr ite(gf ile5[4] *, ' PRINTER : LISTING. RSC ) ; 




2309:C 




3 




2310:C 




3 


end; 




2311:C 




2 


end; 




2312:5 










2313:D 




1 


procedure initsysunit; 




2314:0 


-4 


2 


var i: integer; 




2315:C 




2 


begin 




2316:C 




2 


syvid :» '«'; st rwrite (syvid, 2, i, sysunit : 1 ) ; 




2317:C 




2 


i := findvolume (syvid, true); 




23ie:C 




2 


dkvid := syvid; 
end; («INITUNITBBLE») 




2319:C 




2 




2320:5 










2321 :D 




1 


procedure go; 




2322:0 


-4 


2 


var lastioresult :integer; 




2323:0 


-8 


2 


userheap: anyptr; 




2324:0 


-9 


2 


done: boolean; 




2325:0 


-14 


2 


modptr: moddescptr; 




2326:C 




2 


begin (GO) 

if entrypoint = nil then writeln('(no start address)') 




2327:C 




2 




2328:C 




3 


else 




2329:C 




3 


begin 




2330:C 




3 


page(output ) ; 




2331 :C 




3 


mark(userheap) ; 




2332:C 




3 


modptr := entrypoint; 




2333:C 




3 


repeat 




2334 :C 




4 


done := modpt r"^. lastmodule; 




2335:C 




4 


if modptr'^. St art addroo then 




2336:C 




5 


begin 




2337:C 




5 


L5erprogram(modptr".5tartaddr,userstack); (««« CILL PROGRAMS ARE ENTEREO HERE »«««) 




2338:C 




5 


if escapecode <> then 




2339:C 




6 


begin 




2340:C 




6 


lastioresult :=ioresult;(save ioresult) 




2341 :C 




6 


release(userheap) ; 




2342 :C 




6 


if escapecode <> -1 then printer ror (escapecode, last ioresult ) ; 




2343:C 




6 


done ,:= true; 




2344 :C 




6 


end; 




2345:C 




5 


end; 




2346:C 




4 


modptr := modpt r"^, link ; 




2347:C 




4 


until done; 




2348:C 




3 


end; 




2349 :C 
2350:5 




2 


end; (GO) 


11-503 


2351:0 


-122 


1 


procedure loadrom ( name : fid); 
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2352: 

2353 

2354: 

2355: 

2356: 

2357: 

2358: 

2359: 

2360: 

2361 : 

2362: 

2363: 

2364: 

2365: 

2366: 

2367: 

2368: 

2369: 

2370: 

2371 :S 

2372:0 

2373:D 

2374 :C 

2375: 

2376: 

2377: 

2378: 

2379: 

2380: 

2381 : 

2382: 

2383: 

2384: 

2385: 

2386: 

2387: 

2388: 

2389 :C 

2390:C 

2391 :C 

2392 :C 

2393: 

2394: 

2395: 

2396: 

2397: 

2398: 

2399: 

2400: 

2401: 

2402: 

2403:C 

2404 :C 

2405:S 

2405:D 

2407:S 

2408:D 

2409:0 

2410:S 

2411 :D 



-144 2 var nodptr: moddescptr; upcname: tid; 
2 begin 
2 entrypoint := ml; 

2 if 5trlen(name) <= tidleng then 

3 begin 

3 Lipcname ;= name; upc (upcname ) ; 

3 modptr := sysdefs; 

3 while modptr <> nil do with modptr^ do 

5 begin 

5 if (startaddroO) and 

6 ( [progname=name ) or (ucase and (progname=upcname) ) ) then 
6 begin 

6 entrypoint ;= modptr; 

6 modptr := nil; 

6 end 

6 else modptr ;= link; 

5 end ; 

3 end; 
2 end; 

1 procedure openlinkf ile (var filename: string); 
-4 2 var extra: addrec; 

2 begin (openlinkf ile) 

2 ge tbytes [ext ra .a , sireof (addrec) ) ; {save old value of loadfib) 

2 extra. arp-^ := loadfib: 

2 qetbyte5(loadfib.a, sizeof ( f ib , 1 ) ) ; (create a FIB for new file) 

2 finltbjloadfib.fbp", nil, -1); (untyped, unbuffered file ) 

2 reset ( loadfib . php^, filename, 'shared'); 

2 openlinkf (extra) ; 

2 end; 

1 procedure printurres; 

-4 2 var modptr: moddescptr; 

-8 2 strptr: addrec; 

-10 2 i: shortint; 

2 begin 

2 modptr := newmods; 

2 while modptr <> endmod do with modptr^ do 

4 begin 

4 if not resolved then 

5 for i := to listsize - 1 do 

6 if listaddr''(i]<>0 then 

7 begin 

7 strptr. a := extaddr.a + list addr'^[i] ; 

7 writeln (St rpt r . syp'') ; 

7 end; 

4 nodpt r : - link ; 

4 end; 

2 writein; 

2 wr "1 te In ( 'The external references above were unresolved.'): 

2 wrjteln; 

2 esi ape(~l) ; 

2 end; 

-122 1 procedure load [ filetogo : fid ; permanent: boolean); 

-126 2 var modnum, ecode : shortint: 
-130 2 icode; integer; 



procedure prirtwhy; 
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2412:D 

2413:C 

2414:C 

2415:C 

2416:C 

2417:C 

2418:S 

2419:C 

2420:S 

2421 :S 

2422:S 

2423:S 

2424: 

2425: 

2426: 

2427: 

2428: 

2429: 

2430: 

2431 : 

2432: 

2433: 

2434 :C 

2435 :C 

2436:C 

2437:C 

2438:C 

2439:C 

2440:C 

2441 :S 

2442:" 

2443: 

2444: 

2445: 

2446: 

2447: 

2448: 

2449: 

2450: 

2451:C 

2462:C 

2453:C 

2454 :C 

2455:C 

2456 :C 

2457:C 

2458 :C 

2459:C 

2460 :C 

2461 :C 

2462 :C 

2463 :S 

:2464:C 

2465: 

2466: 

2467: 

2468: 

2469: 

24 70: 



3 var s: stringSO; 

3 begin 

3 gei ioer rmsg(s , ioresult); 

3 wn teln ( 'cannot open ''', filetogo, ''"): 

3 writelnfs); 

3 end; 

2 begin 

(«Th]s rout ine must : 

1. Set "ENTRYPOINT" to nil (no start address) or correct value. 

2. Load executable code into heap. 

3. Set "SYSOEFS" to user program symbol table. 
2 4. Set "USERSTPCK" to Initial SP value. «) 



2471 :C 



loadfib. php := nil; 
try 

releaseuser; 



mar k ( lowheap .p) . 
startreloc := lowheap. a 



(get rid of last program) 

highheap.a := userstack; 



newmods 



:= sysdefs: 



sysdefs; 



'); 



writeln; writeln [ 'Loading ''', filetogo, ' 

openlihk file (filetogo); 

if fdirectory = nil then begin printwhy; escape(-l); end; 

for modnum := 1 to fdirectory^[0 j .dnumf lies do 

begin loadinfo (modnum, true, false); checkrev; end; 
allresolved := true; matchfile; 
highheap.a := userstack; 

if rot allresolved then 
begin 

filetogo := syslibrary; 

if syvid <> '' then openlinkf ile ( filetogo ) 
else fdirectory := nil; 
if fdirectory = nil then printwhy 
else 
begin 
repeat 

libfound := false; 

modnum := fdirectory^[0] .dnumf iles; 
while (modnum > 0) and not allresolved do 
begin 

loadinfo (modnum, false, true); 
checkrev; 

modnum := modnum - 1; 
end; 
until allresolved or not libfound; 
highheap.a := userstack; 
end; 
end : 

if not allresolved then printunres; 

countcode ; 

highheap.a := userstack - totalglobal; 

if highheap.a < (a5 - 32768) then escape(117); 

startglobaj := userstack - aS; 

userstack := highheap.a; 



11-504 
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2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

248S 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2496 

2496 

2497 

2498: 

2499: 

2500: 

2501: 

2502: 

2503:C 

2504 :C 

250S:C 

2506:C 

2507:C 



2508: 

2509: 

2510: 

2511: 

2512: 

2513: 

2514: 

2515: 

2516: 

2517: 

2518: 

2519: 

2520: 

2521: 

2622: 

2523: 

2S24:C 

2S25:C 

2526: 

2627: 

2523: 

2529: 

2630: 

2531: 



2er!)mem(highheap.p, totalglobal) ; 

loadtext (true) ; 

movedef5(siartreloc*totalreloc) ; 

lowheap.a := startdefs + totaldefs; 
release ( lowheap. p) ; 

if not permanent then 
if entrypoint = nil then 
begin writelr ( 'no start address'): 

escape ( -1 ) ; 
end; 



recover 

begin 

ecode := escapecode 

closef lies; 

if ecode <> -1 then 
case ecode of 
100. .105: begin 



ioresull ; 



ritelrCcan' 't link object at byte 
writeln(^ in textrecord ',wrongrec: 



.wrongbyte : 1 ) 



of module 



llnkmodname . syp^, '*''); 



writeln ( ' 
end; 
110: writeln t ' symbol def's nested too deeply'); 
'^'' writeln (' improper link info format'); 
writelni'not enough memory to load'); 
writeln"", filetogo, "' not a codefile'); 
writeln 'available global space exceeded'); 
writeln {' incorrect version number'); 
otherwise prirterror(ecode,icode) ; 
end; 

releaseuser ; 
escape(-l ] ; 
end ; 
end; (LORD) 



111: 
112: 
116: 
117: 
118 



1 end 

2 Ilnclude 'LDR'S; 



1 import sysglobals, asm, loader, misc, fs, initunits, Idr; 



1 var keyboard: text; 
1 listing: text; 



1 



i: integer; 



1 procedure initfiles; 

2 begin 

2 (INPUT ) new(gfiles[0] ) ; 
2 (OUTPUT ) new(gfiles[l]); 
2 (KEYBOARD) ne* (gf iles [2] ) ; 
2 (LISTING > new(gfile5[4)); 

2 end; («INITFILES*) 

1 procedure dumrtydebugfpl ,p2 , p3 : integer); begin end; 

1 procedure dummycleario; begin end; 



(SET UP VECTORS, INTERRUPT TflBLE, ETC.) 

t%***t*»**»**ti»iX****#i*t *********** 



1 begin 

1 initvects; 
1 

1 mSCELLftNEOUS LOU LEVEL STUFF) 

1 idle:=260; ( 3.0 bug fix -- assume old char rom 3/20/84) 

1 locklevel := 0; act ionspendirg := 0; 

1 debugger := dunmydebug; 

1 cleariohook := dummycleario; 

1 gfilestl] := nil; 

1 INITIALIZE SUFFIX AND fiCCESS tIETHOD TABLES) 
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2532:S 
2S33:S 
2534 :C 
2S35:S 
2536 :C 
2537 :C 
2538 :S 
2539 :C 
2640 :S 
2541 :C 
2542 :C 

2643 :C 

2644 :C 
2545 :C 
2S46:S 
2547:3 
2548:C 
2549 :S 
25S0:C 
2651 :S 
2552:S 
2653:S 
2654 ;S 
2S5S:S 
2556 :S 
2657:S 
26S8:C 
2559:S 
2S60:C 
2561:S 
2S62:S 
2563:C 
2664:S 
2665:C 
2666 :S 
2567:S 
2568 :C 
2569 :S 
2570 :C 
2571 :C 

2572 :S 

2573 :S 

2574 :C 

2575 :C 
2676 :C 
2577 :C 
2678 :C 
2579:C 
2580 :S 
2581:0 

No errors. 13 
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*:**»«««««««:«»»X**KXS«*»«***«»**«*|[ 



1 ini tf ilekinds; 

f^*!t*M* ******* x*****XiiX*ti»**m*»*ti( a V***Ttim 

initialize ISR's. 

DEVICE DRIVERS, 
ACCESS METHODS, 
DIRECTORV ACCESS, 
DEFAULT UNIT TABLE, 
1 CLEAR UNITS ) 

1 unitioinit; 

{««**»*x«*«»««»«***«**«»««««x««t *«««** *«*********«»»♦*««*«»*«««« ««iit**»«x*»»*«*» 
1 FIND SYSTEM AND DEFAULT VOLUME NAMES) 

1 initsysunit; 

1 create files INPUT, OUTPUT, KEYBOARD and LISTINS) 

1 initfiles; 
1 openfiles; 

1 INITIALIZE LOADER) 

1 markuser; 

1 syslibrary :• '«LIBRARY'; 

1 end. (module initsys) 

1 

warnings . 
*««»* Nonstandard language features enabled ***** 
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INITLOAD 



Description 

INITLOAD is system-wide type and variable declarations, interface to internal minifloppy driver, 
boot-load routines, the linking loader and the boot-up control program. 



Usage 

INITLOAD is part of SYSTEM_P. 



Notes 

Includes: GLOBALS, MINI, BOOTDAM, LOADER and INITLOAD. 



© Copyright Hewlett-Packard Company. 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

11-507 
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10: 

11: 

12: 

13: 

14: 

16: 

16 

17: 

18 

19 

20: 

21: 

22: 

23: 

24:D 

25:S 

26:S 

27:D 

28: 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36:D 

37:D 

38: 

39: 

40: 

41: 

42: 

43: 

44: 

45: 

46:D 

47:D 

48:D 

49:D 

50:D 

51 :D 

52:D 

63:D 

54:0 

56:0 

S6:S 

57:S 

58:0 

S9:S 
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SmodcaJ, range off, ovflcheck off, debug off, iocheck off, stackcheck off$ 

program initload; 

1 $s»!arch 'SSn' $ 

tinclude 'GLOBfiLS'J; 
module sysglobals; 



type fsidctype = packed array[1..20] of char 
const 



^sidc - f sidctype ['Rev 



pas 
vid 
•id 
fid 
fbl 



type 



nint = 
xint = 
jnif = 
sleng 
leng = 
leng = 
leng = 
ksize 
5C=63; 
level= 
level= 



-32763; 
32767; 
50- 
= 16; 
16; 

'^i 

120; 

= iii; 

1; 



.01 20-Sep-84']: 

(«20 CHARS: VERS ION, DATE , TIHE OF FILE SYS« 

(•niNimn short integer volue*) 

(•fIflKIMUh SHORT INTEGER VfiLUE«) 
(•MflXIMUn PHYSICflL UNIT NUMBER*) 
(•NUMBER OF CHARS IN fl PdSSUORD* ) 
(•NUMBER OF CHfiRS IN ft VOLUnE NfiME^) 
(•NUMBER OF CHARS IN fl FILE TITLE*) 
(•NUMBER OF CHARS IN FILE NAME*) 

•STANDARD FILE BUFFER LENGTH*) 

•LARGEST SELECT CODE ») 

•LOUEST INTERRUPT LEVEL*) 
(•LARGEST MASKABLE INTERRUPT LEVEL*) 



byte = 0. 
sno rt int 



. .255; 

rmiin,int . .mmaxint ; 
ipointer = ^integer; 
charptr = '"char; 
textpntr = '^text; 
stringSO = string[80]; 
string255 « 5tring[255]; 
suffixtype = 5tring[5]; 
string2b5ptr = '"string25S; 



iinitnum = 0..maxurit' 
vid = St ring [vidleng] ; 
lid - St ringitidleng] ; 
fid = St ringff idleng] ; 
passlype - st ring [passleng] ; 



f ilekind 



fkind7 
fkindlO 



(unt ypedf ile , 
badfile, 
codflf ile, 
textfile, 
asciif ile , 
dataf ile, 
sysfile , 

fkindS, fkindg, 
fkindll, rkindl2, 



(directory entry) 

{bad bloclis) 

(executable or linkable) 

(UCSD format text with editor environment) 

(L.I.F. ASCII format text strings) 

(file of <data type, e.g. char, integer, etc. 

(system (BOOT) file) 



fkindl3, fkindl4, lastfkind); 



(reserved for future expansion) 



(»FILE INFORMATION^) 



Pascal 


[Re 


60 


:D 


61 


:D 


62 


:S 


63 


:S 


64 


.0 


65 


:S 


66 


■D 


67 


D 


68 


D 


69 


D 


70 


D 


71 


S 


72 


D 


73 


D 


74 


D 


75 


D 


76 


D 


77 





78 


D 


79 


D 


80 


D 


81 


D 


82 





83 





84 





85 





86 





87 





88 





89 


D 


90 





91 


D 


92 





93 





94 


D 


96 





96 





97 





98 


D 


99 


D 


100 


D 


101 


D 


102 


D 


103 


D 


104 


D 


105 


D 


106 


D 


107 


D 


108 


D 


109 





110 





111 


D 


112 


D 


113 


D 


114 


D 


lis 


D 


116 


D 


117 





118 





119 
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window - packed array [0..maxint] of char; 
A/indowp = 'Vindow; 



ficp 



"fib; 



(* 



amrequesttype = (readbytes, writebytes, flush, writeeol, readtoeol, clearunit, 

setcursor, getcursor, start read, startwrite, unitstatjs, seekeof ) ; 
amt ype = procedure (fp: fibp; request: amrequesttype; 

anyvar buffer: window; bufsize, position: integer); 
eotproc = procedure (fp: fibp); 

fit = packed record 

fwindow; windowp; 

f list pt r : fibp; 
(declaration and type information) 

f recsize : integer ; 

fef t : short int ; 

fkind: filekind; 

fistextvar: boolean; 

fbuf fared : boolean; 

f anonymous : boolean; 

fisnew: boolean; 

freadable, fwriteable: boolean 
(state information) 

f readmode, fbufvalid : 

feoln : boolean; 

feof: boolean; 

fmodified; boolean; 

fbuf changed : boolean; 
(file size and position) 

fpos: integer; 

fleof: integer; 

fpeof : inteqe 



(* 



(buffering and low level formatting information) 



(*BUFFER VORIflBLE. . . F'" 
(« LIST OF OPEN FILES 

SIZE OF ONE LOGICAL RECORD 

(« EXTERNAL FILE TYPE 

(* FILE KIND 

(» FILE IS LINE FORhfiTTED 

HRS 512 BYTE BLOCK BUFFER : 

(* FILE HAS NO NAME 

(* UfiS CREATED THIS ASSOCIflTION 

(« FILE fiCCESS RIGHTS : 

(^F" AND LOOKflHEflD STATES •) 

(* F-^ IS AN END OF LINE * 

(* TRIED TO READ PAST END OF FILE * 

f* FILE HAS CHANGED SIZE * 

(* BUFFER NEEDS TO BE WRITTEN *) 

(* FILE POINTER, CURRENT FILE POSITION *) 
♦LOGICAL END OF FILE, CURRENT FILE SIZE *) 
(♦PHYSICAL END OF FILE, MfiXinUM FILE SIZE * 



boolean; 



f last pos : 

f reptcnt : shortint ; 

am: amt ype; 
{file association info) 

fstart address: integer; 

fvid: vid; 

ffpw: passtype; 

ftid: tidj 

pathid : integer; ( 

fanonctr: shortint; 

foptstring: string255ptr; 
(byte block transfer information) 

fileid: integer; (« START BYTE OF FILE 

fbO,fbl 



f nosrmtemp, 

fwaitonlock, 

f purgeoldlink , 

foverwri tten , 

f savepat hid, 

f lockable, 

flocked, 

fbusy 

f unit 

feot 

fxpos 



boolean 

unit num 
eotproc 
intege r 



FILE POSITION OF BUFFER 

SPACE COMPRESSION COUNT 
(*BUFFCR HETHOO MODULE 

(•EXECUTION ADDRESS IN BOOT FILE 

(* VOLUME NAME 

[* FILE PAS5U0RD 

(* FILE NAME 

ADDITIONAL SYSTEM DEPENDENT INFORMATION 

(* TEMP FILE IDENTIFIER 

(* OPTIONAL STRING PARAM 



OR OTHER IDENTIFICATION ' 
(* FOR FUTURE EXPANSION 
(*TRUE IF NO SRM TEMP FILE CREATED 
(•TRUE IF SRM SHOULD UlfllT FOR LOCK 
(*TRUE IF OLD SRM LINK IS TO BE PURGED 
(*TRUE IF OPENED UITH OVERWRITE : 
(«TRUE IF PATHID NOT UNIQUE TO FILEID : 
(«TRUE IF FILE OPENED AS LOCKABLE : 
f*TRUE IF FILE IS LOCKED 
{*TRUE IF DRIVER IS ACTIVE ■ 
(•PHYSICAL UNIT NUMBER ■ 
(•CALLED UHEN TRANSFER COMPLETES ■ 
(* X POSITION FOR GOTOXY ■ 
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120:0 


fypos : Integer; (» ¥ POSITION FOR GOTOXY «) 
foldfileid : integer; (• FILEID FOR OLD SRM FILE ON REURITE ») 




121:D 




122:0 


(for future expansion) 




123:0 


fextra: array[0..2] of integer; 




124:0 


fextra2: shortint; 




125:0 


{large miscellaneous fields sometimes present) 




126:0 


case integer of 




127:0 


0: ( {minimal FIB ends here) ): 

1: ftitle: fid); (» FILE NOME, EXCEPT VOLUME RNO SIZE «) 




128:0 




129:0 


2: (fbuffer: packed array (0 . . fblksiie-1 ] of char); 




130:0 


end (»FIB«) ; 




131:S 






132:S 






133:0 


damrequesttype = (getvolumename, setvolumename , getvolumedate, setvolumedate, 




134:0 


changename, purgename, 

openfile, createfile, overwritef ile, closefile, purgefile, 




135:0 




136:0 


stretchit, makedirectory, crunch, opendirectory, closedirector y, catalog, 
stripname, set unit prefix , openvolume, duplicatelink, openparentdir. 




137:0 




138:0 


cat pas sword 5 , set passwords ,lockfile,unlockfile,openunit); 




139:S 






140:0 


damtype = procedure (anyvar f: fib; unurr : unitnum; request: damrequesttype): 




141:5 






142:0 


unitentry = {unitable entry definition) 




143:0 


packed record 




144:0 


dam: damtype: {directory access method) 




145:0 


tm: amtype, {byte block transfer method) 




146:0 


sc ; byte; {select code) 




147:0 


ba: byte; {bus address) 




148:0 


du: byte; {disc unit) 




149:0 


dv: byte; {disc volume) 




150:0 


byteoffset: integer; {physical starting byte of volume) 




151:D 


devid; integer; {identifier (Pmigo identify sequence)) 




152:0 


uvid: vid; ' {volume id) 




153:0 


dvrtemp: integer; {temp for driver use only; init to Oi) 




154:0 


dvrtemp2: shortint; {temp for driver use only; init to 0!) 
letter: char; {device specifier letter) 




155:0 




156:0 


offline, {unit absent or down flag) 




157:0 


uisinteract ive, {user can edit input) 




158:0 


umediavalid, {medium not changed since last access) 




159:0 


uuppercase: boolean; {volume name must be uppercased) 




160:0 


uisfixed: boolean; { f ixed/removeable media flag) 




161:0 


ureportchange : boolean; {driver mode: report/ignore media change) 




162:0 


pad: 0..1; " { (bit not used yet) ) 
case uisblkd: boolean of {blocked volume flag) 




163:0 




164:0 


true: [umaxbytes: integer) {volume size in bytes ) 




165:0 


end; (unitenlry) 




166:S 






167:0 


unitabletype --■■ array [unitnum of unitentry; (»0 NOT USED*) 




168:0 


amtabletype == array filekind of amtype; 




169:0 


suf tatjletype == array filekind of suffixlype; 




170:0 


efttabletype -- array filekind of shortint; 




171:S 






172:0 


unitableptr = ^unitabletype; 




173:0 


amtab lept r t ype = ''amtabletype; 




174:0 


suf tablept r type = 'suf tablet ype ; 




176:0 


ef ttableptrtype = ''efttabletype; 




176:S 






177:S 






178:0 


lorsltwd » 




179:S 


{ «note* the ioresult enumerations have been partitioned into two 




Pascal [Rev 3. On 


6,- 4/84] GLOBfiLS.TEXT 26-Dec-84 21:01:21 Page 4 ««« File name: INITLORD »»« 




180:S 


mutually-exclusive groups: those beginning with 'z' are reserved 




181:5 


for the low-level drivers , and those beginning 




182:0 


with 'i' are reserved for the higher-level routines.) 




183:S 






134:0 


(inoerror.zbadblock, ibadunit .zbadmode ,zt imeout , 
ilostunit,ilostfile,ibadtitle,inoroom,inounit. 




185:0 




136:0 


inofile,idupfile, inot closed, inotopen.ibadformat. 




187:0 


znosuchblk,znodevice,zinitfail .zprotected, 

zstranqei,zbadhardware,zcatchail,zbaddma, 

i no tvalidsize, inot readable, i no twriteable,inotdirect, 




188:0 




189:0 




190:0 


idirfull,istrovfl,ibadclo5e, ieof , 




191:0 


zuninitialized ,z nob lock ,znot ready.znomedium, 
inodirectory,ibadfiletype,ibadvalue . icantstretch, 
ibadrequest, inot lockable, ifilelocked, if ileunlocked. 




192:0 




193:0 




194:0 


idirnotempty, itoomanyopen, inoaccess, ibadpass, ifilenotdir, 




19S:D 


inotondir, ineedtempdir , isrmcatchall , zmediumchanged. 




196:0 


{end marker) endioerrs); 




197:S 






198:D 


p roc type= procedure; 




199:0 


3ctype=0. .maxsc; 




200:0 


leveltype»minlevel. .maxlevel; 




201:0 


pisrib = '"isrib; 




202:0 


isrproctype = procedure (isribpt r : pisrib); 
isrib = (isr information block) 




203:0 




204:0 


packed record 




205:D 


intregaddr: charptr; {interrupt register address) 




206:D 


intregmask: byte; {interrupt register mask) 

intregvalue: byte; {interrupt register target value after masking) 

chainflag: boolean; {chaining flag) 




207:0 




208:0 




209:0 


proc: isrproctype; (isr) 




210:0 


link: pisrib; (pointer to next isrib in linked list) 




211:0 


end; 




212:0 






213:0 


inttabletype " array [1..7] of pisrib; 




214:S 






216:0 


I action = procedure; 




216:S 






217:0 


1 daterec = packed record 




218:0 


1 year : 0..100; («100 IS TEMP OISK FLAG*) 




219:0 


1 day : 0..31; «DRy OF MONTH*) 

month : 0..12; («0 ==■> DRTE NOt MERNINGFUL*) 




220:0 




221:0 


end; 




222:S 






223:0 


1 timerec = packed record 




224:0 


1 hour : 0. .23; 




225:D 


minute : 0. .59; 
centisecond : 0. .5999; 




226:0 




227:0 


1 end; 




228:S 






229:0 


, datetimerec = packed record 




230:0 


date : daterec; 




231:0 


time : timerec; 




232:0 


1 end; 




233:5 






234:0 


var 




235:S 


(».,======= MRNV OF THE FOLLOUING HRVE HRRDCODEO 




236:0 


1 flOORESSES IN COMPILER AND EISEUHERE =====«) 




237;S 




11-509 


238:0 


1 (««• ERROR RECOVERY »«») 




239:0 -2 


sysescapecode : shortint; 
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240:D -6 1 i. penf ilept r : ailyptr: 

241 :D -10 1 recoverblock : anyptr; 

242:S 

243 :D -10 1 (»>« MEhORY HBNfiGEMENT «•») 

244:D -14 1 heapmax: anyptr; 

245:D -18 1 heapbase: anyptr; 

246:S 

247:D -18 1 (»•» I/O DRIVERS «•») 

248:0 -22 1 sysioresult: integer; 

249:0 -26 1 tardwarest atus : integer; 

2S0:D -30 1 Jocklevel: integer; 

251:0 -34 1 unitable; unitableptr; 

2S2:D -62 1 interrupttable: int tabletype; 

253:0 -66 1 endisrhook: integer; 

254:0 -70 1 5ct ionspending : integer; 

255 :S 1-3 3 . 

256:0 -70 1 (»•« FILE SYSTEn «•«) 

2S7:D -94 1 qfiles: array[O..Sl of textpntr; 

268:S ( [0] INPUT [3] (unused) 

259:S [1] OUTPUT [4] LISTING 

260:0 -94 1 [2] KEYBOARD [S] (unused) ) 

iii.'^ 'At ' amtable: amtablept r type; (pointer to access methods > 

263:D -102 1 suffixtable: suf t ablept rtype; {pointer to list of suffixes) 

264:D -106 1 efttable: ef t tablept rt ype ; (pointer to LIF file types} 

26S:D -110 1 sysunit: integer; 

266:0 -MB 1 syvid.dkvid: vid; («SYSUNIT VOLID & DEFAULT VOHD«) 

267:0 -268 1 syslibrary: fid; 

268:S 

269:0 -268 1 (•»» DEBUGGER HOOK «»») 

270:D -276 1 debugger: procedure (pi , p2, p3 : integer); 

271:S =3 K iK- , K , K 3 ;, 

272:0 -276 1 (•*« CLERR I/O HOOK »»») 

273:D -284 1 cleariohook : procedure; 

274 ;S 

275:0 -312 1 perminttable: int tablet ype : 

276:S 

277:D -392 1 defer redact ion : array[1..10] of action; 

278:S 

1^9:0 -400 1 serialtextamhook: amtype; (access method for serial deyices) 

281:0 -400 1 sysname [-574] : packed array[1..10] of char; 

282:3 

283:D -400 1 s ys flag [ -302 ] : packed record 

284:0 -400 1 reservedl, reserved2, nointhpib, c rtconf igreg^ 

285:0 -400 1 nokeyboard, highlight sxorbiggraphics, biqqraphics. 

286:D -400 1 alphaSO: boolean; 

287:0 -400 1 end; 

288 :S 

289:0 -400 1 b/sf lag2 [hex ( ■ FFFEDH' ) ] : packed record 

290:0 -400 1 pad7lo! : 0. ,127; 

291:0 -400 1 prompresent : boolean; 

292:0 -400 1 end; 

293:S 

294:S eidsysvars : shortint; (must be last thing 

295:D -402 1 in SVSGLOBfiLS) 

296:S ' 

297:0 -402 1 implement 

298:C 1 end 

299:C 2 $ir^:lude 'GLOBfiLS'S; 
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299:D 1 Simlude 'nlNI' $; 

300:0 1 module mini; 

301:S 

302:3 

303:0 1 import 

304:0 1 svsglobals, asm (, misc); 

305:3 

306:3 

307:D 1 export 

308:3 

309:0 1 procedure miniio(fp: fibp; request: amrequest type ; anyvar buffer: window; 

3}?:D 2 length, position: integer); 

311:D 1 procedure ioresc ( loresult value: iorsltwd); 

312:3 

313:0 1 function iorval: iorsltwd; 

3t4:S 

315:0 1 implement 

316:3 

317:S 

318:0 1 var 

319:0 -2 1 mC'St_recent_escapecode; shortint; (for post-mortem diagnostic purposes onlyiM) 

321:3 

322:0 1 procedure ioresc [ ioresult_value : iorsltwd); 

323;C 2 begin (ioresc) 

324:C 2 loresult := ord(ioresult value); 

325:C 2 escape(-lO) 

326:C 2 end; (ioresc) 



11-510 
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327 :D 


-2 


1 


$page$ 




328:S 










329:0 




1 


function iorval: iorsltwd; 




330:3 










331:0 




2 


type 




332:0 




2 


te = {table entry type) 




333:0 




2 


record 




334:0 




2 


b{baslc error): shortint; 




335:0 




2 


p<pascal error): Iorsltwd 




336:0 




2 


end; 




337:0 




2 


ect type ^ (error conversion table type) 




338:0 




2 


array[l . .29] of te; 




339:S 










340:0 




2 


const 




341:0 




2 


error conversion table = ect tyc 
te[5: 1066, p:zlnitfail ] 


e[ 




342:0 




2 


bad track 0, side > 




343:0 




2 


te[b; 2066, p:zinitfail 


more than 4 spares ) 




344:0 




2 


te b: 3066, p:zbadhardware 


write fault or lost data ) 




345:0 




2 


te b; 4C66, p ;znomediL]m 


, timeout during init ) 




34$ :0 




2 


te b: 1080, p:2nomedium 


, (no media or door open ) 




347:0 




2 


te b: 2080, p :zromediuni 


, no media or door open ) 




348:0 




2 


te b: 3080, p:zromedijm 


no media or door open ) 




349:0 




2 


te b: 8080, p :zmediumchanged 


, media changed ) 




350:0 




2 


te b: 9080, p :zromedium 


, media changed during operation ) 
, (track not found > 




351:0 




2 


te b: 1081, p:znoblock 




352:0 




2 


te b: 2081, p:zbadriardware 


(restore error ) 




353:0 




2 


te b: 3081, p:zbadhardware 


(track not found after reset ) 




354:0 




2 


te b: 4081, p:2badhardware 


, (read lost data error ) 




355:0 




2 


te b: 5081, p:zbadhardware 


, (write lost data error or fault ) 




356:0 




2 


te b: 6081, p:zbadhardware 


(address lost data error ) 




357:0 




2 


te b: 7081, p:znoblock 


, (address CRC error during write ) 




358:0 




2 


te b: 1083, p:zprotected 


, (write protect error ) 




359:0 




2 


te b: 2083, p:zprotected 


, (write protect error ) 




360 :D 




2 


te b: 1084, p;znoblock 


, (read record not found/d bit set) 




361 :0 




2 


te b: 2084, p:znoblock 


(write record not found ) 




362:0 




2 


te b: 3084, p:znoblock 


, (address (track) rot found ) 
, (address CRC error ) 




363:0 




2 


te b: 1087, p:znoblock 




364:0 




2 


te b: 1088, p:2badblock 


( read CRC error ) 




365:0 




2 


te b: 6090, p:zstrangei 


, (unexpected interrupt ) 




366 :D 




2 


te b: 7090, p;zstrangei 


(INT during wrt trk handshaking ) 




367:0 




2 


te b: 8090, p:znomedlijm 


(timeout waiting for interrupt > 
(INT mask > 2 (flpy locked out) ) 




368:0 




2 


te b: 9090, p:zcatchall 




369:0 




2 


te b:11090, p:zbadhardware 


(timeout; floppy not responding ) 
]; (2nd drive not present ) 




370:0 




2 


te b: 1082, p:znodevice 




371:S 










372:0 




2 


var 




373:0 


-2 


2 


i : short int ; 




374 :S 










37S:C 




2 


begin (iorval) 




376:C 




2 


most_recent_escapecode := escapecode; (for pcst-mortem diagnostic purposes orlyll;} 




377:: 




2 


iorval := inoerror; (value returned if unrecognized) 




378:C 




2 


for i := 1 to 29 do 




379:C 




3 


with error conversion table[i] do 




380:C 




4 


if escapecode=b then iorval :^ p; 




381 :C 




2 


end; (iorval) 
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382:0 


-2 


1 


SpageS 




383 :S 










384:0 




1 


procedure niiniio(fp: fibp; request: amrequest type; anyvar buffer: window; 




385:0 




2 


length, position: integer); 




386:0 




2 


const 




387:0 




2 


bootrevl - chr(255); 




388:S 










389:0 




2 


var 




390:0 




2 


boot revflag[318] : char; 




391:0 




2 


minidrive [-30] ] : packed record num: 0..255 end; 




392:0 


-4 


2 


buf: charptr; 




393:0 


-8 


2 


uep: ^unitentry; 




394 :S 










395:0 




2 


procedure clear unit; 




396:C 




3 


begin {clear unit) 




397:C 




3 


try 




398:C 




4 


f_pwr__on; 




399:C 




4 


recover"" 




400:C 




4 


if iorvaloinoerror 




401 :C 




5 


then ioresc(iorval) 




402:C 




5 


else escape(escapecode) ; 




403:C 




3 


end; (clear unit) 




404 :S 






~ 




405:S 










406:0 




2 


procedure t ransfer (sector : integer); 




407:S 










408:D 




3 


var 




409:0 


-I 


3 


transfer successful: boolean: 




410:0 


-6 


3 


whole sectors: integer; 




411:0 


-10 


3 


whole sector bytes: integer; 




412:0 


-10 


3 


fubufTer[-655] : packed ar ray [0. .265] of byte; 




413:0 


-12 


3 


saved escapecode: shortint; 




414:0 


-14 


3 


lor: iorsltwd; 




41S:S 










416:C 




3 


begin (transfer) 




417:S 










418:C 




3 


repeat 




419:C 




4 


try 




420:5 










421 :C 




S 


whole sectors := length div 256; 
if whole sector5>0 then 




422:C 




5 




423:C 




6 


begin 




424 :C 




6 


case request of 




425 :C 




7 


readbytes, startread: 




426 :C 




7 


flpymread(whole_sectors, sector, buf^); 
writebytes, startwrite: 




427 :C 




7 




428 :C 




7 


f Ipynrwrite (whole_sector s, sector, buf"); 




429 :C 




7 


end; (case) 




430:C 




6 


sector := sector+whole sectors; 




431 :C 




6 


whole sector bytes := whole sectors»256; 




432:C 




6 


buf :^ addr(&uf", whole sector bytes); 




433:C 




6 


length := length-whole sector Bytes; 
end; (if) 




434 :C 




8 




435:S 










436:C 




5 


if length>0 then 




437:C 




6 


case request of 




438:C 




7 


readbytes, startread: 
begin 

flpyreadtsector , fubuffer); 




439:C 




7 


11-511 


440:C 




7 




441 :C 




7 


moveleft (fubuffer 


but", length); 
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442:C 


7 


443:C 


7 


444:C 


7 


44S:C 


7 


446:C 


7 


447:C 


7 


448:C 


7 


449:S 




4S0:C 


5 


451:S 




452:C 


5 


4S3:C 


S 


454:C 


5 


455:C 


5 


456:C 


6 


457:C 


6 


4S8:C 


6 


459:C 


7 


460:C 


7 


461:: 


7 


462:C 


6 


463:C 


6 


464 :C 


6 


465 :C 


7 


466:C 


7 


467:C 


7 


468:C 


8 


469:C 


7 


470:C 


7 


471:C 


7 


472:C 


7 


473:C 


S 


474:S 




475:C 


4 


476;S 




477:C 


3 
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end; 
writebytes, startwrite: 
begin 

moveleft (buf^, fubuffer, length); 
flpy_wrt (sector, fubuffer ) ; 
end ; 
end; (case) 

t ransfer^successful := t rue; 

recover 
begin 

aor :^' iorval ; 

if io '■ = inoerror then (unrecognized escapecode} 
begin 

Sijved_escapecode := escapecode; 
try 

f_pwr_on; 
r<*cover 

(do nothing); 
eijcape ( saved^escapecode) ; 
end 
else if ior=zmediumchanged then 
begin 

jcp". umediavalid := false ; 
!■'' uep^ . urepor tchange then 

ioresc [ ior ) ; 
t ran5fer_succe5sful := false; (retry) 
end (with) 
else 

ioresc(ior) ; 
end; ( recover ) 

until t rarsfer_successful ; 

end; ( t ransfer) 
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478 


:D 


479 


:S 


480 


:C 


481 


:C 


482 


:C 


483 


:C 


484 


:C 


485 


:C 


486 


:C 


487 


:C 


488 


:C 


489 


:C 


490 


.C 


491 


C 


492 


C 


493 


C 


494 


S 


495 


C 


496 


c 


497 


c 


498 


s 


499 


c 


500 


c 


501 


s 


502 


c 


503 


c 


504 


s 


SOS 


c 


S06 


c 


507 


c 


508 


c 


509 


c 


510 


c 


511 


c 


512 


c 


513 


c 


514 


c 


S15 


c 


516 


3 


517 


c 


518 


c 


519 


c 


520 


s 


521 


c 


522 


c 


523 


c 


524 


c 


525 


c 


526 


c 


527 


c 


528 


c 


629 


c 


530 


s 


531 


c 


532 


s 


533 


c 


533 


D 


534 


D 


535 


D 


536: 


D 
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-8 2 $page$ 

2 begin (miniio) 

2 uep := addr(Lnitable^[fp^. funit ] ) ; 

2 if uep^. offline then 

3 ioresult := ord (znodevice) 
3 else 

3 begin 

3 ( lockup; ) 

3 try 

4 if boot revf lag=boot revl then 

5 if uep^.du=0 then (ok> 

6 else ioresc (znodevice 
6 else 

5 if uep^'.du in [0,1] then minidrive. num := uep'^.du 

6 else ioresc (znodevice) ; 

4 case request of 

5 clearunit : 

5 clear_unit ; 

5 unitstatus: 

5 fp-^.fbusy := false; 

5 flush: 

5 (do nothing); 

5 readbytes, writebytes, startread, startwrite: 

5 begin 

5 if uep-^. ureportchange and not uep''. umediavalid then 

6 ioresc (zmediumc hanged) ; 
5 buf := addr(bLjf fer) ■ 

5 if (position mod 256<>0) or odd ( intege r (buf ) ) then 

6 ioresc (zbadmode) ; 

5 if (position<0) or (length<0) or (posit ion+ler»gth>fp'^. fpeof) then 

6 ioresc ( ieof J ; 

5 trans fer[ [ posit ion+fp^. fileid+uep^.byteoffset ) div 256) ; 

5 end; 

5 otherwise 

5 ioresc(ib ad request ) ; 

5 end; (case) 

4 ioresc(inoerror) ; (set ioresult ft perform lockdown) 

4 recover 

4 begin 

4 I lockdown; ) 

4 if escijpecode<>-10 then escape(e5capecode) ; 

4 if request in [startread, startwrite] then call (fp'^.feot, fp); 

4 end : ( recover ) 

3 end; (else) 

2 end; (miniio) 

1 end (mini) 

2 Sinclude 'MINI' $; 
1 Sinclude 'BOOTDfln'S; 

1 module bootdarmodule; H ciO 

1 impor t sysglobals, asm, mini; li-OlZ 

1 export 
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537:S 










538:D 
S39:S 
540 :D 






type strlng2=string[2] ; 




-52 




var nodebtr: 5tring[50]; 




541 :S 










542 :D 


-52 




procedure inilbootdam; 




543 :D 


-52 




procedure bootdamfanyvar f:fib; unum: unitnum; request :damreque5t type) ; 
procedure boottm(i : f ibp; request: amrequestt ype; 

anyvar buffer: window; buf size, position : integer); 
function 5rmnode(sc: snortint): string2; 




544 :D 








545 :D 


-52 






546 :D 


-52 






547 :D 


-52 




function bootnode: 5tring2; 




S48:S 










549 :D 


-52 




implement 




550 :D 


-52 




type 




551:S 










552 :D 


-52 




strptr = ^string255; 




553 :D 


-52 




lifname = packed array[1..10] of char; 




554 :D 


-52 




wordlS = 0. .32767; 




555:0 


-52 




bed • 0. .15; 




556:0 


-52 




tdate • packed array[1..12] of bed; 




557:0 


-52 




direntryp= ^direntry; 




558:0 


-52 




direntry = packed record 




559:0 


-52 




fname 


lifname; 




560:0 


-52 




ft ype 


shortint; 




561:0 


-52 




f St art 


integer ; 




562:0 


-52 




fsize 


integer; 




563:0 


-52 




fdate 


tdate; 




664:0 


-52 




lastvol 


boolean; 




565 :D 


-52 




volnumber 


wordlS; 




566:0 


-52 




extension 


integer; 




567:0 


-52 




end; 




S68:S 










S69:D 


-52 




msjstype = packed record 




570:0 


-52 




mtype : byte; 




571:0 


-52 




munit : byte; 




572:0 


-52 




mscode: byte; 




573:0 


-52 




maddr : byte; 




574:0 


-52 




end; 




575:0 


-52 




var 




576:0 


-52 




drlverkey -293 (IFFFFFEDB) 


boolean; 




577:0 


-52 




boot msus -292 (tFFFFFEDC) 
boot~ld 16382 (t SFFE) 


msusi ype; 




578:0 


-52 




shortint ; 




579:0 


-52 




bootlflags 16380 <$ 3FFC) 


packed array[0..71 of boolean; 




580 :S 










581:0 


-53 




gread : boolean; 




582 :S 










583:0 


-53 




( FUNCTIONS AND PROCEDURES USED FROM THE BOOT ROM > 




584:0 


-53 




procedure boot lifhead(var dsize.dstart : integer ) ; external; 




585:0 






procedure boot findfile[var ent ry :dirent ryp; var Iname: lifname; 




586:0 


-53 




dl.ds : integer); external; 




587:0 


-53 




function boot_minit [msus:msu5type) :boolean; external; 

function boot_mfopen (anyvar fname : st rinq255; var xaddr , length: integer ; 
var f type : shor tint 1 :boolean ; external; 




588:0 








589:0 


-53 






590:0 


-53 




procedure boot mfclose; external; 




591:0 






procedure boot mread (sector ,bytecount : integer; 




592:0 


-53 


2 


anyvar buf fer :window; media :boolean) ; external; 




593 :S 










594:0 




1 


function escioCescn: integer) : iorsltwd; 




595:C 




2 


begin 




596:C 




2 


case escn of 
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597:C 




3 


1,7 : escio :=znodevice; 




598:C 




3 


2 : escio :=znomedium; 




599:C 




3 


3 : escio:=znot ready; 

4 : escio:=zbadblock; 




600:C 




3 




601 :C 




3 


5 : escio :=zbadhardware; 




602:C 




3 


6 : escio :=zcatchall: 




603:C 




3 


otherwise escape (escn) ; 




604 :C 




3 


end; [ case ) 




605:C 




2 


end; 




606:S 










607:0 




1 


procedure bootdam(anyvar f:fib; unum: unitnum; request :damrequest type) ; 




608:0 




2 


var 




609:0 


-2 


2 


ftype 


shortirt ; 




610:0 


-4 


2 


fk 


filekind; 




611 :0 


-8 


2 


dstart 


integer; 




612:0 


-12 


2 


dsize 


integer; 




613:0 


-16 


2 


dent ry 


dirent ryp; 




614:0 


-24 


2 


i,J 


integer; 




615:S 










616:0 




2 


procedure escesc (ecode : integer ] ; 




617:0 




3 


var 




618:0 


-4 


3 


tempec : integerj 




619:C 




3 


begin { convert mini driver escape code to general code) 
if ecode<=0 then escape(ecode) ; 




$20:C 




3 




621 :C 




3 


if ecode = 1 then ioresult := ord(abadtitle ) ; 




622;C 




3 


tempec :=ecode mod 1000; 




623:C 




3 


if tempec=80 then escape(2) ( no medium > 




624:C 




4 


else if tempec=90 then escape(6)( bad error state > 




625:C 




S 


else escape(4); ( read error ) 




626:C 




3 


end; 




627:3 










628:0 




2 


function minit[m5U5 :msust ype) :boole3n ; 




629:D 




3 


var 




630:0 


-4 


5 


tempec : integer; 




631:0 




3 


begin 

if gread then minit : =boot_minit (msus) 




632:C 




3 




633:C 




4 


else 




634:C 




4 


begin 




635:C 




4 


try 




636:C 




5 


minit : = t rue ; 




637:C 




5 


driverkey := false; 

boot lifhead(dsize, dstart ); 




638:C 




S 




639:C 




6 


driverkey :- true; 




640:C 




6 


recover begin 




641 :C 




S 


driverkey := true; 




642:C 




5 


if escapecode=-l then minit :=false 




643:C 




6 


else escesc (escapecode) ; 




644 :C 




5 


end; 




645:C 




4 


end; 




646:C 




3 


end; 




647:5 










648:0 




2 


function mfopen,(anyvar fname : st rinQ255; var xaddr , length : integer ; 
vsr ftype : short int) :boolean; 




649:0 




3 




650:0 




3 


var 




6S1:D 


-10 


3 


t fname : lifname; 




652:0 


-14 


3 


i : integer; 

fk, fkind : filekind; 




653:0 


-18 


3 




654 :C 




3 


begin 


11-513 


655 :C 




3 


if gread then mfopen:=boot mfopen (fname , xaddr , length, ftype) 




656 :C 




4 


else 
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4 begin 

4 t ry 

5 mfopen := t rue; 
5 if (St rlen(fname)=0) or ( 5t rlen (f name)>10) then escape(l); 

5 for i:=l to 10 do 

6 if i>st r]en(fname) then tfname [i] ;= ' ' else t fname [i] : =f name [i] ; 

5 driverkey : = false; 

S boot_findf3le{dentry,t fname ,d5ize,dstart); 

5 driverkey := true ; 

5 fkind:=datafile; f Type i^dentry". ftype; 

5 for f k :=la5 t f kind downto untypedfile do 

6 if efttable''[fk] = ftype then fkand: = fk; 

5 if f kind^siysf ile then >(addr : = dent ry".e>(tension 

6 else xaddr :=0; 

5 if fkind^datafile Then length :=dentry''. extension 

6 else length :=dent ry'".f5ize*256; 
5 recover 
5 begin 
5 driverkey := trLie; 
5 mfopen : = false ; 

5 if escapecodeo-1 then escesc (escapecode) ; 

5 end; 

4 end; 

3 end; 

2 procedure mfcJose; 

3 begin 
3 If gread then boot_mfclose; 

3 end; 

2 begin ( bootdam ^ 

2 ioresult:=ord[2noerror); 

2 case request of 

3 geTvoIumename: strpt r (addr (f ) )^ := ' '■BOOT_DEVICE'" ' ; 
3 openfile : 

3 try 

4 i - 0; 
4 for i := 1 to st rienff . f t it le ) do if f.ftitle[i] = '/' then i := i; 

4 if strlen(f .ftiTle}-j>tidleng then f.ftid := " 

5 else begin 

5 5et5trlen(f.ftid, strlen(f.ftiTle}-j); 

5 for i := 1 To st rlen ( f . ft id) do f.ftid[i] := f . f tit :ie[ j + i] ; 

5 end; 

4 if minit (boot_msijs) then 

5 begin 
5 ?type: = -l; 

5 if mfopen [f .ft It le,f. fst art addreas.f , fpeof,f type) then 

6 begin 
6 f .fkind:=datafile; 

6 for fk : =Ia5T f kind downto untypedfile do 

7 If efttable"[fk]=ftype then f.fkind:=fk; 

6 if gread then f.fileid := 

7 else f.fileid := dent ry" , f st art*256; 
6 f -fleof :=f . fpeof; f . fisnew: =f alse; 

6 if not f.fbuffered then f . am: =amTable'-[UNTYPEDFILE] 

7 else f.am: = amtable'^[f.fkind]; 
6 end 
6 else ioresult : =ord(inof ile) ; 
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5 end 

5 else with ooot msus do 

6 loresult:-or3(inounit); 

4 recover io result :=ord(e5cio (escapecode) ) ; 

3 closef ile : 

3 t ry 

4 mfclose; 

4 recover ioresult :=ord[escio (escapecode) ) ; 

3 otherwise 

3 ioresult :=ord(ibadreque St); 

3 end ; <case reqjest > 

2 end; ( bootdam ) 

1 procedure initbootdam; 

2 t ype 

2 Irec = packed record 

2 pad : packed array[0..15] of char; 

2 mbptr : "^char; ( offset 16 ) 

2 mbsize: integer; ( offset 20 } 

2 end; 

2 v,ir 

2 boot_5pace [-300] i-^l rec ; 

2 b<;gin 

2 if boot_id<3 then gre3d:=false 

3 else gread:=not boot_f lags[7] ; 

2 if gread then newbytes (boot^space'^.mbpt r,boot_space^. mbsize ); 

2 e[id ; { initboot dam) 

1 procedure boot tmi; f : f ibp; request: amrequest t ype; 

2 anyvar buffer: window; buf size, position : integer): 
2 begin - ,k j ;, 

2 if gread then 

3 begin 

3 with f" do 

4 begin 

4 ioresult :=ord [inoer ror 1 ; 

4 if request-readbytes then 

5 begin 

5 if ((position+bufsize )>fpeof ) or 

6 (posii.ion<0) then ioresult : = ord(znoblock) 
6 else 

6 if (position mod 256)<>0 then ioresult :=ord(zbadmode) 

7 else 
7 begin 

7 try 

S boot_mre8d(position div 256 , buf size, buf fer , false) ; 

8 recover ioresult : =ord (esc io [escapecode) ) ; 
7 end; 

5 end 

5 else ioresult : = ord (zbadmode) ; 

4 end;< with ) 

3 end 

3 else begin 

3 driverkey := false; 

3 mini io ( f. request, buf fer.bufsize, posit ion); 

3 driverkey := true; ww c-iyi 

3 end; 11-514 

2 end : ( boot tm ) 
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X* 


777:D 


-53 1 






778:D 


1 


function srmnode(sc: shortint): string2; 




779:0 


2 


cons! scsize = hex(' lOOOO'l; nodecorr = c^^(128+6]: 

command = hex ( '604003' ) ; data » hex ( '604005' ) ; 




730:0 


2 




781:0 


2 


type charptr s "char; 




782:0 


-4 2 


var bnode: String2; 




783:0 


-12 2 


node, i: integer; 




784 :C 


2 


begin 




78S:C 


2 


try 




786:C 


3 


charptr (ord(sc*5csize+command) )" := nodecom: 

repeat until charpt r (ord (bc*&c5ize+cormiand) )" = chr[0): 




787:C 


3 




788:C 


3 


node := ord (charpt r (ord( sc*scsize+dat a) ) ") ; 




789:C 


3 


if node < 10 then bnode := '0' else bnode := ''; 




730:C 


3 


St rwrite[bnode, strlen (bnode) +1 , i, node:l); 




791:C 


3 


srmnode := bnode; 




792:C 




recover if escapecode = -12 then srfnnode := '' else escape (escapecode) ; 




793:C 




end; 




794 :S 








795:0 




function bootnode: string2; 




796 :D 




const srmtype = 7*32+1; 




797:C 




begin 




798:C 




bootnode := ' ' ; 




799:C 




if gread then with boot msus do 

if mtype =■ srmtype then bootnode := srmnode(mscode) ; 




800:C 






801 ;C 




end; 




802:S 








803 :C 




end ( module > 




804 :S 








805 :S 








306:: 




linclude 'BOOTDfm'S; 




806:0 




Jinclude • LOADER' $; 




807:0 




module loader; 




808 :S 








809:0 




import sysglobals, asm; 




810:S 








811:0 




export 




812:S 








813:0 




const blocksize = fblksize; 




814:0 




vnlength = 7: 
fnlength = 15; 




815:0 






816:0 








817:0 




type 




818:5 








819:0 




volname = st ring [vnlength] ; 




820:0 
821:5 
322:0 




filname = st ring [fnlength] ; 






dirrange = 0. .rrmaxint ; <0 . .nflXlongOIR; > 




823:5 








824:0 




(* tne following declaration serves for a "library directory" *) 




825:S 








826:0 




direntry = record 




827:0 




dfirstblk: shortint; (»module starting block*] 




328:0 




dlastblk: shortint; (*block following end*) 




829:0 




{NOTE: for DIR[0], these refer to the library directory itself) 




830:0 




case dfkind: filekind of 




831:0 




untypedfile: *library info in DIR[0]*) 




832 :D 




(dvid: volname; *name of library*] 
deovblk: shortint; *block following library*) 




833;D 






834:0 




dnumfilea: dirrange; *num modules in library*) 




835:0 




dloadtime: shortint; *time of last modification*) 
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x» 


836:0 




dlastboot : daterec ); (*most recent date setting*) 




837:0 




datafile. .lastfkind: 




838:0 




(dtid: filname; («title of module*) 
dlastbyte: l-.fblksize; (»1 . .256 bytes in last block*) 




839:0 






840:0 




daccess: daterec ) (*last modification date*) 




341:0 




end (*direntry*) ; 




842:5 








843:0 




ubyterec = packed record ub : byte end; 
sbyterec - packed record sb : -128.. 127 end; 




844:0 






845:0 




word = 0. .65535; 




846:0 




wordrec = packed record w: word end; 




847:0 




wordrecptr = "wordrec; 




848:0 




wordlist = packed ar ray[0 . .rnaxi nt] of word; 




849:0 




wordlistptr = 'Vordlist; 




850:5 








851:0 




symboltable - ar ray[0 . .maxint] of char; 
symtableptr - ^symoiltable; 




852:0 






853:5 








854:0 




symbol = string[255] ; 




855:0 




symbolptr = "symbol; 




856:3 








857:0 




datatype = (sbyte, sword, sint, fltpt, ubyte, uword); 
reloctype = (absolute, relocatable, global, general); 




858:0 
859:5 
860:5 












861:0 




referenceptr = packed record (one or more present if type = general) 




362:0 




case integer of 




363:0 




0:( 




864:0 




adr: 0.. 16383; {word address of external symbol) 




865:0 




op: [addit, stibit); (add or subtract the modifying value) 




866:0 




last: booleein]; (indicates end of list) 




867:S 








868:0 




l:[w: word); (for comparisons) 




869:0 




end; 




870:S 








871:0 




gvrptr = "generalvalue; 




872:0 




veptr = "valueextension; 




873:0 




textdescptr = "textdescriptor ; 




874:0 




fileptr = -^phyle; 




875:0 




moddescptr = "^modLJledescriptor; 




876:0 




refptrptr = "^referenceptr; 




877:0 




sortlistptr = '"sortlist; 




378:0 




moddirptr = ^odjledirectory; 




879:0 




filedlrptr = "filedireclory; 




880:0 




ptrtableptr = ^ptrtable; 




881:0 




patchdescptr = 'patchdesc riptor ; 




882:5 








333:5 








884:0 




addrec = record case integer of <a universal address) 




885:0 




-1: (rp: referenceptr); <a two byte object; rest are 4 bytes:) 




886:5 








387:0 




1 


(ii; integer); <to change an address to integer) 




888:0 




2 


(a:- integer); <to do address arithmetic) 




839:0 




3 


(p: "integer); (to dereference) 




890:5 








891 :0 




4 


(sb 


'"sbyterec); C^signed byte record) 




892:0 




S 


(bW 


"shortint); ("signed word) 




893:0 




6 


(:,i 


"integer); ("signed integer) 
"real]; ("floating point) 


11-515 


894:0 




7 


(fp 


895:0 




8 


(Lib 


■^ubyterec); ("unsigned byte record) 
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S 
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D 
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D 


900 


D 


901 


.0 
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D 


903 


:D 


904 


:D 


905 


:D 


906 


D 


907 


.D 
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D 


909 


D 
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D 


911 


D 


912 


D 


913 


D 


914 


D 


915 


D 


916 


D 


917 


D 


918 


D 


919 


S 


920 





921 


D 


922 


D 


923 


D 


924 


D 


925 





926 


D 


927 


D 


928 


D 


929 


S 


930 


D 


931 


D 


932 


D 


933 


D 


934 


D 


935 


D 


936 


S 
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D 


938 


S 


939 


S 
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D 
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D 


942 


D 


94 3 


D 


844 


D 
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D 
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D 
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948 


s 
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D 
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D 
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D 
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D 
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wordrecpt r ) ; 



{"unsigned word record) 



10: 


(gvp: 


gvrptr) ; 


(-^generalvalue) 


11 : 


(vep: 


veptr); 


"valueextension > 
"textdescriptor) 


12: 


(tdp: 


lextdescpt r ) ; 


13: 


(syp: 


symbolpt r) ; 
symt ablept r) ; 


''symbol (string) 


14 : 


stp: 


■ '^symbol table) 


15: 


(«lp: 


wordlistpt r) ; 


("wordlist) 


16: 


(ptlp: 


f ilept r) ; 


<"phyle> 


17: 


(mdp: 


moddescpt r) ; 


{"moduledescriptor) 
(''referencept r) 


18: 


rpp: 


refpt rpTr 1 : 


19: 


(sdp: 


^sortdesc) ; 




20: 


(5lp: 


sortlistptr) ; 


("sortlist ) 


21: 


drp: 


moddirptr) ; 


(^oduledirectory) 


22: 


fdp: 


filedirptr); 


{''f iledirectory) 


23: 


brrtp: 


^bitmap) ; 




24: 


fbp: 


fibp); 




25: 


ptp: 


ptrtablept r) ; 


("ptrtable) 


26: 


ilp: 


^indexllst ) ; 




27: 


pdp: 


patchdescptr) 




28: 


cp: 


"char) ; 




29: 


arp: 


"addrec ) ; 




end; 









generalvalue = packed record 
pr ima ryt ype : reloc type; 
dat asize i datatype; 

patchable, 

vdlueextend: boolean; 
esse longoffset: boolean of 
false: (short : 

t rue : (long : 

end, 



{allows quick indication of most cotrmon types} 
{specifies 1, 2, 4 or 8 bytes, signed or not) 
{specifies self relative field In branch) 
{indicates the presence of valueextension) 
<1 or 3 byte offset > 
byte): (unsigned 8 bits) 

0. .16777215) ; (unsigned 24 bit value) 



valueextension = packed record (present if 
case datatype of 

sbyte, sword, sint , 

ubyte, jw'ord: (value : 

fltpt : {valuer: 

end ; 

phyle = file of char; 



/alueextend bit above is set) 



integer ) ; 
real); 



modLledi rectory = packed record 
date: daterec, 



revision 
producer 
systemid 



daterec ; 

char; 
byte; 
notice : st ring[80] ; 
directorysize: integer ; 
modulesize : integer ; 
executable: boolean; 

relocatablesize: integer; 

relocatablebase; integer; 

globalsize ; integer; 

globalbase: integer; 

extblock, 



(date of creation) 
(producer's revision date number) 
(H = assembler, C = compiler, L = linker, etc.) 
(system version number (hard or soft, etc.) 
{space for whatever comments may be desired) 
{size of module directory, in bytes) 
{total size of module, in bytes) 
(module is executable, 

has start address ) 
{number of relocatable bytes requested) 
{current origin of relocatable code) 
(number of global bytes requested) 
(PS relative origin of global area) 

(module relative block of [:XT table) 
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956:0 
957:D 
958 :D 
959: 
960: 
961: 
962: 
963: 
964: 
965: 
966: 
967; 
968: 
969: 
970:S 
971 :0 
972:S 
973:S 
974 :D 
975;S 
976:S 
977:D 
978:S 
979:D 
980:0 
981 :D 
982:0 
983:0 
984:0 
985:0 
986:0 
987 :S 
988:0 
989:0 
990:0 
991: 
992: 
993: 
994: 
995: 
996: 
997 
998: 
999: 
1000: 
1001: 
1002: 
1003: 
1004: 
1005:0 
1006:0 
1007:0 
1008:D 
1009:D 
1010:0 
1011 :S 
1012:0 
1013:D 
1014 :D 
1015:5 



ex t size, 
defblock, 
def size . 
sourcebiock , 
sourcesize, 

text records : 



integer 



(size of EXT table, in bytes) 

(module relative block of DEF table) 

(size of DEF table, in bytes) 

(module relative block of DEFINE SOURCE) 

(size of source, in bytes) 

(number of TEXT records) 



(Remainder of directory is made up of variable length 
records. Strings begin and end on word (even byte) 
boundaries. The directory itself may cross block 
boundaries. General value or address records 
(GVR's, see description later) 

occuring below have the short variant offset; the 
offset Itself is the length of the GVR to assist in 
stepping quickly through the list.) 



(mname; string[ (variable) ]; 
(St art address : gvr; 

(repeat for each text record 
{ textstart , 
< textsize, 
( refstart, 
( refsize; 

loadaddress : 



(end 



integer; 
gvr; 



(name of module ) 

(execution address, present only 
if executable) 

(list of TEXT records! 
{module relative blocK of TEXT record) 
(size of TEXT record, in bytes) 
(module relative block of REF table) 
(size of REF table, in bytes) 
(location to load the TEXT) 



{module relative block of TEXT record) 
{size of TEXT record, in bytes) 
(module relative block of REF table) 
(size of REF table, in bytes) 



end ; 

tex t desc riptor = record 
textstart , 
textsize, 
refstart, 

refsize; integer; 
end; 

bitmap = packed array[0 . .maxint] of boolean; 

pat ctidescriptor = record 

p,3tchlist: patchdescptr; {head of list of patch descriptors) 

p.jtchref : addrec; 
end; 

modu ledescriptor = record 
link: moddescpt r ; 

case patchmod: boolean of 
true: ( 

moddescpt r ; 

patchdescpt r ; 

integer ; 

integer) ; 



patchlink : 
paTchlist : 
pa t chbase ; 
pat chsize : 

faise : ( 
de'" addr : 
d e '" 5 i z e : 



add rec ; 

integer ; 



(descriptors will be chained together) 



(patchmods are additionally linked) 
(head of list of patch descriptors) 
(relocatable address of patch space) 
(total bytes of patch space) 



(address of DEF table) 

(size of DEF table, in bytes) 



n-516 
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1016:0 

1017:0 

1018:0 

1019: 

1020: 

1021: 

1022: 

1023: 

1024: 

1025: 

1026: 

1027:0 

1028:0 

1029:0 

1030:0 

1031:0 

1032:S 

1033; 

1034: 

103S: 

1036: 

1037: 

1038: 

1039: 

1040: 

1041 : 

1042: 

1043: 

1044 :S 

1045:0 

1046:3 

1047:0 



1048 
1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057: 

1058: 

1059: 

1060: 

lOSl; 

1062: 

1063; 

1064 

1065; 

1066 

1067: 

1068:0 

1069:0 

1070:0 

1071:0 

1072:S 

1073:0 

1074:0 

1075:0 



-24 
-28 
-29 
-29 
-38 
-38 
-46 

-50 
-54 
-58 
-62 
-66 
-70 

-74 
-75 
-80 



case resolved: boolean of 
true: (startaddr: integer; 

progname; tid; 

ucase, lastmodule : booJe 
false; 



(exiaddr: 


addrec; 


listaddr: 


wordlistptr 


listsize: 


shortint ; 


unresbits: 


addrec; 


relocbase, 




globase; 


integer; 


relocdelta, 




globaldelta: 
filefib: 


integer; 


addrec; 


fileblock: 


shortint ; 


directory: 


addrec)); 
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(address of EXT table) 

findex pointers into EXT table) 

(number of entries in list) 

fflag to indicate unresolved symbols) 

(relocatable address of module) 

(global base address) 

(deltas for relocation) 
(file info block for module) 
(file relative block of module) 
(memory for processing modules) 



1 
1 
1 
1 
I 
I 
I 

1 

:L 

:i 

1 

:i 

-8 :i 

-8 :l 

-12 :i 

-16 :l 

-20 :i 

-24 1 



filedirectory = array[0 . .maxint] of direntry; 

sortdesc = record 

modp; moddescpt r ; 
case integer of 
1 : (ext : symbol pt r; n: shortir 
2: (def: addrec); 
end; 
sort list = array[0.. maxint] of sortdesc; 

irdexlist = array [1 . .maxint ] of shortint; 

ptrtable = arraylO. .maxint] of addrec; 



(memory management : ) 
a5['g_dollar'] : int 
lowheap, 
highheap: 



eger; 
addrec; 



(input file information: ) 
fdirectory: filedirptr; 
loadfib : addrec; 

integer; 

addrec; 



wrongbyte : 
linkmodname 



(linker in format ion: ) 

newmods : moddescpt r ; 

allre solved; boolean; 

tot alreloc, 

totalglobal: integer; 

start reloc, 

startglobal : integer ; 

cheap: anypt r; 
edefs : moddescpt r ; 
use rstack : integer ; 
entry point: moddescpt r ; 
eglobal : integer ; 

sysdefs : moddescpt r ; 

endmod : moddescpt r ; 
libfound: boolean; 
wrongrec : integer; 



^next available memory) 
(last available memory) 



(old library directory pointer) 
(pointer to FIB for open file) 
(error information) 
(ptr to name of module being linked) 

fmodules currently being processed) 
(flag indicating whether any ext's) 

(total bytes of areas) 

(starting addresses for areas) 

(«HEflP MARK FOR MEM hflNfiGING*) 



f*PERnflNENT BASE OF OflTfl flREfl*) 

(list of permanent module descriptors) 

(marks end of list of new modules) 

{error informat ion) 
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1076:D 
1077:0 
1078:S 

1079:D 
1080:0 
1081 :S 
1082:D 
1083:0 



1084 

1085:0 

1086;D 

1087;D 

1088;D 

1089:D 

1090;D 

1091:D 

1092;S 

1093:0 

1034 :D 

1095:S 

1096:0 

1097:S 

1098:D 

1099:0 

1 1 00 : S 

1101:D 

1102:0 

1103:S 

1104:0 

1105:0 

n06:S 

1107:0 

1108:0 

1109:0 

1110:S 

1111:0 

1112;C 



1113: 

1114: 

1115: 

1116 

1117: 

1118 

1119: 

1120: 

1121: 

1122: 

1123: 

1124:D 

1125:C 

1126:C 

1127:C 

U28:C 

1129:5 

1130:0 

1131 :C 

1132:C 

1133:C 

1 1 34 : C 

1135:S 



-80 
-88 

-88 
-88 

-88 
-88 
-88 
-88 

-88 
-88 
-88 



-88 
-88 



St artdefs, 
totaldefs : integer ; 



1 procedure markuser; 
1 procedure releaseuser; 
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<DEF table information) 



1 procedure loadinfo (mod n urn: shortint; all.resolveexts: boolean); 

1 procedure openlinkf[extra: addrec); iformerly 'openlinkf iie* ) 

1 procedure getbytesfvar p: integer; size: integer); 

1 procedure checkrev; 

1 procedure matchfile; 

1 procedure countcode; 

1 procedure loadtext(onheap: boolean); 

1 procedure zeromcm( start : anyptr; size: integer); 

1 procedure closefiles; 

1 procedure movedefs (newst artdefs : intege r ^ ; 



1 procedure loadq (filetogo : fid) 
1 procedure initloader; 



(name of file to be loaded) 



-88 1 implement 

-88 1 type pointer = -^integer; 
-88 1 address « integer; 

-88 1 var sysdeftableE'sysdeftable'] : 

-88 1 moduledescriptor; (initial ROn symbol table) 

1 procedure evalgvrfvar gvalue, gvptr: integer; 
-882 modptr: moddescpt r); external; 

1 procedure reloc ate(reftop, refindex: address; 

2 var object: address; 

-88 2 modptr: moddescptr); external; 

1 procedure 9etbytes(var p: integer; size: integer); 

2 begin 

2 if odd(5ize) then size := size + 1; 

2 p := lowheap. a; lowheap. a :* lowheap. a + size; 

2 if lowheap. a > highheap. a then escape[112): 

2 end; 

1 procedure readblocks(anyvar f: fib; anyvnr obi: integer; size, block: integer 

2 begin 

2 call (f.am, addr(f), readbytes obj, size, block*fblk5ize) ; 
2 if ioresult <> ord(inoerror) then escape(-lO); 
2 end; 

1 procedure markuser; 

2 begin 

2 ent rypoint := nil; mark(eheap); 

2 eglobal ;= usersteck; edefs := sysdefs; 

2 end; 

1 procedure releiJseuser ; 

2 begin 

2 entrypoint :- nil; release (eheap) ; 
2 userstack := eglobal; sysdefs := edefs; 
2 end; 
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1136:D 




1 


pro:edure openjinkf (ext ra : addrec); 




1137:D 


-4 


2 


var directsize: integer; 




1138:D 


-8 


2 


slop: integer: 
beyin if ioresult = then 




1139:C 




2 




1140:C 




3 


begin 




IMl :C 




3 


if loadfib.fbp".fkind <> codefile then escape(116); 




n42:C 




3 


highheap.a := highheap.a - blocksize; 

if highheap.a < lowheap.a then escape(112); 




1H3:C 




3 




1144;C 




3 


fdirectory := highheap. fdp; 




U45:C 




3 


readblocks(loadflb.php^,fdirectory'',blocksize,0): 




U46:C 




3 


directsize := (fdirectory'^EO] .dnumf lies + 1 )*5izeof (direntry) ; 




1147:C 




3 


slop := (-directsize) mod blocksize; 




1148:C 




3 


highheap.a :- highheap.a + blocksize - directsize - slop; 




1149:C 




3 


If directsize > blocksize then 




1150:C 




4 


begin 




U61:C 




4 


if highheap.a < lowheap.a then escape(112); 




U52:C 




4 


moveleft [fdirectory^, highheap. fdp^, blocksize); 




nS3:C 




4 


extra. a := highheap.a + blocksize; 




n64:C 




4 


readbIocks{ldadfib. php^, extra . p", directsize - blocksize, 1 ) ; 




1155:C 




4 


end; 




1156:C 




3 


if slop > then 




1157:C 




4 


begin 




1153:0 




4 


extra := highheap; highheap.a := highheap.a + slop; 
moveright (ext ra.fdp", highheap. fdp", directsize); 




1159:C 




4 




1160:C 




4 


end; 




1161 :C 




3 


fdirectory := highheap. fdp; 




1162:C 




3 


end 




1163:C 




3 


else begin fdirectory := nil; (directory invalid) 

loadfib := extra. arp"; (restore chain of FIB's) 




1164;C 




3 




11S5:C 




3 


lowheap := extra; (zap unopend F1B> 




116S:C 




3 


end' 
end; {openlinkfile) 




1167;C 




2 




1168:S 










1169:D 




1 


pro.:edure matchdefext( 




I170:D 




2 


var resolved, matched: boolean; 




1171:D 




2 


matchflag: byte; 




1172:D 




2 


deftable, exttable: symtableptr; 




1173:D 




2 


extlist: wordlistptr; 




1174:D 




2 


listlength: shortint; 




1175:D 




2 


deftablelength: integer); 




I176;D 


-88 


2 


ext'jrnal; 




1177:S 










1178:D 




1 


pro.:edure matchl (modpt r : moddescptr); 




1179:D 


-5 


2 


var defrnodptr: moddescptr; matched; boolean; 




1180:C 




2 


beq in with modpt r" do 




1181:C 




3 


begin 

d'ifmodpt r := lin^; 




1182:C 




3 




1183:C 




3 


wiile not resolved and (defrnodptr <> nil ) do 




1184:C 




4 


begin 




118S:C 




4 


if not defmodpt r^.patchmod then 




1186:C 




5 


matchdefext [resolved, matched, 0, 




1187:C 




5 


def modpt r^.defaddr.stp, extaddr.stp. 




1188:: 




5 


listaddr, listsize, defmodpt r". def size ) ; 
defrnodptr :- defrnodptr .link; 




1189:C 




4 




1190:C 




4 


end : 




1191:C 




3 


allresolved := allresolved and resolved; 




1192:C 




3 


eid; 




1193:C 




2 


end : 




1194:B 










1195;D 




1 


prc.;edure matchfile ; 
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1196:0 


-4 


2 


var modptr: moddescptr; 




1197:C 




2 


beg in 




1198:C 




2 


modptr := newmods; 




H99:C 




2 


wh lie modptr <> nil do 




1200:C 




3 


begin 




1201:C 




3 


matchl (modpt r ) ; 




1202:C 




3 


modptr := modpt r*^ . link ; 




1203:C 




3 


.■nd; 




1204:C 




2 


end ; 




120S:S 










1206:D 




1 


procedure loadinfo (modnum: shortint; all, resolveexts: boolean); 




1207:D 


-4 


2 


var modptr: moddescptr; 




1208:D 


-5 


2 


matched: boolean; 




1209:D 


-10 


2 


leftover: address; 




1210:D 


-12 


2 


modblock: shortint; 




1211:S 










1212:D 




2 


procedure alphalist( 




1213:D 




3 


symtable: symtableptr; 




1214:D 




3 


list: wordlistptr; 




121S:D 




3 


listlength: shortint); 
121H) : External declarations will be treated as global 




***UflRNING 


(line 




1216:D 


-12 


3 


external; 




1217:S 










1218:0 




2 


procedure makelist (tablept r : symtableptr; {DEE or EXT table) 




1219:D 




3 


length: integer; (length of symbol table) 




1220:D 




3 


bound: shortint; (boundary condition) 




1221:0 




3 


var listptr: wordlistptr; (address of list) 
var listlength: integer); (number of symbols) 




1222:0 




3 




1223:S 










1224:0 


-8 


3 


var i, 1: integer; 




1225:0 


-12 


3 


n, len: shortint; 




1226:0 


-16 


3 


ptr: addrec; 




1227:S 










1228:C 




3 


beg in 




1229:C 




3 


n := 0; listptr := lowheap. wlp; 




1230:C 




3 


1 := length; i := 0; 




1231:S 










1232:C 




3 


while 1 > do 




1233:C 




4 


begin 




1234:C 




4 


n :^ n ■♦ 1 ; 




1235:C 




4 


□etbytes (pt r . a , sizeof wordrec)); ptr.uw'^.w := i; 
len := rd ( t ab lept r"^ [ i ); 




1236:C 




4 




1237:C 




4 


len := Jen + bound - [ en mod bound); 

if bound = 2 (DEF table) then len :- len • ord ( tablept r' [itlen+1] ) ; 




1238:C 




4 




1239:C 




4 


i ;= 1 * len; 




124t):C 




4 


1 :" 1 - len; 




1241:C 




4 


end; 




I242:C 




3 


1 ,st length ;= n; 




1243:C 




3 


a iphalist (tablept r, listptr, n); 




1244:C 




3 


end. { makelist > 




124S:S 










1246:0 




2 


proiedure getdeftable; 




1247 :S 










1248:0 


-4 


3 


v.ir defptr: addrec; 




1249:0 


-4 


3 


sympt rl , 




1250:0 


-12 


3 


symptr2: addrec; 




1251 :D 


-20 


3 


i,len; integer; 
list: wordlistpt r; 
size: integer; 




1252:0 
1253:D 


-24 
-28 


3 
3 


11-518 
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1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262:C 

1263:C 

1284:C 

1265 

1266 

1267 

12S8 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276:C 

1277:C 

1278:C 

1279:C 

1280:5 

1281 :D 

1282:D 

1283:C 

1284 :C 

128S:C 

1286:C 

1287:C 

1238 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302:C 

1303:C 

1304 :C 

130S:C 

1306:C 

1307:C 

1308:C 



1309 
1310 
1311 
1312 
1313 
1314 



iocheck; > 

di recto ry.drp^.defb lock); 



begin 

with modptr^ do 
begin 

defsize :* directory .drp^.def size; 
getbytes[defaddr.a, defsize); 
if defsize > then 
begin 

getbytes(defptr.a, defsize); 
readblocks (loadfib , php"^, {unit read (f unit , .. 
defptr.p", defsize, modblock 
makelist {defptr .stp, defsize, 2, list, size); 
5ymptr2 ;= defaddr; 
for i := to size-l do 
begi n 

symptrl.a := def pt r . a+list^[i] ; 
len := strlen (sympt rl . syp"^) ; 
len :■ len * 2 - ord(odd ( len) ) : 
len := len + gvrpt r (sympt rl . a+ien)^. short ; 
fastmove (symptrl .p, 5ymptr2.p, len); 
symptr2.a ;= sympt r2. a+len ; 
end; 
lowheap := defptr; 
end; 
end; 
end; 

procedure getexttable; 
var size: integer; 

begin with modptr^, directory .drp"^ do 

begin 

if extsize < 8 then extsize := 8; 

getbytes (extaddr . a, extsize); 

If extsize > 8 then 
readblocks(loadfib.php-^ extaddr.p", extsize, modblock * extblock): 

extaddr .5lp''[01 ;= chr (Oi; 

extaddr .5tp*t4] := chr(O); 

makelist (extaddr . stp, extsize, 4, listaddr, size); 

listsize ;:= size; 

listaddr^tO] :» 0; 

li5taddr''[13 :- 0; 

end; 
end; 

procedure match2; 

var extmodptr: moddescptr; 

begin 

extmodptr ;= newmods; 

while extmodptr <> nil do with extmodptr'^ do 
begin 

if not patchmod then if not resolved then 
begin 
matchdefext (resolved , matched, 0, 

modptr^. defaddr .stp, extaddr .stp, 
listaddr, listsize, modpt r"^. defsize) ; 
allresolved ;= allresolved and resolved: 
end; 
extmodptr := link; 
end; 
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131S:C 


3 


1316:3 




1317:C 


2 


1318:C 


2 


1319:C 


2 


1320:C 


2 


1321:C 


2 


1322:C 


2 


1323:C 


2 


1324 :C 


3 


1325:C 


3 


1326:C 


3 


1327;C 


4 


1328:C 


4 


1329:C 


4 


1330:C 


4 


1331:C 


4 


1332:C 


4 


1333:C 


3 


1334:C 


3 


133S:C 


3 


1336:C 


3 


1337:C 


4 


1338:C 


4 


1338:C 


4 


1340:C 


4 


1341:C 


4 


1342:C 


4 


1343:C 


4 


1344:5 




1345:C 


4 


1346:C 


4 


1347:C 


4 


1348:C 


4 


1349:C 


4 


1350:C 


4 


1351 :C 


4 


1352:C 


4 


1353:C 


3 


1354:3 




135S:C 


2 


1356:S 




1357:0 


1 


1358:D 


-12 2 


1359:C 


2 


1360:C 


2 


1361 :C 


2 


1362:C 


t 


1363:C 


t. 


1364:C 


4 


1365:: 


;; 


1366:C 


2 


1367:5 




1368:0 


1 


1369:0 


-4 2 


1370:C 


2 


1371:C 


2 


1372:C 


2 


1373:C 


2 


1374 :C 


2 
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end; 

begin lloadinfo) 

modblock := <fblock *> fdi rectory"[modnum] .dfi rstblk; 
modpt r := lowheap.mdp; 

getbyte5( leftover , sizeof (modjledesc riptor , false, false) ) ; 
modp-t r". directory := lowheap: 
getbyte5( leftover, blocksize); 
with modptr', directory .drp"^ do 
begin 

readblock5(loadfib.php'', directory .drp'*-, blocksize, modblock); 
if directorysize > blocksize then 
begin 

getbytes(leftover,directory5ize-block5ize); 
re adb locks [ load fib.php^, {jnitread(funit ... iocheck) 

pointer (leftover ) '■.directorysize-blocksize.modblock+l ) : 
end 
else lowheap. a :* directory. a+directorysize; 
getdeftable; 

allresolved := true; matched := false: 
match2; 

if matched or all then 
begin 

libfound := true; 
link := newmods; 
patchmod := false; 
resolved := false; 
filefib := loadfib; 
fileblock:= modblock; 



newmods := modptr; 

<set appropriate variant) 
<remember mass memory location for later) 



getext table; 

matchdefext (resolved, matched, 

0<patchable bit ««* fix laterl **>, 
defaddr .stp, extaddr. stp, listaddr, 
listsize, defsize) ; 
if resolveexts then matchl (modpt r) ; 
end 
else lowheap. mdp := modptr; 
end; 

end; (loadinfo) 

procedure reverse pointers; 

var modptr, lastptr, nextptr: moddescptr; 

begin 

modptr := newmods; lastptr := endmod; 
while modptr <> endmod do with modptr" do 

begin nextptr := link; link := lastptr; 

lastptr := modptr; modptr :- nextptr; 
end; 
newmods := last ptr; 
end; 

procedure countcode; 
var modptr: moddescptr; 
begin 

reversepointers; 

modptr := newmods; 

totalreloc := 0; totalglobal :^ 0; 

while modptr <> endmod do with modptr'^ iJo 
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1375:C 




4 


begin 




1376:C 




4 


with directory .drp^ do 




1377:C 




5 


begin 




1378:C 




5 


totalreloc := totalreloc + relocatablesize + ord (odd ( relocatablesize) ) ; 




1379;C 




S 


totalglobal := totalglcbal * globalsize ♦ ord(odd (globalsize ) ) ; 




1380:C 




5 


end; 




1381:C 




4 


modptr := link; 




1382:C 




4 


end; 




1383:C 




2 


end : 




1384:S 










1385:D 




1 


proiedure closefiles; 




1386:C 




2 


begin 




1387:C 




2 


while loadfib.php <> nil do 




1388:C 




3 


bi-qin 

i close [ loadf ib .php^) ; ) 




1389:C 




3 




1390:C 




3 


with loadf ib . fbp'^, unitablc^tf jnit ] do 




1391 :C 




4 


call(dam, loadf ib. fbp^, funit, closefile); 




1392:C 




3 


loadfib.a := loadfib.a - sizeof (addrec) ; 




1393:C 




3 


Icadfib := loadfib . arp"; 




1394:C 




3 


eiid; 




1395:C 




2 


end: 




1396;S 










1397:D 




1 


procedure resolve; 




1398:D 


-4 


2 


var modptr: moddescptr; 




1399:D 


-12 


2 


mrbase,mgbase : integer; 




1«00:D 


-14 


2 


len: shortinT; 




1401 :D 


-16 


2 


i: shortint; 




1402:S 










1403:C 




2 


begin 




1404 :C 




2 


modptr := newmods' 

mibase := startreioc; mgbase := startglobal; 

Willie modptr <> endmod do with modptr do 




140S:C 




2 




1406:C 




2 




1407:C 




4 


begin 




1408;C 




4 


with directory .drp-^ do 




1409:C 




5 


begin 

relocbase := mrbase; relocdelta :- mrbase - relocatablebase; 




1410:C 




5 




1411:C 




5 


mrbase := mrbase + relocatablesize + ord(odd(relocatable5i2e) ) ; 




1412:C 




S 


globase := mgbase; globaldelta ;= mgbase - globalbase; 
mgbase := mgbase - globalsize - ord(odd(global5ize) ) ; 




1413:C 




5 




1414:C 




5 


end; 




1415:C 




4 


modptr ;= link; 




1416:: 




4 


end; 




1417:C 




2 


end, {resolve) 




1418:S 










1419:D 




1 


pr cedure createdefs; 




1420:D 


-4 


2 


vai modptr: moddescptr; 




1421;D 


-4 


2 


newmodpt r , 




1422:D 


-24 


2 


5p,pt rl ,ptr2,enddefs: addrec; 




1423:D 


-26 




len: shortint; 




1424:C 




2 


beqin 




1425;: 




2 


reversepointers; 




1426:: 




2 


en'rypoint := nil; 




1427:: 




2 


modptr :- newmods : 




1428:: 




2 


stdrtdefs := lowheap.a; 




1429:: 




2 


while modptr <> endmod do with modptr" do 




1430:: 




4 


begin 




1431:: 




4 


pi r 1 := defaddr ; 




1432:: 




4 


eiiddefs.a := ptrl.a + defsize; 




1433:: 




4 


getbyteslnewmodpt r .a, sizeof (moduledesc riptor , false, true)); 




1434:: 




4 


with newmodpt r .mdp" do 
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143S:: 




S 


t>egin 




1436:C 




5 


patchmod := false; resolved := true; 




1437:C 




6 


progname := modpt r". f ilef ib . fOp"". f tid (togo); 

ncase ;= unit able" [modpt r" . filef lb . fbp" . f unit ]. ujppercase; 




1438:C 




5 




1439:C 




6 


jf modpt r", di rectory .drp". executable then 




1440:C 




6 


begin 




1441:C 




6 


sp.a := modpt r". directory. a+sizeof (moduledirectory) ; 




I442:C 




6 


sp.a := sp,,a+5t rlen(5p. syp")+2-ord(odd(strlen(sp.syp") ) ) : 




1443:: 




6 


evaigvr[startaddr,5p.i, modptr); 




1444:: 




6 


lastmodule := ent rypoint=nil ; 




144S:C 




6 


entrypoint:= newmodpt r .mdp; (moddescpt r (newmodpt r . a - loaddelta);} 




1446:: 




6 


end 




1447:: 




6 


else begin startaddr := 0; 




1448:: 




6 


lastmodule := false; 




1449:C 




6 


end; 




1450:: 




5 


link := sysdefs; 




1451:: 




5 


sysdefs := newmodpt r .mdp; (moddescpt r (newmodpt r .a - loaddelta);) 




1452:: 




5 


defaddr. a := lowheap.a <- loaddelta); 




1463:C 




5 


while ptrl.a < enddefs.a do 




1454:: 




6 


begin 




1455:: 




6 


len := strlen{pt rl . syp") + 2 - ord(odd( st rlen(pt rl . syp") ) ) ; 




1456:: 




6 


getbytes (ptr2 .a.len) ; f astmove (pt rl .p, ptr2.p, len); 
ptrl .a := ptrl .a + len; 




1457:: 




6 




1458:: 




6 


getbytes [pt r2 .a, sizeof (generalvalue , false)); 




1459:C 




6 


with ptr2.gvp" do 




1460:C 




7 


begin primarytype := absolute; datasize := sint; 




1461:C 




7 


patchable := false; valueextend := true; 




1462:C 




7 


longoffset ;= false; short := 6; 




1463:C 




7 


end; 




1464:: 




6 


getbytes [ptr2. a, sizeof (valueex tens ion, sint) ) ; 




146S:: 




6 


evalgvr (pt r2 .vep". value, ptrl.i, modptr); 




1466:0 




6 


end; 




1467:C 




5 


defsize := lowheap.a -(defaddr. a <* loaddelta)); 




1468:C 




5 


end; 




1469:C 




4 


mcdptr :» link; 




1470:C 




4 


end: 
tolaldefs := lowheap.a - startdefs; 




1471;C 




2 




1472:C 




2 


end; 




1473:S 










1474:D 




1 


procedure movedef s ( newst a rtdef s : integer); 




1475:D 


-4 


2 


var modptr: moddescptr; 




1476:D 


-8 


2 


defdelta: integer; 




1477:0 


-12 


2 


previous: "addrec; 




1478:C 




2 


begin 

defdelta := newstartdefs - startdefs; 




1479:C 




2 




1480:C 




2 


previous := add r ( sysdefs ) ; 




1481 :: 




2 


modptr := sysdefs; 




1482:: 




2 


while modptr <> endmod do with modptr" do 




1483:C 




4 


begin 




1484:: 




4 


previous". a := previous". a + defdelta; 




1485:: 




4 


if entrypoint = modptr then entrypoint := previous". mdp; 




1486:0 




4 


defaddr. a := defaddr. a + defdelta; 




1487:0 




4 


previous := addr(link); 




1488:0 




4 


rriodptr := link; 




1489:0 




4 


end; 




1490:0 




2 


fa?, tmove( pointer (startdefs), pointer (new startdefs), tot aide fs); 




1491 :: 




2 


startdefs := newstartdefs; 




1492:: 

1493:0 


-88 


2 

1 


end; 


n-520 


1494 :D 




1 


procedure loadtext (onheap : boolean); 
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1495:S 

1496:0 2 const maxrefsize - 254: 

1497:S 

iJII-S * ^ "'^'^ modptr: modOescptr; (currenl module being loaded) 

!iS9'S "t i textbuffer, (base of text record buffer) 

liXo S , % object objecto, (object in text record being modified by ref record) 

!SX; S ^ refbuffer, (base of ref table buffer) 

JlxJ'S ;* ^ oldindex: (pointer to old text descriptors) 

1504:0 -24 2 addrec: 

1605:S 

1506:0 -24 2 loaddelta, (loader displacement) 

JiSI'S ~xi. I oldtextrec: (text records left to process from old module) 

1508:0 -32 2 integer: 

1609:S 

1510:S 

ISU :S 

1S12:C 2 begin (procedure loadtext) 

1513:C 2 If onheap then 

1S14:C 3 begin 

151S:C 3 getbytes(textbuffer .a, totalreloc <* blocksize) ) ; 

ISlS^C 3 loaddelta := textbuffer. a - startreloc: 

1S17:C 3 end 

1S18:C 3 else loaddelta := 0; 

1519:C 2 resolve; 

1520:C 2 modptr := newmods; 

lS2i:C 2 while modptr <> endmod do with modptr'-, di rectory .drp" do 

1522:C 4 begin 

Jio<'£ i linkmodname.a :» directory. a ♦ slzeof (moduledirectory) ; 

ic^cS oldindex. a ;= linkmodname.a + str len (linkmodname . syp") + 2 - 

1525:C 4 ord(odd(st rlen( linkmodname . syp^) ) ) ; 

}528:C 4 if executable then oldindex. a := oldindex. a • oldindex. gvp". short ■ 

1527:C 4 for oldtextrec := 1 to textrecords do 

1528:C 5 with oldindex. tdp~ do 

1S29:C 6 begin 

1530:C S oldindex. a := oldindex. a * sizeof (textdescrlptor ) : 

IMI-E 6 evalgvrfobject .1, oldindex. i, modptr); 

1532:C $ if textsize > then 

1533:C 7 begin 

1534:C 7 if object. a >= startreloc 

1S35:C 8 then if object. a < startreloc t totalreloc 

1|36:C 9 then object. a := object. a ♦ loaddelta; 

'538:C 7 roadblocks (modpt r". fllefib . php", (unit read (modpt r". fileunit ,... iocheck) 

Jrinir , ., , - „ . object .p-,textsize, fileblock + textstart); 

1540. C 7 if refsize > then 

1541:C 8 begin 

1542:C 8 getbyte5(refbuffer.a, refsize); 

1543:C 8 readblock5(modpt r". f ilef ib . php*-, 

ll^Ji? I u- „ .- refbuffer .p", refsize, fileblock + refstart); 

i54S:C 8 objecto :- object; " 

'5^6:0 8 try relocate ( lowheap. a, refbuffer. a, object. a, modptr); 

1547:C 9 recover 

1548:C 9 begin 

J|49:C 9 wrongbyte := object . a-objectO . a; 

1550:C 9 wrongrec := oldtextrec; 

1551 :C 9 escapefescapecode) ; 

1S52:C 9 end; 

1S53:C 3 lowheap :> refbuffer; 

1554:C 3 end; 



Pascal [Rev 3.0M 6/ 4/84] LOBOER.TEXT 26-Dec-84 21:01:21 Page 28 •»« File name: INITLOfiD »•» 

1555:C 7 end; 

1556:C (5 end; (for oldtextrec) 

1557:C 4 modptr := link; 

15S8:C 4 end; 

15S9:S 

1560:C ;; createdefs; 

1561 :C 2 closefiles; 

1562:S 

1S63:C ;> if onheap then fastmove(textbuffer.p, polnte r (start reloc) , totalreloc); 

156S:C 2 end; 

1566:3 

1567:0 :l procedure zeromem(start : anyptr; size: integer); 

1568:0 -8 2 var ptr, endp: addrec; 

1S69:C 2 begin 

1S70:C 2 ptr.p •.' start; endp. a := ptr. a + size; 

1571:C 2 whale ptr. a < endp. a do 

1572:C 3 begin 

1573:C 3 ptr.sw" := 0; 

1574:C 3 ptr. a := ptr. a + 2; 

1575:C 3 end; 

IS76:C 2 end; 

1577:S 

1578:D 1 procedure checkrev; 

1579:C 2 begin 

1580:C 2 if newmods-^. directory. drp".systemid <> 3 then e5cape(118); 

1581 : C 2 end; 

1582:3 

1583:0 -122 1 procedure loadq (f iletogo ; f id ) ; 

1584:3 

1586:D -122 2 type Str9 = packed array[1..9] of char; 

1586:3 

1587:0 -122 2 const loading = st r9t'Loading '"]; 

1588:3 3 J< 

1589:0 -126 2 var modnum, esc: shortint; 

1590:0 -130 2 extra: addrec; 

1591 ;D -138 2 i, ior: integer; 

1592:S 

1S93:C 2 begin 

1594:3 

1S95:C 2 loadfib.php := nil; 

1596;C 2 try 

1597 :C 2: releaseuser; (get rid of last program) 

1598:C 3 mark (lowheap. p) ; highheap.a :* userstack: 

1S99:C 3 startreloc := lowheap. a; 

|600:C 3 newmods ;• sysdefs; endmod := sysdefs; 

lf02:C 3 getbytes(extra.a, sizeof (addrec )) ; (save old value of loadfib) 

1603:C 3 extra. arp-^ := loadfib; 

1604:0 3 getbytesdoadfib.a, sizeof (fib, 1 )) ; (create a FIB for new file) 

1605:C 3 with loadfib. fbp^; unit3ble^[sySLjnit 1 do 

I606:C 4 begin 

1607:C 4 fbuffered :■ faOse; 

1608:C 4 ftitle := filelbgo; 

1609:C 4 funit := sysunit; 

1610:C 4 call(dam, loadfib . fbp'^, sysunit, openfile); 

I6I1 :C 4 am := tm; 

1612:C 4 end; •< coi 

iei3:C 3 openlinkf (extra) ; U-Oill 

1614:3 
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1 := St rlen(f ileto9o)+l ; set 5t rlen (f iletogo , i+9); 
f ilelogo [i] := ' ' ' ' ■ 



161S:C 
1616:C 
1617:C 

«»UflRNING: 
1618:C 
1619:C 
1620:S 
1621 ; 
1622: 
1623: 
1624: 
1625: 
1626: 
1627: 
1628: 
1629:C 
1630:S 
1631 :: 
1S32:C 
1633:: 
1634:C 
i635:C 
1636:5 
1637:C 
1638:S 
1639:C 
1640:S 
1641 :C 
1642:C 
1643:S 
1644:C 
1645:C 
1646:C 
1647:: 
1848:: 
1649:: 
1650:: 
1651:: 
16S2:S 
1653:D 
1664:: 
1655:: 
1656:C 
1657:C 
1658:: 
1659:: 
1660:S 
1661:: 
1662:: 
1663:5 
1664:D 
1665:S 
1666:D 
1667:D 
1668:D 
1S69:D 
1670:5 
1671 :D 
1672:: 
1673:: 



3 

3 ... 

3 mover iqht [filetogo[l] , f 3letogo[10] , i); 

(line 1618): 'POOR' of a constant may not be supported on other implementations 

3 fastmove (addr ( loading) , addr ( f iletogo [1 ]) , 9); 

3 c pymsg(f iletogo) ; 

3 if fdirectory = nil then escape (-10) ; 

3 for modnum := 1 to fdirectory"[0] .dnumf iles do 

4 begin loadinfo (modnum, true, false); checltrev; end; 
3 allresolved := true; matchfile; 

3 highheap.a := userstack; 

3 if not allresolved ttien escape (-1 19 ) ; 

3 countcode; 

3 highheap.a := userstack - totalglobal; 

3 if highheap.a < (a5 - 32768) then e5cape(117); 

3 ^tartglobal := userstack - a5: 

3 userstack :- highheap.a; 

3 zeromem(highheap. p, totalglobal); 

3 loadtejtt ( t rue) ; 

3 movedef5(5tartreloc + tot alreloc ] ; 

lowheap.a ;= startdefs + totaldefs; 
release ( lowheap. p) ; 

recover 

begin 

esc := escapecode; ior := ioresult; 

c losef iles; 

releaseuser; 

ioresult := ior; escape(esc); 

end; 
end ; 

procedure initloader; 
beoin 

sysdefs := addr ( sysdef table) ; 

(findroms; (find and "load" rom modules > 

userstack := aS * 32208; {GBflSE OF SYSTEn_P -- SEE «LINKnfiP> 

markuser ; 
end ; 

end 

Sinclude 'L0B(5ER' $; 



3 
3 

3 
3 
3 
3 
3 
3 
3 
2 

1 
2 
2 
2 
2 
2 
2 

1 
2 

1 import bootdammodule, sysglobals, asm, loader; 

1 const splen = 20; 

1 type stringsp = si ring [splen] ; 

1 const sysprefix = st rinqspt'/WORKSTnTIONS/SVSTEn' ] ; 

1 var sysstart: strirgEllJ; 

1 procedure unitioiriit; 

2 beqin 

2 sysunit :^ 0; 
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1674:: 

1675:: 

1676:: 

1677:: 

1678:: 

1679:: 

1680:: 

1681:: 

1682:: 

1683:: 

1684:: 

1685:: 

1686:: 

1687:: 

1688:: 

1689:: 

1690:: 

1691:: 

1692:: 

1693:: 

1694:: 

1695:: 

1696:: 

1697:: 

1698:: 

1699:5 

1700:: 

1701:S 

1702:D 

1703 :D 

1704:: 

1705:: 

1706:: 

1707:: 

1708:: 

1709:: 

1710:S 

1711:D 

1712:0 

1713:0 

1714:: 

1715: 

1716 

1717: 

1718 

1719: 

1720: 

1721: 

1722: 

1723: 

1724: 

1725: 

1726: 

1727: 

1728: 

1729: 

1730: 

1731 : 

1732: 

1733: 



(must always initially be zero!) 
(must always initially be -11) 

{always initially assume online) 

{assume media invalid until verified) 

{assume case is significant) 

(assume unit not fixed) 

(do not report media changes) 

(not used yet) 



2 initbootdam; 

2 newwords (unliable , sizeof (unitent r y) 

2 with unitable^[0] do begin 

3 dam := bootdam; 
3 tm := bootim; 
3 sc := 0; 
3 ba := 0; 
3 du :> 0; 
3 dv := 0; 
3 byteoffset :« 0; 
3 devld := 0; 
3 uvid := ' ' ; 
3 dvrtemp := 0; 
3 dvrtemp2 := -1; 
3 letter := chrjO); 
3 offline := false; 
3 uisinter active := false; 
3 umediavalid := false; 
3 uuppercase := false; 
3 uisfixed ;= false; 
3 ureportchanqe := false; 
3 pad := 0; 
3 uisblkd ;= true; 
3 umaxbytes :- 528 * fblksize; 
3 end (with) 

3 end; 

1 procedure initfkinds; 

2 var fk: fllekind; 
2 begin 

2 mark ( amt able] ; 
2 new(ef ttable) ; 
2 for fk := untypedfile to lastfkind do ef t table"[fk] := 0; 
2 efttable'[codeflle] := -5582; 

2 end; 

1 procedure go; 

2 var done: boolean; 

2 modpt r : moddescptr; 
2 be^in (GO) 

2 If entrypoint <> nil then 

3 try 

4 modptr := entrypoint; 

4 repeat 

5 if modpt r'". star taddroO then 

6 userprogr am(modpt r-^. St artaddr , userstack); 
5 done := modpt r" . lastmodule; 

5 modptr := modpt r" . link ; 

5 until done; 

4 recover escape (escapecode ) ; 

2 end; (GO) 

1 procedure add(var s: string; st : stringSO); 

2 var i : integer ; 
2 begin 

2 for 1 :- 1 to si rlen(st) do 

3 begin setstrlen(s, st rlen (s)+l ] ; s[strlen(5]] 
2 ena; 



(TO fiVOIO fiODRESSING ERRORS) 



st[i]; end; 



11-522 
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1734:0 1 procedure createsysname; 

!23|-E 2 'yP« stringsysp = packed array[1..10] of char; 

:,SS-E . I "^""^^ ^ysp = stringsyspt'SYSTEn P']; 

1737:D -4 2 var i,y. shortint: 

I738:D -5 2 c: char; 

1739:C 2 begin 

1740:C 2 sysstart := "INITLIB'; 

1741:C 2 1 :• 0; 

Uii-i \ r«P«at i := i * 1; until (i=10) or ( sysname [i] <>!y5p[i] ) ; 

^''♦J-'- t lTl<10tnen 

1744 :C 3 begin 

}745:C 3 setr=trler(sy5start, 5trmax(5yS5tart ) ) ; 

174e:C 3 if i < 8 then i := 3 else i :- 7- 

1747:C 3 j :» 4; 

1748 :C 3 repeat 

1749:C 4 1 := i + 1; 

l''50:C 4 c := sysnameli]; 

I'wic :! Jxll^ZxW o?\lJ''^^'u ^ '- i"' ^vsstartu] := c; end; 

1753:C 3 setstrlenCsysstart, 1); 

1754:C 3 end: 

175S:C 2 end; 

1756:S 

1757:D 1 procedure trysrmboot: 

1768:D -4 2 var s2: 5trinq2; 

1759:0 -46 2 il: 5tring[40]; 

1760:C 2 begin 

1761 :C 2 52 := bootnode; 

1762:C 2 if strlen(52) > then 

1763 :C 3 begin 

}764:C 3 nodestr := syspreflx: add(node5tr, 521; add(node5tr, '/'); 

176S:C 3 il := nodestr; add(il, sysstart); 

1766:C 3 try loadgfil); 

J'l^'J * recover if escapecode <> -10 then escape (escapecode) ; 

1768:C J If entrypoint = nil then 

1769:C 4 begin 

l™'-'~ *■ setstrlen(node5tr, splen+l); nodest r [splen*! ] := '/'; 

llll-'x * ll := nodestr; sdd(il, sysstart); 

772:C 4 try loadqtil); 

J4ix-; J recover if escapecode <> -10 then e:icape (escapecode) ; 

1774:C 4 end; 

177S:C 3 end: 

177S:C 2 end; 
1777:S 

1778:C 1 begin 

Ult'^ } powerup; (SET UP STACK, GLOBAL BREfl, ETC.) 

;'™-^ f unitloinit; (SET UP UNIT TABLE ENTRY f6r BOofiNG) 

Is'-f J initfkinds; (SET UP MINIrmL FILE TYPE TABLE) 

1782. C 1 initloader; (SET UP LOADER ) 

1784!c 1 try 

178S:C 2 createsysname; 

n86:C 2 trysrmboot; 

1787:C 2 if entrypoint = nil then 

1788:C 3 begin 

1789:C 3 nodestr := "; 

1790:C 3 loadq(5ysstart); 

1791:C 3 end; 

j:!'2:C 2 cpymsgC); (CLEAR SCREEN, PUT UP COPYRIGHT} 

''^^■'- 2 go; (EXECUTE RLL PROGRAMS IN SYSSTART) 
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1794:C 2 recover errmsg; (PRINT ERROR tIESSBGE > 

1795;C 1 while true do; 

1796:C 1 end. 
1797:S 

No errors. 2 warnings. 

*««x* Nonstandard language features enabled »««*« 
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lOLIB 



Description 

lOLIB is the high-level, user-accessible I/O facilities. 



Requirements 

I/O library kernel (IDDECLARATIONS, etc. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

11-525 
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1:S (» 

2:S 

3:S (c) Copyright Hewlett-Packard Company, 1984. 

4:S fill rights are reserved. Copying or other 

5:S reproduction of this program except for archival 

6:S purposes is prohibited without the prior 

7:S written consent of Hewlett-Packard Company. 

8:S 

9 ■ S 

lOis RESTRICTED RIGHTS LEGEND 
11:S 

12:S Us-;, duplication, or disclosure by the Government 

13:3 15 subject to restrictions as set forth in 

14:S paragraph (b) (3) (B) of the Rights in Technical 

15:S Data and Computer Software clause in 

16:S DfiR 7-104. 9(a) . 
n:S 

18:S HELiLETT-PHCkfiRD COnPHNY 

19:D FoM Collins, Colorado ») 
20:S 
21:S 

22:0 SnoDCBL 0N$ 

23:0 SPPRTIflL EVfiL ONI 

24:0 SSTflCKCHECK 0N$ 

25:0 SRfiMGE OFF$ 

26:0 $D1:BUG 0FF$ 

27:0 SOVFLCHECK OFF$ 
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28 :D JPBGES 

29 ;D (***»*«*****»»******************************«*»****»«****«**********«Ki*«*) 

30:0 (» * 

31:0 (» RELEBSED VERSION 3.0 * 

32:0 » « 

33:0 (***»******************** *r»*************»:*********»*******>^****^*********\ 

34:0 (• «l 

35:0 (» 

36:0 (« lOLIB lOLIB 

37:0 (« 

38:0 (» 

39-0 (****#**•*«**««*#*******«*«**«**«******««****»**»****«*****»****»**♦***♦*) 

40:0 (» 

41 :0 (» 

42:0 (• library - lOLIB 

43:0 « name - lOLIB 

44:0 I* mQdule(s) - general_l 

45:0 « - Fipib_l 

46:0 (* - general_2 

47:0 (• - generalj 

48:0 (* - general_4 

49:0 (« - hpib_0 

50:0 (» - hpib_2 

51:0 * - hpib_3 

62:0 (« - serlal_0 

53:0 (* - 5erial_3 

54:0 (• 

65:0 « author 

66:0 1« phone 

57:0 (« 

58:0 (• date - June 1 , 1981 

59:0 (• update - June 4, 1984 

60:0 * release - June 4, 1984 

61 :0 « 

62:0 • source - lOLIB : lOLIS TEXT 

63:0 (» object - lOLIB : lOLIB.CODE 

64:0 (• 

65 ;D ( v» «« «y ««« K» »«««*»*««%«»*««» t *x» «*»»»«*«»»» «»«**«**«»***««««**»«* t ***«***) 
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66:D 

67 :D 

68:D 

69:D 

70:0 

71:0 

72:D 

73:0 

74: 

75: 

76: 

77: 

78: 

79: 

80: 

81: 

82: 

83: 

84:D 

85;D 

86:0 

87:0 

88:0 

89:0 

90:0 

91:0 

92:0 

93:0 

94:0 

95:0 

96:0 

97:0 

98:0 

99:0 

100:0 

101 : 

102: 

103; 

104: 

105: 

106: 

107: 

108: 



»XX»^«««X»««»»««X»«««X*»»» 



*«***««*«*♦«*******} 



This is the source code for an external procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



3. 



KERNEL modules 
driver modules 
lOLIB modules 



The KERNElL modules consist of the following modules 



iodeclarations 

iocomasm 

general_0 



( contains static r/w space ) 



( initialization & low level 
routines like ioread/iowr ite) 
The KERNEL modules also have an e>;ecutable program segement 
that gets executed at the time it is loaded. This program 
initializes the static read/write memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is not a driver for it. 

The driver modules consist of the actual assembly or PRSCfiL 
routines that deal with a specific interface card. There is 
also an executable program segment for each driver module. 
This program searches the select code table in the static r/w 
initialized by the KERNEL general module for all select codes 
that have the right interface car? ( HPIB drivers will search 
for the 98624 interface }. This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLIB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 
SYSTEM. INITLIB file as object code ( not EXPORT text 
export text will reside on the SYSTEM. LIBRARY file. 
of the library will reside on the SYSTEM. LIBRARY . 



1. Th 
The re 



(**♦»*»««****«♦*♦* 



*«»*««tt«S«X«»«*«»»««« 
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109:D 
110:0 
111:D 
112:D 
113:0 
114:0 
11S:D 
116:0 
117:D 
118:0 
119:0 
120:0 
121:D 



122: 

123: 

124: 

125: 

126: 

127: 

128: 

129: 

130: 

131:0 

132:0 

133:0 

134:0 

135:0 

136:0 

137:0 

138:0 

139:0 

140:0 

141:0 

142:0 

143:0 

144:0 

145:0 

146:0 

147:0 

148:0 

149:0 

150:0 

151:0 

152:0 

153:0 

154:0 

155:D 

156:0 

157:0 

158:0 

159:0 

160:0 

161 :D 

162:0 

163:D 

164:0 

166:0 

166:D 

167:0 

168:D 



I 


PBGE$ 


(1 


««»»«« 


n 









1) 









n 


































« 




















































































() 














« 


































« 




1) 



















1) 









fl 
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(1 




n 








































BUG FIX HISTORY 
BUG tt BY / ON 

1250 

01/08/1982 

1251 

01/08/1982 
01/26/1982 

1252 

01/08/1982 

1258 - --' 

01/08/1982 

1269 

01/08/1982 

1270 

01/08/1982 
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*M MX »:*XMX-*m»'*»*x**X****.**X*XX:*WiX*» **»***»:**»»:] 



1281 
0082 

0083 



01/08/1982 
07/23/1982 

07/23/1982 

08/20/1982 

08/26/1982 

08/23/1982 



- after release 



DESCRIPTION 



HPIB_3 
requestservice 



HPIB 2 
local 



HPIB_2 

r emo t e 



HPIB„2 
pa55._cont rol 



request service allows 
active ctl to request 
se rvice . 

local [7) with sc 7 as 
sys ctl / not act ctl 
gives error. 

remote(7) with sc 7 as 
act ctl / not sys ctl 
doesn' t give error . 

pass control sends the 
wrong sequence to pass 
control to itself. 



SERIRL_3 
set_stop_bit s 

SERIRL_3 
set_baud_rate 
set_5top_bits 
set_parity 
set_char_lengt h 

GENERA L_3 
ioerror_me55age 

GENERfiL_3 

ioerror^message 



bad check for 
card . 

matte procedures for 
data conom consistent 
for buffered control. 



GENERAL 4 
buf fe r_Eusy 
isc_busy 

SERIRL_3 
set_pariT y 



set__pari ty 
set_char_length 

set_s top_bit 5 

GENERA L_3 
ioerror_mes5age 



Urong message for error 
ioe_not_dvc . 

Addition of a link for 

the error messages. 

See also lODECLflRRTIONS. 

fiddition of buffer_busy 
and isc_bu5y routines. 



Set parity of one and *i 
zero parity is backwards*) 
for the 98628 card. «) 
*) 
Changes for addition *) 
of 98626 drivers. *) 



fiddition of SRn driver 
error codes. See also 

lODECLflRRTIONS. 

Mistyped . [ typo ) 
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169:0 (« 10/01/1982 

170:D (» 

ni:D (• J5l5 

172:D (« 03/09/1983 

173:0 (» 

174:0 (• 

175:0 (» tttt - 

176:0 (« 08/03/1983 

177:0 (« 

178:0 (• 

179:0 (• 

180:0 (» S/15/84 

181:0 (« 6/4/84 

182:0 (**««***»****»**»***#«******«***««* 
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set_parity 



HPIB 2 
local 



BUG FIX error in Local 
procedure for jsc param 
and not sys controller. «J 

Use timer on CPU board 

if available for timeout*) 

checking 



serial modules add code for 98644 



IKX«J«XX«XX»»»» 



****xx***** 
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$PF1(.E$ 



183:0 
184:0 
185:D 
186:D 
187:D 
188:0 
189:0 
190:0 
191:0 
192:0 
193:0 
194:0 
195:0 
196:0 
197:0 
198:0 
199:0 
200:0 
201 :D 
202:0 
203:0 
204:0 
205 :D 
206:0 
207:0 
208:0 
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*i»**M»**x*m*»*»x 



1. 9826 I/O Oeslgners Guide 

2. 68000 Manual 

3. Pascal alpha site ER3 

4. Pascal I/O Library ERS 

5. 9826 HPl EIO S 100 listings 

6. 9826 HPL Misc. I/O Doc. 

7. 9826 card documentation 

8. Pascal I/O Library IRS 



Motorola ) 



»»xn«i;ilcx««xsy»«»»»««w«««***»««\ 
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209:0 JPfiGEI 

210:0 (************«**«««»*»«*«**««********♦*«*#»* ***««t««««««*x»«««**«»«*«««««i 

211:0 (» 

212:0 « 

213:0 (« GENERAL GROUP 

214:0 j» 

215:0 » 

216:0 »«»««»«»«««»«»»»««»«»»»•««»»»«»«»»«»««»«»»»»««»»»»,».»»»»»»»»,««„,,,,,,) 

217:S 

218:S 

219:S 

220:0 (10DULE general 1 : 

221 :S 

222 :S { 

223:S date 07/15/81 

224:S update 11/20/81 

225:S 

226:S purpose This module contains the LEVEL I GENERAL GROUP 

227:0 1 > 

228:S 

229:S 

230:0 1 IMPORT SSEPRCH • lOLIB :KERNEL .CODE' , ' I0LIB:C0t1flSI1'$ 

231:0 1 iodeclarat ions ; 

232:S 

233:0 1 EXPORT 

234 ;S 

235:0 1 PROCEDURE loinitialize; 

236:0 1 PROCEDURE iouninitialize : 

237:0 1 PROCEDURE loreset ( select code : type isc): 

238:0 1 PROCEDURE readchar ( 5elec1~code : type'isc : 

239:0 2 VBR value : CHAR"); 

240:0 1 PROCEDURE writechar ( select code : type isc ; 

241:0 2 value : CHAR"): 

242:D 1 PROCEDURE readword ( select code : type isc ; 

243:D 2 VflR nuS : INTE5ER) ; 

244:D 1 PROCEDURE writeword ( select code : type isc : 

245:D 2 value : INTECER): 

246:0 1 PROCEDURE set timeout ( select code 

247:0 2 " time " 

248 :S 

249 :S 

250:0 1 inPLEMENT 
251 :S 

252:0 I IMPORT general 0: 
253:S 
254 :S 
255:3 

256:0 1 PROCEDURE loinitialize; 
257:C 2 BEGIN 
258:S 

259:0 2 lo system reset; 
260 ;S 

261 ;C 2 END; < of loinitialize ) 
262:S 
263:S 
264 :S 

265:0 1 PROCEDURE iouninitialize: 
266:C 2 BEGIN 
267:5 
268 :C 2 io._5ystem_.reset ; 



t ype i s 
REPL ); 
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269 :S 

270:C 2 END; ( of iouninitialize ) 

271:3 

272:3 

273:3 

274 :D 1 PROCEDURE ioreset ( select code : type isc]; 

275:C 2 BEGIN ~ >>- - i , 

276:C 2 UITH isc table[select code] DO 

277:C 3 CALL (io_3rv_pt r" . iod_Init , 

278 :C 3 io_tmp ptr); 

279:C 2 END; ( of ioreset ) 

280 :S 

281:3 

282:0 1 PROCEDURE readchar ( select code : type isc ; 

283:0 2 VflR value : ChBr") ; 

284 :C 2 BEGIN 

285:C 2 UITH isc table [select_code] DO 

286:C 3 CALL (io_5rv_pt r". iod rdb, 

287:C 3 io tmp_ptr, 

288 :C 3 value); 

289:C 2 END; ( of readchar > 

290:3 

291 :S 

292:3 

293:0 1 PROCEDURE writechar ( select code : type isc ; 

294 :D 2 value : CHPR~); 

29S:C 2 BEGIN 

296:C 2 UITH isc table t5elect_code] DO 

297:C 3 CfiLL(io_3rv_ptr".iod wtb, 

298 :C 3 io tmp_ptr, 

299 :C 3 value); 

300:C 2 END; { of writechar > 

301 :S 

302:3 

303:3 

304:D 1 PROCEDURE readword ( select code : type isc ; 

305 :D :> VflR nuS : INTECER); 

306:D -2 2 VflR my num : io word; 

307 :C 2 BEGIN 

308:C 2 UITH isc tabletselect_code] DO 

309:C 3 CBLL(io 3rv_ptr'-.iod_rdw, 

310;C 3 io^tmp ptr, 

311 :C 3 my^numj; 

312:C 2 num;=my2num; 

313 :C 2 END; < of readword ) 

314:3 

315:3 

316:3 

317:0 1 PROCEDURE writeword ( select code : type isc ; 

318:0 2 value : [NTEEER); 

319:0 -2 2 VRR my value : io word: 

320:C 2 BEGIN ~ 

321 :C 2 my value : =value ; 

322:C 2 UITH isc table[5elect code] 00 

323:C 3 CALL ( io_3rv_pt r ~. iod_wtw, 

324 :C 3 io~tmp pt r , 

32S:C 3 mylvalue); 

326:C 2 END; ( of writeword ) 11-529 

328:3 
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3. Oh 


329 :S 




330:D 


1 


33!:D 


-8 2 


332:C 


2 


333:C 


2 


334 :C 


3 


335 :C 


3 


336:C 


3 


337:C 


3 


338:C 


2 


339:C 


3 


340:C 


3 


341 :C 


3 


342:C 


3 


343:S 




344 :C 


2 


345;S 




346 :C 


3 


347;C 


3 


348:S 




349:C 


3 


350;S 




361 ;C 


3 


352:S 




353:C 


2 


354 :S 




355 :S 




356 :C 


1 
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PKOCEDURE set timeout ( 5elect_code : type_i5c 

REBL 



time 
Bf ;iN 

[F time>8191 
THEM BEGIN 
( error ) 

io_e scape ( ioe_bad_tmo, select code); 
END; < of IF > 
IF (time>01 AND (time<0.001) 
THEN BEGIN 
{ error > 

io escape ( ioe_bad_tmo, 5elect_code ) ; 
END; ( of IF ) 



REBL ( in seconds ) ) ; 

( 4 byte timeout - 1 byte left for shifts ) 



JITH i5c_table[select_code] 



{ the table entry used by dri 
use retime := POUND ( time* 1000) ; 



DO BEGIN 

ers is in 



IF io_tmp_ptr <> NIL THEN io_tmp_pt r'' . t imeout 
END; ( of UITH DO BEGIN ) 
END; < of set_timeout ) 

ND; < of 9eneral._l ) 



illiseconds ) 

U5er_t ime; 
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357: 

358: 

359: 

360: 

361: 

362: 

3S3: 

364: 

365: 

366: 

367: 

368: 

369: 

370 :D 

371:D 

372: 

373: 

374: 

376: 

376: 

377: 

378: 

379: 

380: 

381: 

382: 

383: 

384: 

386: 

386: 

387: 

388: 

389: 

390: 

391 : 

392: 

393: 

394: 

395: 

396: 

397; 

398: 

399 :D 

400 :D 

401 :D 
402:D 
403:D 
404:0 
405:0 
406:0 
407:0 
408:0 
409:0 
410:0 
411 :D 
412:0 
413:0 
414:D 
41S:S 
416:S 



HPIB GROUP LEVEL 1 



**!********* 



*«*«««**«»«****«« 



*t»X*******M****X**X** 



«*»«»«***«** 



This level is included in the 
general group because HP-IB 
addressing is necessary for 

?eneral puropose device speci- 
icat ion . 



(»»»««*«»x««»iK»««»»»**>:XX 



iX****X**»****»*^**** 



«*********#****«*«** 



1 nODULE hpib_l 
{ 



date 07/16/81 
update 08/03/83 

purpose This module contains the LEVEL 1 HPIB GROUP procedures. 



IMPOf^T iodeclarations 
EXPORT 



PROCEDURE send coiimand{ select code : type_isc 

CHf- ■ 



commanU 
FUNCTION my_address ( select_code 

: t ype_hpib_add 
FUNCTION active_controller 

( select code : 

: BOOLEPR; 
FUNCTION system^controller 

( select code ; 

: BOOLEfiR; 
FUNCTION addr_to_talk( device : 

■ type_i5c; 
FUNCTION addr_to_ll5ten 

( device ; 

: type_isc; 
FUNCTION 5et_to_talk ( device : 

: type_isc; 
FUNCTION 5et_to_listen 

( device ; 

: type_isc; 
FUNCTION end set ( select code : 

: BOOLEfiR; 



CHBR ); 
t ype_35c ) 



t ype_i5c ) 

type_i5C ) 
t ype_device ) 

t ype_device) 
type^device ) 

t ype_device ) 
type_i5c ) 
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417:D 


1 


inPLEflENT 




418:S 








419:0 


1 


IhPORT iocomasm , 




420:D 


1 


general„0 ; 




421:S 








422:0 


1 


TYPE timeout rec = record tttt JS 8/3/83 > 




423:D 


1 


counter: integer; tttt JS 8/3/83 




424 :D 


1 


firsttime: Doclean; tttt JS 8/3/83 




425:0 


1 


end; { tttt JS 8/3/83 '. 




426:S 








427:S 








428:0 


1 


FUNCTION timere:<i5ts: boolean; exterral; < tttt JS 8/3/83 > 




429:S 








430:0 
431 -S 


1 


FUNCTION tlmed_out(var rec : timeoutrec): boolean; external; (tttt JS 8/3/83) 




432:0 
433:0 


1 
2 


PROCEDURE send coiTinand( select code : type Isc ; 
command : CHRR ) ; 




434 :C 


2 


BEGIN 




435:C 


2 


UITH isc 1able[select code] DC 




436:C 


3 


CRLL ( io_d!rv_ptr^.Tod_send, 




437:C 


3 


io~tmp"pt r , 




438:C 


3 


command) ; 




439:C 


2 


END; < of 5end_conmand > 




440 :S 








441 :S 








442:S 








443:0 


1 


FUNCTION my address ( select code : type isc) 




444:0 


2 


: type hpib addr ; 




44S:C 


2 


BEGIN 1 - - 




446:C 


2 


IF i5c_tab:e[5elect code].lo tmp pt r <> NIL 




447:C 


3 


THEN BEGIN ~ " 




448 :C 


3 


UITH isc Table[select codej.io tmp ptr^ DO 




449 :C 


4 


IF addressed <> -1 




450:C 


5 


THEN BEGIN 




451 :C 


5 


my address:=addressed; 




452:C 


5 


END 




453:C 


5 


ELSE BEGIN 




454:: 


5 


( error ) 




455 :C 


5 


10 escapelioe not hpib, select code); 
END; •; of IF ad3ressed ) 




456 :C 


S 




457 :C 


3 


END 




458 :C 


3 


ELSE BEGIN 




459 :C 


3 


{ error > 




460 :C 


3 


10 escapefioe not hpib, select coae); 
END; ( of IF io tmp pt r > 




481:C 


3 




462 :C 


2 


END; < of m,v_adOre5s ) 




463 :S 








464:5 








46S:S 








466:0 


1 


FUNCTION active_controner 




467:0 


2 


( select code : type isc) 




468:0 


2 


: BOOLEflR; 




469 :C 


2 


BEGIN 




470 :C 


2 


IF isc tat)le[select code]. card type=hpib card 




471:C 


3 


THEN BEGIN ~ _ r k _ 




472:C 


3 


active cent roller :=bit set ( iostal U5(select code, 3), 6); 




473 :C 


3 


END ~ - . } , 1 , 




474 :C 


3 


ELSE BEGIN 




475:C 


3 


active controller := TRUE; 




476 :C 


3 


END; ( oT IF ) 
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477:C 


2 


END; < of active controller ) 




478:S 




■ 




479:3 








480:S 








481:0 


1 


FUNCTION system controller 




482:0 


2 


( select code ; type isc) 




483:0 


2 


: BOOLESR; 




484 :C 


2 


BEGIN 




48S:C 


2 


IF isc table[select code). card tyoe=hpib card 




486:C 


3 


THEN BEGIN 




487:C 


3 


system_controller :=bit set ( io^tat us( select code, 3), 7); 




488:C 


3 


END - ^.1,1, 




489:C 


3 


ELSE BEGIN 




490:C 


3 


system controller := TRUE; 




491:C 


3 


END; { oT IF > 




492:C 


2 


END; ( of system controller > 




493:S 








494:S 








495:3 








496:0 


1 


FUNCTION end set { select code : type isc ) 




497:0 


2 


: BOOLEflR ; '>- - ' 




498:D 


-I 2 


VOR mybool : BOOLEfIN; 




499:C 


2 


BEGIN 




500:C 


2 


UITH isc 1able[5elect code] DO 




501 :C 


3 


CALL ( io_drv_ptr^.Tod_end, 




S02:C 


3 


io tmp ptr. 




503:C 


3 


myEoolJ; 
end set := mybool; 




504 :C 


2 




505:C 


2 


ENO ; J of send cormand > 




506:3 








507:S 
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508 :D 

509 :S 
S10:D 
S11:D 
512:D 
513:D 
614;D 
S15:S 
516: " 
517: 
518; 
619: 
520: 
521 : 
522: 
523: 
524: 
625: 
526 :S 
527:C 
628 :C 
529 :S 
S30:C 

531 :C 

532 :C 
533:C 
534: 
535: 
538: 
S37: 
538: 
539; 
540: 
541: 
642; 
543: 
544: 
S45: 
54S: 
S47:C 
548 ;C 
S49:C 
S50;C 
551 :C 
552;S 
553:C 
554 :C 
S55:S 
556: 
557: 
558: 
559: 
560; 
561 ; 
562: 
563: 
564: 
565: 
566: 
567: 



6/ 4/84] lOLIB.TEXT 

jrnGEj 

FUNCTION at)dr_tc_talkt device 

; type_isc; 
VftR io isc : type isc; 

timer ; INTECER; 

hpibrec: timeoutrec; 

BEGIN 

IF device>iomaxi5C 
THEN BEGIN 

io_isc:=clevice DIV 100; 

UITH isc_table[io_i5CJ DO BEGIN 

IF io tmp ptr <> NIL 
THEN BESIN 
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t ype_device ) 



(tttt JS 8/3/83) 



< set up user timeout 
io_tmp_pt r^ . timeout ; -u 



in case system drivers changed it ) 
er_t ime; 



IF io tmp ptr^ 
f) BfeSlN 



. i^ M.-K 1^1. .addressed <> -1 
THEf) BEEIN 

IF ( card_type <> hpib card ) AND 
( device (lOD 100 > Jl ) 
THEN io_esc3pe ( ioe misc , io_isc ) ; 
send_command[io_isc,CHR(talk_con5tant+ (device MOD 100))); 
send_command(io_isc ,'?'); 

send_command(io_i5c,CHR (my_addres5(io_isc)+listen constant)); 
END 

ELSE BEGIN 
^ error ) 

io^escape (ioe_not hpib.io isc); 
END; ( of IF > 
END 

ELSE BEGIN 
END; < of IF > 
END; ( of UITH DO BEGIN ) 
END 
ELSE BEGIN 

io._isc ;=device; 

UITH isc_table[io_isc] DO BEGIN 

< set up user timeout - in case system drivers changed it ) 
IF io_tmp_ptr <> NIL THEN io_tmp_pt r' . timeout : =u5e r_t ime; 

IF card type=hpib card THEN 
BEGIN" 

IF NOT act ive_cont roller ( io_isc ) 
THEN BEGIN 

( if non controller wait until listener ) 
IF user time = 
THEN BEGIN 
REPEAT 

< wait forever ) 
UNTIL bit set (iostatus(io isc, 6), 10); 
END 
ELSE BEGIN 
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ttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 
tttt JS 8/3/83) 



( wait for timeout value ) 
IF timerexists THEN BEGIN 
hpibrec. firstt ime : = t rue; 
hpibrec .counter ;=u5er time; 
REPEAT 
UNTIL timed_out (hpibrec) OR 

bit set (iostatus(io isc, 6), 10); 
END 
ELSE BEGIN 

timer:=user time*3; 
REPEAT 

timer : = timer-l ; 
UNTIL ( timer = 6 ) OR 

( bit_5et (iostatu5(io isc, 6), 10) ) : 
END; <tttt JS 8/3/83 

IF NOT bit_set (iostatu5(io_i5C,6J,10) 
THEN io escape( iPe_timeout , io_isc) ; 
END; ( of IF user timc=0 ) 
END; < of IF ) 
END; < of IF card type =• hpib card ) 
END; < of UITH DO BEGIN ) 
END; ( of IF ) 

.iddr_to_talk ; = io„isc; { return select code ) 

END; < of addr_to„talk ) 
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609:S 

610:C 

611 :S 
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614:S 
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616:C 

617:S 

618:C 

619:C 

620:C 



621: 

622: 
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624: 

625: 

626: 

627: 

628: 

629: 

630: 

631: 

632: 

633: 

634: 

635:C 

636:C 



637: 
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639: 
640: 
641: 

642 :C 

643 :S 

644 :C 

645 :C 

646 :C 

647 :C 
648:C 
649 :C 
650:C 
651:C 
6S2:C 
653:C 
654 :C 
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FUNCTION ad<lr_to_ll5ten 

( device 
: type_isc; 
VflR io_isc : type isc; 
tinier : INTEGER; 
hpibrec: timeoutrec; 

BEGIN 



type_device) 



<tttt JS 8/3/83) 



IF device>iomaxisc 
THEN BEGIN 

io_i5c:=device DIV 100; 

UITH isc_table[io_isc] DO BEGIN 

IF io tmp ptr <> NIL 

THEH BEIJIN 

{ set up user timeout - in case system drivers changed it ) 
io_tmp_pt r^. timeout : = user_t ime; 

IF io tmp pt r"^. addressed <> -1 
THER BEtllN 

IF [ card type <> hpib card 3 AND 
( device MOD 100 > Jl ) 
THEN io_e5cape ( ioe misc,io isc); 
send_comniand(io_i5c ,CHR (my_a?dress(io_isc)+t alk_constant ) ) ; 
send_command(io isc,'?'): ~ ~ 

send_command(io~i5C,CHR( listen_con5tant+(device MOD 100))); 
END 

ELSE BEGIN 
{ error ) 

Io escape(ioe not hpib.io isc); 
END; ( of IF ) 
END 

ELSE BEGIN 
END; < of IF ) 
END; ( of UITH DO BEGIN ) 
END 
ELSE BEGIN 

io_isc : =device ; 

UITH isc_table[io_lsc] DO BEGIN 

( set up user timeout - in case system drivers changed it ) 
IF io_tmp_ptr <> NIL THEN io_tmp_pt r* . timeout :=u5er_t ime; 

IF card_t ype=hpib card THEN 
BEGIN 

]F NOT active cont roller ( io isc) 
THEN BEGIN ~ 

< if nor controller wait until talker ) 
IF user time = 
THEN KGIN 
REPEAT 



UN' 



( wait forever } 
ITIL bit_5et (iostat 



tus(io_isc,6) ,9) 
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655:C 


7 


656:C 


7 


657:C 


7 


658:C 


8 


669:C 


8 


660:C 


8 


e61:C 


9 


662:C 


9 


663:C 


8 


664 :C 


8 


66S:C 


8 


666;C 


8 


667:C 


9 


668:C 


9 


669:C 


9 


670:C 


8 


671 :C 


7 


672:C 


8 


673:C 


7 


674:C 


6 


67S:C 


5 


676;C 


4 


677:C 


3 


678:S 




679:0 


2 


680:S 




681 :C 


2 


682:3 





ELSE BEGIN 

{ wait for timeout value > 
IF timerexists THEN BEGIN 
hpibrec. first time : = t rue; 
hpibrec .counter :=u5e r time; 
REPEfiT 
UNTIL timed_out (hpibrec) OR 

bit set (iostatus (io isc, 6), 9); 
END 
ELSE BEGIN 

timer :=u5er_t ime*3; 
REPEAT 

t ime r : = t ime r - 1 ; 
UNTIL ( timer = 6 ) OR 

( bit set (iostatusfio isc, 6), 9 
END; 

IF NOT bit_5et (io5tatus(io_isc 
THEN io e5cape(ioe timeout, i 
END; { of IF user t ime=0 > 
END; < of IF ) 
END; ( of IF card type = hpib_card > 
END; { of UITH DO BEGIN > 
END; ( of IF ) 

addr_to_listen : =io_isc ; 

END; ( of addr_to_llsten > 



.,6|,9) 
lo_lsc ) ; 



JS 8/3/83) 

t JS 8/3/83 

t JS 8/3/83 

t JS 8/3/83 

t JS 8/3/83) 

t JS 8/3/83) 

t JS 8/3/83) 

t JS 8/3/83) 



(tttt JS 8/3/83) 



< 
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1 tPflGES 

{ set to talk exists because of HPIB_2/HPIB_3 - 
those routines are intended to be The controller 
[ active ) and should not wait for the card to be 
addressed as talker. addr_to_tdlk is used by 
data transfer routines. set_to_talk is used by 
1 bus control routines. ~ ~ > 



1 FUNCTION 5et_to_talk ( device : type_device) 

2 : type_isc: 
2 VRR io isc : type isc; 

2 BEGIN "" 

2 IF device>iomaxisc 

3 THEN BEGIN 

3 io isc:*addr to talk(device) : 

3 END ~ ~ 

3 ELSE BEGIN 

3 io_i5c :=device; 

3 

3 UIITH isc_table[io_i5C] DO BEGIN 

4 < set up user timeout - in case system drivers changed it ) 
4 IF io_tmp_ptr <> NIL THEN io_tmp_pt r^. timeout ;=user_time: 

4 IF card type«hpib card THEN 

5 BEGIN" 

5 IF NOT active cont roller (io isc) 

6 THEN BEGIN 

6 io_escape (ioe_not_act ,io_i5c ) ; 

6 END; < of IF > 

5 END; ( of IF card type = hpib card > 

4 END; < of UITH DO BEGTN > 

3 END; < of IF ) 

2 set_to_talk :=io_isc ; { return select code ) 

2 END; ( of 5et_to._talk > 
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1 JPfiGEJ 

( set to listen exists because of HPIB_2/HPIB 3 - 
those routines are intended to be the controller 
( active ) and should not wait for the card to be 
addressed as listener. addr to_Ji5ten is used by 
data transfer routines. set_to_li5ten is used by 
1 bus control routines. ) 



1 FUNCTION set_to,_listen 

2 " ( device : type_device) 
2 : type_isc: 

2 V(IR io_isc : type isc; 

2 timer : INTEEER; 

2 BFGIN 

2 IF device>iomaxisc 

3 THEN BEGIN 

3 io_isc :=addr_to_listen (device) ; 

3 END 

3 ELSE BEGIN 

3 io isc:=device; 

3 

3 UITH isc_table[io_i5C] DO BEGIN 

4 < set up user timeout - in case system drivers changed it > 
4 iF io_tmp_ptr <> NIL THEN io_tnip_pt r" . t imeout :=use r_t ime ; 

4 IF card type=hpib card THEN 

5 BEGIN" 

5 IF NOT active cont roller ( io isc] 

6 THEN BEGIN 



6 io^escape (ioe_not_act ,io_i5c ) ; 

6 END; < of IF ) 

5 END; ( of IF card type = hplb card ) 

4 END; ( of UITH DO BEGTN > 

3 END; < of IF ) 

2 5et_to_li5ten :--io_isc ; 

2 END; ( of set_to_.li5ten > 



( of hpibl ) 
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782 :D 




1 


$PRGE$ 




783:0 




1 


MODULE general..2 ; 




784 :S 










785:S 






< 




78B:S 






date 07/15/81 




787:5 
788:S 
789:S 






update 11/30/81 








purpose This module contains the LEVEL 2 GENERAL GROUP procedures. 




790:S 










791:0 




1 


) 




792:5 










793:0 




1 


IflPORT iodeclarations; 




794 ;S 










795:0 




1 


EXPORT 




796:0 




1 






797:0 




1 


PROCEDURE readnumber ( device 


type device ; 
RERL ) ; 




798:0 




2 


VRR num 




799:0 




1 


PROCEDURE writenumber( device 


type device ; 
RERL ) ; 




800:D 




2 


value 




801 :D 




1 


PROCEDURE readstring 




802;D 




2 


( device : type device ; 
VBR str: STRIRG ) ; 




803:0 




2 




804:0 




1 


PROCEDURE readstring until 




805:0 




2 


( term 


CHRR ; 




806:0 




2 


device 


type device ; 
STRING ); 




807:0 




2 


vfIR str 




808:0 




1 


PROCEDURE writestring( device 


type device ; 




809:0 




2 


str 


io STRING ) : 




810:0 




1 


PROCEDURE readnumberln 




811:0 




2 


( device : type device ; 
VOR num: RERL ); 




812:0 




2 




813:0 




1 


PROCEDURE writenumberln 




814:0 




2 


( device : type device ; 
value : REAL ): 




815:0 




2 




81S:0 




1 


PROCEDURE writestringln 




817:0 




2 


( device 


type device ; 




818:0 




2 


str 


io STRING ); 




819:0 




1 


PROCEDURE readuntil ( tern 


CHHR ; 




820:0 




2 


device 


type device ); 
INTEGER I 




821 :D 




I 


PROCEDURE skipfor ( count 




822:0 




2 


device 


type device ) ; 




823:5 






' 




824:5 










825:0 




1 


inPLEMENT 




826:0 




1 


IMPORT sysglobals, 




827:0 




1 


hpib 1 , 




828:0 




1 


general_l ; 




829:S 










830:5 










831:0 




1 






832:0 




1 


PROCEDURE readnumber ( device : type device ; 
VRR num: REfiL" ) ; 




833:0 




2 




834:0 


-256 


2 


VRR io_work_str 


STRINGr255] ; 




835:0 


-260 


2 


i ~ 


INTEGER; 




836:0 


-264 


2 


P2 


INTEGER; 




837:0 


-266 


2 


io isc 


type isc; 
BOOLEAN; 




838:0 


-267 


2 


numbuilt 




839:S 










840:0 




2 


FUNCTION numeric I character : CHfiR) : BOOLEPN: 




841 :C 




3 


BEGIN 
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842 :C 




3 


CASE character OF 




843:C 




4 


;o;..'9'| 




844 :C 




4 






845:C 




4 


'E'.'e' : numeric :=TRUE 




846:5 










847:C 




4 


OTHERUISE numerlc:-FnLSE 




848 :C 




4 


ENO; < of Cfi5E > 




849:C 




3 


END; { of numeric ) 




850:C 




2 


BEGIN 




851 :C 




2 


( use TRV RECOVER to build a number until I find one > 




852:S 










853:C 




2 


io_isc:=addr_to_talk (device) ; 




854:5 










855:C 




2 


numbuilt := FHL5E; 




856:5 










857;C 




2 


UITH isc table[io iscj.io drv ptr" , 




858:C 




3 


isc_tabletio_iscl o6 BEGIN 




859:5 










860:C 




3 


REPERT 




881:5 










862;C 




4 


SET5TRLEN(io work str, 255); 




863:C 




4 


i:-l; 




864:5 










865 :C 




4 


< skip over non-numeric characters ) 
REPEflf 




866:C 




4 




867:C 




5 


CALL [ iod rdb , io tmp ptr , io work str[i]); 




868;C 




5 


UHILE io_work_5tr[iI=' "^ DO 




869:C 




6 


CRLL ( iod Tdb , io tmp ptr , io work strEi]); 




870:C 




5 


UNTIL numeric (To_work_str[iT) ; 




871:5 










872:C 




4 


< read in numeric characters > 




873:C 




4 


REPERT 




874 :C 




5 


l:-i+l; 




875:0 




5 


CPLL ( iod rdb , io tmp ptr , io work 5tr[i] ); 




876:C 




5 


UHILE io work 5tr[iT=' "^ DO 




877 ;C 
878;C 




6 

S 


CRLL ( iod rdb , io tmp ptr , io work strti]); 
UNTIL ( (NOT ( numeric(To work 3tr[iT))) !JR ( 
( i>=.2SS) ) ); 




873:C 




5 




880:5 










881 :S 










882:C 




4 


SETSTRLENdo work str.i); 




883:C 




4 


io_work_char :=io_work_st r [i] ; 




884:5 










885:C 




4 


TRY 




886:S 










887:C 




5 


STRREflD(io_work_5tr,l,p2,num| ; 




888:C 




5 






889:C 




5 


numbuilt :- TRUE; 




890:5 










891 :C 




5 


RECOVER BEGIN 




892:C 




5 


IF ( ESCBPEC00E=-10 1 PNO 
( ( lORESULT = ORD(IBnDFORMfiT) ) OR 




893:C 




6 




894 :C 




6 


( lORESULT . ORD(ISTROVFL) ) ) 




895:C 




6 


THEN BEGIN 




896:C 




6 


{ this is the strread errors - try again } 




e97;C 




6 


EMD 




898:C 




S 


ELSE BEGIN 




899:C 




6 


i this means something else happened ) 


11-535 


900:C 




6 


ESCSPE(ESCHPECODE) ; 




901:C 




6 


END; < 


of IF my er ro 


> 
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902:C 

903 :S 

904 :C 
90S:S 
906:S 
907:C 

908 ;S 

909 :C 
910;S 
911 :S 
912:S 
913:D 
914:D 
915:0 
916:D 
917:D 
918:D 
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5 END; ( of RECOVER > 
4 UNTIL numbuilt; 

3 END; ( of UITH DO BEGIN ) 
2 END; ( of readnumber ) 
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919: 

920: 

921: 

922: 

923: 

924: 

925: 

926: 

927: 

928: 

929:C 

930:S 

931 :C 

932:S 

933:S 

934:S 

93S:D 

936: 

937: 

938: 

939: 

940: 

941: 

942: 

943: 

944 :C 

945 :S 

946 :C 

947 :C 
948:C 
949:C 
9S0:C 
951 :C 
952:C 
953:C 
964:C 
95S:C 
956 :S 
957:C 
958 :S 
959:C 
960:S 
961 :S 



-12 
-16 
-18 

-274 



PROCEDURE 
VfiR 



/ritenumber (device 
value 
: INTEGER; 
: INTEGER; 



Type device 
REflL ); 



P2 

io_isc 
io work 5t 
BEGIN 

io_i bc : = addr_1o_Ii5ten (device) ; 



type isc; 
STRIN!;[2SS]; 

isten (devic 

UITH i5c_table [io__isc] . io_drv_pt r* 



isc_table[io~isc3 



d6 BEGIN 



STRURITE(io_work_str,l,p2, value]; 
FOR i:=l TO p2-l DO 

CBLL ( iod_wtb , io_tmp_ptr , io_work_st r [i) ) ; 

END; { of UITH DO > 

END; < of writenumber ) 



PROCEDURE readstring 
VftR i 



10 isc 
BEGIN 

io isc:=add 



VSR 
INTEGER; 
type_isc; 



( device : type device 
'" tr: STRir" 



«ING ) 



to_talk(device) ; 

WITH isc_table [io_isc] . io drv ptr*^ 
isc_table[io_isc] ~ ~ 



5tr[i] 



iV 



SETSTRLEN(5tr,STRt1BX(5tr)); 

repeAt 

i:.i*l; 

CALL ( iod rdb , io_tmp pt r 
UNTIL ( (i>=5TRriBX(5tr) ) 

( St r [i] = io line feed ) ) ; 
IF str [i].io_aine_fee5 THER i:=l-l; 
IF ioO THEN IF str[i] = io carriage rtn THEN i:=i-l 
SETSTRLEN(5tr,i]; 

END; ( of UITH 00 BEGIN > 

ENO; { of readstring ) 



d6 BEGIN 

{ so I can do assign to empty string ) 
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962 :S 




963:S 




964 :D 


1 


965:D 


2 


966:0 


2 


967:D 


2 


968:D 


-4 2 


969:0 


-6 2 


970:D 


-7 2 


971 :C 


2 


972:C 


2 


973:S 




974:C 


2 


975:C 


3 


976 :S 




977:C 


3 


978 :C 


3 


979 :C 


3 


980 :C 


4 


981:C 


4 


982 :C 


4 


983:C 


4 


984 :C 


3 


985:3 




986 :C 


3 


987:S 




988:C 


2 


989:S 




990:S 




991 :S 




992:0 


1 


993:0 


-256 2 


994 :D 


-260 2 


995:D 


-262 2 


996:C 


2 


997:C 


2 


998:S 




999 :C 


2 


1000:C 


3 


1001:S 




1002:C 


3 


1003:C 


4 


1004 :C 


3 


1005:C 


3 


1006:S 




1007:C 


2 


1008:S 




1009:5 




1010:5 




1011 :D 


1 


1012:D 


2 


1013:0 


2 


1014:0 


-2 2 


1015:C 


2 


1016:C 


2 


1017:C 


2 


1018:C 


2 


10I9:C 


3 


1020:C 


2 


1021 :S 





CHRP ; 
type device 
STRIRg ); 



PROCEDURE read5tring_until 
{ term 
device 

VSR str 
VSR i : INTEGER; 

io_i5c : type_isc; 

io work char: CHHR; 
BEGIN 

io_isc :=addr_to_talk (device ) ; 

UITH isc_t able [io_isc] . io_drv_pt r"^ , 

isc_tablc[io_lsc] DO BEGIN 

SETSTRLEN(str.STRMBX(str) ); 

i:.0: 

REPERT 

i:=ltl; 

CRLL ( iod rdb , io tmp ptr , 5tr[i]); 
UNTIL ( (i>.5TRmX(str) 1 (5r 

( 5tr[i]=term ; 
SETSTRLEN(5tr,i); 

ENO; < of UITH DO BEGIN > 

END; < of readst ring_until > 



PROCEDURE wrltestring( device : type device ; 
str : io STRING ) ; 
VRR i : INTEGER; 

io isc: type isc; 
BEGIN 

io_isc := add r_to_l is ten (device) ; 

UITH isc_table[io„i5c] .io_drv_ptr'^ , 

isc_table[io_i5c] DO BEGIN 

FOR i:=l TO STRLEN(str) 00 

CRLL ( iod..wtb , io_tmp_ptr , str[i]); 



END; < of UITH 00 > 
ENO; < of wrltestring ) 



PROCEDURE readnumberln 

( device 
VRR num 
VRR io isc : type isc; 

BEGIN ~ 

io_i5c :=addr_to_talk (device) ; 
readnumber (io_isc , num) ; 
IF io_work^char <> io line feed THEN 
readunt II (io line_Teed,Io_isc ) ; 
END; { of readnumberln > 



t ype^device 



type 
REBL 
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1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1078 
1077 
1078 
1079 
1080 
1081 



-256 
-258 



type dev 
REfiL~); 



PROCEDURE writenumberln 

{ device 
value 
VflR io isc : type isc; 
BEGIN 

io^i5c;=addr to listen (device) ; 

writer umbe r {To_Tsc , v a 1 ue J ; 

writechar(io isc, io_car riage rtn 

writechar (io~isc,io line_fee5): 
END; ( of writenumberln > 



PROCEDURE wrltestringln 

( device : type device 
str : io_STRIMG ); 
VfiR io isc : type isc: 
BEGIN " ' - I 

io^isc:=addr to listen (device) ; 

wn test ring (To_Tsc , St r ) ; 

writechar (io_isc, io_car riage rtn) ; 

writechar (io_isCj io Iine_fee3); 
END; { of writest ringTn > 



PROCEDURE readuntil ( term : CHAR ; 

device ; type device ); 
VfiR io_work_cnar; CHBR; 

io isc : type isc; 
BEGIN 

io_i5C:=addr_to_talk(device) ; 

UITH isc_table [io_isc] . io drv_ptr^ 

isc_table[io_isc] ~ DO BEGIN 

REPEfiT 

CPLL ( iod_rdb , io_tmp_ptr , io_work_char) ; 
UNTIL ( io_wbrk_char=term ); 

END; < of UITH DO BEGIN > 

END; ( of readuntil ) 



PROCEDURE skipfor 

VHR 1 

io__isc 

char 



( count 
device 
INTEGER; 
type isc; 
CHRR; 



INTEGER ; 
t ype_device 



io_isc 
io_work 
BEGIN 

io_i5C :=3ddr_to_talk (device ) ; 



yiTH isc_table [io_isc] . io_drv_pt r" , 

i5c_tabletio_i5ci 00 BEGIN 

FOR i:-l TO count DO 
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4 CALL ( iod^rdb , io_tmp_ptr , io work char); 

3 

3 END; ( of UITH DO BEGIN > 

2 END; < of skipfor ) 
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1082:C 
1083:0 
1084:0 

1085:S 
1086:C 
1087:S 
1088:S 
1089:S 
1090:0 



1 END; { of general._2 ) 
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1093 
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1094 
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1095 
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1096 
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1097 
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1098 
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1099 


V] 


1100 





1101 
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1102 
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1103 
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1104 
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1105 


D 


1106 


;5 


1107 


D 


1108 


S 


1109 


D 


1110 


s 


1111 


D 


1112 


P 


1113 


C 


1114 


c 


1115 


s 


1116 


c 


1117 


c 


1118 


c 


1119 


c 


1120 


s 


1121 


c 


1122 


c 


1123 


i: 


1124 


c 


1125 


1" 


1126 


c 


1127 


c 


1128 


c 


1129 


c 


1130 


c 


1131 


c 


1132 


c 


1133 


c 


1134 


c 


1135 


c 


1136 


c 


1137 


c 


1138 


c 


1139 


c 


1140 


c 


1141 


c 


1142 


i: 


1143 


c 


1144 


c 


1145 


c 


1146 


c 


1147 


s 


1148 


I] 


1149 


c 


1150 


i: 
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date n/27/ei 

update 07/23/82 

purpose This module contains the LEVEL 3 GENERAL GROUP procedures. 



I IMPORT iodecl mirations 

EXPORT 

FUNCTION 

IMPLEMENT 



ioerfor_me5sage ( ioerror : INTEGER ) : io_STf?ING; 



FUNCTION ioerror message ( ioerror ; 

VflR my msg : io STRING; 

BEGIN 

my_m5g := 'zzzz' ; 

IF ( ioerror <= ioe_mi5C ) RND 
( ioerror >= ioe no error ) 
THEN BEGIN 

CASE Ioerror OF 



m/_msg 
my_ms9 
my_msg 
my_msg 
my_msg 
my_msg 
my_msg 
my_m5g 
my_msg 
my_msg 
my_m5g 
my_m5g 
my_m5g 
my_msg 
my_m5g 
my _m5g 
my_m5g 
my_m5g 
my_ms9 
my_m5g 
my_m5g 
my_m5g 
m y_m s g 
my_msg 



IF ( ioerror >= ioe_dc_fail 1 RND 
( ioerror <= ioe_dc_rval ) 
THEN BEGIN 





oe no _error 




oe_no"card 




oe not hpib 




oe not act 




oe not dvc 




oe~no space 




oe no data 




oe baH tfr 




oe_i5c_busy 




oe_buf_bu5y 




oe_bad_cnt 




oe bad tmo 




oe no 3rive 




oe~no dma 




oe no word 




oe_not_t alk 




oe_not_l5t n 




oe_t imeout 




oe not sctl 




oe rds wtc 




oe_bad_sct 




oe_crd_dwn 




oe eod seen 


ioe mi5C 


END; T of CASE 


END; 


( of IF ) 



INTEGER ) : io^STRING; 



< 0082 Tfl 7/23/82 > 



'no er ror ' ; 

'no card at select code'; 

'interface shouJd be hpib 

'not active controller'; 

'should be device not sc' 

'no space left in buffer'; 

'no data left in buffer'; 

'improper transfer attempted'; 

'the select code is busy'; 

'the buffer is busy' ; 

'improper transfer count'; 

'bad t imeout value' ; 

'no driver for this card'; 

'no dma' ; 

'word operations not allowed'; 

'not addressed as tallter"; 

'not addressed as listener'; 

'a timeout has occurred'; 

'not system controller'; 

'bad status or control'; 

'bad set/clear/test operation' ; 

'interface card is dead'; 

'end/eod has occured'; 

'miscellaneous - value of param error 



( BUG 1281 TM 1/8/82 ) 
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s 


1177 
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s 
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i: 
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CASE ioerror OF 

ioe_sr__toomany 

ioe_dc fail 
ioe_dclusart 
ioe„dc_ovf 1 
ioe_dc_clk 
ioe_dc_ct s 
ioe_dc_car 
ioeIdc__act 
ioe_dc_conn 
ioe_dc_conf 
ioe dc_reg 
ioe~dc rval 
END; T oT CASE > 
END; { of IF > 



my^msg := 

'too many chars w/o terminator' 



my_msg 
my_ms9 
my_m5g 
my_msg 
my_msg 
my_msg 
my_m5g 
my_m5g 
my_m5g 
my_msg 
my__ms9 



File name: lOLIB 



< 0364 TH 87/23/82 

< 0364 Tn 87/23/82 



interface failure* 
'USflRT receive buffer overflow'; 
'receive buffer overflow'; 
'missing clock' : 
'CTS false too long' ; 
'lost carrier disconnect'; 
'no activity disconnect': 
'connection not established'; 
'bad data bits/parity combination'; 
'bad status /control register'; 
'control value out of range'; 



IF ioe result 
THEN my^msg 



ioe_sr fail 
= 'data'lintc failure' 



F my msg = ' 
THER CflLL(i 



zzzz' < we don't let sleeping msgs lie > 
(io_error_link , ioerror , my_msg ); 



0364 TM 8/23/82 
0364 Tn 8/23/82 



0082 Tn 7/23/82 
0082 Tn 7/23/82 



2 ioerror_me5sage ;= my_m 

2 END; { ioerror^message > 
1 END; { of general_3 > 
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1180:D 




SPfiGES 










U81:D 




nOOULE general_4 ; 










1182:S 














U83:S 




< 










1184:S 




date 07/17/81 










1185:S 




update 07/23/82 










1186:S 














1187:S 




purpose This module contains the LEVEL 4 GENERAL GROUP 


Droce 


dures . 




1188:S 














1189:0 


] 


> 










1190:S 














1191 :S 














1192:0 


) 


IMPORT iodeclarations ; 










1193:S 














1194:0 


I 


EKPORT 










1195:0 


1 












1196:D 


, 


PROCEDURE abort transfer 










U97:D 


' 


( VHR b info 


buf._info_type ); 








1198:D 




FUNCTION transfer setup 










1199:D 




( device 


type device; 








1200:D 




t tfr 


user tfr type; 








1201 :D 


I 


t dir 


dir of tTr ; 








1202:0 


1 


VHR b info 


buf inTo type ; 








1203:0 


J 


VHR t cnt 


INTEGER T 








1204:0 




: type Tsc ; 










1205:0 


; 


PROCEOURE transfer ( device 


type device: 








1206:0 




t tfr 


user tfr type; 








1207:0 


i 


t dir 


dir„of tTr ; 








1208:0 


I 


VRR b info 


buf"inTo type; 








1209:0 




X count 


INTEGER T ' 








1210:0 


: 


PROCEDURE transfer word 










12U:D 




( device 


type device: 








1212:0 


! 


t tfr 


user tfr type; 








1213:0 


S 


t dir 


dir of tTr ; 








1214:0 


i 


vHR b_info 


buf"inTo type; 








1216:0 


! 


X count 


INTEGER y : 








1216:0 


: 


PROCEDURE transfer until 










1217:0 


• 


( term 


CHHR ; 








1218:0 


1 


device 


type device; 








1219:0 


i 


t tfr 


user tfr type; 








1220:0 


i 


t dir 


dir of tTr; 








1221:0 




VRR b info 


bur>nTo_type ) ; 








1222:0 


i 


PROCEDURE transfer end 










1223:0 




( device 


type device; 








1224:0 




t tfr 


user tfr type; 








1225:0 


2 


t dir 


dir of tTr; 








1226:0 


2 


VffR b info 


buf_inTo_type ) ; 








1227;S 














1228:0 


1 


PROCEDURE iobuffer ( VSR b info 


buf info type ; 








1229:D 


2 


t count 


INTEGER T; 








1230:D 


1 


PROCEDURE buffer reset (VHR b info 


buf info type ) ; 








1231:0 


1 


FUNCTION buffer~5pace(VfiR b info 


buf„info_type) 








1232:0 




: INTEGER; 










1233:0 


1 


FUNCTION buffer datal VHR b info 


buf info type) 








1234:0 


2 


: INTEGER; 


" 








123S:D 


1 


PROCEDURE readbuffer ( VRR b info 


buf info type; 








1236:0 


2 


VflR value 


CHS?1 ; 








1237:0 


1 


PROCEDURE writebuffer( VHR b info 


buf info type; 








1238:0 


2 


value 


CHfll'l; - 








1239:0 


1 


PROCEDURE readbuf fer_string 
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1240:0 


2 


( VHR b info 


buf info type; 








1241:0 


2 


VflR str 


STRING; 








1242:0 


2 


str count 


INTEGElS); 








1243:0 


1 


PROCEDURE writebuffer string 










1244:0 


2 


T VHR b info 


buf info type; 








1245:0 


2 


str 


io_!;TRINC); 








1246:S 














1247:0 


1 


FUNCTION buffer busy( VHR b info 


buf..info_type ) { 


0083 


TM 7/23/82 ) 




1248:0 


2 


: BOOLEHN; 


0083 


TM 7/23/82 > 




1249:0 


1 


FUNCTION isc busy ( Isc 


type isc ) < 


0083 


TM 7/23/82 > 




1250:0 


2 


: BOOLEHN; 


< 


0083 


TM 7/23/82 > 




1251 :S 














1252:0 


1 


IMPLEMENT 










1253:S 














1254 :S 














125S:D 


1 


IMPORT hpib._l ; 










1256:S 














1257:0 


1 


PROCEDURE iobuffer ( VBR b_info 


buf info type ; 








1258:0 


2 


t count 


INTEGER y ; 








1259:0 


2 


PROCEDURE NEU IHLIHS 'RSM NEUIBYl 


ES'$ 








»««U)fiRNING: 


(line 


1260): External declarations will bs 


treated as global 
TEGERI; EXTERNAL; 








1260:0 


3 


(VHR p:nNrPTR;v:Ih 








1261:C 


2 


BEGIN 










1262:C 


2 


UITH b info DO 










1263:C 


3 


BEGIR 










1264:C 


3 


< what about IOBUFFER to a . 
( - the space will be throwr 


Ireadv existant buffer ? ) 








126S:C 


3 


away. > 








1266:S 














1267:: 


3 


NEUt(buf ptr , t count) ; 










1268:C 


3 












1269:C 


3 


act tfr 


= no tfr; 










1270:C 


3 


active isc 


= no isc; 










1271 :C 


3 


buf^size 


= t_count; 










1272:C 


3 


buf empty 


= buf_ptr; 










1273:C 


3 


buflfili 


" buf pt r : 










1274:S 














1275:C 


3 


drv_tmp_ptr 


= NIL; 










1276:C 


3 


eot_proc.dummy_sl 


= NIL; 










1277:C 


3 


eot_proc.dummy_pr 


= NIL; 










1278:C 


3 


eot parm ~ 


- NIL: 
" FALSE 


{JPC 02/22/82) 








1279:C 


3 


dma priority 










1280:C 


3 


END; T of UITH DO ) 










1281:C 


2 


END; < of iobuffer > 










I282:S 














1283:5 














1284:S 














1285:0 


1 


FUNCTION buffer data(vnR b info 


buf_ info_type ) 








1286:0 


2 


: INTEGER; 










1287:C 


2 


BEGIN 










1288:C 


2 


UITH b info 










1289:C 


3 


DO BEGIN 










1290:C 


3 


buffer data:=INTEGER(buf fill 


-INTEGER(buf_empty) ; 








1291:C 


3 


END; < oT UITH DO ) 










1292:C 


2 


END; < of buffer„data ) 










1293:S 














1294:3 














129S:S 














1296:0 
1287:C 


1 
2 


PROCEDURE buffer reset (VflR b info 
BEGIN 


buf_info_type ) ; 
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1298:C 


2 


UITH b info 















Pascal [Rev 3 . On 6/ 4/84J iOLIB.TEXT 2;6-Dec-84 21:38:08 Page 29 »«» File name; lOLIB 

1299:C 3 DO BEGIN 

1300:C 3 IF active isc = no_i5c 

1301 :C 4 THEN BESIN 

1302:(: 4 buf_fill:=buf ptr; 

1303:C 4 buf empty:=bu7 pTr; 

1304 :C 4 END 

1305 :C 4 ELSE BEGIN 

1306:C 4 ( error ) 

1307:C 4 io_escape (ioe_buf_busy,no_isc) ; 

1308:0 4 END; < of IF ) 

1309;C 3 END; < of UITH DO > 

1310:C 2 END; < of buffer reset ) 

1311:3 

1312:S 

1313:S 

1314:0 1 FUNCTION buffer space(VPR b info: buf info type) 

1315:1) 2 : INTEGER; 

1316:C 2 BEGIN 

1317:0 2 WITH b info 

1318:0 3 DO BEGIN 

1319:0 3 IF ( buffer_data(b_info)=0 ) AND 

1320:0 4 t active isc = no isc ] THEN buffer resetfb info); 

1321:0 3 buffer space:=buf sizetlNTEGER (buf pt r) -INTEGER (Euf fill); 

1322:0 3 END; ( oT UITH 00 ) 

1323:0 2 END; < of buffer space > 

1324:3 

1325:3 

1327:D 1 PROCEDURE abort_t ransfer 

1328:0 2 ( VPR b info: buf info type ); 

1329:0 2 BEGIN 

1330:0 2 UITH b info 

1331 :0 3 DO BEGIN 

1332:3 

1333:0 3 IF active isc <> no isc 

1334:0 4 THEN BECIN 

1335:3 

1336:0 4 UITH isc_table[act ive isc] DO 

1337:C 5 CRLL ( io_drv_pt r" . io3_init , 

1338:0 5 io tmp ptr ); 

1339:S " ~ 

1340:S 

1341:0 4 END; ( of IF ) 

1342:3 

1343:0 3 END; < of UITH b info DO > 

1344:5 

1345:0 2 END; { of abo rt_t ransfer > 

1346:3 

1347:3 

1348:S 

1349:5 

1350:D 

135l:D 

1352:[i 

1353: [I 

1354 :D 

1355:0 

1356:D 

1357:n 

1368:0 



1 

2 
2 
2 
2 
2 


FUNCTION 


ransfer setup 

( device 
t tfr 
t dir 

VRR b info 
VPR t cnt 


2 
2 
2 


vfiR io isc 
BEGIN 


: type Tsc ; 

: type_isc; 



type_device; 
user_t f r type ; 
dir_of tTr ; 
buf inTo type 

iNircER y 
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■0 
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1365 


5 


1366 


s 


1367 


c 


1368 


c 


1369 


s 


1370 


c 


1371 


c 


1372 


C 


1373 





1374 


c 


1375 


c 


1376 


E 


1377 


c 


1378 





1379 





1380 





1381 


c 


1382 


c 


1383 





1384 


c 


1385 


c 


1386 


s 


1387 


s 


1388 





1389 


c 


1390 





1391 


c 


1392 


c 


1393 


c 


1394 


c 


1395 


c 


1396 


c 


1397 


c 


1398 


c 


1399 


c 


1400 


c 


1401 


c 


1402 


c 


1403 





1404 





1405 


c 


1406 





1407 


c 


1408 


c 


1409 


c 


1410 





1411 


c 


1412 


c 


1413 


c 


1414 


c 


1415 


c 


1416 


c 


1417 


c 


1418 


s 
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2 IF devicoiorraxisc THEN io_isc := device DIV 100 

3 ELSE io_isc := device; 

2 IF isc_table [io_isc] . io_tmp_pt r = NIL 

3 THEN io_e scape (ioe_no_d river, io_i5c ) ; 

2 UITH b info 

3 DO 8EGTN 

3 { test for tfr count > 

3 IF t cnt=0 

4 THFN BEGIN 
4 ( error > 

4 io escapefioe bad cnt, no isc): 

4 END;" ~ ' 

3 { test for another tfr on this buffer } 

3 IF active isc <> no isc 

4 THEN BE^IN 
4 < error > 

4 io escape(ioe buf busy, no isc); 

4 END 

4 ELSE BEGIN 

4 IF buffer data(b_anfo)=0 THEN buf fer^reset (b_info) ; 

4 END; { of IF > 

3 ( configure card based on direction and check for available space/data > 

3 IFtdir=to memo r y 

4 THFN BEGIN 

4 IF i5c_table[io_isc] . 20 tmp pt r''. in_bufptr <> NIL 

5 THEN BEGIN 
5 ^ error ) 

5 10 escapefioe isc busy,io isc); 

5 END; < of IF ) 

4 IF buffer 5pace(b info)<t cnt 

5 THEN BEGIN 
5 < error > 

5 io escapefioe no space, io isc); 

5 END;"{ of IF > ~ ~ 

4 io_isc :=addr_to_talk (device) : 

4 isc tabIe[io i5c].io tmp ptr .in bufptr := flDDRi b info ); 

4 END ^ ' " " ~ 

4 ELSE BEGIN 

4 IF isc table[io isc].io tmp ptr'^.out bufptr <> NIL 

5 THEN BEGIN 
5 ^ error ) 

5 io_escape ( ioe_isc busy.io isc); 

5 END; ( of IF ) 

4 IF buffer ddtatb info)<t cnt 

5 THEN BECIN 
5 (error > 

S io_e scape ( ioe nc_data, io_isc) ; 

5 END; < of IF ) 

4 io_isc : =addr_to_li5ten (device) ; 

4 isc table[io isci-io tmp ptr'^.out bufptr := flODRE b info }; fi CAfi 

4 END; T of IF )" " ^ " ~ 11-0*U 
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1419:C 


3 


drv tmp ptr 


= isc table[io isc].io tmp ptr; 




1420:C 


3 


act tfr 


= no tfr; 




1421:C 


3 


U5r_trr 


= t tfr; 




1422:C 


3 


b w mode 


» FHlSE; < byte mode > 
= FALSE; \ no EOI ) 




1423:C 


3 


end mode 




1424 :C 


3 


direction 


. t dir; 




142S:C 


3 


term char 


= -T; < no termination character ) 




1426:C 


3 


term_count 


= t cnt: 




1427:S 








1428:C 


3 


END; ( of UITH b Info DO ) 




1429:S 








1430:C 


2 


transfer setup := io isc; 




1431 :S 








1432:C 


2 


ENO; ( of transfer_setup ) 




1433:S 








1434:S 








1435:S 








143S:0 


1 


PROCEOURE transfer ( device 


type device; 




1437:0 


2 


t tfr 


user tfr type; 




1438:0 


2 


t dir 


dir of iTr ; 




1439:0 


2 


VHR b info 


buf info type ; 




1440:0 


2 


X count 


INTEGER T : 




1441 :D 


-2 2 


vflR io isc : type isc; 
1 count : INTEGFR: 




1442:0 


-6 2 




1443 :C 


2 


BEGIN" 




1444 :C 


2 


t count :=x count ; 




1445:C 


2 


io i5c:=t ransfer setuptdevice , t 1fr,t dir,b info,t count); 




1446 :S 








1447 :C 


2 


{ transfer temporary u/as set up in t ransfer_5etup ) 




1448:3 








1449 :C 


2 


WITH isc tabletio isc] 




1450:: 


3 


DO CRLL T lo_drv ptr".iod_tfr , 




1451:C 


3 


isc taFle[io isc].io tmp ptr, 




1452:C 


3 


fiDDP(b_info) ); 




1453:5 








1454 :C 


2 


END; ( of transfer ) 




1455:S 








14S6:S 








1457:5 








1458:3 








1459:0 


1 


PROCEOURE transfer word 




1460:0 


2 


( device 


type device; 




1461:0 


2 


t tfr 


user tfr type; 




1462:0 


2 


t dir 


dir_of tfr ; 




1463:0 


2 


VHR b_info 


buf inTo type ; 




1464:0 


2 


X count 


INTKER T • 




1465:0 


-2 2 


VflR io isc : type isc; 
t count : INTE5ER; 




1466:0 


-6 2 




1467:C 


2 


BEGIN" 




1468:C 


2 


t__count : = x_count ; 




1469:C 


2 


io isc :=t ransfer setup(device, t tfr.t dir,b info.t count); 




1470:5 




~ 




1471 :C 


2 


< fix up transfer temporary > 

b_.info.b_w_mode := TRUE; < word mode > 




1472:C 


2 




1473:5 








1474:C 


2 


UITH isc table[io isc] 




1475:C 


3 


DO CALL T io_drv pt r"^. iod_tf r , 




1476:C 


3 


isc taEle[io i5c].io tmp ptr. 




1477:C 


3 


flDDlf(b_info) ); 




1478:S 
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1479:C 


2 


END; < of t rarsfer_word > 




1480:5 








1481:5 








1482:S 








1483:5 








1484:0 


1 


PROCEDURE transfer until 




1485:0 


2 


( term 


CHAR ; 




1486:0 


2 


device 


type device: 




1487:0 


2 


t tfr 


user tfr type; 




1488:0 


2 


t dir 


di- of tTr; 




1489:0 


2 


VHR b info 


buf inTo type 1 ; 




1490:0 


-2 2 


VHR io isc : type isc; 
t count : INTEGER; 




1491 :D 


-6 2 




1492:C 


2 


BEGIN 




1493:C 


2 


t count := buffer space{b info); 




1494 :C 


2 


io_isc:=t ransfer_set up (device, t_tfr , t_dir,b_info, t_count ) ; 




149S:C 


2 






1496 :C 


2 


IF- t dir = from memory 




1497:C 


3 


THEN BEGIN 




1498 :C 


3 


{ error > 




1499:C 


3 


io escapefioe bad tfr,io isc); 




1500:C 


3 


END;- ' - 




1501:5 








1S02:C 


2 


UITH b info 00 BEGIN 




1503:5 








1S04:C 


3 


{ fix up transfer temporary > 




1S05:C 


3 


term char := ord(term); < termination character ) 




1506:5 








1507 :C 


3 


< check for transfer type cases ) 

IF t tfr = serial FASTEST THEN usr tfr :- serial FHS; 




1508 :C 


3 




1509 :C 


3 


IF t tfr = overlap FASTEST THEN usr tfr := overlap FHS; 
IF t tfr = OVERLBP THEN usr tfr := overlap INTR; 




1S10:C 


3 




1S11:C 


3 


IF ( t tfr = serial Onfi ) OR ( t tfr = overlap Cflfl ) 




1S12:C 


4 


THEN BEGIN 




1513:C 


4 


< error > 




1S14:C 


4 


10 escapefioe bad tfr,io isc): 
END; ( of IF > 




1S15:C 


4 




1516:5 








1517:C 


3 


END; ( of UITH b_info DO BEGIN > 




1S18:S 








1519:5 








1520:C 


2 


UITH isc tabletio isc] 




1S21:C 


3 


DO CALL T io drv ptr^.iod tfr , 




1522:C 


3 


isc ta&Ie[lo isc].io tmp ptr. 




1523:C 


3 


HDDlf(b_lnfo) ]; ' ~ 




1524:5 








1S25:C 


2 


END; { of transfer until } 




1S26:S 








1527:5 








1528:5 








1529:0 


1 


PROCEDURE transfer end(device 


type_device; 




1630:0 


2 


t tf r 


user tfr type; 




1531:0 


2 


t~dir 


dir 5f tTr; 




1632:D 


2 


VffR b info 


buf info type ) : 




1533:0 


-2 2 


VRR io isc : type isc; 
t count : INTECER; 




1534:D 


-6 2 




163S:C 


2 


BEGIN 




1536:C 
1S37:C 


2 
3 


IF t dir=from memory 
ThCN BEGIN 


11-541 


1538:C 


3 


t_count := 


buffer_data(b_inf 


0); 
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1539:C 


3 


IS40:C 


3 


1541:0 


3 


1542:C 


3 


1S43:C 


2 


1S44:S 




1545:C 


2 


1546:C 


2 


1547:S 




1548:C 


2 


1S49:C 


3 


I550:C 


3 


1661:C 


3 


1SS2;S 




1553:C 


2 


1554:S 




1SSS:S 




1SS6:S 




1557:D 


1 


1558:D 


2 


15S9:D 


-4 2 


1S60:C 


2 


1561:C 


2 


1562:C 


3 


1563:C 


3 


1S64:C 


3 


1565:C 


3 


1S66:C 


3 


1567:C 


3 


1568:C 


4 


1569:C 


4 


1S70:C 


5 


1571:C 


5 


1672:C 


S 


1573:C 


5 


1S74:C 


5 


IS75:C 


4 


1576:C 


4 


1577:C 


4 


1578:C 


4 


IS79:C 


3 


1S80:C 


2 


1S8I:S 




1582:S 




1583:S 




1S84:D 


1 


1S8S:D 


2 


1586:D 


-4 2 


1S87:C 


2 
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1588 
1589 
1590 
1S91 
1592 
1S93 
1594 
1595 
1596 
1597 
1598 



END 

ELSE BEGIN 

t count ;= buffer space (b_info) ; 
END; < of IF > 
io_i5c : =t ransfer_5etup(device ,t_tfr,t_dir ,b_lnfo, t__count ] ; 

{ fix up transfer temporary > 

b_info.end_mode := TRUE; < EDI ) 

UITH Isc tabJe[io_i5c] 

DO CPLL J io_drv ptr".iod_tfr , 

isc t a&le [io_isc] . io_tmp_pt r, 

fiDDR(b_info) ); 

£(•10; < of transfer_end ) 



PROCEDURE readbuffer ( VBR b_info: buf info_type; 

VRR value : CHflIf) ; 
VHR p : "CHRR; 
BEGIN 

IF buffer data(b info)<l 
THEN BECIN 
{ error ) 

ao escape(loe no data, no isc); 
END 

ELSE BEGIN 
UITH b info 
DO BEGIN 

IF ( active^isc <> no_isc ) BND 
( direction = frorr_memory ) 
THEN BEGIN 
< error ) 

ioe_buf_busy ); 



10 escape! no isc , 
END; ( of IF ) 
:=l1NYPTR(buf_empty); 



value :=p'^; 

buf emptv:.fiNYPTR( INTEGER (buf_empty)»l) ; 
END; T of iJITH b info DO > 
END; ( of IF 1 
E((D; ( of readbuffer ) 



PfOCEDURE writebufferl VBR b_info: buf info_type 

value : CHSlf); 

VHR p : "CHfiR; 
B[GI(^ 

IF buffer space (b_info}<l 

THEN BEGIN 
< error ) 

10 escape[ice no space, no isc); 
END 

ELSE BEGIN 
UITH b info 
DO BEGIN 

IF t active^isc <> no_isc ) fiND 
( direction = to_meiTiory ) 
THEN BEGIN 



F'ascal [Rev 3.0M 6/ 1/84] lOLIB.TEXT 



26-0ec-84 21:36:08 Page 34 »«« File name: lOLIB •«» 



1599:C 

1600:C 

1601:C 

1602:C 

1603:C 

1604 :C 

1605:C 

1606:C 

1607:C 

1608 :S 

1609:S 

1610: 

1611: 

1612: 

1613: 

1614: 

1615: 

1616: 

1617: 

1618: 

1619: 

1620: 

1621 :C 

1622:C 

1623:C 

1624:C 

1625:C 

1626:C 

1627:C 

1626:C 

1629:C 

1630:C 

1631 :C 

1632:0 



1633: 

1634: 

1635: 

1636: 

1637: 

1638 

1639: 

1640:D 

1641 :D 

1642:D 

1643:C 

1644: 

1646: 

1646: 

1647: 

1648 

1649: 

1650: 

1651 : 

1662: 

1653: 

1654: 

1655:C 

1656:S 

1657:S 

I658:D 



-266 
-260 



\ error ) 

lo_escape( no_i5C , ioe_buf_busy ); 
END; ( of IF > 
p:=buf fill; 
p'^ :=value; 

buf fill:=flNYPTR(INTEGER(buf_fill)»l); 
END; T of UITH b^info DO > 
END; < of IF ) 
END; { of writebuffer > 



PROCEDURE readbuffer_string 

( VBR b_info 
VBR str 
St recount 
VIhR i : INTEGER ; 

BEGIN 

IF STRflftXfstr) < str count 
THEN BEGIN 

< error - string too small ) 
io escapeCJoe misc,no isc); 
END; 
SETSTRLEN(str,s1r count); 
IF buffer datalb Tnfo)<str count 
THEN BEGIN 

( error - not enought data in buffer > 
io_e5cape (ioe no data, no isc); 
END 
ELSE BEGIN 

FOR i:=l TO str count 
DO BEGIN 

readbuffer(b info, st r [i] ) ; 
END; ( of FOR KGIN ) 
SETSTI?LEN(str,5tr count); 
END; ( of IF > 
END; < of readbuffer_5tring } 



PROCEDURE writebuffer string 

T VBR b_info; buf info type; 
str : io STRING); 

VHR i : INTEGER; 

BEGIN 

IF buffer space(b info)<STRLEN(st r ) 
THEN BEGlK > - ' 

( error ) 

io_e scape [ioe_no_space , no_isc) ; 
END 
ELSE BEGIN 

FOR i:=l TO STRLEN(5tr) 
DO BEGIN 

writebuffer(b info,str[i]); 
END; ( of FOR BEGIN > 
END; ( of IF > 
END; ( of writebuffer string > 



FUMCTION buffer^busyl VBR b_info: bufinfo^t ype 



buf info type; 

STRING; 

INTEGER); 



< so I can put chars into empty string ) 
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1659:0 


2 


16S0:C 


2 


1661 :C 


2 


1662;C 


3 


1663:C 


4 


1664:C 


3 


166S:C 


2 


1666:S 




1667:D 


1 


1668 :D 


2 


1669:C 


2 


1670:C 


2 


1671 :C 


3 


1672;C 


4 


1673:C 


4 


1674:C 


3 


1675:C 


2 


1676:S 




1677:S 




1678:S 




1679:C 


1 



: BOOLEHN; 
BEGIN 

UITH b_info 00 BEGIN 

IF active_isc <> no_i5C THEN buffer^busy -.!! TRUE 

ELSE buffer busy :• FALSE; 
END; < of (JITH DO BEGIN ) 
END; < of buffer_busy ) 

FUNCTION i5c_busy ( isc : type_i5C ) 

: BOOLEHN; 
BEGIN 

WITH isc table[isc] .10 tmp ptr' DO BEGIN 
IF ( in__bufptr <> NIT ) M 

( out_bufptr <> NIL ) THEN i5C_busy := TRUE 

ELSE 15C busy := FALSE; 
END; ( of UITH DO BEGIN ) 
END ; < of J5C_busy > 



»» F-iIe name: lOLIB »«« 

< 0083 TM 7/23/82 

< 0083 TM 7/23/82 

< 0083 Tn 7/23/82 
( 0083 Tn 7/23/82 
( 0083 TM 7/23/82 

< 0083 TM 7/23/82 

< 0083 TM 7/23/82 

( 0083 TM 7/23/82 

( 0083 TM 7/23/82 

< 0083 TM 7/23/82 

< 0083 TM 7/23/82 
( 0083 TM 7/23/82 
( 0083 TM 7/23/82 

< 0083 TM 7/23/82 

< 0083 TM 7/23/82 

< 0083 TM 7/23/82 



END; 



< of general_4 ) 
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I680:D 

1681 :D 

1682:D 

1683:D 

1684 :D 

1685:D 

1686:D 

1687:D 

1688:S 

1689:S 

1690:S 

1691 :S 

1692:0 

1693;S 

1694:S 

1695:S 

1696:3 

1697: 

1698: 

1699: 

1700: 

1701: 

1702: 

1703: 

1704: 

1705: 

1706:0 

1707:5 

1708:" 

1709: 

1710: 

1711: 

1712: 

1713: 

1714: 

1715: 

1716: 

1717: 

1718: 

1719: 

1720: 

1721: 

1722:0 

1723:0 

1724:C 

1725:C 

1726:C 

1727:C 

1728:C 

1729:C 

1730:S 

1731:S 

1732:S 

1733:0 

1734:0 

173S:C 

1736:C 

1737:C 

1738:C 

1739:C 



SPflGEJ; 



« HPIB GROUP 
(* 



1 MODULE hpib_0 
( 



date 07/17/81 
update 09/17/81 

purpose This module contains the LEVEL HPIB GROUP procedures. 



1 > 

1 IMPORT iodeclarations ; 



1 EXPORT 



1 IMPLEMENT 



PROCEDURE 5et_hpib 
PROCEDURE clear_hpib 
FUNCTION hpib_line 



( select_code 

line 
( 5elect_code 

line 
( 5elect_code 

line 
: BOOLSflN; 



1 PROCEDURE set hpib ( select code 

2 * line 
2 BEGIN 

2 UITH isc table [5elect_code] DO 

3 CflLL(io_3rv_ptr'~.iod_5et, 
3 io tmp ptr, 

3 ORUdine)); 

2 END; 



1 PROCEDURE clear hpib ( select code 

2 line 
2 BEGIN 

2 UITH isc table[select_code] DO 

3 CHLL(io_3rv_ptr'.iod_clr, 
3 io tmp ptr, 

3 ORB(line)); 



type_isc ; 
type_hpib_line) ; 
type_l5C ; 
type_hpib_line) ; 
type_isc ; 
type_hpib_line) 



type_lsc ; 
type_hpib_line) ; 



type_isc : 
type_hpib_line) ; 



11-543 



FJNJCTION hpib_line 
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1740:C 2 END: 

1741:S 

1742:3 

1743;S 

1744:D 1 

1745:D 2 

1746:D 2 

1747:D -1 2 

1748:C 2 

1749:C 2 

n50:C 3 

1751:C 3 

17S2:C 3 

17S3:C 3 

n54:C 2 

1755:C 2 

1756:5 

1757:S 

17S8:S 

1759:C 1 END; ( of hpib_0 ) 
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( 5elect_code 

line 
: eOOLEBN; 
VIR my boolean : BOOLEflN; 
BCGIN 

WITH isc table[5elect_code] DO 
COLL (io_Jrv_ptr ". iod_test, 
io tmp~ptr, 
ORCdlne), 
my_boolean) ; 
hpib line:=my Boolean; 
EiJD; 



type_isc ; 

t ype~hpib_line) 



Pascal 


[R 


1760 


:D 


1761 


:D 


1762 


:S 


1763 


:S 


1764 


:S 


1765 


:S 


1766 


;S 


1767 


:S 


1768 


:S 


1769 


:S 


1770 


:D 


1771 


:S 


1772 


:S 


1773 


:D 


1774 


•s 


177S 


:D 


1776 


:S 


1777 


S 


1778 


D 


1779 


D 


1780 


D 


1781 


D 


1782 


D 


1783 


D 


1784 


D 


1785 


D 


1786 


D 


1787 





1788 


D 


1789 


D 


1790 


D 


1791 





1792 


D 


1793 


D 


1794 


D 


1795 


D 


1796 


D 


1797 


D 


1798 


D 


1799 


D 


1800 


D 


1801 


D 


1802 


S 


1803 


S 


1804 





1805 


S 


1806 


D 


1807 


D 


1808 


S 


1809 


S 


1810 


D 


1811 


D 


1812 


C 


1813 


S 


1814 


C 


1815 


S 


1816 


C 


1817 


C 


1818 


C 


1819 


C 
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1 $PflrE$ 

1 hODULE hpib_2 ; 
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date 07/17/81 
update 03/09/83 



purpose This module contains the LEVEL 
2 HPIB GROUP procedures. 



IMPORT iodeclarations 
EXPORT 



PROCEDURE abort_hpib 

" ( 5elect_code 
PROCEDURE clear f device 
PROCEDURE listen ( select_code 

address 
PROCEDURE local ( device 
PROCEDURE local^Iockout 

( 5elect_code 
PROCEDURE pa55_Control 

( device 
PROCEDURE ppoll__configure 
( device 
mask 
PROCEDURE ppoll_unconfigure 

t device 
PROCEDURE remote ( device 
PROCEDURE secondary 

( 5elect_code 
address 
PROCEDURE talk ( select_code 

address 
PROCEDURE trigger ( device 
PROCEDURE unlistenr select_code 
PROCEDURE untalk ( select_code 



hpib 
hpib 



PROCEDURE abort_hpib 

( select code 
BEGIN 

{ what about active tfrs ? ) 



IF system cent roller ( select code) 
THEN BE^IN 

set_hpib [select _code, ifc_line ) ; 
set_hpib (selec t__code, ren_l ine] 



typs_i5c) ; 
type_device ) ; 
type_isc ; 
type_hpib_addr ) ; 
t ype_device ) ; 

type_isc) ; 

type_device) ; 

type device: 
INTEGER ); 

t ype_device) , 
t ype_device) ; 

type_i5c ; 
type_hpib_addr ) ; 
type_isc ; 
type_fipib_addr J ; 
t ype~device) ; 
t ype^isc ) ; 
t ype_isc ) ; 



t ype_i5c) ; 



11-544 



Pascal [Rev 


3. on 


6/ 4/84] lOLIB.TEXT 26'Dec-84 21:36:08 Page 39 «»« File name: lOLIB ««» 




1820:C 


3 


clear hpibfselect code,ifc line); 






1821 :C 


3 


clear hpib select code.atn line ; < all done 


by ifc ) 




1822:C 


3 


END - I- > _ . - ), 






1823:C 


3 


ELSE BEGIN 






1824 :C 


3 


IF active cont roller {select code) 






182S:C 


4 


THEN BEGIN 






182e:C 


4 


send command(select code, 






1827;C 


4 


CHR(talk_constant*my addre5s(select code))); 






1828:C 


4 


5end_coninand(5eIect_code,"^?' ) ; 






1829:C 


4 


clear hpibfselect code.atn line); 






1830:C 


4 


END ~ _ . _ ;. 






1831;C 


4 


ELSE BEGIN 






1832:C 


4 


< do nothing > 
ENO; ( of IF ) 






1833:C 


4 






1834 :C 


3 


END; ( of IF ) 






1835:C 


2 


END; ( of abort hpib > 






1836:5 




'" 






1837:5 










1838:0 


1 


PROCEDURE clear ( device : type device); 






1839:D 


-2 2 


VfiR io isc : type isc; 






1840:C 


2 


BEGIN 






1841 :C 


2 


io_isc;=5et to listen(device) ; 






1842:C 


2 


IF device>iomaxisc 






1843:C 


3 


THEN BEGIN 






1844:C 


3 


send command(io i5C,sdc message); 






1845:C 


3 


ENO 






1846:C 


3 


ELSE BEGIN 






1847:C 


3 


send corrmand(io isc, del message); 






1848 :C 


3 


ENO; ( of IF > 






1849:C 


2 


ENO; < of clear > 






1850:5 










1851 :S 










18S2:S 










1853:D 


1 


PROCEDURE listen ( select code : type isc ; 






1854:D 


2 


address : type hpib addr ); 






1855:C 


2 


BEGIN _ _ <. 






18S6:C 


2 


send command(select code, CHR (listen constant+address) ) ; 






1857:C 


2 


END; ( of listen ) 






1858:S 










1859:5 










1860:5 










1861:D 


1 


PROCEDURE local ( device : type device); 






1862:D 


-2 2 


VfiR io isc : type isc; 






1863:C 


2 


BEGIN 






18S4:C 


2 


IF device>iomaxisc 






1885:C 


3 


THEN BEGIN 






1866:C 


3 


io_isc:=5et to listen (device) ; { BUG 1251 


Ttl 1/8/82 ) 




1867:C 


3 


send coriTnan?(io isc.gtl message); 






1868:C 


3 


END - >-.:<- 






18S9:C 


3 


ELSE BEGIN 






1870:C 


3 


io_i5c := device; ( BUG 1251 
IF system cont roller (io isc) { BUG isjs 
THEN 8EEIN 


TM 1/8/82 ) 




1871 :C 


3 


TM 3/9/83 \ 




1872:C 


4 






1873:C 


4 


{ system controller - drop REN > { BUG jsjs 


TM 3/9/83 ) 




1874:C 


4 


clear hpib(io isc.ren line): 

IF acYive cont roller (To isc) { BUG 1251 






1875:C 


4 


Tn 1/26/82 > 




187e:C 


5 


THEN clear hpib(io isc.atn line); < BUG 1251 
END I BUG isis 
ELSE BEGIN { BUG is is 


Tr 1/26/82 > 




1877:C 


4 


Tn 3/9/83 ) 




1878:C 


4 


Tn 3/9/83 J 




1879:C 


4 


< not system controller - send GTL > ( BUG jsjs 


Tn 3/9/83 ) 
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1880:C 


4 


send command(io isc.gtl message); { BUG isjs 


TM 3/9/83 ) 




1881:C 


4 


END; { of IF ) - ^ {BUG jsjs 


TM 3/9/83 i 




1882;C 


3 


END; < of IF > 






1883:C 


2 


END; ( of local ) 






1884:3 










1885:5 










1886:5 










1887:5 










1888:0 


1 


PROCEDURE local..]ockout 






1889:0 


2 


( select code : type isc); 






1890:C 


2 


BEGIN 






1891:C 


2 


send cormiand(select code,l:o message); 






1892:C 


2 


END; ( of local lockout > 






1893:5 




" 






1894:S 










1895:5 










1896:0 


1 


PROCEDURE pass control 






1897:0 


2 


( device : type device); 






1898:0 


-2 2 


VflR io isc : type isc; 






1899:C 


2 


BEGIN ~ 






1900:C 


2 


IF device>ioinaxi5c ( BUG 1258 


Tn 1/8/82 > 




1901:C 


3 


THEN BEGIN ( BUG 1258 


TH 1/8/82 J 




1902:C 


3 


lo_isc :- device OIV 100; { BUG 1258 


Tn 1/8/82 ) 




1903:C 


3 


send cormiand(io isc,unl message); { BUG 1258 


Tn 1/8/82 > 




1904 :C 


3 


send coninand(io isc, ( BUG 1258 


Tn 1/8/82 J 




1905:C 


3 


chr((device MOD 100)*talk constant)); ( BUG 1258 


Tn 1/8/82 > 




1906:C 


3 


ENO ( BUG 1258 


Tn 1/8/82 > 




1907:C 


3 


ELSE BEGIN { BUG 1258 


Tn 1/8/82 ) 




1908:C 


3 


io isc := set to talk (device) ; { BUG 1258 


Tn 1/8/82 1 




1909:C 


3 


END; < of IF device ) ( BUG 1258 


TM 1/8/82 ) 




1910:C 


2 


send coiiriand(io isc,tct message); 






1911:C 


2 


ENO; - > - , ^ 






1912:5 










1913:5 










1914:S 










1915:0 


1 


PROCEDURE ppoll..conflgure 






1916:0 


2 


( device : type device; 
mask : INTEGER ); 






1917:0 


2 






1918:0 


-2 2 


vflR io isc : type isc; 






1919:C 


2 


BEGIN " 






1920:C 


2 


io isc:=set to listen(device) ; 






1921 :C 


2 


IF io isc=device 






1922;C 


3 


THEN BEGIN 






1923:C 


3 


{ error > 






1924:C 


3 


10 e5Cape(ioe not dvc.io isc); 






1925:C 


3 


END 






192e:C 


3 


ELSE BEGIN 






1927:C 


3 


send comiiand(io isc,ppc message); 






1928:C 


3 


send coiTfnand(io isc.CHRTord ( ppe message)* (mask nOD 16))); 






1929:C 


3 


END; ("of IF ) ~ 






1930:C 


2 


END: { of ppoll configure ) 






1931 :S 










1932:5 










1933:5 










1934:0 


1 


PROCEDURE ppoll_.unconfigure 






1935:D 


2 


( device : type device); 






1936:D 


-2 2 


VflR io isc : type isc; 






1937:C 


2 


BEGIN 
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1938:C 


2 


io isc:=5et to listen (device) ; 




!939:C 


2 


IF device>iomaxisc 
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1940:C 


3 


1941 :C 


3 


1942:C 


3 


1943;C 


3 


1944:C 


3 


1945 ;C 


3 


1946:C 


3 


1947:C 


2 


1948:5 




1949:S 




1950:S 




1951 :D 


1 


19S2:D 


-2 2 


1953:C 


2 


1954:C 


2 


1955:C 


3 


1956:C 


3 


1957:C 


3 


1958:C 


4 


1959:C 


3 


1960:C 


3 


1961:C 


3 


1962:C 


3 


1963:C 


3 


1964:C 


3 


1965:C 


4 


1966:C 


3 


1967:C 


3 


1968:C 


2 


1969:S 




1970:S 




1971 :S 




1972:D 


1 


1973:D 


2 


1974:0 


2 


1975:C 


2 


1976:C 


2 


1977:C 


2 


1978:5 




1979:S 




1930:5 




1981 :D 


1 


1932:D 


2 


1983:C 


2 


1984 ;C 


2 


1985:C 


2 


1986:5 




1987:S 




1988:5 




1989:D 


1 


1990:C 


2 


1991 :C 


2 


1992:C 


2 


1993:5 




1994 :S 




1995 :D 


1 


1996:C 


2 


1997:C 


2 


1998:C 


2 


1999:5 





THEN BEGIN 

send_command(io_i5c,ppc_mes5age) ; 

send command(io isc.ppd message); 
END 
ELSE BEGIN 

5end_corTfnand(io_i5C, ppu_meS5age) ; 
END; { of IF ) 
: ( of ppoll_ijrconfigjre > 



PfOCEDURE remote ( device : type_device) 

VfiR io isc : type isc; 

BIGIN 

IF device>iomax25c 
THEN BEGIN 

io_isc;=deyice DIV 100; 

IF NOT 5y5tem_cont roller (io_isc) 

THEN io^escape ( ioe not sctl ,io_i5c ) ; 
set^hpib (To_i5C , ren_TineT; 
io_Isc :=set_to_lasten (device) ; 
END 
ELSE BEGIN 

io_isc := device; 

IF NOT system^cont roller ( iodise) 

THEN io^escape [ ioe not sctl , io_i5c ) ; 
set hpib/Io isc , ren_Tiney; 



( BUG 1252 
( BUG 1252 



TM 1/8/82 
TM 1/8/82 



< BUG 1252 TM 1/8/82 

< BUG 1252 TM 1/8/82 

< BUG 1252 TM 1/8/82 



END; < 



END; T of IF T 

f remote } 



P[:OCEDURE secondary 

( select^code 
address 
BEGIN 

5end_corTiTiand (select_code,CHR (address+96) ) ; 
END; { of secondary ) 



type^isc ; 

t ype_hpib_addr ); 



PfOCEDURE talk ( select_code : type_i5C ; 

address : type hpit) addr ); 

BEGIN 

5end_co(timand ( se:lect_c ode, CHR [address* t a lk_constant)); 
END; ( of talk ) 



PFOCEDURE trigger ( device : type device); 

BEGIN 

5end_corrmand (set to_listen(device},ge tmessage ) ; 
END; { of trigger J 



PFOCEDURE Linlisten( select code : type isc 
BEGIN 

sendcommand ( selectee ode, unl^message) ; 
EN'D; < of unlisten > 
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select_code : type_isc ); 



2000:5 
2001 :D 
2002 :C 
2003 :C 
2004 :C 
2005:5 
2006:5 
2007:5 
2008:S 
2009:C 



: PROCEDURE untalk 

2 BEGIN 

2 send_corTiTrand ( se lect_code , unt_message) ; 

2 END; < of untalk ) 



1 END; 



( of hpib_2 > 
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2010:D 


1 


«PBGE« 






2011:D 


1 


MODULE hpib 3 ; 






2012:S 










2013:5 




( 






2014:5 




date 07/17/81 






2015:5 




update 01/08/82 






2016:5 










2017:S 




purpose This module contains the LEVEL 






2018:S 




3 HPIB GROUP procedures. 






2019:5 










2C20:D 


1 


) 






2021:S 










2022:S 










2023:D 


1 


inPORf iodeclarations ; 






2024 :S 










2025:0 


1 


EXPORT 






2026 :S 










2027:5 










2028:0 


1 


FUNCTION requested 






2029:0 


2 


[ select code : type isc ) 






2030:0 


2 


; SOOLEflR ; yv - ' 






2031:0 


1 


FUNCTION ppoll ( select code : type isc ) 






2032:D 


2 


1 INTEGER : />'.-) 






2033:0 


1 


FUNCTION spoil ( device ; type device) 






2034:0 


2 


: INTEGER ; 






2035:5 










2036:0 


1 


PROCEDURE request service 






2037:0 


2 


( select code : type isc ; 
response : INTEiTER ): 






2038:0 


2 






2039:0 


1 


FUNCTION listener( select code : type isc ) 






2040:0 


2 


■ BOOLEflN: 






2041 ;D 


1 


FUNCTION talker ( select code : type isc ) 






2042:0 


2 


: BOOLEfifJ ; 






2043:0 


1 


FUNCTION remoted ( select code : type isc ) 






2044:D 


2 


: BOOLEfiKI ; 






2045 :D 


1 


FUNCTION locked out 






2046:D 


2 


( select code : type isc ) 






2047:0 


2 


; BOOLEfifJ ; '>' - ' 






2048 :S 










2049:S 










2050:0 


1 


IMPLEMENT 






2051:S 










20S2:S 










2053:0 


1 


inPORT iocomasm , 






2054:0 


1 


general , 






2055:D 


1 


general"! , 
hpib 7 






2056:0 


1 






2057:0 


1 


hpib_l ; 






2058:5 










2059:S 










2060:5 










2061 :S 










2062:0 


1 


FUNCTION requested 






2063:0 


2 


( select code ; type isc ) 






2064 :D 


2 


: BOOLEnFJ ; 






2065 :C 


2 


BEGIN 






2066 :C 


2 


IF active cont rol ler (select code) 






2067 :C 


3 


THEN BEi;iN 






2068 :C 


3 


requested :=hpib line(5e:ect code.srq line): 






2069 :C 


3 


END - - _ . 






Pascal [Rev 


3. on 


6/ 4/84] lOLIB.TEXT 26-0ec-84 21:36:08 Page 44 


*** File name: lOLIB *«* 




2070:C 


3 


ELSE BEGIN 






2071:C 


3 


{ error - not active controller when look at srq ) 






2072:C 


3 


io escapefioe not act, select code); 
END; { of II- ) " " 






2073:C 


3 






2074 :C 


2 


END; { of requested ) 






2075:5 










2076:3 










2077:S 










2078:S 










2079:5 










2080:0 


1 


FUNCTION ppoll ( select code : type isc ) 






2081 :D 


2 


: INTEGEU ; ' - ' 






2082:0 


-1 2 


VPR my byte : CHAR; 






2083:C 


2 


BEGIN ~ 






2084:0 


2 


UITH isc table[5elect code] DO 






2085:C 


3 


CflLL(io 3rv ptr'^.iod ppoll. 






2086:C 


3 


io tmp ptr, 






2087:C 


3 


myZbyte) ; 
ppoll:=i5RD(my byte); 
END; { of ppoll' > 






2088 :C 


2 






2089:C 


2 






2090:5 










2091 :S 










2092:5 










2093:5 










2094:0 


1 


FUNCTION spoil ( device : type device) 






2095:0 


2 


: INTEGER ; 






2096:D 


-2 2 


VHR io isc : type isc; 






2097:0 


-3 2 


io work char : CHRR; 






2098:C 


2 


BEGIN 






2099:C 


2 


io_isc:=set to_talk [device ) ; 






2100:C 


2 


send co(mian3( io isc,spe message); 






2101:C 


2 


readchar(io isc,io work char); 






2102:C 


2 


send_confnand(io_i5c, 5pd_message) ; 






2103:C 


2 


send cotmandi io_isc ,unt message); 






2104:C 


2 


spolT:=ord(io work charj; 






2105:C 


2 


END; { of spoil") 






2106:S 










2107:5 










2108:5 










2109:5 










2110:5 










2111:S 










2112:3 










2113:3 










2114:S 










2115:5 










2116:0 


1 


PROCEDURE request_service 






2117:0 


2 


( select code : type isc ; 
response : INTEGER ); 






2118:0 


2 






2119:C 


2 


BEGIN 






2120:C 


2 


IF isc table[select code], care tyoe=hpib card 






2121 :C 


3 


THEN^BEGIN , " 






2t22:C 


3 


IF NOT active cont roller (select code) < BUG 


1250 in 1/8/82 > 




2123:C 


4 


THEN iocont rol (select cede, 1 , response] { BUG 
ELSE io escape ioe misc, select code); { BUG 
END - - -. 

ELSE BEGIN 


1250 TH 1/8/82 ) 




2124:C 
2125:C 
2126:C 


4 

3 
3 


1250 TM 1/8/82 ) 








2127:C 


3 


{ error > 
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2128:C 


3 


io escape[ioe not hpib, select cede); 




2129:C 


3 


END; { of IF > 
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2130:C 

2131:S 

2132:S 

2133:S 

2I34:S 

213S:D 

2136:D 

2137:C 

2138: " 

2139: 

2140: 

2141 : 

2142: 

2143: 

2144: 

2145: 

2146: 

2147: 

2148: 

2149: 

2150: 

2151: 

2162: 

2153: 

2154: 

2155:D 

2166:C 

2157:C 

2158:C 

2159:S 

2160:5 

2161 :S 

2162:S 

2163:D 

2164;D 

216S;D 

21S6:C 

2167:C 

2168:C 

2169:S 

2170:5 

2171:5 

2172:S 

2173:C 
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2 END; < of request_5ervice ) 



1 FUNCTION li5tener( select code : type isc ) 

2 : BOOLEftR; 
2 BEGIN 

2 listener :=bat„set (lost atus[5elect_code, 6), 10); 

2 END; < of listener ) 



1 FUNCTION talker ( select code : type isc ) 

2 : BOOLEflfJ ; 
2 BEGIN 

2 talker:=bit set (iostatus {5elect_code ,6) ,9) ; 

2 END; ( of talUer ) 



1 FUNCTION remoted ( select code : type isc ) 

2 : BOOLEfiR ; 
2 BEGIN 

2 remoted : =bit_set (iostatus(select_codej6),15); 

2 END; ( of remoted ) 



1 FUNCTION locked_out 

2 ( select code : type_i5C ) 
2 : BOOLESR ; 

2 BEGIN 

2 locked out:=bit set (iostatus (select code, 6), 14); 

2 END; 



( of hpib_3 ) 
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2174 


:D 


2175 


:D 


2176 


:D 


2177 


:D 


2178 


D 


2179 


D 


2130 


D 


2181 


D 


2182 


D 


2183 


D 


2184 





2186 


D 


2186 


D 


2187 


D 


2188 


D 


2189 


D 


2190 


D 


2191 


D 


2192 


S 


2193 


S 


2194 


S 


2195 


S 


2196 





2197 


S 


2198 


s 


2199 


s 


2200 


s 


2201 


s 


2202 


s 


2203 


s 


2204 


s 


2205 


D 


2206 


S 


2207 


S 


2208 


D 


2209 


S 


2210 


D 


2211 


s 


2212 


s 


2213 


s 


2214 


s 


2215 


D 


2216 





2217 


D 


2218 


D 


2219 


D 


2220 


D 


2221 


D 


2222 


S 


2223 


s 


2224 


D 


2225 


S 


2226 





2227 


D 


2228 


S 


2229 


s 


2230 


s 


2231 


D 


223- 


D 


2233 


D 
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*******»***»»*»»******** 



SERIPL GROUP 



********* 



«*«*«******«****»* 



The 98626 code in the serial and serial_3 modules has NOT 
been tested and is included In the hopes that it is correct 
and that someone will do the 98626 card drivers sometime. 

There is a good chance that the 98626 will require a re- 
release of the I0LIB:I0L1B file ( serial modules only ). 



*******«««***«***« 



***«»*»x«*«««*»* 



M**K**»X»*»*«***«*»»*««»*«**»»»»«X] 



1 nODUlE serial 



date 07/22/81 
update 11/06/81 



purpose This module contains the LEVEL 
SERIAL GROUP procedures. 



1 IMPOFT iodeclarations ; 
1 EXPORT 



1 PROCEDURE 5et_ser:ial ( 5elect_code 

2 line 

1 PROCEDURE clear_serial( select code 

2 line 

1 FUNCTION serial line ( select code 

2 " line 

2 : BOOLESN; 



type_isc ; 

t ype_se rial_line ) ; 

type_i5C ; 

t ype^se rial_line ) ; 

typelisc ; 

t ype_se rial__line ) 



1 IMPLfMENT 



1 inPORT iocomasm , 
1 gereral_0 



1 PROCEDURE 5el_5erlal ( 5elect_code : type_i5c ; 

2 line ; type_serial line) 
2 VHF mypil : INTEGER; 
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2234: 

2235: 

2236: 

2237: 

2238: 

2239: 

2240: 

2241: 

2242 :C 

2243 :S 

2244 :C 

224S;S 

2246:C 

2247 :C 

2248 :C 
2249:S 
2250:C 
2251 :S 
2252: 
2253: 
2254: 
2255: 
2256: 
2257: 
2258: 
2259: 
2260: 
2261 :C 
2262:C 
2263:S 
2264 :C 
2265:S 
2266: 
2267: 
2268: 
2269: 
2270: 
2271: 
2272: 
2273: 
2274: 
2275: 
2276: 
2277: 
2278:C 
2279:C 
2280:C 
2281 :C 
2282 :C 
2283:C 
2234 :S 
2235:C 
2286:S 
2287:C 
2288:S 
2239:C 
2290 :S 
2291 :S 
2292:3 
2293:S 



INTEGER; 



diwrniy 
BEGIN 

UITH i5c_tabIet5e]ect_code] DO BEGIN 



IF card_type <> 5erial_card THEN io_e5C3pe ( ioe_bad_sct ,select_code ) ; 

IF (isc table[select code]. card id = hp98628 async) 
THEN KGIN ~ ~ 

CfiSE line OF 



rt Ji_line: 


mybit 


dt r_line: 


mybit 


dr5_line: 


mybit 



OTHERUISE io_e scape (ioe_bad_sct , seIect_code ) ; 

END; ( of CfiSE line ) 
dummy := iostatus ( select code, 8); 
durrmy := binior (dummy, my5iT ) ; 
iocontrol (select_code ,8*256, dummy) ; 

END 

ELSE BEGIN 



IF (card id » hp98626) OR (card id 
THEN BFGIN 



hp98644) 



CftSE line OF 
rt&_line : 
dtr_line : 
drs line: 



mybit 
mybit 
mybit 



OTHERUISE io_e5cape(ioe_b3d_sct,5elect_code) ; 

END; ( of cnSE line ) 

dummy := iostatus [select code, 5); 
dummy := binior (dummy ,my&it ) ; 
iocontrol [5elect_code,5,dutTmy) ; 

END 

ELSE BEGIN 

CPLL ( io_drv_ptr'.iod_set , 
io tmp_ptr , 
ORC(line) ); 
END; { of IF > 

END; ( of IF ) 

END; ( of WITH i5c_table BEGIN > 

END; { of set_serial ) 



Pascal 


[R 


2294 


D 


2295 


D 


2296 


D 


2297 


D 


2298 


C 


2299 


C 


2300 


S 


2301 


C 


2302 


C 


2303 


C 


2304 


C 


2305 


C 


2306 


S 


2307 


C 


2308 


S 


2309 


C 


2310 


c 


2311 


c 


2312 


s 


2313 


c 


2314 


s 


2315 


c 


2316 


c 


2317 


c 


2318 


c 


2319 


s 


2320 


c 


2321 


c 


2322 


c 


2323 


c 


2324 


c 


2325 


c 


2326 


s 


2327 


c 


2328 


s 


2329 


c 
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s 
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2335 


c 


2336 
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2337 
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2342 
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2344 
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PROCEDURE clear seriaK select code 

line ~ 
VflR mybit : INTEGER; 
dummy : INTEGER; 
BEGIN 

UITH isc table[select code] 00 BEGIN 



Type_i5c ; 

t ype_5erial_line ) ; 



IF card_type <> serial^card THEN io_e5cape ( ice_bad_sct ,5elect_code) ; 



IF isc table[select code]. card id 
THEN BEGIN 
CfiSE line OF 



hp98628_async 



rts_lirie: 
dtr_line: 

drs_lire: 



mybit 
mybit 
mybit 



OTHERWISE io_e5cape(ioe_bad_sct , select_code) ; 

END; < of CASE line > 
dummy := iostatu5( select _code,8); 
dummy ;= binand(dummy,bincmp [mybit ) ) ; 
iocontrol ( se lee t_code, 8+256 .dunmy) ; 

END 

ELSE BEGIN 

IF (card id = hp98626) or (card_id = hp98644] 
THEN BFGIN 
CRSE line OF 



rts_]ine : 
dt r_line : 
drs line: 



mybit 
mybit 
mybit 



OTHERUISE io_e5cape(ioe__bad_5ct , 5elect_code) ; 

END; { of CfiSE line ) 

djmmy := ios tat us ( selec t_code, 5 ) ; 
dummy := binand (dummy, bincmp (mybit ) ) ; 
iocort rol ( select _code ,5 .dummy) ; 

END 

ELSE BEGIN 

CFILL ( io_drv_pt r'-.iod_clr , 
io tmp_ptr , 
■ OR[J[line) ); 
END; < of IF ) 

END; ( of IF ) 

END; < of UITH isc_table BEGIN ) 
END; { of clear_serial } 
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2354 :S 




23SS:S 




2356 :S 




2357:D 


1 


2358:D 


2 


2359 :D 


2 


2360:0 


-4 2 


2361 :D 


-8 2 


2362 :D 


-12 2 


2363:D 


-13 2 


2364 :C 


2 


2365 :C 


2 


2366:S 
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2368:C 


3 
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3 


2370:C 


4 


2371 :C 


4 


2372:S 
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S 
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5 
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2377:5 




2378 :C 


5 


2379:C 


5 
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5 
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2386:C 


5 


2387:S 




2388:C 


5 


2389:C 


6 


2390:0 


5 


2391:C 


5 


2392:S 




2393:C 


5 


2394 :C 


5 


2395:C 


5 


2396:C 


5 


2397:5 




2398:C 


5 


2399:C 


5 


2400:C 


5 


2401 :C 


5 


2402 :S 




2403:C 


5 


2404 :C 


5 


2405:C 


5 


2406:C 


5 


2407:5 




2408:C 


5 


2409 :S 




2410:: 


5 


2411:C 


4 


2412:C 


4 


2413;S 
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2414 :C 


4 


2415:C 


4 


2416:C 


4 


2417:C 


4 


2418:C 


5 


2419:C 


5 


2420:3 




2421 :C 


6 


2422:C 


6 


2423:C 


S 


2424 :C 


6 


2425:S 




2426:C 


6 


2427:C 


6 


2428:C 


6 


2429:C 


6 


2430:S 




2431:C 


6 


2432:C 


6 


2433:C 


6 


2434 :C 


6 


2435:S 




2436:C 


6 


2437:C 


6 


2438:C 


6 


2439:C 


6 


2440:S 




2441 :C 


6 


2442 :C 


6 


2443:C 


6 


2444 :C 


6 


2445 :S 




2446 :C 


6 


2447:C 


6 


2448 :C 


6 


2449:: 


6 


2460:5 




2451 :C 


6 


2452:C 


6 


24S3:C 


6 


2454:0 


6 


2455:5 




2466:C 


6 


2457:3 




2468:0 


6 


2459:C 


5 


2460:0 


5 


2461:5 




2462:C 


5 


2463:C 


5 


2464 :S 




2465:0 


5 


2466:0 
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5 
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5 


2471:S 
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4 
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type_i5c ; 
type_5erial_line 



FUNCTION 5erial_line ( 5elect_code 
line 
: BOOLEfiN ; 
vfiR mybit : INTEGER 
dummy : INTEGER 
reg : INTEGER 

mybool : BOOLEfiN 
BEGIN 

WITH i5c_table[5elect_code] DO BEGIN 

IF card_type <> 5erial_card THEN io_e5cape (ioe_bad_sct , 5elect_code) ; 

IF isc table[select code] .card id = hp98628 async 
THEN BEGIN 



CfiSE line OF 








rtb_line : 


BEGIN 

reg 

mybit 
END; 




8; 
0; 


dt r_lire : 


BEGIN 

reg 

mybit 
END; 




8; 
1; 


dr5_ljne: 


BEGIN 

myblt 
END; 




8; 
2; 


dsr_line; 


BEGIN 

reg 

myblt 
END; 




7; 

0; 


dcd_line: 


BEGIN 

mySit 
END; 




7; 
1; 


cts_line: 


BEGIN 

req 

myblt 
END; 




7; 

2; 


ri_line: 


BEGIN 

mybit 
END; 




7; 
3; 



OTHERUISE io_escape(ioe_bad_5ct , 5elect_code ) ; 



END; < of 0H5E line ) 

dummy ;= iost atus (select_code, reg ) ; 

mybool:= bit_5et (dummy , mybit ) ; 
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END 

ELSE BEGIN 






IF (card id = hp98S26) or 

THEN BEGIN 
CHSE line OF 


(card_ 


rts_line : 


BEGIN 
reg 

myblt 
END; 


:= 5; 

:= 1; 


dt r_line: 


BEGIN 

reg 

myblt 
END; 


:= 5; 
:= 0; 


drs^line: 


BEGIN 

reg 

myblt 
END; 


:= 5; 
:= 3; 


dsr_line: 


BEGIN 

reg 

myblt 
END; 


:. 11; 
:= 5; 


dcd_line: 


BEGIN 

reg 

mybit 
END; 


:= 11; 
:= 7; 


ct5_line: 


BEGIN 

reg 

myblt 
END; 


:= 11; 
:= 4; 


ri_line : 


BEGIN 

reg 

mybit 
END; 


:= 11; 
:= 6; 



OTHERUISE io_e5cape(ioe_bad_sct , seIect_code ) 

END; { of CASE line > 

dummy := lost at us { 5elect_code , reg ) ; 

mybool:= bit_set (dummy .mybi t ) ; 

END 

ELSE BEGIN 

CflLL ( 10_drv_ptr".i0d_te5t , 
io tmp_ptr , 
ORCdine) , 
mybool ) ; 

END; { of IF ) 

END: ( of IF > 
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2474 :C 


3 


247S:C 


7 


2476 :C 


? 


2477:S 




2478:C 


7 


2479:S 




2480 :S 




2481 :S 




2482 :S 




2483:S 




2484 :C 


1 
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END; { of UITH isc_table BEGIN ) 
5erial_line := mybool; 
END; { of 5erlal_line ) 



1 END; ( of seriaLO > 
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2485:0 

2486:0 

2487 :S 

2488:S 

2489:S 

2490:S 

2491 :S 

2492:S 

2493: 

2494: 

2495: 

249 

2497: 

2498: 

2499: 

2500: 

2501 : 

2502: 

2503 : 

2504: 

2505 :D 

2506:0 

2607:0 

2S0e:D 

2509:D 

2510 :D 

2S11:D 

2512:0 

2513:D 

2S14:D 

2515:0 

251B:S 

2517:0 

2518:0 

2519:S 

2520:S 

2521 :D 

2522:S 

2S23:S 

2524:0 

2525:0 

2526:S 

2S27:S 

2528:0 

2529:0 

2530:0 

2531 :D 

2532:0 

2533:0 

2534 :C 

2S35:C 

2536:C 

2537:C 

2538:C 

2539:C 

2540:C 

2541 :C 

2S42:C 

2543:C 

2544 :C 



1 S»PGE$ 
1 nODULE 



.erial_3 

< 
date 
update 



07/22/81 
10/01/82 



purpose This module contains the LEVEL 
3 SERIHL GROUP procedures. 



iodeclarations 



IMPORT 
EXPORT 



PROCEDURE 5et_baud rate 

T select_code : 
rate 
PROCEDURE set_5top bits 

X select^code : 
num_bits : 
PROCEDURE set_char length 

T select_code : 
n jm_char_bit : 
PROCEDURE 5et_parity 

( select_code : 
parity_mode : 
PROCEDURE 5end_break 

( select_code : 

PROCEDURE abort_serial 

( select^code : 



type_i5C ; 
RERL ); 

type isc ; 
REPL ); 

type isc ; 
INTEGER ); 

type_i5c ; 
t ype_parit y) 



inPORir iocomasm , 
general_0 



1 


PROCEDURE set_baud_rate 






2 
2 




( select code 
rate 


: type isc ; 
: REHL ); 


2 


VHR durrmy : INTEGER; 

FUNCTION calc rate [ r : 






2 


ERL 


1 : INTEGER; 


3 


VRR m 


yrate : INTEGER; 






3 


BEGIN 








3 


T 


ate := 0: 






3 


r=S0 THEN myrate 


' 1 




3 


IF 


r=75 THEN myrate 


= 2 




3 


IF 


r=110 THEN myrate 


= 3 




3 


IF 


r=134.5 THEN myrate 


= 4 




3 


IF 


r=150 THEN myrate 


= 5 




3 


IF 


r=200 THEN myrate 


« 6 




3 


IF 


r=300 THEN myrate 


= 7 




3 


IF 


r=S00 THEN myrate 


= 8 




3 


IF 


r=1200 THEN myrate 


» 9 





11-551 



Pascal [Rev 


3. on 6/ 


2545:C 


3 


2546 :C 


3 


2547:C 


3 


2548:C 


3 


2549 :C 


3 


2S50:C 


3 


2551 :S 




2552:C 


3 


2653:S 




2554:C 


3 


2555:C 


2 


2656:C 


2 


2557;S 




2558:C 


3 


2559:C 


3 


25S0:C 


3 


2561 :C 


4 


2562:S 




2563:C 


4 


2564 :C 


4 


256S:C 


4 


2566 :C 


4 


2667:S 




2568 ;C 


4 


2569 :C 


4 


2S70:C 


4 


2571:C 


4 


2572:C 


5 


2573:C 


5 


2S74:S 




2575:: 


5 


2S76:C 


5 


2577 :C 


5 


2578:5 




2S79:C 


6 


2580:S 




2581 :C 


5 


2582 :C 


5 


2583 :S 




2684 :C 


S 


2S85:S 




2586:C 


5 


2587:S 




2588;C 


4 


2589:S 




2590:C 


3 


2591 :C 


2 E 


2592:S 




2693:S 




2594 :S 




2595:S 




2596:S 




2597:0 


-8 1 


2S98:D 


2 


2599:0 


-8 2 


2600:0 


-12 2 V 


2601 :0 


-16 2 


2602 :C 


2 E 


2603 :C 


2 


2604 :S 
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2605 :C 


3 


2606 :C 


3 


2607 :C 


3 


2608 :C 


4 


2609:5 




2610:C 


4 


2611:C 


S 


2612:C 


s 


2613:C 


6 


2614:C 


5 


261S:C 


6 


2616:C 


6 


2617:C 


6 


2618:C 


6 


2619:C 


6 


2620:0 


6 


2621 :C 


7 


2622:C 


7 


2623:C 


7 


2624:C 


7 


2625:C 


7 


2S26:C 


7 


2627:S 




2628:C 


6 


2629 :S 




2630:C 


S 


2631 :S 




2632:C 


4 


2633:S 




2634:C 


4 


2635:C 


4 


2636:C 


4 


2637:C 


5 


2638:C 


5 


2639:C 


5 


2640 :C 


6 


2641 :C 


6 


2642 :C 


6 


2643:C 


6 


2644 :C 


6 


2645 :C 


7 


2646 :C 


7 


2647:C 


3 


2646 :C 


7 


2649:C 


7 


26S0:C 


7 


2651 :C 


7 


2652:C 


8 


2653:C 


8 


2654:C 


8 


26S5:C 


8 


2656 :C 


8 


2657:C 


8 


2658:S 




2659:C 


7 


2660:5 




2661 :C 


6 


2662:5 




2663:C 


5 


2664 :C 


5 
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IF r=1800 THEN myrate 

IF r=2400 THEN myrate 

IF r.SeOO THEN myrate 

IF r=4800 THEN myrate 

IF r=9600 THEN myrate 

IF r=19200 THEN myrate 

C3lc_rate :■= myrate; 
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END; < of calc rate ) 
BEGIN 

UITH i5c_tabIe[5elect_codel 00 BEGIN 

IF card_type <> serial_card THEN io_escape(ioe_mi5c, select_code) 

IF i5c_table[5elect_code] .card_id = hp98628 async 
THEN BEGIN 



durmy:=calc rate(rate); 

IF dummy = Z THEN io_escape [ ioe_misc , selec t_code ) ; 



iocontrol (selec t_code ,20,durmiyl ; 
iocontrol (selec t_code,21 ^durrmy) ; 



END 

ELSE BEGIN 



BUG 1270 TM 1/8/82 
BUG 1270 in 1/8/82 



IF (isc table[select_code] .card_id = hp98626) OR 
[isc tableiselect code]. card id = hp98644) 
THEN BEGIN 

dummy:=ROUND(rate); 

IF dummy = THEN io_e5cape [ioe_misc, select_code) ; 

iocontrol (selcct_code,3,dumniy) ; 

< what about 134.5 ? ) 

END 

ELSE BEGIN 

io_e5cape ( Joe_mi5c, select „c ode) ; 

END; < of IF 98626 ) 

END; ( of IF 98628_async > 

END; ( of UITH i5c_table BEGIN > 
END; < of set_baud_rate ) 



PROCEDURE 5et_5top bits 

J select_code : type_i5c 
num_bit5 : REHL ); 
VHR myval : INTEGER; 
dummy : INTEGER; 
EGIN 
UITH i5c_table [select^code] DO BEGIN 
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IF card_type <> serial_card THEN io_e 5c ape ( ioe_misc , select code ) ; 

2e_async 



IF isc_t able [5elect_code] .card id = hp 
THEN BEGIN 

IF num bits = 1 
THEN BEGIN 

myval := O; 
END 
ELSE BEGIN 

IF num bits = 1.5 
THEN BEGIN 

myval := 1; 
END 
ELSE BEGIN 

IF num_bits = 2 
THEN BEGIN 
myval :=2 
END 
ELSE BEGIN 

io_e5cape (ioe misc, select code); 
END; ( of IF 2 T 

END; ( of IF 1.5 > 

END; < of IF 1 > 

iocont rol [selec t_code ,35, myval) ; 



END 

ELSE BEGIN 

IF (i5c_table [select_code] .card_id = hp98626) 
OR (isc tabletselect code). card id = hp98644) 
THEN BEGIN 

IF num bits = 1 
THEN BEGIN 
myval :=0; 
ENO 
ELSE BEGIN 

IF num bits = 1.5 
THEN BEGIN 

IF binand[iostatu5 (5elect_code,4) , 3)<>0 
THEN io_e scape (ioe_misc , select_code) ; 
myval :=1 ; 
END 
ELSE BEGIN 

IF num bits = 2 
THEN BEGIN 
myval :=1 ; 
ENO 
ELSE BEGIN 

io escapefioe misc, select code); 
END; ( of IF 2 T 

ENO; ( of IF 1 .5 ) 

ENO; < of IF 1 ) 

dunmy:=iost atus (select code, 4); 
dunmy : = binand (dunmy ,25T)+myval*4 ; 



< BUG 1270 Ttl 1/8/82 ) 
( BUG 1269 T(1 1/8/82 > 
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2665:C 


s 


2666 :S 




2667 :C 


i 


2668 :C 


i 


2669 :C 


! 


2670:C 


! 


2671 :S 




2672 :C 


4 


2673 :S 




2674 :C 


3 


2675:S 




2876:C 


2 


2677:S 




2678 ;S 




2679 :S 




2680:S 




2681 :D 


1 


2682:D 


2 


2683:D 


2 


2684 :D 


-4 2 


2685 :D 


-8 2 


2686:C 


2 


2687:C 


2 


2688:5 




2689:C 


3 


2690:C 


3 



2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705:: 

2706:C 

2707:S 



2708: 

2709: 

2710: 

2711 : 

2712: 

2713: 

2714: 

2715: 

2716: 

2717: 

2718: 

2719: 

2720: 

2721 :S 

2722:C 

2723 :S 

2724 :C 
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iocontrol (select_code,4 .durmy) ; 

END 

ELSE BEGIN 

io escapefioe misc. select code); 

END; < of IF 98526 ) 

END; ( of IF 98628_a5ync ) 

END; < of UIIH isc_table BEGIN ) 

END; ( 5et„5top_l)it5 ) 



PROCEDURE 5et_char lenoth 

X 5elect_code : Type isc ; 
num char bit: INTECER ); 
VfiR myval : INTEGER; 
dummy : INTEGER; 
BEGIN 

UITH i5c_table[5elect_coae] DO BEGIN 

IF card_type <> 5erial_card THEN io_e5cape ( ioe_misc , select_code) ; 

CfiSE num„char_bit OF 



myval 
myval 
myval 
myval 



0; 

1; 

2; 
3; 



OTHERWISE :io_e scape ( ioe_misc, seIect_code) ; 
END; < of CASE ) 



IF isc_lable[5elect code]. card id = hp98628 async 
THEN BEGIN ~ ~ " 

iocontrol(select_code,34,myval) ; 

END 

ELSE BEGIN 

IF(isc^table[select_code] .card id = hp98626) 
or (isc table[5elect code]. card id = hp986441 
THEN 8E5IN " _ .- , 

durtTmy: = iostatus (select code, 4) ■ 
dumniy;=binand(dummy,25?l +myval 
iocont rol (select_code,4 .durmy) . 

END 

ELSE BEGIN 

io_e scape ( ioe_misc , select _code) ; 

END; < of IF 98626 > 



{ 0359 Tn 8/23/82 ) 
{ 557 TM 10/1/82 ) 
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2725;S 

2726:C 

2727: 

2723: 

2729: 

2730: 

2731: 

2732: 

2733: 

2734: 

2735: 

2736: 

2737 :D 

2738:D 

2739:0 

2740 :C 

2741 :C 

2742 :S 
2743: 
2744; 
2745: 
2746: 
2747: 
2748: 
2749: 
2750: 
2751: 
2752: 
2753: 
2754 :C 
2755 :S 
2756 :C 
2757:S 
2758 :C 
2759:5 
2760:C 
2761 :S 
2762:C 
2763:C 
2764 :S 
276S:C 
2766:C 
2767;" 
2768: 
2769: 
2770: 
2771 : 
2772: 
2773: 
2774: 
2775: 
2776:3 
2777 :C 
2778: 
2779: 
2780: 
2781: 
2782: 
2783: 



2784 :S 



END; ( of IF 98628_a5nync > 

END; { of UITH isc_table BEGIN ) 
END; ( set_char_length > 



type_isc ; 
type~parit y) ; 



PROCEDURE set_parity 

( select_code 
parity mode 
VfiR myval : INTEGER; 
dummy : INTEGER; 
BEGIN 

UITH i5c_table[5elec1_code] DO BEGIN 

IF card_type <> serial_card THEN io_e5cape (ioe_misc,select_code) ; 

IF isc_table[5elect code]. card id = hp98628 async 
THEN BEGIN 



CfiSE parjty_mode OF 



no parity: 
od?_par ity: 
even_parity : 
zero_parity : 
one_par ity; 



myval 
myval 
myval 
myval 
myval 



0355 Tn 8/20/82 
0355 TM 8/20/82 



OTHERUISE io_e scape ( ioe_misc , select _c ode) ; 

END; < of CfiSE ) 

iocont rol (select_code,36,myval) ; 

END 

ELSE BEGIN 

IF {isc_table[5elect_code] .card_id = hp98626) 
or (isc table[select code]. card id = hp98644) 
THEN BE5IN 

CfiSE parity_mode OF 

no parity: 
od?_parity : 

even_parity: 
one_parity : 
zero^parity: 

OTHERUISE io_e scape (ioe_misc ,5elect_code) 

END; < of CASE ) 

dummy : =iostatus(select code, 41; 
dummy: =binand (dummy, 195)*myv3l*8 ; 
iocont rol (se lee t_code ,4 , dummy) ; 



myval 


- 


myval 


= 1 


myval 


= 3 


myval 


= h 


myval 


= 7 



{ 0359 TH 8/23/82 ) 
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278S:i: 


2786 




2787 




2788 




2789 




2790 




2791 




2792 




2793 




2794 




2795 




2796 




2797 




2798 




2799 


;i 


2800 


i) 


2801 


[1 


2802 




2803 




2804 




2805 




2806 




2807 


s 


2808 




2809 




2810 




2811 




2812 




2813 




2814 


;; 


2815 




2816 




2817 




2818 




2819 


;j 


2820 




2821 


s 


2822 




2823 




2824 


[^ 


2825 




2826 




2827 




2828 


s 


2829 




2830 




2831 




2832 




2833 




2834 




2835 


[1 


2836 




2837 




2838 




2839 




2840 




2841 




2842 




2843 




2844 





bi] lOLIB.TEXT 



END 

ELSE BEGIN 
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io_e scape ( ioe_misc , 5elect_code) 

END; ( of IF 98626 ) 

END; ( of IF 98e28_a5nync ) 

END; ( of UUH i5c_lable BEGIN ) 
END; ( set_parjty ) 



PROCEDURE send_break 

( select code : type isc ); 
BEGIN 

( what about active tfrs > 

UITH i5c_tab]e[5e]ect_code] DO BEGIN 

IF card_typ'e <> 5erial_card THEN io_escape(ioe_misc, select_code) 

IF isc_table[select_code] .card_id = hp98628_async 
THEN BEGIN 

iocontrol (select _code, 6,1); 

END 

ELSE BEGIN 

IF (card id = hp98626) or (card_id = hp9e644) 
THEN BfGIN 

iocontrol[select_code,l,l); 

END 

ELSE BEGIN 

io_.e scape (ioe_misc, select _c ode) ; 

END; ( of IF ) 

END; < of IF ) 

END; < of WITH isc^table BEGIN ) 
END; < of 5end_break > 



1 PROCEDURE abort^serial 

2 [ select_code : type_i5c ); 
2 BEGIN 



{ what about active tfrs > 

UITH isc_table[select_code) DO BEGIN 

IF card_type <> serial_card THEN io_escape (ioe_ml5c, select_code ) ; 
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2845:t 
2846 :C 
2847:;. 
2848 :r 
2849:;, 
2850 :C 
2851 ;C 
2852 :C 
2853:f 
2854:5 
2855:t 
2856:;, 
2857 :t 
2858:t 
2859:;; 
2860 :t: 
2861 :C 
2862 :C 
2863:S 
2864 :r 
2865:!, 
2866 :f 
2867:C 
2868:S 
2869:S 
2870 :S 
2871 :C 
2872:S 



IF i5c_table[selecl_code] .card_id = hp98628_a5ync 
THEN BEGIN 

iocontrol(5elect_code,2S6»125,l ); ( BUG 



TM 1/26/82 ) 



END 

ELSE BEGIN 

IF (card id = hp98626) or (card_id = hp98644) ( BUG FIX 6/4/84 ) 
THEN BFGIN 

iocontrol( 5elect_code,0,l ) ; 

END 

ELSE BEGIN 

io_e scape ( ioe_mi3c, select_code) ; 

END; { of IF > 

END; ( of IF ) 

END; < of UITH lsc_table BEGIN ) 
END; ( of abort_5erial ) 



< of 5erial_3 > 



1 warnings. 

***** Nonstandard language features enabled ***** 
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KERNEL 



Description 

This is the I/O library kernel. 



Usage 

The modules in KERNEL provide the framework for the rest of the I/O library and I/O drivers. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Comf>any. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:0 
2:S 
3:3 
4:S 
5:3 
6:3 
7:3 

:S 

:S 

:3 

:3 

:S 

:S 

:S 

:3 

:S 

:3 
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10: 

11 : 

12: 

13: 

14: 

15: 

16: 

17: 

18:3 

19:3 

20:0 

21 :3 

22:3 

23:0 

24:0 

25:0 

26:0 

27:0 

28:0 
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(« 



(c) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
ib subject to restrictions as set forth in 
paragraph (b) [3) (B) of the Rights in Technical 
Delta and Computer Software clause in 
DHR 7-104. 9(a). 

HtULETT-PPCKfiRD COnPPNy 

Fort Collins, Colorado ») 



SnODCPL 0N$ 

tPPRTIPL Evni 0N$ 

$F.HNGE 0FF$ 

SnEBUG OFF$ 

JUVFLCHECK OFFI 

SSTPlCKCHECK OFF$ 
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29 :D 

30 :D 
31:D 
32:0 
33:0 
34:0 
35:0 
36 : 
37:0 
38:0 
39:0 
40:0 
41:0 
42:0 
43:0 



44: 

45: 

46: 

47: 

48:0 

49:0 

S0:0 

51:0 

52:0 

53:0 

54:0 

65:0 

56:0 

57:0 

58:0 

59:0 



RELEflSED VERSION 



v*********^**»t) 



3.0 

***** 



I********************* 



lOLIB 



KERNEL 



******************************************************************* 



library 
name 
module ( s) 



author 
phone 

date 

update 

release 

source 
object 



lOLIB 

KERNEL 

iodeclarations 

iocomasm 

general_0 



June 1 , 1931 
Feb 9 , 1984 
xxxxxxxxxxxxxx 

IOLIB:KERNEL.TEXT 
IOLIB:KERNEL.CODE 



(3.0 release date) 



*******************************************) 
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60:0 
61:0 
62:0 
63:0 
64:0 

65 :D 

66 :U 
67:0 
68:0 
69:0 
70:0 
71:0 
72:11 
73:0 
74:0 
75:0 
76:0 
77:0 
78:0 
79:0 
80:0 
81:0 
82:0 
83:1) 
84:0 
85:0 
86:11 
87 :P 



***************** 



******************************************) 



This is the source code for an external procedures library 
to be used for general purpose interfacing on the HP 9826. 

The library consists of 3 primary sets of modules - 



KERNEL modules 
driver modules 
lOLIB modules 



The KERNEL modules consist of the following modules 



1 . 

2 . 
3. 



iodeclarations 

iocomasm 

general_0 



( contains static r/w space 



( initialization 8 low level 
routines like ioread/iowrite) 
The KERNEL modules also have an executable program segement 
that gets executed at the time it is loaded. This program 
initializes the static read/write memory. This program also 
allocates the temporary storage for any card that exists - 
independent of whether there is or is not a driver for it. 

The driver modules consist of the actual assembly or PflSCf^L 
routines that deal with a specific interface card. There is 
also an executable program segment for each driver module. 
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39:0 


° ( 


90:0 


1 


91:0 


1 


92:D 





93:D 





94:D 





95:D 





96:0 





97:D 





98:0 





99:0 


1 


100:0 


( 


101 :D 


1 


102:0 


I 



initialized by the KERNEL general module for all select codes 
that have the right interface car3 [ HPIB drivers will search 
for the 98624 interface ). This program will then set up the 
driver tables to point to the correct drivers. 

The rest of the lOLlB modules are high-level modules that are 
used by an end user in his/her application program. 

The KERNEL and some set of driver modules will exist in the 
INITLIB file as object code ( not EXPORT text ). The 
export text will reside on the ID file. The rest 
of the library will reside on the 10 file. 



»«*«»«»««»*«»*«*»« 



*X*^***XMM* 



!*.*****t*X*X********* 



**««»«««» 



Pascal [Rev 3.0n 

103:0 

104:0 

105:0 

105:0 

107:0 

108:0 

109:0 

110:0 

111:0 

112:0 

113:0 

114:0 

115:0 

118:0 

117:0 

118:0 

119:0 

120:0 

121:0 

122:0 

123:0 

124:0 

125:0 

126:0 

127:0 

128:0 

129:0 

130:D 

131:0 

132: 

133: 

134: 

135: 

136: 

137: 

138: 

139: 

140:0 

141:0 

142; 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

ISO: 

ISl: 

152: 

153:0 

154:0 

155:0 

156:0 

157: 

158: 

169: 

160: 

161: 

162: 
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SPflGEI 

(. 

f « 

(» BUG FIX HISTORY 

(* 

(* 

(• BUG « BY / ON 

(« 

1* 1281 

{« 01/08/82 

aaaa 

05/24/82 
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- after release 1.0 

LOC DESCRIPTION 



lODECLfiRRTIONS 



kernel 
initialize 



bbbb 


07/09/82 


kernel 

initialize 

iodeclarations 


jw 


07/12/82 


kernel 

initialize 

iodeclarations 


0082 




kernel 

initialize 
iodeclarations 


07/23/82 






end_er ror_link 






iodeclarations 




08/16/82 


0350 




generalj) 


08/19/82 


0364 




iodeclarations 


08/23/82 


0367 




ioiibrary_kern 


09/22/82 


tttt 




kbd_rdb 
iodeclarations 


09/22/82 




09/28/82 



bad error message . 
No code change in this 
module - code change in 
GENERflL_3. 

No bug sheet . 
The CRT and keyboard 
select codes were 
interchanged. Should 
have no effect . 

No bug sheet . 

fidding machine id info 

and the 

Ganglia drivers. 

No bug sheet . 
Pdding temp type for 
626 drivers. 

Adding a link for the 
error message function. 
See also GENERAL 3. 



Allowing the 98629 card 
and the 98628 dsndl as 

identifiable cards. 

See DC_ORV modules also. 

Fundamental flaw with 
the duntny drivers. 



See also GENERflL_3. 



Allow kernel to install 
itself - probably will 
not be used much . 

Change in the handling 
of the keyboard end of 
line condition from 1.0. 

Differentiate between a 
628 async and 629 srm 
card type (srm/serial) . 
See also DC DRV. 
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163: 

16 

165: 

166: 

167: 

16 

169: 

nO:D 

171 :D 

172:0 

173:0 

174:0 

nS:D 

176:0 

177:5 



3. Oh 6/ 4/84) KERNEL. TEXT 

(» jws 

(• 03/25/83 

(» 

• 

• 

(• lw52 

• 06/28/83 

• 

• jws3 

■ 02/09/84 

• 

(• j»54 

» 03/05/84 

}*t*m***%m*****»t**».***** 
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iodeclaratlons Add card ad's and types ») 



general_0 



general_0 



iodeclarat ions 
general_0 



iodeclarat ions 
general_0 



for EPROn progranfner 

and bubble cards . « 

Add initialization code.* 

fidd test for internal * 
HP-IB present. » 
* 
Deleted io_model_number *) 
and io model name stuff *) 
fidded SflTOR id, init . 
Pdded id and init for 
98644 card •) 
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178:0 
179:0 
I80:D 



181 
182 
183 
184 
185 
186 
187 
188 
189; 
190: 
191: 
192: 
193: 
194; 
195; 
196; 
197; 
198; 
199; 
200; 
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X»*»«««*««X**««***k*«*K«****«**«:»X* «**««** 



REFERENCES : 

1. 9826 I/O Designers Guide 

2. 68000 nanual 

3. Pascal alpha site ERS 

4. Pascal I/O Library ERS 

5. 9826 HPL EIO S 100 listings 

6. 9826 HPL nisc. I/O Doc. 

7. 9826 card documentation 



(*****»« 



««««*»X«**«««X««]KX«««X»««««»«S]K:t«l|cXI*»*:K:»X»:«X:4r*««X«*X:«lKl«*«*««*«») 
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201 :D 
202:D 
203:S 
204 :S 
20S:S 
206:S 
207:S 
208:D 
209:S 



SPflOES 

PROGRRM iolibraryJ<ernel ( INPUT , OUTPUT ); 



{ the PROGRAM surrounds the following modules because there needs 
to be a start address for this set of modules to allow 
initialization to occur > 
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210:D 

211:D 

212:D 

213:D 

214:D 

215;D 

216: 

217: 

218 

219: 

220: 

221: 

222: 

223: 

224: 

226: 

226: 

227: 

228: 

229: 

230: 

231: 

232: 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

240: 

241: 

242: 

243: 

244:0 

245:S 

246:0 

247:0 

248:S 



SPfiGEI 



* 

(• GENERBL GROUP lOOECLfiRPITIONS « 



:L module iodeclarations 



date 07/15/81 
update 03/05/84 

purpose This module contains the common 
declarations to be used by the 
rest of the I/O iibrar/. 



1 IMPORT sysglobals; 
EXPORT 



lominisc 
iomaxisc 
minrealisc 




31 
7 
maxrealisc = 31 

io_line feed = CHR(101 
io_carrTage_rtn = CHR(13) 



0-7 Internal 
8-31 external 



.31 ) 
< 7.. 31 are real isc.s with temps > 
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249:D 

250 :S 

251 :D 

252 ;S 
253:D 
254;S 
255:D 
256:0 
257:0 
258:0 
259:0 
260:0 
261:0 
262:0 
263:0 
264:0 
265:0 
266:0 
267:0 
268:0 
269:0 
270:0 
271:0 
272:0 
273:0 
274: 
275: 
276: 
277: 
278: 
279: 
280: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
290:0 
291:0 
292:0 
293: 
294: 
295: 
296: 



$ PAGES 

{ escape code constants > 

ioescapecode = -26; 



ioe_sr_toomany 

ioe_dc_f ail 

ioe_dc_usart 

ioe_dc_ovfl 

ioe~dc_clk 

ioe_dc_ct5 

ioe_dc_ca r 

ioe_dc_act 

ioe_dc_conn 

ioe_dc_conf 

ioe_dc_reg 

ioe_dc_rval 

ioe_sr_f ail 

no_isc 



_no_er ror 


= 


0; 


_no_card 


= 


1; 


_not_hpib 


= 


2; 


not act 


TT 


3; 


not dvc 


= 


4; 


no splice 


- 


5; 


no data 


= 


6; 


_ba3_tfr 


= 


7; 


_i5C_busy 


= 


8; 


buf busy 


= 


U 


bad cnt 


= 


bad trno 


= 


11 


_no Hriver 


= 


12 


_no_dma 


= 


13 


no word 


= 


14 


not talk 


^ 


15 


not Isin 


= 


16 


timeout 


= 


17 


not sell 


= 


18 


rds wtc 


^ 


19 


_bad_sct 


= 


20 


_c rd_dwn 


= 


21 


eod seen 


= 


22 


misc 


= 


23 



= 304 
■ 306 
= 313 
= 314 
= 31S 
= 316 
= 317 
• 318 
= 319 
' 32S 
= 326 
= 327 
= 353 

' 255; 



no error 

no card at select code 
interface should be hpib 
not active controller 
should be device not isc 
no space left In buffer 
no data left in buffer 
improper transfer attempted 
\ the select code is busy 
{ the buffer is busy 
{ improper transfer count 
i bad timeout value 
{ no driver for this card 
( no dma 

( word operations not allowed 
{ not addressed as talker 
{ not addressed as listener 
( a timeout has occurred 
{ not system controller 
{ bad status or control 

< bad set/clear/test operation 
{ interface card is dead 

{ end/eod has occured 

{ miscellaneous - 

( value of param error 

< too many chars w/o terminator 
( dc interface failure 

( USflRT receive buffer overflow 
receive buffer overflow 
missing clock 
CTS false too long 
lost carrier disconnect 
no activity disconnect 
connection not established 
bad data bits/par combination 
bad status /control register 
control value out of range 

< data link failure 



{ used for ioe_i5C within io errors > 



{ BUG 1281 Tn 1/8/821 



< 0364 Tn 8/23/82 ) 



{ 0364 TM 8/23/82 ) 
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297:0 
298:0 
299 :S 
300:0 
301:0 
302:0 
303:0 



304 
305 
306 
307 
308; 
309 
310; 
311: 
312; 
313; 
314; 
315; 
316; 
317; 
318; 



SPHGEJ 

{ hpib message constants ) 



gtl message 


= 


CHR 


1 


5dc_message 


= 


CHR 


4 


ppc message 




CHR 


5 


get message 




CHR 


3 


tct message 




CHR 


9 


llo message 




CHR 


17 


dcl^message 




CHR 


20 


ppu message 




CHR 


21 


spe message 




CHR 


24 


spd'message 




CHR 


26 


unl message 




CHR 


63 


unt_me5sage 




CHR 


95 


ppe message 




CHR 


96 


ppd_message 




CHR 


112 


talk_constant 


^ 


64; 




listen_constant 


- 


32; 
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319:D 


1 tPRGEt 










320 :S 












321:D 




{ card type constants > 


322 :S 












323:D 




no card 


= 







324 :D 




otTTer card 


= 


I 




325 :D 




system card 




2 




326:0 




hpib card 




3 




327:0 




gpio~card 




4 




328:0 




serial card 




5 




329:0 




graphics_card 




6 




330:0 




srm card 




7 


( shared resource mgr ) 


331:0 




bubE^le_card 




8 


{ bubble memory ) 


332:0 




eprom_prgmr 


= 


9 


{ eprom programner > 


333:S 












334:S 












33B:D 




{ card id constants 


) 


336:0 




/ 






> 


337:0 




I positive id 


5 are 


he actual > 


338:0 




< card id's 






) 


339 :S 












340:0 




hp98628 dsndl 


= 


-7 


( DSN/DL ) 


341:0 




hp98629~ 


= 


-6 


; shared resource mgr > 


342:0 




hp datacomm 


= 


-5 




343:0 




hp58620 


- 


-4 




344:0 




inte rnal_kbd 


= 


-3 




34S:D 




Internal crt 


= 


-2 




346:0 




internal_hpib 


= 


-1 




347:S 












348:0 




no_id 


s 







349:S 












3S0:D 




hp98624 


a 


1 


; hpib > 
{ serial ) 


351:0 




hp98626 


^ 


2 


352:0 




hp98622 


s 


3 


( 9Pio > 
! Bed > 


353:0 




hp98523 


= 


4 


364:0 




hp98625 


s 


8 


disk > 
hp98628 } 
{ bitmap display -- nee 


355:0 




hp98628 async 


= 


20 


356:0 




hpGflTOR 


= 


25 


357:0 




hp98253 


= 


27 


■; EPROn programmer } 

f graphics ) 

; bubble memory ) 

( serial -- pri. id=2, 


358:0 




hp98627 


= 


28 


359:0 




hp98259 


= 


30 


360:0 




Iip98644 


= 


66 


361:8 













{ uuuu Tn 9/28/82 > 
( iws 3/25/83 > 
< jws 3/25/83i 



cccc TM 8/16/82 
cccc Tfl 8/16/82 



need number jw53 ) 

< jws 3/25/83 > 

< jws 3/25/83 ) 
sec. id=2 jws4 
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362:0 1 


SPRGES 








363:S 










364:0 1 


TYPE 








365:3 










366:0 1 




( general declarations > 


367:S 










368:0 1 




type isc 


= 


iominisc . .iomaxisc : 


369:0 1 




type device 




iominisc . . ioma-xisc«i 00+99; 


370:0 1 




io_bit 




0. .15 ; 


371:0 1 




io_byte 




0. .255 ; 


372:0 1 




io_word 




-32768. .32767 ; 


373:0 1 




io~st ring 




STRING[255); 


374:0 1 




io_proc_type 




PROCEDURE; 


375:S 










376:0 1 




errlnk_type 




PROCEOURE { er-orcode : INTEGER ; 


377:0 1 








VSR s : io_string ); 


378:3 








379:0 1 




( card id and 


type declarations > 


380:3 










381:0 1 




type of card 


= 


io word; 


382:0 1 




type_card_id 


= 


io_word; 


383:3 










384:3 










385:0 1 

386:3 

387:0 1 




( hpib type declarations } 




type_hpib_addr 


= 


0..31 : 

( ren line , 


388:0 1 




type_hpib_line 


= 


389:0 1 








ifc line , 


390:0 1 








srq line , 


391:0 1 








eoi line , 


392:0 1 








nrf3 line , 


393:0 1 








ndac line , 


394:0 1 








dav Tine , 


395:0 








atn line 


396:0 1 








) ; ~ 


397 :S 










398:3 










399:0 1 




( serial type 


dec 


.arations > 


400:3 










401:0 1 




type_parity 


= 


( no parity , 


402:0 1 








odo_parity , 


403:0 1 








even parity . 


404:0 1 








zero parity . 


405:0 1 








one parity 


406:0 1 








); ~ 


407:0 1 




type_serial_line= 


[ rts line , 


408:0 1 








cts line , 


409:0 1 








dcd line , 


410:0 1 








dsr_line , 


411:0 1 








drs line , 


412:0 1 








ri Tine , 


413:0 1 








dtr line 


414:0 1 








); 



«** File name: KERNEL ** 



0082 TM 7/23/82 
0082 TM 7/23/82 



n-561 
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415 
416 
417 
418 
419 
420 
421 
422:0 



423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433:D 

434:D 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

464 

455 

456 

467 

468 

459 

460 

461 

462 

463 

464 

465:0 

466:0 

467:0 

468:0 

469:0 

470:0 

471 :S 

472:D 

473:S 

474:3 



SPPIGES 

( driver declarations > 



io 


proc 


= PROCEDURE ( 


temp 


: fiNYPTR 


io. 


_proc_c 


= PROCEDURE ( 


temp 


: fiNYPTR; 
: CHAR ); 

: flNYPTR; 


io. 


_proc_vc 


= PROCEDURE ( 


temp 








VfiR V : CHAR} ; ' 


io. 


_proc_«/ 


= PROCEDURE ( 


temp 

V 


: ftNYPTR; 

: io word 


io. 


._proc_vw 


= PROCEDURE [ 


temp 


: fiN7PTR: 








VfiR V ; io word 


io_ 


_proc_s 


= PROCEDURE ( 


temp 
reg 

V 


: ANYPTR; 
: io word 
: io word 


io_ 


,proc_vs 


= PROCEDURE ( 


temp 
Vft? 


: RNVPTR; 
: io word 








: io word 


io_ 


,proc_l 


= PROCEDURE ( 


temp 

line 


: ANVPTR; 
: io bit 


io.. 


_proc_vl 


= PROCEDURE ( 


temp 
line 


: ANVpTR; 

: io bit 








VflR V : BOffLEflN 


io_ 


_proc_vb 


= PROCEDURE ( 


temp 


: fiNYPTR: 








VftR V : BOOLEAN 


io_ 


.proc_pt r 


- PROCEDURE ( 


temp 


: fiNYPTR: 








V 


; fiNYPTR 


drv_l able_t ype 


= RECORD 










iod init 


: io 


Droc : 






iod isr 


: ISl?t>ROCTYPE ; 






iod~rdb 


: io 


proc vc ; 






iod wtb 


: io" 


proc c ; 






iod_rdw 


: io 


.proc_vw ; 






iod_wtw 


■ iO- 


.proc_w ; 






iod rds 


: io 


"proc vs ; 






iod wtc 


: io 


proc_5 ; 






iod end 


: io" 


proc vb ; 






iod tfr 


: io" 


proc ptr ; 






lod_send 


: io: 


proc_c; 






iod ppoll 


: io_ 


proc vc ; 






iod &et 


: io 


proc_l ; 






iod clr 


: io" 


proc 1 ; 






iod test 


: io: 


proc vl ; 






END; 







{ procedure definition for DMA termination procedure ) 
io_f unny_proc = RECORD 

CASE BOOLEBN OF 
TRUE: 

( real proc : io proc ] ; 
FALSE: 

( dLimrty_pr : ANVPTR ; 
dummy si : HNVPTR ) 
END; 

< procedure definition for user EOT/ISR procedures > 

< Note that the current definition of EOT / ISR procedures is 
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475 


:S 


476 


:S 


477 


:S 


478 


:S 


479 


:S 


480 


:S 


481 


:S 


482 


:S 


483 


:S 


484 


•S 


485 


.S 


486 


S 


487 


1 


488 


s 


488 


s 


490 


1 


491 


s 


492 


1 


493 


1 


494 


1 


495 


1 


496 


D 1 


497 


D 1 


498 


D 1 


499 


D 1 


SCO 


1 


501 


1 


502 


1 


503 


D 1 


504 


1 


505 


S 


506 


D 1 


507 


D 1 


508 


D 1 


609 


1 


510 


1 


511 


D 1 


512 


1 


613 


1 


514 


D 1 


615 


1 


516 


I 


517 


1 


518 


D 1 


519 


S 


620 


D 1 


521 


1 


522 


1 


523 


1 


524 


D 1 


525 


D 1 


526 


D 1 


527 


D 1 


528 


D 1 


529 


1 


530 


D 1 


531 


D 1 


532 


1 


533 


S 


534 


s 



that they will execute [ probably ) inside an ISR and will 
therefore be at that interrupt level. This has several side 
effects - such as REfiD from the keyboard not working- since they 
depend on interrupts occuring. 

Ttie ISR / EOT procedures will work best if they set a flag that 
the user program will periodically check. Basically this means 
the user needs to implement his own end-of-line searching. 

The ISR / EOT procedure is allowed to have a NON-ZERO static link. 
This means it can be a nested procedure. This is potentially 
dange rouii if the user program is no longer in that chain. 
CfiVEflT EflPTOR. > 



( interface driver space > 

io_temp_type = PACKED RECORD 

myis rib 
user_isr 
U5er_parm 
card_addr 
in_bufpt r 
out bufptr 
eir&yte 
my_isc 
timeout 
addressed 
drv_misc 
END; 

io_temp_type2 = PACKED RECORD 
myisrib 
user^isr 
user_parm ; 
card_addr : 
in_bufptr ; 
ouT bufpt r; 
eirEyte 
my_isc 
timeout 
addressed ; 
drv misc 
END; 

io_temp_type3 = PACKED RECORD 
myis rib 
user_i5r 
user__parm 
card_addr 
in_bufpt r 
out bufptr 
eirByte 
my_isc 
timeout 
addressed 
drv_misc 
END; 



ISRIB ; 

io funny proc; 

ANYPTR ; 

fiNYPTR ; 

ANYPTR ; 

ANYPTR ; 

CHAR ; 

io byte ; 

INTEGER ; 

io word ; 

fiRlffiY[l. .32] OF CHRR 



ISRIB ; 

io funny proc; 

flNYPTR ; 

fiNYPTR ; 

flNYPTR ; 

flNYPTR ; 

CHAR ; 

io byte ; 

INTEGER ; 

io word ; 

flRl?flY[l . .128] OF CHfiR 



io funny proc; 

ANYPTR :~ 

flNYPTR ; 

ANYPTR ; 

ANYPTR ; 

CHflR ; 

io byte ; 

INTEGER ; 

10 word ; 

fiRl?fiY[l . .160] OF CHfiR 



(JPC 2/22/82) 
<JPC 2/22/82) 



{ in milliseconds } 



<JPC 2/22/82) 
<JPC 2/22/82) 



( in milliseconds ) 



w 7/12/82 
hw 7/12/82) 
<.IPC 2/22/82) 
(JPC 2/22/82> 
{^w 7/12/82> 
<jw 7/12/82 
'iw 7/12/82) 

iw 7/12/82) 

]w 7/12/82) 
in milliseconds } 

Iw 7/12/82) 

jw 7/12/82) 

]w 7/12/82) 



11-562 
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535:D 
636;S 
S37;S 
S38:D 

539 :D 

540 :D 
541:0 
542:0 
643:0 
544:0 
545:0 
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"io_temp_type ; 



isc_table_t ype 



- RECORD 

io_drv_pt r 
io_tmp ptr 
card_t7pe 
user_time 
card_id 
card ptr 
END: 



'^drv_table_type; 
pio_Tmp_pt r ; 
type of card: 
INTEGER; 
type card id: 
flNyPTR: "" 
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S4S: 

547: 

548: 

549: 

550: 

551 : 

552: 

553: 

554: 

555: 

558: 

557: 

558:0 

559:0 

560:0 

561:0 

562: 

563: 

564: 

565: 

566: 

567: 

568: 

569: 

570: 

S71: 

572: 

573: 

574: 

575: 

S76: 

577: 

578: 

579:0 

580:D 

581:D 

582:D 

683:D 

664 :D 

565:0 

586:0 

587:0 



$PfiGE$ 

{ transfer 



declarations > 



use r_t f r_type 



actual,_t f r_type 

d i r_o f _t f r 

buf_type 
buf_info_t ype 



( dummy rfr 1 , 
5eriaT_Dnfi , 
5erial_FHS , 
5erial_FfiSTEST , 
durrmy tfr 2 , 
overlap_lRTR , 
overiap_om , 
overlap FHS , 
overlap FASTEST 
OVERLAP") ; 

( no_tfr , 
INTr tfr , 
DflP Tfr , 
BURJT tfr . 
F,HS_tTr ) ; 

' t o_menio r y , 
f romjnemory 



( serial INTR ) 
( serial OVERLBP > 



) 
- PACKED ARRAYtO, .maxint] OF CHAR: 



input = 
output^ 



BOOLEAN false > 
BOOLEAN true ) 



RECORD 

drv tmp ptr 

aclTve_isc 

ac1_tfr 

usr_tf r 

b_w_mode 

end_mode 

direction 

term_char 

term count 

buf_pt r 

buf_size 

buf_empty 

buf_fill 

eot_proc 

eot_parm 

dma priority 
END; 



pio tmp_ptr; 
lo_Eyte; 
acTual tfr_type 
user tTr type ; 
BOOLFAN ; 
BOOLEAN ; 
dir of tfr ; 
-1. .255 ; 
INTEGER ; 



word 
eoi 



BOOLEAN true 
BOOLEAN true 



pe 



INTEGER 

ANVPTR 

ANYPTR 

io funny proc; 

AN7PTR ;~ 

BOOLEAN; 



{ -I = no termination char > 



(JPC 2/22/82) 
{JPC 2/22/82) 



11-563 



Pascal If 


ev 3. on 


S88:D 


1 


589:0 


1 


590:S 




591:S 




592:S 




593:0 


1 


S94:S 




595:0 


-8 1 


596:0 


-10 1 


597:0 


-18 1 


598:0 


-20 1 


599:0 


-40 1 


600:0 


-60 1 


601 :D 


-61 1 


602:S 




603:S 




604 :S 




605:0 


-62 1 


606:S 




607:S 




608:0 


-62 1 


609:S 




610:0 


-66 1 


611:S 




612:5 




613:0 


-70 1 


614:S 




615:S 




616:0 


-70 1 


617:0 


-710 1 


618:S 




619:S 




620 :S 




621 :S 




622 :S 




623:S 




624 :S 




625 :S 




626:S 




627:S 




628 :S 




629 :S 




630:3 




631 :S 




632 :S 




633:3 




634:3 




635:5 




636 :S 




637:3 




638:0 


-808 1 


639:3 




640:3 




641:0 


-816 1 


642:3 




643:3 




644 :S 




645:S 




646:5 




647:3 
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$ PAGES 
VRR 



< dma driver variables - used by DI1fl_DRV module 
and by assembly language drivers. 
-- DON^T nOVE - - > 



dma_ch_0 
dma_isc 
dma_ch_T 
dma_i5c 1 
dma_isrTbO 
dma_isr ibl 
dma_here 



io_work_char 



io_funny_proc 
io_byte ; 
io_funny_proc 
io byte ; 
ISWlB ; 
ISRIB ; 
BOOLEAN; 



{ 10 escape access variables > 



ioe_re5ult 
ioe_isc 



i5c_t able 
io_revid 



INTEGER; 
INTEGER; 



< must be integer because the sc could 
be no sc ( 2SS ) or a device 
like 701 etc. ^ 



PACKED RRRRY ttype_isc] 
OF i5C_table_type; 

STRING[96]; { revision string - added 2/5/82 - Tfl 

meaning - '10 1.0 refers to the 10 
library ( in system. library ) and 
the kernel code. Each driver 
module will append an indication of 
its revision like 'Gl.O' for GPIO, 
So - a typical system would have a 
io revid of '10 1.0 : Dl .0 Hl.O 
Gl.O Sl.O'. 



known ids - 

main io lib 
dma driver 
hpib driver 
gpio driver 
628 driver 
626 driver 



'10 1.0 
' Dl.O' 



io_e r ror_ link 



errlnk_type; { error msg extension > ( 0082 TM 7/23/82 ) 

< Uill be initialized to a call 
to a proc in kernal_iritialize . 

To extend error messages, copy old 
proc value into local var and put in 
your new proc ( type errlnk_type ). 
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648: 
649; 

650: 
651 : 
652: 
653: 

654: 
655: 

656: 
657: 
658: 
659: 
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Your proc should see if it can handle 
code and return the error msg string, 
if it can't it should call your 
local link. 



1 PROCEDURE io_escape 

2 

1 FUNCTION io_find_isc { iod temp 



{ my code 
select code 



INTEGER ; 
INTEGER); 
fiNYPTR ) : io byte; 



11-564 
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660:D 


-816 


1 


JPflGES 




661 :0 


-816 


1 


IMPLEIIENT 




662:S 










663:D 




1 


PROCEDURE io escape { my code 


INTEGER ; 


664:0 




2 


select code: 


INTEGER); 


865:C 




2 


BEGIN 




666:C 




2 


ioe_isc := select_code; 




e67:C 




2 


ioe result := my code; 




668:C 




2 


ESCHPE (ioescapecode ) ; 
END; < of io_escape ) 




669:C 




2 




670 :S 










671:S 










672:0 




1 


FUNCTION lo_find^isc ( iod_lemp 


PNYPTR ) : 


673:0 


-4 


2 


VfiR my pt r : pTo tmp ptr; 




674 :C 




2 


BEGIN 




675:C 




2 


IF iod temp - NIL 
THEN"BEGIN 




676:C 




3 




e77:C 




3 


io find isc := no isc ; 




678:C 




3 


END " " 




679 :C 




3 


ELSE BEGIN 




680:0 




3 


my_ptr := iod_temp; 




681 :C 




3 


io find isc := my ptr^.my isc, 




682 :C 




3 


END;"{ of~IF ) 




683 :C 




2 


END; ( of io_find_isc > 




684:5 










685:C 




1 


END; { of iodeclarations ) 





io_byte; 
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686 :D 

687 :D 

688 :S 
689:S 

690 ;S 

691 :S 

692 :S 
693:S 
694 :S 
69S:D 
696:S 
697:D 

698 :S 

699 :D 
700:S 
701:0 
702:0 
703:0 
704:0 
705:0 
706:0 
707:0 
708:0 
709:0 
710:0 
711:0 
712:S 
713:S 
714:0 



1 SPHGEJ 

1 EXTERNAL MODULE locomasm 



date 
update 



10/29/81 
10/29/81 



purpose This module contains the iocomasm code 
( binary functions & dma control ) 



IMPORT iodeclarations; 

EXPORT 

FUNCTION dma request 
PROCEDURE dma_relea5e 
bit_set 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



binand 
binior 
bineor 
bincmp 



temp : flNYPTR 


) : INTEGER 


temp : PNYPTR 


i; 


V 


INTEGER ; 




h 


INTEGER ) : 


BOOLERN ; 


X 


INTEGER ; 




y 


INTEGER ) : 
INTEGER : 


INTEGER ; 


y 

X 


INTEGER : 
INTEGER ; 


INTEGER ; 


V 


INTEGER ) : 


INTEGER ; 


X 


INTEGER ) : 


INTEGER ; 



END; { of iocomasm > 



11-565 
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715:0 

716:0 

717:0 

718:0 

719:0 

720:0 

721:0 

722:0 

723:S 

724 :S 

725:S 

726:0 

727:S 

728:S 

729:S 

730:S 

731:S 

732:S 

733:0 

734 :S 

73S:S 

736:0 

737:S 

738:0 

739:S 

740:0 

741:0 

742:0 

743: 

744: 

745: 

746: 

747: 

748: 

749: 

750:0 

751:0 

752:0 

753:0 

754:0 

755:0 



756: 

757: 

758: 

759: 

760: 

761 : 

762: 

763: 

764: 

765:0 

766:0 

767:5 

768:5 

769:0 

770:S 

771 :0 

772:0 

773:S 

774 :S 



-120 
-240 



-240 
-240 
-240 



-240 
-240 



JPflGEJ 



GENERAL GROUP 



««**«#««*** 



GENERfiL_0 



1 MODULE general_0 ; 



< 



date 07/15/81 
update 03/05/84 

purpose This module contains the LEVEL GENERfIL GROUP procedures. 



InPORT lodeclarations; 

EXPORT 

vflR 

{ driver tables ) 

kbd_crt_drive rs : drv_t3ble_t ype; 

dummy_d?ivers : drv_table_t ype; 



FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 



PROCEDURE 
PROCEDURE 



ioread__word ( selec 

regis 

: io wo 

iowrite_word ( seTec 
regi 
valu' 

ioread_byte ( selec 

regis 

: io by 

iowrite_byte ( seTec 
regis 



iostatus 



value 
selec 
regis 
io wo 
seTec 



t_code : 
ter 
rd ; 
t_code : 

ter : 

t_code : 
ter : 
le ; 
t_code 
ter 

code 
ter 

rd : 
t code 



egis 

alue 



kerne l_init ialize; 
io_systefn_re5et ; 



type_isc ; 
io_word ) 

type_isc ; 
io_word ; 
io_word) ; 
type^isc ; 
io_word ) 

type_isc ; 
io_word ; 
io_byte ) ; 
type_isc ; 
io_word ) 

type_isc ; 
io_word ; 
io_word) ; 



IMPORT sysglobals , 
iocomasm ; 
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11-566 



Pascal [Rev 3. OH 


776:0 -240 ] 


777:S 


778:0 -240 1 


779 :S 


780:0 I 


781:0 : 


782:C ; 


783:C : 


784:C : 


785:C : 


78e:C ; 


787:C ; 


788:C : 


789:C : 


790:C ; 


791;C : 


792:S 


793:S 


794 :S 


79S:D 1 


798:0 ; 


797:C ; 


798:C : 


799 :C ; 


800:S 


801 :S 


802:S 


803:D I 


804 :C ; 


805 :C i 


806:C : 


807:S 


808:0 -240 1 


809:0 1 


810:C i 


811:C i 


812:C ; 


813:S 


«14;0 1 


815:C ! 


816:C : 


817:C : 


818:S 


819:0 1 


820:C : 


821 :C ; 


822 :C : 


823:S 


824:0 1 


825:C ; 


826:C : 


827:C : 


828:S 


829:0 1 


830:C ! 


831 :C : 


832:C ; 


833:S 


834:0 1 


835:C ; 
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tPRGES 
{ these are dummy driver procedures used by tfie kernel ) 



PROCEDURE kbd_rdb ( iod_temp 

VHR value 
BEGIN 

IF EOLNfinput ) 
THEN BEGIN 
RERD(value) ; 
value:=io carriage rtn: 
ENO 
ELSE BEGIN 

REHD(value) : 
ENO; < of IF EOLN ) 
END; < of kbd rdb > 



UNYPTR ; 
CHAR ) ; 



File name: KERNEL ««» 



( tttt Th 9/22/82 ) 



( tttt TM 9/22/82 > 



PROCEDURE crt_wtb 

BEGIN 

URITE(value); 
ENO; ( of crt_w1b > 



( iod temp : UNVPTR ; 
value : CHSR ); 



PROCEDURE simple init ( temp : HNYPTR i; 
BEGIN 

{ this initialization will do nothing ) 
ENO; < of simple_init ) 

{ addition of new durmy drivers 

PROCEDURE durmiy driver( temp : fiNVPTR I; < 

BEGIN ~ ( 

io escapefioe no driver. io find i5c(temp)); 
END;" 

PROCEDURE durnny driver c( temp : SNYPTR ; dummy : CHfiR ); 
BEGIN < 

dummy driver (temp] ; 
ENO; 

PROCEDURE dummy driver a( temp : HNVPTR ; SNYVPR dummy : BNVPTR 
BEGIN ( 

dummy driver (temp) ; 
END; 

PROCEDURE dummy_driver_w( temp : RNVPTR ; durmy : io_word ); 

BEGIN < 0350 Tn 8/19/82 ) 

dun»iny_d river (temp) ; 
END; 

PROCEDURE dummy driver dw(temp : HNVPTR ; dummy, d2 : io word ); 

BEGIN < 0350 Ttl 8/19/82 > 

dummy driver (tempi ; 
END; 



0350 Tn 8/19/82 
0350 Tn 8/19/82 
0350 Tn 8/19/82 



0350 Tn 8/19/82 ) 
M50 Tn 8/19/82 > 



PROCEDURE dummy driver wa(temp : flNVPTR ; dummy : io word ; VflR 
BEGIN < 



d2 : io word ) ; 
0360 TM 8/19/82 ) 
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2 dunmy driver (temp] 
2 END; 
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836:C 
837:C 
838:S 
839:0 
840:C 
841 :C 
842:C 
843:3 

844 :D 

845 :C 
846:C 
S47:C 
848:S 
849:S 



PROCEDURE dummy driver b{ temp : PINYPTR ; durmy : io bit 
BEGIN 

dummy driver (temp] ; 
END; 

PROCEDURE dunmy driver ba(temp : flNVPTR ; dummy : io bit 
BEGIN 

dummy driver (temp) ; 
END; 



File name: KERNEL »«» 



< 0350 Tfl 8/19/82 ) 



BR d2 : BOOLEfiN ); 
< 0350 TH 8/19/82 > 
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850 :D 


-240 1 


851:S 




862 :D 


1 


853:D 


2 


854:0 


2 


855:0 


-4 2 


856:C 


2 


857:C 


2 


858:C 


2 


859:C 


3 


860:C 


3 


861 :C 


3 


862:C 


3 


863:C 


3 


8S4:C 


3 


865 :C 


3 


866:C 


3 


867:C 


2 


868:S 




869:S 




870:S 




871 :D 


1 


872:0 


2 


873:0 


2 


874:0 


-4 2 


875:C 


2 


876 :C 


2 


877 :C 


2 


878:C 


3 


879:C 


3 


880 :C 


3 



881 
882 
883 
884 
886 
886 
887 



889 
890 
891 
892 
893 
894:0 

895 :C 

896 :C 

897 :C 

898 ;C 

899 :C 
900 
901 
902 
903 
904 
905 
90 
907 
908 



6/ 4/84J KERNEL. TEXT 

IPfiGES 

ruNCTION ioread_word ( select_code: type isc ; 
register : io_word ) 
: io_word ; 
VflR p : "io word; 
BEGIN 

p := FINYPTR(isc_table[select_code] .card_ptr); 
IF p = NIL 
THEN BEGIN 
^ error ) 

io_escape (ioe no card, select code); 
END - - - -I, 

ELSE BEGIN 

p: = BNYPTR (INTEGER (p)t register I; 

ioread word: = p'"; 
END; ( oT IF > 
END; < of ioread_word > 
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PROCEDURE iowrite_word( select code 
register 
value 

vfiR p : *io word; 

BEGIN 

fF 



type_isc ; 
io_word ; 
io_word] ; 



p := RNYPTR(isc table[5elect code] .card ptr); 
IF p = NIL " - ->- " 

THEN BEGIN 



909:0 



\ error > 

10 e5cape(ioe no card, select code); 
END - ' ' 

ELSE BEGIN 

p:«fiNVPTR (INTEGER (p)+ register); 

p^:=value; 
END; < of IF ) 
END; { of iowrite_word ) 



FUNCTION ioread_byte ( 5elect_code: type_i5c ; 
register : io_word ) 
: io_byte ; 
T'.'PE mycharptr = ''CHfiR; 
V3R p : -CHfiR; 

BEGIN 

p := nNYPTR(isc tabletselect code] .card ptr); 
IF p > NIL 
THEN BEGIN 
( error } 

io escape(ioe no card, select code); 
END ~ ~ _ < . 

ELSE BEGIN 

ioread byte:=0R0(mych3rpt r (PDDR(p^, register)]^) 
END; ( oT IF ) 
END; { of ioread._word ) 

PROCEDURE iowrite_byte ( select_code: type_isc ; 
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910 


:n 


911 


:n 


912 


■1) 


Hi:t 


■II 


914 


•c 


9)5 


■c 


916 


•r 


917 


c 


91N 


c 


919 


c 


9?0 


(; 


971 


c 


99? 


c 


923 


u 


924 


c 


92S 


c 


9?S 


R 


927 


s 


928 


s 


929 


1) 


930 





931 





932 


n 


933 


c 


934 


i: 


93h 


r; 


936 


n 


937 


c 


938 


c 


939 


K 


94(1 


c 


941 


s 


942 


s 


943 


s 


944 


1) 


945 


u 


94 B 





947 


1) 


948 


r 


949 


c 


9S0 


c 


951 


c 


95X 


c 


953 


c 


954 


c 


9S5 


c 


956 


5 



register : i 
value : i 



io_word ; 

o~byte ) ; 



"CHAR; 



VRR p 
BtlGIN 

p := flNYPTR[isc table[select code]. card ptr); 
IF p = NIL 
THEN BEGIN 
\ error ) 

io_escape (ioe no card, select code); 
END ~ ' - '> 

ELSE BEGIN 

p :^PNYPTR( INTEGER (p)+ register); 
p'^:=CHR(va,lue); 
END; ( of IF > 
END; { of iowrite_byte ) 



FUNCTION iostatijs ( 5elect_code: 

register : 
; io_word ; 
VfiR value : io word; 
BEGIN 

UITH isc table[select_code] DO 
CALL (io_3'rv_pt r^.iod_rds, 
io_tmp_pt r , 
register , 
value) ; 
iost at us : =value; 
END; { of iostatus ) 



PROCEDURE iocontrol ( select_code 
register 
value 
VRR myvalue : ici word: 
BtGIN 

my value :=value; 
UiTH isc table[select_code] DO 
CALL [io_3rv_pt r".iod_wtc, 
io_tnfip_pt r, 
register, 
my_value) ; 
END; { of iocontrol > 



1 ype_isc 
io_word ) 



type_i5c 

io_word ; 
io"word) ; 
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957 :D 


-240 


1 


$PRGE$ 




958 :D 




1 


PROCEDURE end error link ( errorcode : INTEGER ; < 0082 In 7/23/82 




959 :D 




2 


vnR 5 : lo string ); < 0082 TM 7/23/82 




960 :C 




2 


BEGIN < 0082 TH 7/23/82 




961:C 




2 


s := 'unrecognized error'; ( 0082 TM 7/23/82 
END; < of end_error_link ) < 0082 In 7/23/82 




962 :C 




2 




963:S 










964:0 




1 


PROCEDURE kernel Initialize; 




965:0 


-2 


2 


VflR io_i5c 


type isc; 
INTESER; 




966:0 


-6 


2 


dc_dummy 




967:0 


-10 


2 


durfrnv 
double 


INTEGER; 




968:0 


-11 


2 


BOOLEAN; ( indicates an int. that takes 2 s.c. ) 




969:0 


-16 


2 


bigtemp 


^io temp type2; 




970:0 


-20 


2 


bigtemp3 


^io temp type3; 




971:0 


-20 


2 






972 :S 










973 :C 




2 


BEGIN 




974 :S 










975 :C 

976 :S 

977 :C 

978 :S 

979 :C 




2 


io._revid := '10 3.0: '; { ic library revision/id - ju/s 8/03/83 > 






2 


io._erro relink := end_error_link; { error msg extension ) < 0082 Tfl 7/23/82 > 






2 


double ;= FSLSE; 




980 :S 










981:S 










982 :C 




2 


{ determine what interfaces are present > 




983 :S 










984 :C 




2 


FOR io_isc ;=iomlnisc TO iomaxisc DO WITH isc table[io isc] DO BEGIN 




985:C 




4 


user_time :=0: 




986:C 




4 


card id := no id; 




987:C 




4 


IF io isc<minrealisc 




988 :C 




S 


THER BEGIN 




989:C 




5 


card type := system card; 
io tmp ptr:. NIL; 




990 ;C 




S 




991 :C 




S 


CfiS io_i5c OF 




992:S 










993:C 




6 


1: BEGIN 




994 :C 




S 


card id:=internal crt; { BUG aaaa TM 5/24/82 > 




995:C 




13 


END; ' ' 




996 :S 










997:C 




6 


2: BEGIN 




998:C 




6 


card id:-internal kbd; < BUG aaaa T(1 5/24/82 ) 




999 :C 




6 


END; 




1000:S 










1001:C 




8 


3: BEGIN 




1002:C 




6 


card ptr := BNVPTR(S242930 ) ; { dma address SSOOOOO > 




1003:C 




15 


< let Drift driver module hunt for dma ) 




1004:C 




13 


dma here := FSLSE: 




100S:C 




6 


END; < of BEGIN > 




1006:S 










1007:S 










1008:C 




6 


OTHERWISE BEGIN END; ( other internal interfaces > 




1009:C 




15 






1010:C 




6 


END; ( of CRSE io isc ) 




1011:S 










1012:C 




5 


END 




1013;C 




S 


ELSE BEGIN 




1014:C 




5 


card type :=no card; 




101S:C 




5 


IF (To i5c=7) and not (sysflag . nointhpib ) ( 1w52 6/28/83 > 




1016:C 




6 


THEN BEGIN 
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1017:C 




e 


NEU(io_tmp_ptr) ; { get temp space > 
card type:=hpib card; 




10I8:C 




6 




1019:C 




6 


card id :=internal hpib; 




1020:C 




6 


card""ptr :-fiNYPTR (HfX ( '478000') 1; 




1021:C 




13 


END " 




1022:C 




6 


ELSE BEGIN 




1023:C 




6 


IF double 




1024:C 




7 


THEN BEGIN 




1025:S 










1026:C 




7 


double := FfiLSE; 




1027:S 










1028:C 




7 


END 




1029:C 




7 


ELSE BEGIN 




1030:C 




7 


card_ptr :« SNVPTR (HEX ( ' 600000' )* ( (io isc (100 32)«65536)); 




1031 :C 




7 


TRV 




1032:C 




8 


dummy := ioread byte(io isc,l); 

dummy := dumny ROD 128; { mask off remote id bit > 




1033:C 




S 




1034:S 










103S:C 




e 


IF dummy <= 8 THEN CASE dummy OF 




1036:S 










1037:C 




10 


1 : BEGIN 




1038:C 




10 


card type:=hpib card; 




1039:C 




10 


card^id :=hp98E24; 




1040 :C 




10 


NEW(io tmp_ptr); ( get temp space > 




1041 :C 




10 


END; 




1042:S 










1043;C 




10 


2: BEGIN 




1044 :C 




10 


card type:=serial card; 




1045:C 




10 


cdrd~id :=hp9862F; 

NEU(Eigtemp3); <jw 7/12/82) 




1046:C 




10 




1047:C 




10 


< get temp space > 
io tmp ptr := HNYPTR (bigtemp3) ; <]« 7/12/82> 




1048:C 




10 




1049:C 




10 


END;" ~ 




1050:S 










I051:C 




10 


3: BEGIN 




I0S2:C 




10 


card type:=gpio card; 
card id :=hp98f22; 




1053:C 




10 




1064:C 




10 


NEUIdo tmp ptr); ( get temp space > 




10S5:C 




10 


END; 




1056:S 










1057:3 










1058:C 




10 


8: BEGIN 




10S9:C 




10 


card type;=hpib card; 




1060:C 




10 


card id :=hp98525; 




1061:C 




10 


NEU(io tmp ptr); < get temp space > 




1062:C 




10 


END; 




1063:3 










1064:C 




10 


OTHERUISE BEGIN 




ioes:c 




10 


NEW(io_tmp_ptr ) ; < get temp space > 




1066:C 




10 


card type:=other card: 

{ note - this card will get TEMP space > 




1067:C 




10 




1068:C 




10 


END; 




1069:S 










1070:C 




10 


END { of CHSE ) 




1071:C 




10 


ELSE BEGIN 




1072:3 










1073:C 




9 


IF durrmy <= 30 THEN { jws 3/25/83 ) 




1074:3 
1075:C 




10 


CASE durrmy of ( jws 3/25/83 > 
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1076:3 
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1077:C 




1078:C 




1079:C 




1080:C 




1081:C 




1082:S 




1083:C 




1084 :C 




1085:C 




1086:C 




1087:C 




1088:S 




1089:C 




1090:C 




1091;C 




1092:C 




1093:C 




1094:C 




1095:S 




1096:C 




1097:C 




1098:C 




!099:C 




1100:C 




1101:C 




U02:C 




1103:S 




1104:C 




110S:C 




1106:C 




1107:C 




I108:C 




1109:C 




lllOlS 




llUlC 




1112:C 




in3:C 




1114:0 




111S:C 




1116:C 




1117:S 




1118:C 


11 


1119:S 




1120:S 




1121:S 




1122:C 


9 


1123:C 


10 


1124:C 


10 


1125:C 


10 


1126:C 


11 


1127:C 


11 


1128:C 


11 


1129:C 


12 


1130:C 


12 


1131 :C 


12 


1132:C 


12 


1133:C 


11 


1134:C 


10 


I135:C 


10 


1138:C 


10 



»«» File name: KERNEL «»« 

( jws3 2/09/84 ) 

( JW53 2/09/84 1 

( 1W53 2/09/84 J 

( 1W53 2/09/84 > 

( JW53 2/09/84 > 

< jws 3/25/83 > 
{ 1W5 3/25/83 > 
( 1W5 3/25/83 > 

< iwb 3/2S/83 ) 

< JW5 3/25/83 ) 
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25: BEGIN 

card_id:=hpGflTOR; 

card type:=3raphics_card; 

NEU(To tmp pf r); 
END; 

27: BEGIN 

card_ld:=hp982S3; 
card type:=eprom prgmr; 
NEU(lo_tmp_ptr) ;~ 
END; 

28: BEGIN 

card_ld := hp98627; 
card~type := qraphic5_card; 
double := TRUE: 
NEU(io tmp ptr); 
END; 

29: BEGIN 
< id=29 is also set aside for double wide cards > 
double := TRUE; 

NEU(bi9temp3); < iws 3/25/83) 

io_tmp ptr:=fiNYPTR(blgtemp3) ; ( iws 3/25/83) 
card_type:=other_card; ( jws 3/25/83) 
END; 



{ get temp space > 



30: BEGIN 

card_id:«hp982S9; 
card type :=bubble_card; 
NEU(Eigtemp); 

io_tmp_ptr:-HNYPTR(bigtemp) ; 
END; 

OTHERWISE 
BEGIN 
NEU(bi9temp3) ; 
io_tmp_ptr:=HNYPTR(blgtemp3) 
card type:=other card; 
END; 

ND; < of case ) 



iws 3/25/83 

iws 3/25/83 

IWS 3/25/83 

IWS 3/25/83 

:w5 3/26/83 



( iws 3/25/83 ) 

( IWS 3/26/83 ) 

< IWS 3/25/83 ) 

< IWS 3/25/83 ) 

< IWS 3/25/83 > 
{ ]W5 3/25/83 > 

( jws 3/25/83 > 



IF durmy=52 
THEN BEGIN 

dc_dummy :- ioread byte ( io_l5c, 163951»256»ioread_byte (io_isc, 16393 ) ; 
IF dc dummy < 32765 
THER BEGIN 

dc_dummy := ioread byte ( io_isc,dc_djrTniy*2+l ) ; 
IF (dc duitrny MOD 1J8) = 1 
THEN BEGIN 

card_id := hp_datacom(n; ( since I don't know yet ) 

card type ;= serial card; 
END; ( of IF ) 
END; < of IF ) 
NEU(bigtemp) ; 

io_tmp ptr :=HNYPTR(bigtemp); 
END; < oT BEGIN > 
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1138:C 


9 


1139:C 


10 


1140:C 


10 


1141 :C 


10 


1142:C 


10 


1143:C 


10 


1144:C 


10 


1145:S 




1146;C 


9 


1147:C 


10 


1143:C 


10 


1149:C 


10 


1150:C 


10 


1151:C 


10 


1152:C 


10 


U53:C 


10 


1154:S 




1155:C 


9 


1156:S 




1157:C 


8 


1158:C 


8 


1159:C 


8 


I160:C 


9 


liei;C 


9 


1162:C 


9 


1163;C 


9 


1164:C 


9 


1165:C 


9 


1166:C 


9 


1167:C 


8 


1168:5 




U69:S 




1170:C 


7 


1171:C 


6 


1172:C 


5 


1173:C 


4 


1!74:S 




1175:S 




1176:C 


2 


1177:C 


2 


1178:C 


2 


1179:C 


3 


1180:0 


3 


1181:C 


3 


1182:C 


3 


1183:C 


3 


1184:C 


3 


1185:C 


3 


1186:C 


3 


1187:C 


3 


1188:C 


3 


1189:C 


3 


1190:C 


3 


1191:C 


3 


1192:C 


3 


1193:C 


3 


1194:C 


3 


119S:S 




1196:S 
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File name: KERNEL *** 



temp space ) 



END; 



END; 



END; 



IF dummy=66 
THEN BEGIN 

card_id:=hp98644: 

card~type : =seriai_card; 

NEU(Eigtemp3); 

io tmp ptr:=ftNYPTR(bigtemp3) : 
END; 

IF f durmiy > 30 ) AND 

( dunnmy <> 52 ) AND ( dummy<>66 ) 
THEN BEGIN 

NEU(bigtemp3) ; 

io_tmp__ptr := ftNYPTRCbigtemp3) : 
{ note - this card UILL get LRRGE 
card type:=other card; 
END; 

END; { of IF dummy <= 8 ) 

RECOVER 
BEGIN 

IF ( escapecode=-ll ) OR f escapecode=-12 1 
THEN BEGIN 

< no card at this address > 
END 
ELSE BEGIN 

{ some other problem } 
ESCflPe(escapecodeJ ; 
END; 
END; < of RECOVER BEGIN > 



of IF double ) 

of IF io_i5c=7 > 

of IF io isc<minrealisc THEN/ELSE ) 

of FOR uTTH isc table[io isc] DO BEGIN > 




jws4 3/5/84 > 



TN 8/20/82 
Tn 8/20/82 



( set up the driver tables ) 

UITH duriniy_driver5 00 BEGIN 
iod_init 

iod_i5r 
iod_rdb 
iod_wtb 
iod_rd\w 
iod_wtw 
iod_rds 
iod_wtc 
iod_end 
iod^tfr 
aod_send 
iod_ppoll 
iod_set 
iod_clr 
iod test 
END; T of UITH > 



ISRPROCTYPE 
io_proc_vc 

io__proc_vw 

io_proc_vs 



dummy 
f d ummy" 
( d ijmmy_ 

durmiy_ 
(dummy^ 

dummy" 
(dummy_ 

dummy_ 
{(i\iinny~_ 



io_proc_vb 

io_proc_pt r (dummy' 
dummy' 

io_proc_vc (durmy" 
dummy, 
dummy] 
dutrniy" 



driver ; 
|d river ) ; 
driver__a) ; 
driver_c ; 
driver_a) ; 
.driver__w : 
driver_wa) 
'driver_dw 
driver_3) ; 
driver_a) ; 
driver_c ; 
driver_a) ; 
driver^b ; 
driver~b ; 
driver_ba 



0350 TM 8/19/82 
0350 TO 8/19/82 
0350 Tn 8/19/82 



0350 TM 8/19/82 
0350 TM 8/19/82 
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U97:S 




1198:C 


2 


1199:C 


2 


1200:S 




1201:C 


3 


1202:C 


3 


1203:S 




1204 -.C 


3 


120S:C 


4 


1206:C 


S 


1207:C 


S 


1208;C 


5 


1209:C 


5 


1210:C 


5 


12I1:C 


5 


1212:C 


5 


1213;C 


5 


1214:C 


5 


1215:C 


5 


]216:C 


5 


1217:C 


5 


1218:C 


3 


1219:5 




1220:C 


2 


1221:C 


2 


1222:S 




1223:S 




1224:S 




1226:S 




1226:S 




1227:C 


2 


1228:S 




1229:3 




1230:5 




1231:C 


2 


1232:C 


2 


1233:C 


3 


1234 :C 


3 


1235:C 


3 


1236;C 


3 


1237:5 




1238:5 




1239:C 


2 


1240:C 


2 


1241:5 




1242:5 




1243 :C 


2 


1244 :C 


2 


124S:S 




1246:S 




1247:5 




1248:C 


2 


1249:5 
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26-0ec-64 21:24:50 Page 31 *** File name: KERNEL **« 



{ initialize the temp space > 

FOR io_i5C := iominisc TO iomaxisc DO BEGIN 

{ set up dummy drivers for the interfaces ) 
isc_tabae[io_isc] .io„drv_pt r :=flDDR (dummy_d rivers) ; 

IF i5C_table[io isc].io tmp ptr <> NIL 
THEN UITH isc_table[io_i5c5.i' 



. - _tnnp_ptr" DO BEGIN 

isc tabTe[io isc].card ptr; 
= CHRT ] ; ^ 
= io isc ; 
= 



card_addr 
eirbyte 
my_i5C 
timeout 

addressed : = -1 ; 
in_bufptr := NIL ; 
out_bufpt r:= NIL ; 
user _i5r .dufflmy_sl := NIL; 
user_isr .dummy pr := NIL; 
user_parm ~ := NIL; 

myisrib, INTREGflDDR:= NIL; 
END; i of IF UITH io tmp ptr" 
; < of FOR DO BEGIN ) 



<JPC 2/22/82) 



DO > 



dma_is ribO . INTREGflDDR 
dma_isribl .INTREGflDDR 



NIL; 
NIL; 



( note - because of the ISRs - this routine can only be called 

once - at INITLIB time. If it is called again after that 
invocation the ISR structure will be in very bad shape and 
will probably hang the machine ) 



kbd crt drivers :=duniny drivers: 
UITH kb3 crt_drivers DtJ BEGIN 

iod^rdE :=■ kbd_rdb; 

iod_wtb := crt_wtb; 

iod in it := simple init ; 
END; J of UITH } 



isc_table[l] .io_drv_pt r := flDDR (kbd_c rt_d rivers) 
i5C_tabie[2] .io_drv_pt r := POOR (kbd_c rt_d rivers) 



{ set up clear i/o hook to do an lo system reset ) 
clearionook := io_sy5tem_reset ; 



END; < of kernel_initialize } 
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1250:D -240 1 


12S1:S 




12S2:D 


1 


1253:D 


-2 2 


1254:C 


2 


1255:3 




12S6:C 


2 


1267:5 




12S8:C 


2 


1269:C 


3 


1260:5 




1261:C 


4 


1262:5 




1263:C 


4 


1264 :C 


5 


1265:C 


6 


1266:C 


6 


1267:C 


6 


1268:C 


6 


1269:C 


!> 


1270:C 


e 


1271 :C 


6 


1272:5 




1273:C 


4 


1274:S 




1275:5 




1276:C 


2 


1277:3 




1278:C 


2 


1279:C 


3 


1280:5 




1281:C 


4 


1282:C 


5 


1283:C 


S 


1284:C 


Cj 


1285:C 


S 


1286:3 




1287:C 


4 


1288:5 




1289:5 




1290:5 




1291:5 




1292:C 


2 


1293:5 




1294:C 


2 


129S:C 


3 


I296:C 


3 


1297:C 


3 


1298:5 




1299:C 


2 


1300:C 


3 


1301:C 


;i 


1302:C 


3 


1303:5 




1304:5 




130S;S 




1306:C 


2 


1307:5 




1308:5 




1309:5 





PROCEDURE io_system_reset ; 
VflR io isc : type isc; 
BEGIN " 

< initialize the interfaces > 

FOR io_i5C :=iominisc TO iomaxisc DO 
UITH isc_table[io_isc] DO BEGIN 

user___time := 0; 

IF io tmp ptr <> NIL 

THER UITH io_tmp ptr^ DO BEGIN 

eirbyte := CRR [ ); 

my_isc := io_isc ; 

timeout := ; 

U5er_i5r.dunTny_5l := NIL; 

iJ5er_isr.dummy_pr := NIL; 

user parm ;= NIL; 
END; { of IF THEN UITH BEGlN ) 



( user timeout > 

< driver timeout > 
{JPG 2/22/82) 



END; { of FOR UITH BEGIN ) 

( these two FOR blocks are seperate in case two HPIB interfaces are 
connected in one machine - no funny user isr's will happen. > 

FOR io isc :=iominisc TO iomaxisc DO 
UITH~isc_table[io_i5c] DO BEGIN 

IF io drv ptr^.iod init <> dummy driver 
THER BEGIN 

CALL ( io_drv_pt r"^. iod_init . 
io tmp ptr ); 
END; < of IF ) 

END; < of FOR UITH BEGIN ) 

{ In case - for some messed up reason ( typically this is when the user 
doesn't call ioinitialize/iouninitialize } - the dma resources are not 
relinquished by the init routines then this will free the resources. ) 

IF dma isc <> no isc 

THEN BEGTN 

dma relesse(i5c tabletdma isc 0] . io tmp ptr): 
END; T of IF ) ~ " " - - f> 

IF dma isc 1 <> no isc 

THEN BEGFN 

dma release (isc table [dma isc 1 ] io tmp pt r ) ; 
END; T of IF > ~ " - - -^ " 



END; { of io_sy5tem_reset ) 
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1310:S 

1311 :C 1 END; < of general_0 ) 



Pascal [Rev 3. CM 6/ 4/84] KERNEL. TEKT 26-Dec-84 21:24:50 Page 34 ««« File name: KERNEL 

1312:D 1 JPBGE$ 

1313:D 1 I************ ******** **M****Xt**}^X*»*M***lK:Ktt»»*X*X***X*****»**'K*X****»**) 

1314;D 1 » «) 

1315:D 1 » » 

1316:0 1 » lOLIBRHRY KERNEL « 

1317:0 1 « " « 

1318:0 1 « «) 

1319:0 1 MK »««»«»««»«««»« «»x*»*«»»««»»«««x ««««»**»*«««****»**«*««**««** «*«««*«««**) 

1320:S 

1321 :S 

1322:S 

1323:0 1 IMPORT general_0 , 

1324:0 1 [ORDER ; ( 367 Tn 9/22/82 > 

1325:S 

1326:S 

1327:C 1 BEGIN 

1328:S 

1329:C 1 kernel initialize; 

1330 :C 1 nflRKUSER: { 367 TM 9/22/82 ) 

1331 :C 1 END. ( of lolibrary kernel ) 



1332:S 



No warnings. 

***** Nonstandard language features enabled «««** 
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KEYS 



Description 

KEYS contains the initialization routine for the keyboard, the keyboard TM, the general trans- 
lation routine (executed via KBDTRANSHOOK in A804XDVR), keyboard and RPG ISRs. 



Requirements 

SYSGLOBALS, ASM, MISC, and SYSDEVS. 



Notes 

Some of the quoted strings in the following listing (Roman Extension characters, etc.) are 
printed incorrectly due to the fact that the CRT character set does not match the printer's 
character set. 

See also A804XDVR for calls to some of these routines. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

11-573 
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1:S 

2:S 

3:S 

4:5 

S:5 

6:S 

7:S 

8:S 

9:S 

10:S 

11 :S 

12:S 

13:S 

14:S 

IS: 
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(* 



16 



17 

18 

19 

20 

21 

22 

23 

24 

25 

26:D 

27:S 

28:D 

29:S 

30 :D 

31:S 

32:D 

33:D 

34 :D 

36 :D 

36 :S 

37:D 

38:D 

39 

40 

41 

42 

43 



(:) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reoroduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RISHTS LEGEND 

Use, duplication, or disclosure by The Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DflR 7-104. 9(a) . 



*) 



44 



45 

46 

47 

48 

49 

SO 

51:D 

52:D 

S3:D 



-1 

-4 



HEULETT-PHCKfiRD COflPflNY 
Fo-t Collins, Colorado 

SnoDCHL $ 

$heap_dlspose offt 

Siocheck offj 

Srange off$ Sovflcheck off$ 

Jdpbug off$ 

SSTfiCKCHECK OFFI 

SSFHRCH 'INITLOnD','«Sn', 'INIT', 'SYSD 

program keysinit; 

module keys- 
import sysgiobals. asm, misc, sysdevs; 
export 

procedure initkeys; 

implement 
const 
sy^norm = 

5tring80['| kO 
sytshft = 

St ring80[' | kO 
type 

menul = ar raytboolean] of menutype; 
menu2 = ar ray|'m_none . .m_5ysshif t ] of menul; 
const 

mst ates = menu2 [ 

{ no menu ) menul [m_5ysnorm,m_sysshif t] , 
{ normal ) menul [m_none,m_syS5nif t] , 
{ shifted ) menul [m_5ysnorm,m_none] ] ; 
var 

anychar : boolean; 

buildchar : shortint; 

buildcount : . .4 ; 

anycharsavehook : kbdhooktype; 



IRECflLL ICLR-ENDI CONT | | STEP | flLPHP | GRAPH I k9 |'l; 
IRECflLL ICLR-ENDI CONT j |HNYCHflR| DhlP R | DMP G | k9 |']; 



1 procedure stopaction; 

2 begin 
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61 :C 
62:C 
63:S 

64 :D 

65 :D 

66 :D 
««»UfiRNING: 

67:C 

68:0 

69 :D 

70:C 

71:D 

72;D 

73:D 

74:0 

75:0 

76: 

77: 

78: 

79: 

80: 

81 : 

82: 

83: 

84 :C 

86:C 

86:C 

87:C 



2 
2 

1 
2 
2 
(line 
2 



14 



88: 

89: 

90: 

91: 

92: 

93: 

94: 

95: 

96:S 

97:C 

98:C 

99:C 
100:C 
101 :C 
102:C 
103:C 
104:C 
105:C 
106:C 
107:C 
108:C 
109:C 



110: 

111 : 

112: 

113: 

114: 

115: 

116 

117:S 

118:C 

119:S 



act ionspending := 0; escape(-20); 
end; 

procedure cnt rlpausekey; 
type st tin = stringtl] ; 
const qm * strinC'?']; 

67): 'flDDR' of a constant may not be supported on other implementations 
begin call (debugger ,4 , integer (addr (qm) ) ,0) end; 

procedure pausekey; 

begin call (debugger ,6,0,0) end; 

procedure dokbdio(fp: fibp; request: amrequesttype; anyvar buffer: window; 

length, position: integer); 
var inter rupt level : integer; 
cofitnandinprogress : char; 
zchr: char; 
buf: charptr; 
begin 
ioresult := ordlinoerror ) ; 
buf := addr(buffer); 
case request of 
flush: <do nothing); 
nitstatus: fp^.fbusy := keybuf fer^. size « 0; 
begin 

inter rupt level := intlevel; 



^learunit : 



if interruptlevel <1 then set intlevel (1 ) ; 
keybufops(kclear,2chrJ ; ( clear typeahead bu 



set intlevel (interrupt level) 
end: 



uffer ) 



$if falseS 

writeeol, 

startwrite, 

writebytes: crtio(fp, request, buffer, length, 0); 
Sends 

readtoeol, 
readbytes, 
start read : 
begin 

if request = readtoeol then 
begin 

buf := addr(bjf^, 1); { format buffer as a string ) 

bufferCO] := chr(O); 
end; 

while length>0 do 
begin 

If runlightochr (idle! then commandinprogress := runlight; 
interruptlevel := intlevel; 
with keybuffer'^ do 
repeat 

while size - do call (kbdwaithook ) ; < wait for keys > 

5etintlevel(7) ; (disable interrupts) 

if size = then setint level(interrupt level) ; 
until size > 0; 
set runlight (commandinprogress) ; 



with keybuffer" do buf":-buf fer^[out p] ; 



( BUG FIX t(e4 ) 
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120:C 

12I:C 

122: 

123: 

124: 

125: 

126: 

127: 

128: 

129:C 

130:C 

131:C 

132:C 

133: 

134: 

135: 

136: 

137: 

138: 

139: 

140: 

141 : 

142; 

143: 

144: 

US: 

146; 

147:D 

148:D 

149:D 

150:D 

151:D 

152;D 

153:D 

154:D 

15S:D 

156:D 

157:D 

158:C 

159:C 

160 :C 

161;C 

162 :C 

163:C 

164 :C 

165;C 

166:C 

167;C 

168;C 

168;C 



170; 

171;C 

172:C 

173:C 

174:C 

17S;C 

176:: 

177:C 

178:C 

179:C 



4 



nc : 
2 begin 
nc 



end; 



if buf = chr(etx) then length := 

else length := length-1; 
if (buf^*eol} and ( reque5t=readtoeol ) then length :» 
else 
begin 

Keybufopsfkgetchar ,buf") ; { get next character from input > 

< Bug fix #64 ) 
fp^.feoln := false: { set not end of line > 

buf ;= addr[buf^, i); { increment output buffer address > 

if request = readtoeol then buffer[0] := chr{ord (buf fer [0] ) + l ) ; 

{ increment string size ) 
end; 

set int level ( ante rrupt level ) ; f restore interrupt level) 

< 8UG FIX #64 ) 
end; < while > 

if request = startread then call (f p". feot , fp); 

end ; 

therwise ioresult ;= ord [ ibadrequest ) ; 



;j end; 



proced 

type 
aa s 

const 
ala 
ale 
all 
alo 
alu 
aua 
due 
aui 
auo 
auu 

var 



( dokbdio ) 
ure nonadvkeys; 
packed array [' ( ' 



= aa['OH»Lb'] 
= aaC'EIBMe'] 
•UYQli'] 
'FJBNj'l 
'GKCOu'i 
■-!"Xa'] 
'\«IXE'] 
•ef&'I'] 
'gh_Zl'] 
'm-.[U'] 



=1 a a 



. . ' , ' ] of char ; 

< tables modified/widened 5/7/84 SFB/RQ > 



char : 



if 1 

begi 

If 

el 



eybuf fer^ . non_ch3r; 

table [langindex]'^ .can_noradv and (nc<>' ') then 



( langcom. key=rightchar ) or (langcam. key»' ') then langcom. key:=nc 



' i' 
'e' 
' i' 
'o' 



'E' 

■r 

'0' 
'U' 
'N' 
'Y' 
0th 



langcom. fce 

langcom. 

langcom. 

langcom. 

langcom. 

langcom. 

if nc = 

if nc = 

langcom. 

langcom. 

langcom. 

langcom. 

langcom. 

if nc = 

if nc = 
erwise 



= ala[nc]; 

= ale[nc]; 

= all [nc] ; 

= alo [nc] ; 

= alu[nc] ; 
then langcom. key 
then langcom. key 

= aua[nc]; 

= aue [nc] ; 

= aui [nc] ; 

= auo [nc] ; 

= auu [nc] ; 
then langcom. key 
then langcom. key 



■o'; < SFB/RQ 5/7/84 > 

{ SFB/RQ 5/7/84 ) 

'6'; 

•n' ; { SFB/RQ 5/7/84 > 
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180: 

181; 

182; 

183: 

184: 

186; 

18 

187; 

18 

18 

19 

191; 

192; 

193; 

194; 

195; 

19 

197; 

19 

19 

200; 

201; 

202: 

203; 

204; 

205; 

206; 

207:C 

208 ;C 

209; 

210; 

211; 

212: 

213; 

214: 

215: 

216 

217: 

218; 

219;C 

220:3 

221 :C 

222;S 

223 :S 

224 :S 
225:3 
226; 
227; 
228; 
229; 
230; 
231 ; 
232: 
233: 
234: 
235; 
236;D 
237:3 
238; 
239: 



end; (case key) 
keybuf fer*^, non_char ; = ' '; 
end; 
end; {nonadvkeys) 

procedure generalt rans; 

{ multi lingual translate procedure ) 
< all languages except katakana ) 
label 1; 

var tshlft : boolean; 
begin 

If langcom. St atus=0 then 

begin { check key for non advanced key involvement ) 
If (langcom. key>=#168)and(langcom.key<=#172) then 

langcom. result ;«nonadv_key 
else 

begin langcom. result :=alpha_key; nonadvkeys; end; 
end 

else < process key code > 

if langcom. data>127 then iangcom. result :=ignored_key 
else 

with langcom, langt able[langindex]^, keytable [data] do 
begin 

result :~ keyclass; 

if result=i9nored_key then goto 1; 

extension := extension and not no_extension; 

if extension then 

begin ( call alternate semantics routine ) 

extension :=fal5e; langindex :=l-langindex; { 0->l or 1 ->0 ) 
call(lang1able[langindex]'^. semant ics) ; 
langindex ;=l-langindex ; 
end 
else 
begin ( normal processing ) 

conlrol:= control and not no control; 
shift := shift and not no_sHift; 
tshift := (kbdcapslock and not no_capslock 
key :=■ keys[tshift] ; 



if (re5ult=alpha_key) and control then key 



<> shift; 

= chr(ord(key) mod 32); 



if result=alpha_key then nonadvkeys ; 

( 5/21/84 SFB 

else 

if result=special_key then 

if (not tshift and not control and (key^rightchar 1 ) then 
begin result :=alpha_key; nonadvkeys; end; ( 5/9/84 RQ/SFB ) 
end; 
end; < with langcom etc ) 
l;end; ( generaltrans ) 

procedure initlang; 
type 

alphatype = packed array [boolean. 100.. 125] of char; 

aspecialtype = packed arrayCboolean, 60.. 99] of char; 

b26 = packed array [100.. 125] of byte; 

bytealphabett ype = packed array [boolean] of b26; 



const 

alphabet 
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alphatype ['opklqwert yuiasidfgh jmzxcvbn' , 
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240:D 2 'OPKLQUERTYUIfiSDFGHJMZXCVBN' J ; {shifted) 

241:D 2 J5 = aspecialtype['0.,-H23-4S6«789/E()"1234567890— h;",./ '. 

242:D 2 '0 . ,-H23-456«789/- IVii?***"*' ( l_-'( ) : "<>? ' ) ; (shifted) 

243;D 2 omanspecials = aspec ia Jt ype [ 

244:D 2 '0 ,*I23-4S6«789/E ( )-'»I84«64»35«247»248'"\ []9't246«254'3| /'#96'<> ', 

245:D 2 '0 ,, ♦123-456*789/- 1\~'«I84»54»35«247«248"\{ )9'#176«2S4'3 /'#39'<>" 'j; 

246:D 2 ( neoVE LINE MODIFIED TO GIVE SHIFT -EXTEND 6 BS ", NOT | 5/7/84 SFE ) 

247:0 2 ' omanalphabet « bytealphabet t ype 

248 :D 2 [b26 t214, 241 , 191 , 187,000, 126,215, 168, 169, 170, 171 , 172,212, 

249:D 2 222,228, 190, 186, 188, 036,250,000,23$, 181 , 189, 252, 249J , 

250:0 2 b26 [21 0,240, 19 1,1 87, 000, 126, 21 1,1 68,169, 170, 17 1,1 72, 208, 

251:0 2 222,227,190,186,188,036,250,000,235,180,189,252,249]]: 

252:D 2 va- 

253:0 -2 2-1 : shortint; 

254:0 -10 2 krec : langkeyrec; 

255:C 2 be.jin 

255:C 2 if langt able [0]=nil then nevu( langtable [0] ) ; 

257:C 2 with langt able [0]' do 

258:C 3 begin 

259:C 3 langcode := us_kbd; 

260:C 3 semantics := generalt rans ; ( default translator ) 

261 :C 3 can nonadv:= true; 

262:C 3 kbdcapslock :^ true; 

263:C 3 kbdaltlock :» false; 

264:C 3 t ransmode :=kshif t_extc; 

265:C 3 k rec . no_capslock :=t rue; 

266:C 3 krec.ro_shift :»fal5e; 

267:C 3 krec . nocont rol :=false: 

268:C 3 krec.no extension :.false ; 

269 :S 

270:C 3 krec.keyclass :-alph3_key; 

271 :C 3 < key codes 1 , .3 ) 

272:C 3 krec . keys [false] : = '" ; krec . keys [t rue] : = '~' : 

273;C 3 keytable [1 ] : >krec; 

274:C 3 krec.key5[fal5e] :='\'; krec. keys [t rue] : 

275:C 3 keytable [2] ;-t rec; 

276:C 3 k rec. keys [false] :=«27 ; krec . keys [t rue] : 

277:C 3 keyt able [3] : =kr ec; 

278:C 3 keytable [3] . no extension:=t rue; keytable [2] .no cont rol :=t rue; 

279:S ~ . 7 L J _ 

280:C 3 for i :=60 to 125 do 



■»127; (esc, del) 



281 :C 4 begin 

282:C 4 If i>=100 then 

283:C 5 begin ( normal alpha keys ) 

284:C 5 if i=100 then krec.no capslock :=f alse ; 

285:C 5 k rec . keys [false] : =alpKabet [false, i] ; k rec . keys [t rue] : = alphabet [t rue, i] ; 

286:C 5 end 

287:C 5 else 

288:C 5 begin { special alpha keys ) 

289:C 5 k rec . keys [false] ;=us[f alse, i] ; krec .keys[t rue] :=us [t rue, i] ; 

290:: 5 end; 

291:C 4 key1able[i] :=krec; 

292:C 4 end; 

293 ;S 

294:C 3 ( un_implemenled key codes ) 

295:C 3 keytable [0] . keyclass :=ignored_key; keyt able [4] .keyclass :=ignored_key; 

296:C 3 keytable [126] .keyclass: ^ignored key; keytable [127] . keyclass :=ignored key; 

297:3 

298:C 3 k rec . keyclass :-special_key; 

299:C 3 k rec . noshif t ; =false; krec . no_cont rol : =f alse; 
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300:C 3 krec.no capslock :=t rue; krec . no_extension :=t rue; 

301 :C 3 for i:-Z to 59 do 

302:C 4 begin ( special function keys ) 

303:C 4 krec.keysCfalse] :«chr{i) ; k rec . keys [t rue] :=chr ( i ) ; 

304:C 4 keytable[i] :=.krec; 

305:C 4 end; 

306:C 3 ( r ightchar f f sp] involved in non advanceing keys ) 

307:C 3 keytable[39] .keysCfalse] :=rightchar; keytable [39] .keys [t rue] : =rlghtchar; 

308:C 3 end; ( with langtable[0] ) 

309 : S 

310:C 2 if kbdtype-itfkbd then 

311:C 3 begin 

312:C 3 If langtable[l]=nll then new(langt able [1] ) ; 

313;C 3 langtable[I]":=langtable[0]'; ( copy US to alternate ) 

314:C 3 with langtable[l]~ do 

315:C 4 begin { load roman keyboard ) 

316:C 4 langcode :=roman8 kbd; 

317:C 4 keytableCl] .key5Tfal5e]: = »251; keytable [1 ]. keys [t rue] :-«2S3; («,») 

318:C 4 for i:=60 to 125 do 

319:C 5 begin 

320:C 5 if i>=80 then keytable[i] . no capslock :=t rue; 

321:C 5 with keytable[i] DO 

322:C 6 if i»100 then 

323:C 7 begin ( normal alpha keys ) 

324:C 7 keys [false] ;-chr ( romanalphabet [false, i] ) ; 

325:C 7 keys[true]:= chr( romanalphabet [t rue, i] ] ; 

326:C 7 end 

327:C 7 else 

328:C 7 begin { special alpha keys ) 

329:C 7 key5[fal5e] :=roman5pecials[false( i] ; 

330:C 7 keys[true]:= romanspecials [t rue,l] ; 

331:C 7 end; 

332 :C 5 end; 

333:S 

334 :C 4 ( mark non advanceing keys > 

335:C 4 for i:=107 to 111 do keytable [i] . keyclass :=nonadv key; 

336 :S " 

337 ;C 4 { ignore some keys ) 

338:C 4 keytable [002] . keyclass :=ignored_key; 

339:C 4 keytabletl04] .keyclass:-ignored key; 

340:C 4 keytable[120] .keyclaS5: = ignored'"key; 

341 :S 

342:C 4 ( cancel extension interpretation on all keys ) 

343:C 4 for i:=0 to 127 do keytableU] ■ no extension :=t rue; 

344 :S 

345:C 4 end; ( with langtabled] ) 

346:C 3 end; ( if ITF keyboard > 

347:C 2 end; (initlang) 

343:8 

349:0 1 proi^edure clearanychar ; 

350:C 2 begin 

351:C 2 If anychar then 

352:C 3 begin anychar := false; kbdisrhook := anycharsavehook; end; 

353:C 2 end; { ciearanychar ) 

354 :S 

355:0 1 procedure rpghandler (var kbdstatus, kbddata: byte; var dokey: boolean); 

356:0 -1 2 var key: char; 

357:C 2 begin ( only store the key if the typeahead buffer is empty ) »■ c-T^ 

358:C 2 case kbdstatus div 16 of II-O/O 

3S9:C 3 14; (shifted) 
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if kbddata >= 128 then key:=chr(lf) else key:=chr (us) ; 
15: ^unshifted) 

if kbddata >= 128 then key:=chr (fsp) else key : = chr (bs) ; 
otherwise ( ignore if control key down ) 
beep; key :» ' ' ; 
end; 

if (keybuffer'". 5ize=0) and (key<>' ') then 
begin 



call(kbdreleasehook) ; 

end; 



< sig 



aranyc 

ignal 



nor empty buffer > 



keybufops (k append, key) ; clearanychar; 

end; { rpghandler ) 

procedure keyservice(var kbdstatus, kbddata: byte; var dokey: boolean): 

label 1; 

var done: boolean; 

boolean; 

shortint ; 

char ; 

procedure morealpha; 

begin 

done := true; 

if not alphastate then call (togglealphahook) 

else if graphicstate then call [togglegraphicshook] ; 

end; 

procedure moregraphics; 
begin 

done := true; 

if not graphicstate then call (togglegraphicshook) 

else if alphastate then call{ togglealphahook; ; 
end; 

procedure dumpalpha; 

begin done := t rue; lockedaction(djmpalphahook ) ; 

end; 

procedure dumpgraphics; 

begin done := true; locked act ion(dumpgraphicshook ] ; 

end; 

procedure unrecognized; 
begin done := true; beep; 
end; 

procedure remove (all : boolean) ; 

var durrmykey: char; 

begin 

If keybuf fer'''.size>0 then 

begin 

if all then keybufops(kclear,dummykey) 

else keybufops(kgetla5t .dumnykey) ; { pop last char ) 

end 

else beep; 

done : = t rue; 
end; ( remove } 

procedure debugkey; 

begin call (debugger , 3, langcom. status, langcom. data); end; 
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begin < keyservice ) 
If dokey then 
with langcom do 
begin 

done := false;<done indicates thai key is handled irrmediately) 

status := kbdstatus; 

data ;= kbddata; 

exten5ion:= not odd [kbdstatus div 8); 

shift := not odd (kbdstatus div 16); 

control :* not odd ( kbdstatus div 32]; 

if not odd(5tatu5) then 

begin result :=alpha_key; key:=chr[data); end 

else call ( la ng table [lang index] ■^ . semantics) ; 

case result of 

alpha_key, < don't do anything yet > 

nonadv key,{ have non advanceing key > 

nona aTpha_key: (* 3.01 BUG FIX 9/19/84 SFB-JUS «); 

special_key : 

begin < decode special function keys ) 
small :* kbdtype=5mallkbd; 
case data of 

17: if control and not shift then unrecognized (enter/print) 
else if shift and control then dumpgraphics 
else if shift then dumoalpha 

else key:=chr{cr); {enter) 
20:begin {system/user) 

if shift then key:='U' else key:='S'; 
kbdsysmode :=not shift; 
5et5tatus(6,key); 
if key*'U' then 

if [menu5tate=m_sysnorm) or (menustate=m_sy5shift ) then 
begin 

menustate :=m_none; 
ke ybuffer'^. echo : = t rue; 
keybufops (kd is pi ay,c ) ; 
end; 
done : = t rue; 
end; 
2l:begin {menu) 

if kbdsysmode then 
begin 

call (crtllhook ,cllclear,i,c); < clear display ) 
if menu5tate>m__5ysshif t then menustate :=m_none; 
menustate :=m5tates [menustate .shift] ; 
keybuffer".echo:= (menus tate=m_nore) ; 
case menustate of 

m_rone : keybufops (kdisplay.c) ; 
m^sysnorm : call (crt II hook ,clldisplay, sysmenu^.c) ; 
|n__sys5hif t ; call (crt Ilhook,clldi5play, sysmenushif t^,c) ; 
Otherwise 
end; 

done := t rue ; 
end 

else unrecognized; 
end; 
22:if control then remove(true) else key :=chr fdel ) ; { clear line > 
23:if control then remove (T rue ) else key : =chr ( f f ) ; { clear display ) 
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480:C 
481 :C 
A82:C 
483:0 
484:C 
485:C 
486:C 
487:C 
488:C 
489:C 
490;C 
491:C 
492;C 
493:C 
494:C 
495;C 
496:C 
497:C 
498:C 
499:C 
600:C 
501:C 
602:C 
503:C 
504 :C 
605:C 
S06:C 
507:C 
S08:C 
509:C 
510:C 
611 :C 
612:C 
S13:C 
B14:C 
51S:C 
516:C 
517:C 
B18:C 
S19:C 
520:C 
521:C 
622:C 
623:C 
524:C 
525 -.C 



626 

527 
528 
529 
530 
631 
532 
533 
634 
635 
536 
537 
538 
539 



3. on 6/ 

6 
6 
6 
S 
6 
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24: begin KBDCBPSLOCK 

9,25: 

34: 

35: 
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' not KBDCBPSLOCK; done 



true end; 
key := chr(tab); (tab) 
key := chrjlfl; (down arrow) 
key := chr{us); (up arrow) 

{left arrow, backspace) 
38,46: If control then remove (false ) else key := chr(bs); 
39:BEGIM (SFB 5/21/84) key :■ chr(fsp): STflTUS:=0; 

CnLL(LflNGTflBLE[LSNGINDEX]".3EnnNTICS);END; (right arrow) 
40,43: kev := 'I'; (insert mode) 

41: if small then moregrapnics else 

key := 'D'; (delete mode) 

42; if shift and small then morealpha else unrecognized; 

(recall) 
44: key := '0'; (delete mode) 

47: key :« 'R'; (RUN key) 

48: key := 'E'; (EDIT key) 

49: if shift then dumpalpha else morealpha; 
50: if shift then dumpgraphics else moregraphics; 
51: begin (STEP) (RNYCHfiR) 

done := true; 
if shift then begin anychar :=true; 

anycharsavehook ;= kbdisrhook; 
kbdisrhook := keyservice; 
buildcount := 1; buildchar:= 0; 
end 
else debugkey; (STEP key) 

end; 
52: if control then remove(true) 

else if shift then key := chr(ff) (clear screen) 
else key := chrjdei}: (clear line) 
53: if shift and small then dumpalpha else unrecognized; 

(result, set tab) 
54: if shift and small then dumpgraphics else unrecognized; 

(prt all, clr tab) 
6,55: begin (stop) (clear I/O) 

done := true; 

clearanychar; locked act ion (stopact ion) ; 
end; 
5,56; begin (pause) 

done := true; data:=56; ( change 5 to 56 ) 
if locklevel = then debugkey 
else if control then lockedact ion{cnt rlpausekey) 
else lockedact ion(pausekey) ; 
end; 
8,57: key := chr(cr); (ENTER) 

58: begin done := true; debugkey; end; 
7.59: 



(EXECUTE key) 
('control' char) 
(escape) 
(EXECUTE) 



if control then key := chr(cntrl) 

else if shift then key := chrfesc) 

else key : = ch r (etx ) ; 

otherwise unrecognized; (no such code) 
end;( case data ) 
end;( decode special function keys ) 

ignored_key; goto 1;( ignore this key ) 
end;( case langcom. result ) 

if anychar then 
begin 

if done then 

begin ( special key except PNVCHRR terminates HNYCHBR ) 
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540: 
541: 
542: 
543: 
544: 
545: 
546: 

547 :C 

548 :C 

549 :C 

550 :C 
551:C 
552: 
653: 
554: 
555: 
656: 
557: 
568: 
659: 
560: 
561: 
662: 
663: 
564:C 
66S:C 
566:C 
567:C 
668: 
569: 
570: 
671: 
572: 
573: 
674: 
675: 
676: 
677: 
578: 
679: 
680: 
581: 
582: 
583:C 

••♦UBRNING: 

684 :C 
***UflRNlNG: 

58S:C 

586:C 

687 :S 

588 

689: 

590: 

591: 

592: 

593: 

594: 

695: 

S96:S 

597:C 
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51)) then clearanychar; 
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if not (shift and (data 
end 
else 
begin 

if [key < '0') or [key > '9') then 
begin clearanychar; unrecognized; end 
else 
begin 

buildchar :=buildchar»10*(ord(key)-0RD('0' )); 

buildcount :=buildcount+l; 

done := buildcount <= 3; 

if not done then 

begin 

clearanychar; key :=chr (buildchar mod 266); 
5tatu5:-0; 

call ( la ng table [langindex] " . semant ics) ; 
end; 
end; 
end; 
end; ( anychar ) 

if not done then 
begin 

If keybuf fer'^,size>=keybuf fer^.maxsize then beep ( no room in buffer ) 

else 

if ( result=nonadv key) OR ( ( result=nona alpha key) and not shift) 
then keybufopslknonadvance.key) { 3.01 BUG FIX 9/19/84 SFB/JUS) 



call (kbdreleasehook ) ; end; 



1 
2 

1 
2 
2 
2 
2 
2 
2 

(line 
2 

(line 
2 
2 

2 
2 
2 
2 



else 

begin keybufops(kappend, langcom. key) 
end; < not done ) 
end; ( with langcom ) 

. :end; ( keyservice ) 

procedure dumnykbdwait ; 

)egin set runlight (chr (idle) ) ; end; 

procedure initkeys; 
begin 

Kbdwaithook := dummykbdwait ; 

kbdisrhook := keyservice; 

rpgisrhook := rpghandler; 

kbdiohook := dokbdio; 

sr\ychar := false; 
584): 'POOR' of a constant may not be supported on other implementations 

s^smenu := addr (sysnorm) ; 
58b) : 'fiDDR' of a constant may not be supported on other implementations 

sysmenushift :- add r ( sysshf t ) ; 



initlang; 

Ke[)SETUP(SET nUTO REPEflT,4); 
KaDSETUP(SET BUTO DELAY, 30); 
SETRPGRflTE jlT; 
end; { initlceys ) 

end; ( module keys ) 

import keys, loader; 

begin 



(auto repeat period = 40 ms) 
(auto repeat delay = 300 ms ) 
(rpg interupt rate = 10 ms) 
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598:C 1 Initkeys; markuser; 
599:C 1 end. 
600 :S 

No errors. 3 warnings, 

**»«* Nonstandard language features enabled ***** 



11-579 



11-580 



LIB 



Description 

LIB provides the normal user-interface-level routines for DGL. 



Requirements 

DGL_TYPES, SYSGLOBALS, SYSDEVS, DGL_VARS, DGL_AUTL, DGL_GEN, ASM, GLE_GEN, GLE.TYPES, 
GLE.GENI, DGL_CONFG_OUT, DGL_CONFG_IN, DGL.TOOLS, DGL_IBODY, and lODECLARATIONS. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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< 


Rev historv: 





< 


5/21/82 


ejs 





( 


5/21/82 


BJS 





< 


8/25/82 


BJS 





( 


2/17/84 


BDS 





{ 


Purpose: 


Moid 



{ Pascal work station graphics library 

( 

< nodule = OGL_LIB 

{ Programer = BJS 

< Date » 2/1/81 

Set display and locator names to ' 'on term 
Fixed inverted window/5et_echo_pos bug 
najor mods for GLE 

Changed dynamic to global allocation for Pascal 3.0 
Hold normal user interface routines 

< Jc) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (S) of the Rights in Technical 
Data and Computer Software clause in 
DfiR 7-104. 9(a). 

HEULETT-PflCKfiRD COhPflNV 
Fort Collins, Colorado ) 

$modcal$ 

Sinclude 'OPTIONS'* 

< This include file specifies range checking, debug and other compiler 
options for the graphics library 

Jdebug OFF$ 

Sran.je OFFI 

Scop/right 'COPYRIGHT 1984 BV HEULETT-PflCKflRD COMPPNV'S 

SFLOlU HDU TESTS 



tinclude 'OPTIONS'I 
Slincnum 20000$ 
Isea'Ch 'TYPES', 

'DGL VPRS', 
'GEN'^, 
'GLE_LIB', 
'DGL_C_OUT' , 
■DGL_C IN', 
■DGL_TC0LS> , 
■DGL_flUTL' , 
■DGL_IB0Dy'lt 



module DGL LIB: 
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1 expor t 

1 prc'Cedure graphic:)_in it ; 

1 procedure 5et_a5pect (x , y : real) ; 

1 prc'Cedure 5et_viewport (vxmin, vxmax, vymin , vymax : 

1 procedure set^window (wxmin, wxmax, wymin, wymax : 

1 procedure display__f init ( fname : gst ring 255; 

2 device name ; gstring255; 
2 control : integer; 

2 var ierr : integer ) ; 

1 procedure display, inil ( dev_adr : integer; 

2 cont rol : integer; 
2 var ierr : integer ) ; 

1 procedure display_.term; 

1 procedure make_pic_current ; 

1 procedure set_Timirg ( opcode : integer ) ; 

1 procedure qraphics,_term; 

1 procedure locator, term; 

1 procedure set_color_model ( model : integer) ; 

1 procedure 5et_line_5tyle ( index : integer); 

1 procedure 5et_color ( index : integer ) ; 

1 procedure 5et_line width ( index ; integer) ; 

1 procedure locate r^Tnit ( dev_ddr : integer ; 

2 var ierr : integer ) ; 

1 function graphicserro r : integer; 



real 
real 



procedure 
procedure 

procedure 

procedure 

procedure 
procedure 

procedure 
procedure 



procedure 
procedure 



move (x,y : real ) ; 
line (x,y:real ); 
int_polyline [ nijm_point$ : integer; 

anyvar xvec, yvec : gshor t int_li5t ); 
polyline ( num_points : integer ; 

anyvar xvec, yvec : greal_li5t ); 
int_move fix, ay : gshortint); 
int line (ix,iy : gshortint); 
marker [marke r_numBer : integer); 
set_display_iitn ( dxmin , dxmax , 

dymin, dymax : real; 
var ierr : integer) ; 
clear_display; 

input_esc ( opcode : integer; 

isize : intege r ; 
rsize ; integer; 
anyvar ilist : gint list; 
anyvar rlist : greaT_list; 
var ierr : integer ) ; 



procedure output_esc ( 



aryvai 
aryvai 



opcode 

islze 

rsize 

ilist 

rlist 

ier r 



integer; 
integer ; 
integer ; 
girt list; 
greal_li&t ; 
integer ); 



1 procedure 5et_text_rot (dx, dy : real); 

1 pro'iedure set_char_size [width, height : real); 

1 procedure gtext [ s : gstrin9255 ); 
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20073 :S 










20074 :D 


1 


procedure set_echo_pos (wx,wy : rea 


); 




2007S:S 










20076:0 


1 


procedure await locator ( echo 


: integer; 




20077:0 


2 


var button : integer; 




20078:0 


2 


var rx, r 


/ ■■ real ); 




20079 :S 










20080:0 


1 


procedure sample locator ( echo 


: integer; 




20081 :D 


2 


var rx, 


ry : real ); 




20082 :S 










20083:0 


1 


procedure set_locator_lim [ Ixmin, Ixmax , lymin, lymax : real; 




20084:0 


2 


var ierr 


: integer ); 




2008S:S 










20086:0 


1 


procedure set color table [ index : 


integer; 




20087:0 


2 


parml : 


real; 




20088:0 


2 


parm2 : 


real; 




20039:0 


2 


parm3 : 


real); 




20090 :S 










20091 :D 


1 


procedure convert_wtodnTr f wx , wy : 


real; var nitix,nimy : real); 




20092:0 


1 


procedure convert_wtolmm ( wx, wy : 


real; var mmx,mmy : real); 




20093 :S 










20094:0 


1 


implement 






20095:S 










20096:0 


1 


import sysglobals, 






20097:0 


1 


sysdevs, 
<kbd, 






20098 :S 








20039:0 


1 


keys,* 
(asm,) 






20100:0 


1 






20101 :D 


1 


dgl vars. 






20102 :D 


1 


dgl autl, 






20103:0 
20104;D 


1 
1 


dgl gen, 
qle types, 
gle.GER, 






20105:0 


1 






20106:0 


1 


gle geni, 






20107:0 


1 


dgl confg out. 






20108:0 


1 


dgl confg in. 






20109:0 


1 


dgl"tool57 






20110:0 


1 


dgl ibody. 






20111 :0 


1 


iodeclarations; 






20112:S 










20113:0 


1 


{procedure hpm_dispo5e ( var object : 


anyptr; bytesize : integer ); external;) 




20114:S 










20115:0 


1 


function graphicser ror : integer; 






20116:S 










20117:0 


2 


{ Purpose: To return the most resent 


graphics error number ) 




20118:3 










20119:C 


2 


begin 






20120:C 


2 


graphicserror :== graphics error; 






20121:C 


2 


end; { graphicserror ) 






20122:S 










20123:0 


1 


procedure di5play._move ( x,y : integer ); 




20124:3 










20126:0 


2 


begin 






20126:0 


2 


with gle_gcb^ do 






20127:0 


3 


begin 






20128:C 


3 


end X := x; 






20129:C 


3 


end y :■■- y; 






20130:0 


3 


call [move, gle gcb); 






20131:0 


3 


end; 






20132:0 


2 


end; 
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20133:5 










20134:0 


1 


procedure display^draw ( x,y : intege 


' ); 




20136:3 










20136:C 


2 


begin 






20137:C 


2 


with gle gcb^ do 






20138:C 


3 


begin 






20139:C 


3 


end_x := x; 






20140:C 


3 


end y :- y; 






20141 :C 


3 


call (draw, gle gcb] ; 






20142:C 


3 


end; 






20143:C 


2 


end; 






20144:3 










20145:0 
20146:3 
20147:0 


1 


procedure adjust^echo (var dx,dy : integer); 




2 


( Purpose : To adjust echo for rubber 


band line effects ) 




20148:8 










20149:0 


2 


begin 






20150:C 


2 


case current echo type of 






20151:C 


3 


5 : dy:=d Toe echo y; { 


horz rubber band line ) 
vert rubber band line ) 




20152:C 


3 


6 : dx:=d loc echo x; ( 




20153:C 


3 


7 : ~ { 


snap horz / vert rubber band line ) 




20154:C 


3 


if abs(dx-d_loc_echo_x) >= ab 


s(dy-d_loc_echo_y) then 




2015S:C 


4 


dy;=d loc echo y 






20156:C 


4 


else 






20157:0 


4 


dx:=d loc echo x; 






20158:0 


3 


otherwise ; 


{ all other echos are ok ) 




20159:0 


3 


end; < of case } 
end; < adjust._echo > 






20160:0 


2 






20161:5 










20162:0 


1 


procedure cursor ( x,y : integer); 






20163:5 










20164:C 


2 


begin 






20165:C 


2 


display_move(x-8,y) ; 






20166:C 


2 


display„draw(x+8,y) ; 






20167:3 










20168:C 


2 


display move(x, y+81 ; 






20169:0 


2 


displayed raw(x, y~B) ; 






20170:0 


2 


end; 






20171:3 










20172:0 


1 


procedure echo„cursor (dx,dy : intege 


r); 




20173:3 










20174:0 


2 


{ Purpose ; To perform the current ec 


ho on a raster display ) 




2017S:S 










20176:C 


2 


begin 






20177:5 










20178:0 


2 


case cur rent_echo_type of 






20179:5 










20180:0 


3 


1,2 : cursor (dx,dy) ; 






20181 :3 










20182:0 


3 


3 : 






20183:0 


3 


with gcb'',gcb'^.max disp lim d 


o 




20184:C 


4 


begin (full screen) 






20185:0 


4 


di5playi_move(t rune (xmin) , 


dyl 






20186:C 


4 


di5play_draw(t rune (xmax) , 


dvi 
n)t 






20187:C 


4 


display move (dx , t rune (ymj 






20188:0 


4 


display draw(dx,trunc(yma 


X)) 






20189:C 
20190:C 


4 
4 


display move (dx,dy) ; 
end; 


< set cp to cursor center ) 
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20191:5 










20192:0 


3 


4,5,6,7 : 
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201S3:C 


3 


20194:C 


3 


20195:C 


3 


20I96:C 


3 


20197:C 


3 


20198:C 


3 


20199:S 




20200 :C 


3 


2O20l:C 


3 


20202 :C 


3 


20203 ;C 


3 


20204 :C 


3 


20205:C 


3 


20206 :C 


3 


2O207:C 


3 


20208:C 


3 


20209:S 




20210:C 


3 


20211 :S 




20212.C 


3 


20213:C 


2 


Z0214:C 


2 


20215:5 




20216:0 


1 


20217:S 





6/ 4/84] LIB. TEXT 



26-Dec-84 22:45:16 Page 5 »»» File name: LIB »*» 



20218:0 
20219:0 
20220:0 
20221:0 
20222:3 
:20223:C 
:20224:C 
20225 :C 
20226 :C 
20227:C 
20228:C 
20229 :C 
20230 :C 
20231 :C 
20232 :C 
20233: 
20234: 
20235 : 
20236: 
20237 : 
20238 : 
20239: 
20240: 
2024 1 : C 
20242 :C 
20243 :C 



begin (rubber bands) 

adju5t_ec:ho (dx dy); { are dx, dy correct for this echo? ) 

display_move [d_loc echo_x,d loc_echo_y); 

display dr aw {dx.dyj; 

cursor (3>;,dy) ; 
end; 

8 : 

begin {rubber band box) 

di5play_move fd_loc_echo„x,d_Ioc_echo_y} ; 

display_draw(d_loc echo_x,dy); 

display_draw(dx ,dyT; 

display_draw(dx,d_loc echo y); 

display draw (d_ioc_ecFo_x,3_ioc_echo_y) ; 

cursor (dx,dy] ; 
end; 

otherwise ; ( no echo ) 

end; < of case ) 

end; ( di5play_echo ) 

procedure DGL_CURS0R ( gle_gcb : graphic5_cont rol_bJock_pt r ); 

VfiC 

x.y : integer; 

CPX : INTEGER; 

CPy : INTEGER; 



begin 

with gle_gcb 
begin 

X := infol; 
y := info2; 
CPX 



do 



;!0244 
20245 
20246 
20247 
20248 
20249 
20250 
20251 
20252 



2 

-8 2 
-12 2 
-16 2 

2 
2 
3 
3 
3 
3 
3 
3 
3 
4 
3 
4 

3 

3 
3 

3 
3 
3 
3 

2 



-16 1 procedure conver t_wtodmm 



CURiJeNT POS X; ( SfiVE CP > 
CPY :- CURRENT POS Y: 
gle_await_blanring7'gie_gcb 1 ; 
if cur rent_cur5or_5tate = i then < remove old cursor > 

echo cursor (current_cursor x, current_cursor_y) ; 
if (inTo3 = 1) then ~ < draw new cursor > 

echo_cursor (x, y) ; 



current_cursor_st ate : 
cur rent_cur50r_x :- x; 
cur rent_cur5or_y ;= y; 

END_X :• CPK; 
END_Y := CPY; 
GLE_nOVE(GLE_GCB) ; 
end; 



info3; 



< RESTORE CP ) 



dx ,dy : real ; 



begin 

cksystem_init ; 
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20253 :C 
20254 :C 
20255 :C 
2025S:C 
20257 :C 
20258 :C 
20259 :C 
20260 :C 
20261 :C 
20262 :S 
20283:0 
20264:5 
2026S:D 
20266:0 
20267:0 
20268 :S 
20269 :C 
20270 :C 
20271 :C 
20272 :C 
20273: 
20274 : 
20275 : 
20276: 
20277: 
20278: 
20279: 
20280: 
20281: 
20282: 
20283: 
20284 : 
20285 :S 
20286:0 
20287 :S 
20288:0 



-16 2 
-32 2 
-48 2 



etc ^di5play_init ; 

dx := wx * xwtod_5cale + xwtod_of f set ; 
dy := u/y * ywtod_scale + ywtod_of f set ; 
wirh gcb'-,gcb'.max_disp_lim,gle_gcb" do 
tiegin 

finx := fdx - xmin] / display_res_x; 
rtmy := (dy - ymin) / display_res_y; 
end; 
end ; 



20289: 
20290: 
20291 : 
20292: 
20293: 
20294: 
20295: 
20296 :S 
20297:0 
20298 :C 
20299:C 
20300 :C 
20301 :C 
20302 :C 
20303 :C 
20304:3 
20305 :C 
20306 :C 
20307 :C 
20308:0 
20309:0 
20310:0 
20311 :C 
20312:3 



-32 
-32 



procedure convert_wtolrrm [ wx, wy 

var 

dx,dy : real; 
txty : real; 

begin 

ck sy5tem_init; 
clt_locator_init ; 

dx := wx * xwtod^scale * xwtod_of f set ; 
dy := wy * ywtod scale + ywtod_of f set ; 
with gcb'",gle_gc&i'' do 
begin 

( convert display to locator ) 



real; var rrniXjOTTiy : real) 



tx := ndx-cur_disp_lim.xmin J / xltod_5cale) 
ty := ( (dy-cur_disp_lifn.yniin) / yltod_scale) 

( convert to mm > 

fTfnx := (tx - max_loc_lim.xminl / input_res_x; 

mrty := (ty - max_loc_lim , ymin ] / input re5_y; 
end ; ~ 



+ log_loc_lim. xmin; 
+ log_Ioc_lim. ymin; 



real ) ; 



procedure set_viewport (vxmin, vxmax, vymin, vymax 

( Purpose: To set the viewport 

begin 

ck sy5tem_init ; 

(ck parms) 

if (vxmin >= vxmax) or [vymin >= vymax) then error (err_bad_parms) ; 

with gcb^ do 
begin 

if f vxmin < .0) or 

(vymin < 0.0] or 

[vxmax > cur_vir_lim.xlim) 

(vymax > cur_vir_lim. ylim) 
error (e r r_out_vi rt ) ; 

with viewport_lim do 
begin 

xmin := vxmin; 

xmax := vxmax; 

ymin := vymin; 

ymax := vymax; 
end ; 



<ck with vir limits) 



{ set the new limits ) 
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20313: 

20314: 

20315: 

20316: 

20317: 

20318: 

20319 

20320: 

20321: 

20322: 

20323:0 

20324 :S 

20325:C 

20326:C 

20327:S 

20328:C 

20329:S 

20330:C 

20331 :S 

20332: 

20333: 

20334: 

20335: 

20336: 

20337: 

20338: 

20339: 

20340: 

20341: 

20342: 

20343 : 

20344: 

20345: 

20346: 

20347: 

20348: 

20349: 

203S0: 

20351: 

20352 :C 

20353 :C 

20354: 

20355: 

20356: 

20357: 

20358: 

20359: 

20360: 

20361: 

20362; 

20363:C 

20364 :C 

20365:C 

20366:C 

20367:C 

20368:C 

20369:C 

20370 ;C 

20371 :C 
20372:C 



3. on 6/ 4/84j LIB. TEXT 

3 calcijlate_viewing; 

3 ( set flag so character size will be recalculated > 

3 calc text xform := true: 

3 end ~ "" 

3 end; { 5et_viewport > 

-32 1 procedure 5et_window (wxmin, wxmax, wymin, wymax : real ) 

-32 2 { Purpiose: To set the window 

2 begin 

2 ck_5ystem_init ; 
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{ck parms) 

if (wxmin = wxmax) or [wymin 

with qcf do 

with window_lim do 
begin 



xmin 


= wxmin; 


xmax 


= wxmax; 


ymin 


= wymin; 


ymax 
end; 


= wymax; 



wymax) then error (e r r_bad_parms ) ; 



{ set the new window > 



C3lculate_viewing; 

{ set flag so character xform will be recalculated > 

2 calc_text_xform :■ t rue; 

2 end; < 5et_window ) 

-16 1 procediire 5et._aspect (x, y : real); 

-IS 2 < Purpose: To set the aspect ratio 

2 begin 

2 ck_5y5tem_init ; 

2 {ck parms > 

2 if {X <= 0.0) or (y <= 0.0) then error (er r_a5pect ) ; 

2 with gcb'' do 

3 < calc new limits ) 

3 with cur_vir_lim do 

4 begin 

4 aspect_ratio := y / x- 

4 if aspect__rat io <= 1.0 then 

5 begin 

5 X 1 im : = 1 . ; 

5 ylim := a5pect_rat io ; 

5 end 

5 else 

5 begin 

5 xlim := 1.0 / aspect_ratio; 

5 ylim := 1.0; 

5 end ; 
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20373:C 


4 


20374 :C 


4 


2037S:C 


4 


20376:C 


2 


20377:5 




20378:0 


1 


20379:8 




20380:C 


2 


20381 :C 


2 


20382:C 


2 


20383:C 


2 


20384:C 


2 


2038S:S 




20386:0 


1 


20387:5 




20388:C 


2 


20389:C 


2 


20390 :C 


2 


20391 :C 


2 


20392:C 


2 


20393:C 


3 


20394 :C 


3 


20395 :C 


3 


20396 :C 


3 


20397 :C 


2 


20398:3 




20399:0 


1 


20400:5 




20401 :C 


2 


20402 :C 


2 


20403:3 




20404 :C 


2 


20405 :C 


2 


20406 :C 


2 


20407:5 




20408:0 


1 


20409:0 


2 


20410:0 


2 


20411:0 


-24 2 


20412:3 




20413:C 


2 


20414:C 


2 


2041S:C 


2 


204ie:C 


2 


204n:C 


3 


20418:C 


3 


20419:C 


4 


20420 :C 


4 


20421 :C 


4 


20422 :C 


5 


20423:C 


5 


20424 :C 


4 


20425 :C 


4 


20426 :C 


4 


20427 :C 


4 


20428 :C 


3 


20429 :C 


2 


20430:5 




20431:0 


1 


20432:3 
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{ set viewport to new limits > 
set_vlewport ( 0.0, xlim, 0.0, ylim); 
end; 
end; { set_aspect > 

procedure make_pic_current ; 

begin 

ck_systeni_init ; 

ck__di5play init ; 

gle flush Buffer { gle_gcb ); 

end; ~" ~ 

procedure set_timing ( opcode : integer ); 

begin 

ck_5y5tem_init : 

if~(opcode < 0) or (opcode >1 ) then er ror (err_bad_parms) 
gcb'^.dgl cur rent_timniing_mode := opcode; 
if di5p_Tnit then 
begin 

gleqcb'^. infol := opcode; 
gle~buf fer_mode ( gle_9cb ); 
end; 
end; 

procedure set_color_model [ model : integer); 

begin 

ck_system_init; 

if (model<l } or (model>2 ) then error {err_bad_parm5) ; 
gcb^.dgl_current_color_model := model ; 
end; 



procedure 5et„color_t able ( index 

"" parml 

parm2 

parm3 



integer; 
real ; 
real ; 
real) : 



begin 

ck_sybtem_init ; 
ck_da5play_init ; 
with gcb'^,gle_gcb'^ do 
begin 

if (index >= 0) and 
begin 

dql polygon_color_current := false; { dither pattern is wrong ) 
if X(0 > parml) or (parml > 1)1 or 
1(0 > parm2] or (parm2 > ij) or 

((0 > parm3) or (parm3 > ij) then error (err_bad_p3rms) ; 
call (proc_color table j index. parml ,parm2,parm3) : 
ays recalculate line color (2.1 buug fix) > 



(index <= color_table_size ) then 



\ a Iwa yS no.aj'.ij.ia^c J.1IIC k.>^j.iji \(, . L 

call (proc_color ,dgl_current_color) ; 



end; 

procedure set__line_width (inde/^ 
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20433:D 
20434:S 
2043S:C 




2 


{ Purpose: To set the line width primitives will be drawn with 


> 






2 


begin 






2043$ :C 




2 


ck system init; 






20437 :C 




2 


ck display init ; 






20438 ;C 




2 


with gle^gcb-^ do 






20439:C 




3 


begin 

if (index < 1 ) or ( index > linewidths ) then index := 1; 






20440 :C 




3 






20441 :C 




3 


gcb^.dgl current linewidth := index; 






20442:C 




3 


infol := index; 






20443:C 




3 


gle linewidth ( gle gcb ]; 






20444 :C 




3 


end; 






20445 :C 




2 


end; < set linewidth ) 






20446 :S 












20447:0 




1 


procedure set color {index : integer); 






20448 :S 












20449 ;D 




2 


< Purpose: To set the color primitives will be drawn with 


) 




20450:S 












20451 :C 




2 


begin 






20452:C 




2 


ck_system_init ; 






20453:C 




2 


ck display init ; 






20454 :S 






~ 






2045S:C 




2 


with gcb", gle gcb" do 






20456 :C 




3 


begin 






20457 :C 




3 


if (index < 0) or 






20468 :C 




4 


( ( index > gamut ) and 






20469 :C 




4 


((color table size = 0) or (index > color table size))) then 


index := 1; 




20460:C 




3 


( optimize changing color on raster devices X2.1 bug fix) > 






20461 :C 




3 


if ( (dgl current color <> index) or (complement support <> 1)) 


then 




20462 :C 




4 


begin 






20463 :C 




4 


call (proc color, index) ; 






20464 :C 




4 


dgl current color := index; 






20465:C 




4 


end; 






20456 :C 




3 


end; 






20467 :C 




2 


end; { set_color ) 






20468 :S 












20469:0 




1 


procedure 5et_line_style [ index : integer); 






20470 :S 












20471:0 
20472 :S 
20473 ;C 




2 


( Purpose: To set the linestyle that primitives are drawn with 


> 






2 


begin 






20474 :C 




2 


ck_sy5tem_init : 






20475 :C 




2 


ck display init; 






20476 :S 












20477:C 




2 


with gcb" do 
begin 






20478 :C 




3 






20479 :C 




3 


if (index < 1) or (index > number dgl linestyles) then index := 


1; 




20480:5 






(if dgl current linestyle <> index then 






20481 :C 




3 


beglny 






20482:C 




3 


dgl current linestyle := index; 
call (proc Tinest yle , index) ; 






20483:C 




3 






20484 :C 




3 


(end;) 






20485 :C 




3 


end; 






20486 :C 




2 


end; < 5«t_line_style ) 






20487:5 












20488:0 




1 


proi:edure set_displ3y_lim ( dxmin, dxmax, dymin, dymax : real; 






20489:0 


-32 


2 


var ier r ; integer ) ; 






20490:3 












20491 :D 


-32 


2 


( Purpose : To set the logical display limits 


> 




20492:5 
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name: LIB *** 




20493:0 


-32 


2 


var 






20494:0 


-40 


2 


txmin : real; 






20495:0 


-48 


2 


txmax : real; 






20496:0 


-56 


2 


t>tnin : real; 






20497:0 


-64 


2 


tymax : real; 






20498 :S 












20499 :C 




2 


begin 






20500 :C 




2 


ck system init; 






20501 :C 




2 


ck display init; 






20S02:S 












20S03:C 




2 


<LJRITELN(dxmin:19:18,dxmax;19:18,dymin:19:ie,dymax:19:18) ; > 






20504 :C 




2 


( ck parms > 






20605 :C 




2 


If ((dxmin < dxmax) and (dymin < dymax)) then 






20506 :C 




3 


With qcb" do 

with max disp lim do 






20507 :C 




4 






20508 :C 




5 


begin 






20509 :C 




5 


with gle gcb" do 






20S10:C 




6 


begin 






20511:C 




6 


txmin ;= (dxmin * display res x) + xmin; 






20S12:C 




6 


txmax :« (dxmax « display res x) + xmin; 






20S13:S 






~ ~ 






20S14:C 




6 


tymin ;= (dymin * display res y) + ymin; 






20S1S:C 




6 


tymax := (dymax » di5play_res_y) + ymin; 






20S16:C 




6 


end; 






20517:3 












20S18:C 




5 


\ make sure new logical imits are within the physical limits 


) 




20S19:C 




5 


if (txmin >= xmin) and (txmax <= xmax ♦ eight dlget epsilon) 


and 




20S20:C 




6 


(tymin >= ymin) and (tymax <= ymax + eight diget epsilon) 


then 




20521 :C 




6 


begin 






20522 :C 




6 


display_limits (txmin, txmax, tymin, tymax) ; 






20523:3 












20524 :S 






< set flag indicating that the char size needs to be 






20S25:S 






recalculated. This is done since the physical character size 




20526 :C 




6 


may change due to this procedure 


) 




20627 :S 












20528 :C 




6 


calc_.text_xform ;= true; 






20529:3 












20630:C 




6 


ierr := 0; 






20531 :C 




6 


end 






20532 :C 




6 


else ierr := 2; 






20533:C 




5 


end 






20634 :C 




5 


else 






20535 :C 




3 


ierr :. 1; 






20536 :C 




2 


end; ( set_display„lim > 






20537:3 












20538:3 












20539:0 




1 


procedure clear display; 






20540:3 












2054 1 :D 




2 


( Purpose : To clear to display 


) 




20542:3 












20S43:C 




2 


begin 






20544 :C 




2 


ck system init; 
ck_di5play_init ; 






20545 :C 




2 






20546:3 












20547 :C 




2 


with gle_9cb" do 






20548 :C 




3 


begin 

infol := -1; < clear all planes > 






20549:C 




3 






20550 :C 
20651 :C 




3 

3 


info2 := gcb".dgl_background_index; 
gle clear ( qle gcb ) ; 
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20552 :C 




3 


end; 
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205S3 

20554 

20SSS 

20SS6 

20SS7 

20558 

20559 

20560 

20561 

20562 

20563 

20564 

20565 

20566 

20667:C 

2CS68:S 

20569:C 

20570:C 

20571 :C 

20S72;S 



20573: 
20574: 
20576: 
20S7S: 
20577: 
20578: 
20579: 
20580: 
20581: 
20582: 
20583: 
20584: 
20585: 
20586: 
20587: 
20588: 
20589:0 

20590 :S 

20591 :C 
20592:C 
20593 :C 
20594 :C 
20595 :C 
20596 :C 
20597:C 
20598:5 
20599:C 
20600: 
20601: 
20602: 
20603: 
20604: 
20605: 
20606: 
20607: 
20608: 
20609: 
20610: 
20611: 
20612: 
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2 end; ( Clear_di5play > 
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-16 
-16 



1 Sbtackcheck off$ 
1 procedure move ( 



2 { Purpose 



y : real); 

To change the current position 



2 begin 

2 if disp_init then 

3 begin" 

3 I save world cp > 

3 int cp := false; { cp saved as real value ) 

3 worTd_real_cpx := x; 

3 world_real_cpy := y; 

3 { calc new device dependent cp ) 

3 cpx := trunc ( x * xwtod_scale + xwtod_offset 

3 cpy := trunc ( y * ywtod_scale ♦ ywtod_offset 

3 <URITELN('riOVE ( ' ,CPX:5, ■ , ' ,CPV :S, ■ ) ' ) ; > 

3 with gle_gcb'^ do 

4 begin 

4 end_x := cpx; 

4 end"y := cpy: 

4 call (move,gle_gcb) ; 

4 end; 

3 end 

3 else 

3 if system_init then error (er r_di5_int ) 

4 else error (err_5ys_int ) ; 
2 end; { move ) 

1 procedure line (x, y : real); 

2 { Purpose : To draw a line 

2 begin 

2 If di5p_init then 

3 

3 

3 

3 

3 



begin 

( save world cp > 

int cp ;= false; < cp saved as 
world_real_cpx := x; 
wor ld_real_cpy := y; 



■eal value ) 



{ calc new device dependent cp > 

cpx := trunc { x * xwtod_scale + xwtod_offset 

cpy := trunc { y * ywtod_scale + ywtod_offset 

(URITELNCLINE (', CPX : 5 ,',', CPV :S ,')'); ) 
with gle_gcb^ do 
begin 

end_x :- cpx; 
end y := cpy: 
call (draw,gle_gcb) ; 
end; 
end 
else 

if 5y5tem_init then error (er r_dis_int ) 
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20613:C 

20614:C 

2061S:S 

20616:0 

20617:3 

20618:0 

20619:5 

20620:C 

20621 :C 

20622 :C 

20623:C 

20624 :C 

2062S:C 

20626: 

20627: 

20628: 

20629: 

20630: 

20631 : 

20632: 

20633: 

20634: 

20635: 

20636: 

20637:C 

20638:C 

20639:C 

20640 :C 

20641 :C 

20642 :C 

20643 :C 

20644:3 

20645 :S 

20646:0 

20647:3 

20648:3 

20649:0 

20650:3 

20651 ;C 

20652 :C 

20653 :C 

20654 :C 
206SS:C 
20656 :C 
20657 :C 
20658 :C 



20659 
20660 
20661 
20662 
20663 
20664 
20665 
20666 
20667 
20666 
20669 
20670 
20671 
20672 



4 else error (er r_sys_int ) ; 
2 end; < line ) 

1 procedure int_.move (ix, iy : gshortint); 

2 { Purpose : To move the current position 

begin 

if disp^init then 
begin~ 

] use the normal move routine unless the short flag is set ) 
if 5hort_flag then 
begin 

{ save world cp ) 

int cp := true; < cp saved as gshortint ) 

wo rTd_i n t _c px := ix; 

world_int_cpy := iy; 

with gle_gcb^ do 
begin 

end_x := ix; 
end_y := iy; 

dgl_scaled_move; { perform a scaled move ) 
end; 
end 
else move (ix,iy) ; 
end 
else 

if system_init then error (err_dis_int ) 
else error (er r_sys_int ) ; 
end; < int_move > 



1 procedure int_line (ix, iy : gshortint); 



{ Purpose : To set the logical display limits 



begin 

if disp^init then 
begin 

( us 



\ use normal line unless short flag is set > 
If short_flag then "" 

begin ~ 

I save world cp ) 

int cp := true; ( cp saved as gshortint ) 

worTd_int_cpx := ix; 
world_int_cpy := iy; 
with gle_gcb'' do 
begin 

end_x' := ix; 
end_y: := iy; 

dgl_scaled_draw: { perform a scaled draw ) 
end; 
end 
else 

line(ix, iy) ; 
end 
else 

if system_init then error (er r_dis_int ) 
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20673 
20674 
20675 
20676 
20677 
20678 
20679 
20680 
20681 
20682 
20683 
20684 
20685: 
20686: 
20687: 
20688: 
20689: 
20690: 
20691: 
20692 
20693 
20694 
20695 
20696 
20697 
20698 
20699 
20700 
20701 
20702 
20703 
20704: 
20705: 
20706: 
20707: 
20708: 
20709: 
20710: 
20711: 
20712: 
20713: 
20714: 
20715: 
20716: 
20717: 
20718: 
20719: 
20720: 
20721: 
20722: 
20723: 
20724: 
20725: 
20726: 
20727: 
20728: 
20729: 
20730: 
20731: 
20732: 



else error (err_sys_int ) ; 
end; < int_line ) 

procedure int_poIyline ( num_point5 : integer; 

anyvar xvec, yvec ; g5hortinT_li5t 



begin 

ck_sy5tem_init ; 
ck_display_init ; 

if rum_points <= then error (er r_neg_points) ; 

inl_rrove ( xvec[l], yvec[l] ); 

for i := 2 to num points do 

intlane ( xvecli], yvec[i]); 
end : 

procedure polyline ( num_points : integer; 

anyvar xvec, yvec ; greal_list ); 
var 

i ; integer; 

begin 

Ck_sy5tem_init ; 
ck_di5play_init ; 

if num_points <= then error {e rr_neg_points) ; 

move ( xvec[l], yvectl] ); 

for 1 := 2 to num_points do 
line ( xvec[i], yvec[i]); 
end ; 
Sstackcheck on$ 

procedure gtext( s : gstring255 ); 

{ PURPOSE : To draw a text string 

begin 

if di5p_init then 
begin" 

If calc_text xform then 
with gcb" So 
begin 

5et_char_si2e fdgl_char_width , dgl_char_height ) ; 
5et_text~rot (cna? rot_w, char_rot_h) ;~ 
calc_text_xform := Talse; 
end ; 
with gle_gcb^ do 
begin 

info ptrl := addr(s[l] ); 
infoT := strlen(s); 
end; 
gle_text ( gle_gcb ); 
end 
e Ise 

if sy5tem_init then error [er r_dis_int ) 
else error {er r_sys_int ) ; 
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20733: 

20734: 

20735: 

20736: 

20737: 

20738: 

20739: 

20740: 

20741: 

20742 :C 

20743:C 

20744 :C 

20745:C 

20746:C 

20747:C 

20748:C 

20749:S 

207S0:D 

20751:0 

20752:0 

20753:0 

20754:0 

20755:0 

20756:0 

20757:0 

20758:S 

20769:C 

20760 :C 

20761: 

20762: 

20763: 

20764: 

20765: 

20766: 

20767: 

20768; 

20769: 

20770: 

20771: 

20772: 

20773: 

20774: 

2077S:D 

20776 :S 

20777: 

20778: 

20779: 

20780: 

20781: 

20782: 

20783: 

20784: 

20786: 

20786: 

20787: 

20788: 

20789: 

20790: 

20791: 

20792: 



6/ 4/84] LIB. TEXT 

end; < gtext > 

procedure marker ( marker 



.number 
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integer 



File name: LIS ««• 



beg in 

ck_system_init ; 

ck_display_init ; 

if (marker_number < 1) or (marker_number > 19} then marker_number ;= 1; 

with gle_gcb^ do 
begin 

infol := marker number; 



gle_set marker J gle gcb ); 
• - "" ' gle_9cb ); 



gle_mdrfe 
end; 
end : 

procedure input_esc 



opcode 

isize 

rsize 

anyvar ilist 

anyvar rlist 

var ierr 



intege r ; 
intege r ; 
integer; 
gint list; 
greaT_list ; 
integer ) ; 



< Purpose : To perform an input escape function 

begin 

Ck_sy5tem_init ; 
ck_di5play_inil ; 

ierr := opcode_ck ( opcode, isize, rsize) ; 

call (gcb^.proc_input_e&c, opcode, isize, rsize, ilist, rlist, ierr); 

end; < input_esc ) 

procedure output_esc ( 



opcode 

isize 

rsize 

anyvar ilist 

anyvar rlist 



var 



ier 



integer ; 
integer ; 
integer ; 
gint list; 
greaT_list ; 
integer ); 



-16 
-16 



-16 
-16 



2 < Purpose : To perform an output escape funtion 

2 begin 

2 ck_system_init ; 

2 ck_dl splay_init ; 

2 ierr := opcode_ck ( opcode, isize, rsize) ; 

2 Ciill [gcb" .proc_output_esc, opcode, isize, rsize, ilist, rlist, ierr) 

2 end. { output_esc > 

1 procedure set_text _rot (dx, dy : real); 

2 ( PURPOSE : To set the new text rotation vectors 

2 ( ccilc normalize vector and save > 

2 { set flag so text xform is recalculated ) 
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20793:0 


-24 


2 


r : real; 




20794 :S 










20796 :C 




2 


begin 




20796 :C 




2 


ck s/stem init; 




20797 :C 




2 


ck_display_lnit ; 




20798 :S 










20799 :C 




2 


if (dx « 0) and {dy = 0) then error (err_bad_parm5) ; 




20800 :S 










20801 :C 




2 


with gcb^ do 




20802 :C 




3 


be<3an 




20803 :C 




3 


r := sqrt ( dx»dx + dy«dy); 




20804 :C 




3 


char rot w := dx / r; 




20805 ;C 




3 


char rot h := dy / r ; 




20806 :C 




3 


with gle_gcb^ do 




20807 :C 




4 


begin 




20808 :C 




4 


infol := trunc(char rot w * 32768); 




20809 :C 




4 


infc2 := truncfchar rot h * 32768]; 




20810:C 




4 


end; 




20811:C 




3 


gle text dir ( gle gcb ) ; 




20812:C 




3 


end 




20813:C 




3 


end; { 5et_te»t_rot > 




20814:S 










20815:S 










20816:D 


-16 


I 


procedure 5et_.char_5ize (width, height ; real) ; 




20817:5 










20818:0 


-16 


2 


< PURPOSE : To set the new character size > 




20819:3 










20820:0 


-16 


2 


< save width and height, set flag so text xform is recalculated ) 




20321 :S 










20822:C 




2 


begin 




20823 :C 




2 


ck system init; 




20824 :C 




2 


ck_display_init ; 




20825:5 










20826 :C 




2 


{if (width * 0.0) or (height = 0.0) then error (er r_bad_pa rms ) ; > 




20827:5 










20828 :C 




2 


with gcb^ do 




20829 :C 




3 


begin 




20830:C 




3 


dgl char width := width: 
dgl char height := height; 
witTi gle_gcb^ do 




20831 :C 




3 




20332 :C 




3 




20833 :C 




4 


begin 




20834 :C 




4 


infol :« abs(trunc ( (width « xwtod scale « 7 / 9) « 8)1: 
info2 := absjtrunc ( (height » y^to? scale * 9 / 15) * 8)); 




20835 :C 




4 




20836 :C 




4 


gle_.char_5ize ( gle_gcb ); 




20837:3 










20838:C 




4 


infol := ab5(trunc((width » xwtod scale « 2 / 9) « 8)1: 
info2 := abs (t rune ( (height » yjJtoS scale « 6 / IS) » 8)); 




20839:C 




4 




20840 :C 




4 


gle text spacing [ gle gcb ); 




20841 :C 




4 


end; 




20842 :C 




3 


end 




20843:C 




3 


end; { set_chdr_size > 




20844:5 










20845:5 










20846:0 


-16 


I 


procedure set echo pos [wx,wy : real), 




20847:3 










20848:0 


-16 


2 


{ Purpose ; To set the locator echo position ) 




20849:5 










20850:0 


-24 


2 


function between ( xl, p, x2 : real ) : boolean; ( added for 2.1 bug fix ) 




20851:3 










20852 :C 




3 


begin 
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20853 :C 




3 


between := (((xl <= p) and ( p <= x2)) or 




20854 :C 




3 


((x2 <. p) and ( p <= xl))); 




20855 :C 




3 


end; 




20856:5 










20857:C 




2 


begin 




20858 :C 




2 


ck system irit; 




20359:C 




2 


ck display init; 




20860 :C 




2 


ck_locator_init ; 




20361 :S 










20862 :C 




2 


with qcb'^ do 

with window lim do 




20863:0 




3 




20864 :C 




4 


begin 




20865:0 




4 


{ ck bounds } 




20366:C 




4 


if (between [xmin,wx,xmax) and < 2.1 bug fix > 




20867:C 




5 


between (ymin,wy,yniax) ) then 




20368:C 




5 


begin 

{ set world coord echo pos ) 




20869 :C 




5 




20870 :C 




5 


w loc echo X ;= wx; 




20871 :C 




S 


w_loc_echo_y := wy; 




20872:5 










20873;C 




5 


{ convert to display units > 

convert wtod (w loc echo x,w loc echo_y,d_loc_echo_x,d_loc_echo y); 




20874 :C 




5 




20875:C 




5 


end 




20876 :C 




5 


< ignor call if outside window ) 




20877 :C 




5 


end 




20878 :C 




4 


end; { set echo pos > 




20879:8 










20380:0 




1 


procedure set locator lim ( Ixmin, Ixmax, lymin^lyinax : real; 




20881:0 


-32 


2 


var ierr : integer ); 




20832:5 










20883:5 










20884:0 


-32 


2 


< Purpose : To set the locator echo position ) 




20885:5 










20886:0 


-32 


2 


var 




20887:0 


-40 


2 


txmin : real; 




20888:0 


-48 


2 


txmax : real; 




20889:0 


-56 


2 


tymin : real; 




20890:0 


-64 


2 


tyinax : real; 




20891:5 










20892 :C 




2 


begin 




20893 :C 




2 


ck system init; 




20894 :C 




2 


ck locator init; 




20895:3 






~ ~ 




20896:5 






i input limits can only be changed if the input device is not the same 
physical device as the display > 




20897:C 




2 




20898 :C 




2 


with gcb*^ do 




20899 :C 




3 


if not disp eq loc then 




20900 :C 






begin 

{ ck parms } 




20901 :C 








20902:C 






if (Ixmin < Ixmax) and (lymin < lymax) then 




20903 :C 






with gle^gcbi"^ do 
with mpx loc lim do 




20904 :C 








20905 :C 






begin 




20906 :C 






< convert limits form mil to locator cord > 




20907:C 






txmin := Ixmin * input_res_x + xmin ; 




20908:C 






txmax := Ixmax * input~res_x + xmin ; 




20909:C 






tymin := lymin * input_res_y ♦ ymin ; 




20910:C 






tymax := lymax * input_res_y + ymin ; 
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20911:5 










20912:5 






{ make sure new logical imits are within the physical 
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20913 




20914 




209 IS 




20916 




20917 




20918 




20919 




20920 




20921 




20922 




20923 




20924 




20925 




20926 




20927 




20928 




20929 




20930 




20931 




20932 




20933 




20934 




20935 


D 


20936 


S 


20937 


D 


20938 


S 


20939 


c 


20940 


c 


20941 


c 


20942 


c 


20943 


c 


20944 


c 


20945 


c 


20946 


c 


20947 


c 


20948 


s 


20949 


c 


20950 


s 


20951 


D 


20952 


D 


20953 


D 


20954 


S 


20955 


s 


20956 





20957 


s 


20958 


s 


20959 


D 


20960 


C 


20961 


D 


20962 


D 


20963 


D 


20964 


D 


20965 


D 


20966 


S 


20967 


c 


20968 


c 


20969 


c 


20970 


c 


20971 


c 


20972 


c 



3. on 6/ 4/84] LIB. TEXT 



2e-0ec-84 22:45:16 Page 17 



File name: LIB **» 



7 limits 

7 If (txmin >= xmin) and 

8 (txmax <= xmax + eight_diget_epsilon ) and 
8 ftymin >= ymjn) and 

8 (tymax <= ymax + eight_diget epsilon) then 

8 begin "" 

8 ( set new limits ) 

8 locate r_limit s (txmin, txmax , tymin, t ymax) ; 

8 ierr := 0; 

8 end 

8 else ( bad limits > 

8 ierr := 2; 

7 end 

7 else { bad parms > 

5 ierr := 1; 

4 end 

4 else { locator and display are same device ) 

4 ierr ; = 3; 

2 end; { 5et_locato r _1 im } 



1 procedure samp]e_locator ( echo 

2 var rx, ry 



integer ; 
real ); 



2 ( Purpose : To sample the locator device 

2 bejin 

2 if loc_init then 

3 begin 

3 If disp_init then make_pic_current ; 

3 call(9cb^. proc_sample~locator, echo , rx, ry ) ; 

3 end 

3 else 

3 if system_init then error (er r_loc_int ) 

■4 else error (err_sys_int ) ; ~ 

2 enii; { sample_locator > 

1 procedure await_ locator ( 



echo 
ar button 
ar rx , ry 



integer; 
integer; 
real ); 



2 < Purpose : To activate the locator, and wait for operator termination 



!.ayed_pat t ern, 
r.aved_linewidt h . 
saved_linest yle , 
;.aved_lengt h, 
s3ved_mode , 
^aved__drawing_mode 



integer 



2 beciin 

2 c k_sy5tem__init ; 

2 ( k_locat or ini t ; 

2 if disp_init then 

3 with gcb^.gle^gcb"^ do 

4 begin 



Pascal [Rev 


3. on 


20973:C 




20974 :C 




20975:C 




20976:: 




20977:C 




20978:C 




20979:C 




20980 :C 




20981 :C 




20982 :C 




20983 :C 




20984 :C 




20985 :C 




20986 :S 




20987:C 




20988:C 




20989:S 




20990 :C 




20991 :C 




20992 :C 




20993 ;C 




20994 :C 




20995 :S 




20996 :C 


2 


20997 :S 




20998 :C 


2 


20999 :C 


3 


21000;C 


3 


2100I:C 




21002:C 




21003:C 




21004;C 




2!005:C 




2I006:C 




21007:S 




21008:C 




21009:C 




21010:5 




21011 :C 




21012:C 




21013:S 




21014:C 




2101S:C 




21016:S 




21017:C 


3 


21018:C 


4 


21019:C 


5 


21020;C 


3 


21021:3 




21022:C 


2 


21023:5 




21024:0 


1 


21025:S 




21026:D 


2 


21027:3 




21028;C 


2 


21029:C 


2 


21030:C 


2 


21031 :S 




21032:C 


2 
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make pic_cur rent ; 

5ave3_pa t tern 

saved^linewidth 

5aved_line5tyle 

5aved_length 

5aved_mode 

saved_drawing_mode 
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= current_linestyle_pattern; 

= current_linewidt h ; 

= cur rent _linesty]e; 

= current_pat te rn length; 

= cur rent_linestyTe_mode; 

= cur rent_drawing_mode; 



*«« File name: LIB *** 



infol := 0; 
info2 := 0; 
info3 := 0; 
info4 := -1: 
gle_line5lyie ( gle_gcb ) ; 

infol :»= 1; 

gle_linewidth ( gle_gcb ) ; 

call (proc__color,cursor_color) ; 

infol := complement mode; 
9le_define_drawing_mode ( gle_gcb ) ; 
end; 

call (gcb".proc_,aw3it_locator , echo, button, rx,ry); 

if disp_init then 
begin 

with gcb'",gJe__gcb'^ do 
begin 

infol := saved_linest yle ; 
info2 := saved_length; 
info3 := saved_mode; 
info4 := saved pattern; 
gle_linestyJe T gle_gcb ); 

infol := saved linewidth: 
gle_linewidth T gle_gcb ); 

infol := saved_drawing_mode : 
gle_def ine_drawing_moae ( gie_gcb ); 

call (proc color ,dgl_current_color J ; 

end; ~ 

if echo > 1 then 

if not int_cp then move [ world_real_^cpx, world_real_cpy ) 
else int_move ( wor ld_Tnt_cpx , world_int_cpy ); 

end ; 

end; < await_locator > 

procedure display_term; 

{ Purpose: To terminate the graphics display 

begin 

cK_5ystem_init ; 
ck_display_init ; 



vith gcb^ do 
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21033:C 


3 


becjin 




21034:C 


3 


<Ji5p_init := false; 




2103S:C 


3 


disp file name := ''; 




21036:C 


3 


(jisp_dev_adr := 0; 




21037:3 








21038:C 


3 


{ reset display limits to default ) 




21039:S 








21040:C 


3 


with init display lim do 




21041:C 


4 


di5play_limit5(xmin,xmax,ymin,ynax) ; 




21042:3 








21043 :C 


3 


:Lf disp eq loc then with def loc lim do < locator limits no longer ) 




21044:C 


5 


locator_Timit5 (xmin ,xmax , ymin , ymax) ; { are effected by the display } 




2104S:S 








21046:C 


3 


disp eq loc := not loc init; { if both disabled then they are equal ) 




21047:3 








21048:C 


3 


try 




21049:C 


4 


call (gcb^.proc color, 0); 




21060:C 


4 


gle flush buffer ( gle qcb ); 

gle get plp2 ( gle gcb ]; ( Force read from device. This syncs 




21051:3 






21052:C 


4 


the OS with buffered devices > 




21063:C 


4 


gle_term(gle_gcb) ; 




21054:C 


4 


recover 




210SS:C 


4 


{ ignore timeout errors > 

if (escapecode <> -26) or (ioe^result <> 17) then escape (escapecode) ; 




21056:C 


4 




21057:5 








21058:0 


3 


{ dispose of color table and polygon table ) 




21059:3 




lif color table size > then htm dispose (color table ptr. 




21060:3 




(color table size+l) * ?4 ) ; 




21061 :S 




if number polygon styles > then npm dispose[poly table ptr, 




21062:C 


3 


number polygon styles * 18 T;) 




21063:C 


3 


end; 




21064:3 








2106S:C 


2 


end; < display term ) 




21066:3 








21067:0 


1 


procedure locator_term; 




21068:3 








21069:0 


;> 


{ Purpose: To terminate the locator device ) 




21070:3 








21071:C 


2 


begin 




21072:C 


2 


ck system init; 




21073:C 


2 


ck locator init; 




21074:3 








21075:C 


2 


loc init := false; 




21076:C 


2 


witTi gcb" do 




21077:C 


3 


begin 




21078:[; 


3 


disp eq_loc := not disp_init; { if both disabled then they are equal ) 




21079:C 


3 


loc Sev^adr := 0; 




21080:C 


3 


end; 




21081:3 








21082:C 


2 


( reset to default locator limits ) 




21083:C 


2 


with init_locator lim do 




21084:C 


3 


locator limits (xmin,xmax,ymin, ymax) ; 




21085:3 








21086:C 


2 


gle_.input_term(gle_gcbi) ; 




21087:3 








210S8:C 


2 


end; { locator_term ) 




21089:3 








21090:0 


1 


procedure graphics_term; 




21091:3 








21092:0 


2 


{ Purpose: To terminate the graphics system > 
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21093:3 








21094:0 


2 


begin 




21095:C 


2 


ck_system_init; 




21096:3 








21097:C 


2 


( make sure all devices are terminated ) 




21098:C 


2 


If disp init then display term; 




21099:C 


2 


if loc_Thit then locator_term; 




21100:3 








21101:C 


2 


{ return dynamic vars to system > 




21102:3 




{dispose(gcb) ; 
dispose(gle gcb): 




21103:5 






21104:3 




disposeigle qcbi) ; 
dispose(gle_knob_echo_gcb) ; } 




21106:C 


2 




21106:5 








21107:C 


2 


( set system initialized flag to disabled ) 
system init := false; 




2U08:C 


2 




21109:C 


2 


end; { graphics term > 




21110:5 








21111:0 
21112:5 
21113:0 


:i 


procedure set up_display ( var ierr : Integer); 




2 


var 




21114:0 


-4 2 


i : integer; 




21115:5 








21116:0 


-4 2 


( Purpose: To set up display state after it has been initialized > 




21117:5 








21118:C 


2 


begin 




21119:C 


2 


with gcb" do 




21120:C 


3 


begin 




2U21:C 


3 


with gle_gcb" do 




21122:C 


4 


begin 




2U23:C 


4 


max_di5p_lim.xmin 


= display min x; 




21124:C 


4 


max disp lim.xmax 


= display max x; 




21126:C 


4 


max disp lim.ymin 


= display min y; 




2H26:C 


4 


max_dl5p_lim.yttiax 


= display max_y; 




21127:5 








21128:C 


4 


9le_g«<_Plp2 ( gle_9<:b ); 




21129:5 








21130:C 


4 


def disp lim.xmin 


• infol; 




2I131:C 


4 


def disp lim.xmax 


= info2; 




21132:C 


4 


def disp lim.ymin 


= info3; 




21133:C 


4 


def disp lim.ymax 


= info4; 




21134:C 


4 


end; 




2113S:S 








21136:C 


3 


disp init := true; 




21137 :C 


3 


disp eq loc := ((disp dev adr = loc dev adr) or 




21138 :C 


3 


((disp dev_adr = internal display) and 
(loc_3ev_adr = internal_Tocator ) ) ) ; 




21139 :C 


3 




21140:3 








21141:C 


3 


{ set up display limits > 




21142:3 








21143:C 


3 


with def_disp^lim do 




21144:C 


4 


display_limjts (xmin,xmax, >min, ymax) ; 




21145:3 








21146:C 


3 


< set up default text size and rotation attributes ) 




21147:3 








21148:C 


3 


dgl char width := init char width factor * 




2U49:C 


3 


a&s [window lim.xmax - window lim.xmin); 




21150:C 


3 


dgl char^heigHt := init_char heiqht_factor * 
a^s [window lim.ymax - window lim.ymin); 


11-591 


2U51:C 


3 




21152:C 


3 


set char size ( dgl ch 


3r_width, dgl_char_height ); 
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21163: ; 

211S4:i: 3 char_rot_w := init_char_rot_w; 

21155:C 3 char rot h := init char rot h: 

21156::; " " _ _ _ 

211S7:i: 3 set text rot ( char rot w, char rot h ); 

21158:'; ~ "" - - . _ _ ;, 

211S9:i; 3 ( set up all attributes here ) 

21160::; 

21161:i; 3 dgl_cur rent_polygon edge := true; 

21162:i: 3 dgl_cur renl_polygon~c rosshatch := false; 

21163;:; 3 dgl_cur rent_poIygon_linest yle := init_linest yle; 

21164:i; 3 dgl_cur ren1_polygoh_st yle ;= 1; 

21165;i; 3 dgl_cur rent_polygon_color := init_color; 

21166::: 3 d9l_polygori_color_CLjr rent := false; < color not set in gle ) 

21167:i: 3 d9l_current_polygon_density ;= 0; 

21168:1! 3 dgl current polygon angle :- 0; 

21170::: 3 

21171 ::: 3 ..._ ,, 

21172::: 3 set_line styleTmitJinest yle) ; 

21173:i: 3 set line width init Jinewidth ; 

21174:S ~ ~ 

21175:(; 3 i init_cpy is in device units } 

21178:r. 3 cpx := init_cpx; 

2n77;(: 3 cpy := init cpy; 

21178:;; - 

21179:(: 3 with gle gcb" do 

21180:(: 4 begin ~ 

21181:( 4 niarker_slze_x :- t rune (di5play_re5_x « 2.5 ♦ 0.5); ( markers are 2.5 nm in size > 

21182:( 4 marker_size_y := marker size x; 

21183:1 4 infol := marker_5ize_x; 

21184:t 4 info2 := rrarker_si2e_y; 

21185:( 4 gle_marker_5ize ( gle_gcb ); 



gl_current polygon_angle :- 0; 

et_timing J dql_cur rent_t imming_mode ); 

gl_cur rent_color := -1; < force calc of color ) 

et_color(init_color); 



21186 

21187:( 4 infol ;= 1; 

21188:( 4 gle_graphics_on_off ( glejcb ); ( make sure graphics is on ) 

21189:C 4 end; 

21190:( 3 end; 

21191:C 2 end; ( setup display > 

21192:; K_ K r , 

21193:1 1 procedure display finit ( fname : g5tring255; 

21194:1 2 ~ device name : gstring255; 

21195:1 2 control : integer; 

21196:1 -512 2 var ierr : integer ); 

21197:= 

21198:D -512 2 ( Purpose: To initialize the display device 

21199;; 

21200:1 -512 2 var 

21201:1 -516 2 :nt : integer; 

21202:; 

21203:C 2 bejin 

21204:C 2 :k system init; 

21205:; 

21206:C 2 ( make sure no display is currently enabled ) 

21207:C 2 if disp init then display term; 

21208:E 

21209:C 2 if st r len ( st r r t r im( St r 1 t rim(device name))) <> then 

21210:C 3 with gle gcb" do 

21211 :C 4 begin ~ 

21212:C 4 device_info := addr ( fname [1 ]) ; 
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21213:C 4 device info char count := st rlenf fname ) : 

21214:C 4 spooling := 1; ~ 

21215:C 4 display_name := ' '; 

21216:C 4 display_name_char count := min( st rlen (device name), 6); 

21217:C 4 for cnt : ■= 1 to dTsplay_name_char count do ~ 

212I8:C 5 display name [cnt] ;= device namefcnt); 

21219:C 4 infol := control; 

21220:C 4 info2 ;= 0; < config DGL stuff ) 

21221 :C 4 configure gle (gle gcb); 

21222 :C 4 .-.- . t.^ _.. -_ . 

21223:C 4 

21224:C 4 else 

21225:C 3 ierr := 2; 

21226:5 

21227:: 2 if ierr » then 



21228:C 3 



'y . 



21229:C 4 with gcb" do 

21230:: S begin 

21231:: 5 disp_dev_adr := -1: < indicate file name > 

21232:C 5 di5p_filc name := fname; 

21233:C 6 setup display ( ierr ); 

21234:: 5 end; - •- ' > 

21235:: 4 recover 

2I236:C 4 begin 

21237:C 4 if escapecode = -20 then escape (escapecode) ; { ignor all errors except stop key > 

21238 :C 4 ier r := 2 ; 

21239:: 4 end 

21240:: 4 else 

21241:C 3 ierr := 2; 

21242:5 

21243:0 2 end; < display finit ) 

21244:5 

21245:D 1 procedure display, init ( dev_adr : integer; 

21246:D 2 control : integer; 

21247:D 2 var ierr : integer ); 

21248:5 

21249:D 2 ( Purpose: To initialize the display device ) 

21250:5 ' 

21251 :D 2 var 

21252:0 -12 2 s : stringClO]; 

21253:0 16 2 cnt : integer; 

21254:3 

2126S;C 2 begin 

21256:C 2 ck system init; 

21257:5 

21258:: 2 { make sure no display is currently enabled > 

21259:: 2 if disp init then display term; 

21260;S ~ r '- , 

21261:: 2 with gle gcb" do 

21262:: 3 begin " 

21263:: 3 s := "; 

21264:C 3 st rwrite (s , 1 ,cnt ,dev adr:0); 

21265:: 3 device_info char count := strlen(5); 

21266:0 3 device_info~:» a3dr(5[l]); 

21267:0 3 spooling := 0; 

21268:0 3 infol := control; 

21269:0 3 info2 := 0; < config DGL stuff ) 

21270:0 3 conf i9ure_gle (gle_gcb); -- 

21271:C 3 ierr := error return; ll-oVZ 

21272:C 3 end; 
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21273:S 








21274:C 


2 


if ierr = then 




21276:C 


3 


try 




21276:C 


4 


with gcb^ do 




21277:C 


5 


begin 




21278:C 


5 


disp dev adr := dev adr; 




21279:C 


5 


disp file name := '"^; 




21280;C 


5 


end; 




21281 :C 


4 


5etup_di5play ( ierr ); 




21282;C 


4 






21283:C 


4 


if gle_gcb'^.complement_support = 1 
tnen gle gcb^. cursor := dgl cursor; 




21284:C 


5 




21285:C 


4 


recover 




21286:C 


4 


begin 




21287:C 


4 


If escapecode = -20 then escape (escapecode ) ; { ignor all errors exect stop key ) 




21288:C 


4 


ierr := 2; 




21289:C 


4 


end 




21290:C 


4 


else 




21291:C 


3 


ierr := 2; 




21292;S 








21293:C 


2 


end; ( display.init > 




21294:5 








21295;D 


1 


procedure Iocator_init ( dev adr : integer; 




21296:D 


2 


var ierr : integer ); 




21297;S 








21298 :D 


2 


{ Purpose: To initialize the locator device } 




2I299:S 








21300:0 


2 


var 




21301:0 


-12 2 


s : string[10]; 




21302:0 


-16 2 


i : integer; 




21303:3 








21304:C 


2 


begin 




2130S:C 


2 


ck_system_init; 




21306:5 








21307:C 


2 


\ make sure no locator is enabled > 




21308:C 


2 


If loc_init then locator_term; 




21309:3 








21310:C 


2 


{ try to init a locator > 




21311:5 








21312:C 


2 


if disp init then make pic current; 




21313:3 




" 




21314:C 


2 


with gcb'^,gle_gcbi'^ do 




2131S:C 


3 


begin 




21316:C 


3 


s := " ; 




21317:0 


3 


strwrite(s,l,i .dev_adr :0) ; 




21318:C 


3 


device info char count := strlen(s); 




21319:C 


3 


device_info := a?dr(s[l]); 




21320:C 


3 


infol := 0; < init sample loc value ) 




21321 :C 


3 


info2 := 0; 




21322:C 


3 


conf igure,_input_gle ( gle_gcbi ]; 




21323:C 


3 


ierr := er rorreturn; 




21324:3 








21325:C 


3 


if ierr = then 




21326:C 


4 


begin 

loc init := true; 




21327:C 


4 




21328:C 


4 


loc_dev_adr := dev_adr; 




21329:S 








21330:C 


4 


with gle gcbi^,gcb^.max loc lim do 




21331:C 


5 


begin " 




21332:C 


5 


xmin := input_min_x; 
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21333:C 


5 


xmax := input max x: 




21334 :C 


5 


ymin 


= input min y; 




2133S:C 
21336:C 


5 

5 


ymax 

end; 


= input_max_y; 




21337:3 








21338:C 
21339:5 
21340:C 


4 


gle_get_input_plp2 ( gle_gcbi ); 




4 


with gle gcbi^.gcb^.gcb^.def loc lim do 




21341:C 


5 


begin 




21342:C 


5 


xmin 


- infol; 




21343:C 


6 


xmax 


= info2; 




21344:C 


5 


ymin 


= info3: 




21345:C 


5 


ymax 


= info4; 




21346:C 


5 


end; 




21347:5 








21348:C 


4 


di5p_eq_loc := disp_init and 




21349:C 


4 


[disp_dev_adr = loc_dev adr) or 




21350:C 


4 


(disp dev adr = internal display) and 
loc_dev_aHr = internal_locator) ) ) ; 




213S1:C 


4 




21352:5 








21353:5 




< If locator is not the same physical device as the graphics display, 




21354:5 




then the locator limits are set to the default locator limits. 




21355:5 




If the locator is the same device, then the locator limits 




21356:C 


4 


are set to the current display limits. > 




21357:5 








21358:C 


4 


with gcb^ do 
begin 




213S9:C 


5 




21360:C 


5 


If disp_eq_loc then 




21361:C 


6 


with cur disp lim do locator limits (xmin, xmax, ytnin, ymax) 




21362:: 


7 


else 




21363:C 


6 


with def loc lim do locator limits (xmin, xmax, ymin, ymax) ; 




21364:C 


6 


end; 




2136S:C 


4 


end 




21366:C 


4 


else 




21367:C 


4 


ierr := 2; 




21368:C 


3 


end; 




21369:C 


2 


end; < locator init > 




21370:5 




~ 




21371:5 








21372:0 


1 


procedure graphlc5_init ; 




21373:3 








21374:0 


2 


< Purpose: To Initialize the graphics system ) 




21375:3 








21376 :C 


2 


&egin 

\ make sure the system is not already init } 




21377:C 


2 




21378:C 


2 


if system_init then graphics_term; 




21379:3 








21380:C 


2 


( set state flags ) 




21381:C 


2 


system init : ■= true; 




21382:C 


2 


disp iiiit := false; 




21383:C 


2 


loc_Tnit := false; 




21384:3 








21385:5 








21386:C 


2 


( get storage space -- changed from dynamic to global 2/84 BOS > 
gcb := addrigcb_space) ; ( OGL high level storage > 




21387:C 


2 




21388:3 








21389:C 


2 


gle gcb := addr{qle_9cb space); < display output device > 
gle_init_gcb ( gle_gcb J; 




21390:C 
21391:C 


2 

2 


11-593 


21392:C 


2 


gle„gcbi := addr(! 


le_gcbi_space ) ; { locator input device } 
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21393:C 


2 


21394 ;S 




2139S;C 


2 


21396:C 


2 


21397:C 


2 


21398:S 




21399:S 




21400:C 


2 


21401 :C 


2 


21402:C 


3 


21403:5 




21404:C 


2 


2140S:C 


2 


2I406;C 


3 


21407:C 


3 


21408;C 


3 


2I409:C 


3 


2I410:C 


3 


21411 :C 


3 


21412:C 


3 


21413:C 


3 


21414:C 


3 


21415:C 


3 


21416:8 




21417:C 


3 


214I8:S 




21419;C 


3 


21420:C 


4 


21421:C 


3 


21422:C 


4 


21423:3 




21424:C 


3 


2142S:S 




21426:C 


3 


21427:C 


3 


21428:C 


3 


21429:C 


3 


21430:C 


3 


21431 :S 




21432:C 


3 


21433:S 




21434:C 


3 


21435:C 


3 


21436:3 




21437:C 


3 


21438:C 


3 


21439:3 




21«40:C 


3 


21441 :S 




21442:C 


3 


21443:5 




21444:C 


3 


21445:C 


3 


21446:C 


3 


21447:C 


3 


21448:C 


3 


2J449:C 


3 


21450:C 


3 


21451 :C 


3 


21452 ;S 
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gle_init_input_9Cb ( gle_gcbi ) ; 

cle_kriob_echC'_gc:b ;= addr (gle_knob_echo_qcb_space) ; 

(knob echo output device (internal crt)) 
9le_init_gcb ( 9Je_knob_echo__gcb ) ; 

( kbdlang jumper is imported from sysglobales. Kata becomes true if 

the kata keyboard is instaled ) 

if kbdJang = katakana_kbd then gle_gcb'" . k at a := 1 
else gle_gcb''. k.at a :- 0; 

{ set up def au Its ) 
with gcb'^ do 
begin 

< Uhen first inited that display and locator are the same device ) 
di5p_eq_loc := true; 

disp_dev_adr := i ni t_dev_adr ; 
disp file name : = ' ' ; 

loc 3'ev adr := init_dev adr; 

win3ow_Tim :- init_win3ow; 

aspect_ratic := init_aspect; 

cur_vir_lim := ini t_vi r_lim; 

viewport_l.im := ini t_viewport ; 

< setup the default display/ locator limits to some large number ) 

with init_di5play lim do 

display_limit 5 T i^min, xmax, ymin, ymax ); 
with inlt_locator lim do 

locator_limit s T xmin, xmax, ymin, ymax ); 

{ explicitly set the cp to init_value ) 

cpx := init_cpx ; 
cpy := init_cpy; 
int cp := true; 
worTd_int_cpx := init_cpx; 
world_int_cpy := init_cpy; 

( set up default text size and rotation attributes > 

dgl_char_widt h :- ini t_cha r_widt h; 
dgl_char_lieight : = init_char_height ; 

char_rot_w := ini t_char_rot_w; 
char_rot_h ;= ini t_cha r_rot_h ; 

( set flag, indicating that The text xform needs to be recalulated ) 

calc_text_xform := true; 

dgl__currenT_color ;= init^color; 
dg]_current_linestyle := Tnit_line5tyle; 
d9l_currem_linewidth := ini t_linewid th ; 
dgl_curren1_t imfning_mode := i nit_t imming^mode ; 
cur5or_color := init color; 
disp just := centered: 
dispTay_echo_mult : ^ i ; 
9raphics_e r ror := 0; 
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3 nLjmber_polygon_st yles := default_poly table_size; 

3 cold r_table_5i2e : = def aul t_color_t abTe_5ize ; 

3 dgl_current~polygon_color := 1 ; 

3 dgl_cur rent_polygon_linest yle ;= 1; 

3 dgl_current_polygon_densit / := 0; 

3 dgl_cur rent_polygon_angle := 90; 

3 dgl_cur rent_polygon_edge := true; 

3 dgl_cur rent_polygon_cro55hatch ;= false; 

3 dgl_cur rent _polygon_st vie ;= 1 ; 

3 dgI_current_color_model := 1; 

3 end; 

2 end; < graphic5_init ) 

1 end. {module 0GL_LI8> 

1 

1 $LI3T 0N$ 

No errors. No warnings. 

*x*XM Nonstandard language features enabled ***** 
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LIBRARIAN 



Description 

The LIBRARIAN is a utility program used to create libraries, to link modules together or to 
disassemble code files. 



Usage 

The LIBRARIAN is invoked from the main command level by pressing "L" . 



Requirements 

SYSGLOBALS, FS, ASM, MISC, LOADER, LDR, SYSDEVS, and CI. 



Notes 

The LIBRARIAN is sometimes called the '"Linker"; however, it is not the same as the "linking 
loader" found in INITLOAD. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-PzLckard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 
2;S 
3:S 



9 
10 

U:S 
12:S 
13 
14 
15 
1 



17 
18 
19 
20 
21 
22 
23 

24 :D 

25 :S 
26:S 
27:0 
28 
29 
30 
31 
32 
33 
34 
35 
36 

37:D 
38:0 
39:D 
40:0 

41 :0 

42 ' 
43 
44 
45 
46 
47 
48 
49 
50 
SI 

52:0 
63:D 
54:0 
55:0 
66:0 
S7:S 
58:D 
59:D 
60:D 



[CI Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
repoduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use. duplication, or disclosure by the Government 
is -iubject to restrictions as set forth in 
par.igraph (b) (3) [B) of the Rights in Technical 
Oat. I and Computer Software clause in 
DRR 7-104. 9(a) . 

HEWl ETI-PBCKflRD COMPflNV 
For- Collins, Colorado *) 

StlMiCOL, debug off,iocheck off, range of f ,ovf Icheck off$ $ref 50J 

pro<iram linke r ( input , output, keyboard); 

1 import sysglobals , f s, loade r , Idr , asm,sysdev5,ci ,misc; 



conft pagelines == 63 
pageblocks = 2 
entrysize - 26 



-2 
-4 
-18 
-100 
-100 
-264 
-928 
-928 
-932 
-932 
-932 
-932 
-932 
-939 
-940 
-944 
-948 
-952 
-956 

-960 
-964 

-968 



address = integer; 
point = ^integer; 



keyboard: 


text; 


todaysdate: 


daterec; 


linkerdate: 


daterec ; 


tempsT ring: 
gvaluest ring : 


St ring [12] 


St ringSO; 


copyright , 
list filename: 




sTringSO; 


listing; 


text; 


pagenum, 




linen urn: 


shortint ; 


linking, boot 2 


rig. 


outopen , 




verifying, def 


soul , 


print open, 




printeron : 


boolean; 


comma ndchar : 


char; 


St ar t gvr: 


addrec; 


St ar t gvrnnod : 


moddescpt r 


modsave : 


moddescpt r 


i n f s t ; 


addrec ; 



ires: integer; 
errors: integer; 
esccode: integer; 



(saved ioresult) 
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61 :D 

62:S 

63:0 

64:0 

65: 

66: 

67: 



75: 

76; 

77: 

78:0 

79:0 

80:0 

81 :D 

82:0 

83:0 

84:0 

8S: 

86: 

87: 



100 

101 

102 

103 

104 

105:S 

106:0 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117:C 

118:C 

119:C 

120:C 



-976 

1058 
1060 

1060 
1064 
1728 
1728 
1736 
1740 
1822 
1826 
1826 
1834 

1834 
1838 
1842 
1842 
1850 
1854 
1858 
1862 
1866 
1870 
1874 



89: 

90: 

91: 

92: 

93: 

94: 

95:0 

96:C 

97:S 

88:0 
C 
C 
C 
C 
C 
C 



lowheapO, highheapO : addrec; 



inf ilename : 
vmodnum: 



stringSO; 
shortint ; 



(output file information: > 



outdi rectory: 
out file : 
f irstoutblock, 
outblock : 
nextblock : 
out filename : 
outmodnum: 
outdirect size, 
maxmodules : 



addrec; 
phyle; 

intege r ; 
intege r • 
St ringSO; 
integer ; 

integer; 



(linker information: ) 
totalpatchspace : integer; 
patchbytes: integer; 
backwardpatches, 
forwardpatches: moddescptr; 



newmodname; 
infostart : 
newexttable: 
newextsize : 
newdirectory: 
loadgvr ; 



addrec; 

addrec; 

address; 

integer ; 

addrec; 

gvrptr; 



(new library directory pointer) 
(file being written) 

(next block within library to write) 
(next block within module to write) 

(number of modules created so far) 



(bytes of patch space) 



(new name for linked module) 
(pointer to bottom of linker memory) 
(location of new EXT table) 
(sire in bytes of EXT table) 
(pointer to new module directory) 



1 procedure dobeep; 

2 begin beep;if streaming then e5cape{-l); end; 

1 procedure errorline; 

2 begin ires := ioresult; fgotoxy(output , 0, 22); write (bellchar, cteol); end; 

1 procedure ioerror; 

2 begin write(' ioresult = ',ires:l); escape(123); end; 

1 procedure getcommandchar (s : St ringSO ; vsr c:char); 

2 begin 

2 fgotoxy(output,0,23) ; wr ite (s ,c teol ) ; 
2 re.Jd (keyboard, c) ; 



2 fqotoxy(output,6,22) ; writeln (cteol) ;wr ite (cteol) 
2 if (c>='a') and (c<«'2') then c:= chr (ord c) -32) ; 



proc»!dure wri tedate (var f: text; date: daterec); 

type months = packed array[0..35j of char; 

const monthname = months [ JanFcbNarfiprMayJunJulftugSepOctNovDec'] ; 

var 1 , j : shor tint ; 

begi n 

with date do 

be<!in [ 

if (month in [l..ll2]) and (day>0) 

and (year<100) then 

begin ( Valid date 

wr He ( T , day:2 . ' -' 

J := (month - 1 ) * 

for i := 1 to j+2 do write(f, monthname[i] ) 

write(f, '-',year:2); 

f-nd 
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121 :C 

122:C 

123:C 

124:S 

12S:D 

126: 

127: 

128: 

129: 

130: 

131: 

132: 

133: 

134: 

13S: 

136: 

137: 



138:C 



13 

140:C 

141:C 

142:S 

143:D 

144:S 

145:S 

146:D 

147:S 

148:D 

149:D 

160:D 

161:0 

152:D 

163:0 

164:0 

165:S 

156:0 

157:C 

158:C 

169:C 

160:C 

161:S 

162:C 

163:C 

164:C 

16S:C 



166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
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else write(f, '<no date>') 
1 end; 
: end; (datestring) 

procedure gbytes(var p: integer; size: integer); 
: begin 

p := lowheap.a; lowheap.a := lowheap.a + size; 

if lowheap.a > highheap.a then escape(112); 
: end; 

procedure blockwrite (anyvar f: fib; aryvar obj: window; blocks, block : integer) 
begin 

call (f.am, addr(f), writebytes, obj, blocks'fblksize, block«fblksize) ; 

if ioresult <> ord (inoer ror) then escapelllS); 
end; 

procedure readblocks ( var f: fib; anyvar obj: window; size, block: integer); 
begin 

call (f.am, addr(f), readbytes, obj, size, block«fblksize) ; 

if ioresult <> ord ( inoerror ) then escape(-lO); 
end ; 

1 procedure gvrst ring (var gvp:gvrptr; var val:integer; pcrel,nore5; boolean); 

(*advances g past the GVR, adds any absolute part to VflL, 

2 and constructs a string representing the GVR in gvaluestring «) 

2 type 

2 rpp « ^referencept r ; 



Rcoun t : 

done: 

$■■ 



short int ; 
boolean; 
gvrptr; 
integer ; 



procedure 5ign(5ub: boolean); 
begin 

if sub then sappend(gvaluest ring, ' - ' ) 

else if St rlen (gvaluestring )>0 then 5append(gvaluest ring, ' 
end; 

begin (gvrstring) 
gvaluestring := ''; Rcount := 0; 

repeat 
if pcrel then g := loadgvr 

else 9 := gvp; 
if g <> NIL then with g" do 
begin 
if longoffset then 

9 :=gv rpt r ( integer (g)+sizeof(generalvalue,t rue)) 
else 

g:=9vrpt r( integer (g)+5izeof(generalvalue, false)); 
if valgeextend tnen 
begin 

if not pcrel then val:= val + vept r (g 1^ .value; 
g:=gvrptr(integer(g)+sizeof(valueextension,5int)); 
end ; 
case primarytype of 
absolute: {no more value); 
relocatable: Rcount := Rcount + 1; 
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181 :C 


6 


182:C 


6 


183:C 


6 


184:C 


6 


185;C 


6 


186:C 


8 


187:C 


8 


188:C 


9 


189:C 


10 


190:C 


10 


191:C 


10 


I92:C 


10 


193:C 


10 


194 :C 


10 


195:C 


11 


196:C 


11 


197:C 


10 


I98:C 


8 


199:C 


8 


200 :C 


8 


201 :C 


7 


202 :C 


6 


203:C 


6 


204 :C 


5 


20S:C 


6 


206:C 


3 


207:C 


3 


208 :C 


2 


209 :C 


3 


210:C 


3 


211:C 


4 


212:C 


3 


213:C 


2 


214:C 


3 


215:C 


3 


216:C 


3 


217:C 


3 


218:C 


2 


219:S 




220:S 




221:0 


1 


222 :D 


-4 2 


223:C 


2 


224 :C 


2 


225 :C 


2 


226;C 


3 


227:C 


3: 


228:C 


3 


229:C 


3 


230;C 


3 


231 :C 


2 


232:C 


2 


233:C 


2 


234 :C 


2 


235:C 


2 


236:C 


2 


237:C 


2 


239:C 


2 


239:C 


2: 


240:S 
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global: begin sign (false); sappend(gvaluestring,'Gba5e'); end; 
general : 
begin 

done ;= false; 
repeat with rpp[g)" do 
begin 
if adr=0 then 

if op=addit then Rcount := Rcount + 1 
else Rcount := Rcount - 1 
else if adr=l then 

begin sign [op=subit ) ; sappendfgvaluest ring, 'Gbase' ) ; end 
else 

begin sign rop=5ubit ) ; 

if newmods . unresbits .brnp^Jadr] or no res 

t her 5 append (gvaluestring, syn^olpt r (newexttable+4«adr)'^} 
else 5 append (gvaluestring, symbol pt r [point (newexttable+4»adr)^)'*) ; 
end ; 
done := last ; 

g := gvrptr(integer (g)*si2eof ( referencept r) ) ; 
end; 
until done; 
end; {general) 
end; {primarytype cases) 
if not pcrel then gvp := g; 
end: {with g") 
pcrel := not pcrel; 
until pcrel; 
while Rcount <> do 
begin sign ( Rcount <0); s append (gvaluestring, 'Rbase' ) ; 
if Rcount < then Rcount := Rcount ♦ 1 
else Rcount := Rcount - 1; 
end; 
if (val <> 0) or (st rlen (gvaluest ring)=0 ) then 
begin 

if val >» then 5ign(fal5e); 

5trwrite(gvaluestrirg,strlen(gvalue5trin9)+l,i,val:l); 
end ; 
end ; (gvrstring) 

procedure printheader (var f: text); 
var time : timerec ; 
begin 
write(f, 'Librarian [Rev. 3.0 '); 
if ioresult <> then 
begin 

prjntopen := false; 
pr interon := false; 
escape(118) ; 
end; 
writedate(f, linkerdate); 
write(f,'j',' ':7); 
wrjtedate(f, today sd ate); 
syst ime [ time) ; 
with time do write[f, hour: 



if pagenum > 

writeln(f]; 
writeln(f); 

end ; 



, minute; 2, ':' ,cent isecond div 100:2); 



then vi/rite(f , 'page ' : lO.pagenum; 1 ) ; 
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241:D 1 procedure pageeject; 

242:D -4 2 var i: integer; 

243:C 2 begin 

244;C 2 if linenum > then page (listing) ; 

245:C 2 linenum := 0: 

246:C 2 end, 

247:S 

248:D 1 procedure list; 

249:C 2 begin 

250:C 2 1'' linenum >= payelines then pageeject; 

251 :C 2 i'' linerum = tnen 

252:C 3 begin 

253:C 3 pagenum := pagenum + 1; 

254:C 3 print heade r ( 1 i;=t ing) ; 

255:C 3 linenum := linenum + 2; 

256:C 3 end; 

257;C 2 l:nenum := linenum + 1; 

258 :C 2 end, 

259 : S 

260:D 1 procedure listln; 

26l:C 2 begin writeln (list ing) ; linenum := linenum + 1; 

262:C 2 end; 

263 :S 

264:D 1 procedure quit; 

265:D -1 2 var ch: char; 

266:C 2 begin 

267:C 2 it (outopen and |outmodnum>0 ) ) or 

268:C 3 (booting and ioutblock>0) ) then 

269:C 3 begin 

270:C 3 er rorline; 

271 :C 3 if booting Then wr iteln( 'UnRNING: You didn'M finish booting') 

272:C 4 else writeln{'LJi^RNING: Youdidn''T "Keep" the output file.'); 

273:C 3 if streaming then escape(123) 

274:C 4 else 

27S:C 4 begin 

276:C 4 wntel'fire you sure you want to quit? (type Y if yes) '); 

277:C 4 read ( keyboa rd , ch); 

278:C 4 if (cho'y') and (cho'Y') then commandchar := ' '; 

279 :C 4 end; 

280:C 3 erd; 

281:C 2 end; 

282:S 

283:0 1 function readint(vair value: integer}: boolean; 

284:D -82 2 var s: stringSO; 

285:D -86 2 i: integer; 

286:C 2 begin 

287:C 2 readln(5); 

288:C 2 st rread [s, 1 , i , value) ; 

289:C 2 if lo r esuit <>ord ( inoer ro r ) then 

290:C 3 if i <= strlenfs) then e5cape[124); 

291:C 2 readint := io resu 1 t=ord ( inoe r ro r ] ; 

292:C 2 end; 

293:S 

294:0 1 procedure unassemble; 

295 :S 

296:D 2 type hex = 0. .15; 

297:D 2 htoctyp = array[0..15] of char; 

298 :D 2 decodestatetype = {con5t5,code,abscode,startcase,ca5etable,endofproc,quittype, no type) 

299:S y ,^ }y . jy I 

300:D 2 con^t htoc = htoct yp[ '0 ' , ' 1' , '2 ' , ' 3 ' , '4 ' , ' 5 ' , ' 6 ' , ' 7 ' , '8 ' , '9 ' , ' R' , ' B ' , 'C ' , 'D ' , 'E ' , ' F ' ] ; 
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301 :S 

302:0 2 var 

303:0 -4 2 nilgvr: gvrptr; 

304:0 -5 2 dumped: boolean; 

305:0 -6 2 fort ranf lag: boolean; 

306:0 -8 2 rangetype: (no range, pc range, linerange); 

307:0 ^20 2 lowrange, highrange, lastline: integer; 

308:0 -24 2 de:odest ate,oldst ate: decodestatetype; 

309:0 -36 2 PC , t ablePC ,casecodest ar t : integer; 

310:0 -40 2 codecount: integer; kbytes left in current inbuf) 

311:0 -44 2 codeinde>i;: integer; {next byte of code in inbuf) 

312:0 -46 2 instrsize: 0..10; {byte count of current instruction) 

313:0 -58 2 refgvr: addrec; refli(n,refloc: address ; 

314:0 -66 2 inouf , ref pt r : addrec; 

315:S 

316:0 2 procedure dumpmod (mprmoddescpt r ) ; 

317:0 -4 3 var junkint: integer; 

318:0 -36 3 producername : 5tring[30]; 

319:0 -40 3 textstep: addrec; 

320 :S 

321 :C 3 begin {dumpmod) 

322:C 3 dumped := true; 

323:C 3 witn mp^,di rectory. drp" do 

324:C 4 begin 

325:C 4 pajeeject ; 

326;C 4 te-;t5tep.a:=directory. a* sizeof (moduledi rec to ry ) ; 

327:C 4 li^t;write(li5ting, 'hOOULE ' ) ; 

328:C 4 if st rlen( textstep. syp") = then write ( list ing, ' [no name)') 

329:C 5 el5ewrite(listing,textstep.syp'^); 

330:C 4 wr itedisting,' Created '); 

331 :C 4 writedate (listing, date); writeln (listing); 

332:C 4 list; write (list ing, 'NOTICE : '); 

333:C 4 if si rlen(not ice)=0 then writeln ( li st ing ,'( none 1 ' ) 

334:C S else wr itein ( li st ing , not ice ) ; 

335:C 4 fo^-tranflag := (producer = 'F'); 

336:C 4 ca'ie producer or 

337:C 5 'fl': producername := 'llodcal Compiler'; 

338 :C 5 ' P' : producername := 'Pascal Compiler' ; 

339;C 5 'L': producer name ;= 'Librarian'; 

340:C S 'F': producername := ' FORTRAN Compiler ' ; 

341:C 5 'B'; producername := 'BPSIC Compiler'; 

342:C 5 'R': producername := 'Assembler'' 

343 : C 5 'C ' ; producername := ' ' 'C ' Compiler'; 

344:C 5 '0': producername := 'Rda Compiler'; 

345:C 5 otherwise producername := '" "'; 

346 :C 5 producername [2] := producer; 

347:C 5 end; 

348:C 4 lir.t; wr ite j list ing, ' Produced by ', producername, ' of '); 

349 :C 4 writedate (listing, revision); writeln(listing); 

350;C 4 if systemid = then systemid := 1; 

351:C 4 list; writeln(listing,' Revision number ', systemid:!); 

352:C 4 list; writelnfiisting,' Directory size ',directorysize:6,' bytes'); 

353:C 4 list; writelnfiisting,' tlodule size ' .modules ize :6,' bytes'); 

354 :C 4 ]urikint; = strlen(textstep.syp'~'); 

355 :C 4 text step. a := textstep- a + junkint*2-ord (odd (junkint ) ) ; 

356 :C 4 ifexecutable then 

357 : C 6 t>egi n 

368:C 5 startgvr := textstep; T| CQQ 

369:0 5 junkint := 0; 11-07O 

360:C 5 Qvr5tring(t ex tsiep.gvp, junkint, false, false); 
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«*« 


361:C 




5 


list; writeln (listing, ' Execution address ' ,gvaluest ring) 






362:C 




5 


end 






363:C 




5 


else 






364 :C 




5 


begin 






365:C 




5 


startgvr .gvp:-NIL; 

list; writelnflisting, ' nodule NOT executable'); 






366:C 




S 






367;C 




5 


end; 






368:C 




4 


list; writeln(listing, ' :ode base ' , relocatablebase, 






369:C 




4 


' Size ' , relocatablesize , ' bytes'); 






370:C 




4 


list; writeln(listing, ' Global base ' jjlobalbase, 

' Size ' ,glcbalsize, ' bytes'); 






371 -.C 




4 






372:C 




4 


if extsize <= 8 then extsize := 0; 

list; writelndisting,' EXT block ' ,extblock :3 , ' Size ' 






373:C 




4 


, extsize, 




374 :C 




4 


' bytes' ) ; 
list; writeln(listing, ' DEF block ' ,defblock :3 , ' Size ' 






37S:C 




4 


,def5lze, 




376 :C 




4 


' byles' ); 






377:C 




4 


list; 






378:C 




4 


if sourcesize <:> then 






379:C 




5 


luritelnllisting, ■ EXPORT block ■ , sou rceblock : 3, ' Size 


' , 




380 :C 




6 


sourcesize,' bytes') 






381:C 




5 


else 






382 :C 




5 


writeln(li5ting,' No EXPORT text'); 






383:C 




4 


list: writeln(listing, ' There are ', text records, ' TEXT records 
listln; listln; 


'); 




384 :C 




4 






385:C 




4 


end; {with mp^, directory^) 






386:C 




3 


end; {dumpmod) 






387:S 












388:D 




2 


procedure prepunassem; 






389:D 


-4 


3 


van i: integer; 






390 ;C 




3 


begin 






391:C 




3 


modsave := newmods; 






392 :C 




3 


newmods := NIL; 






393 :C 




3 


infost := lowheap; 






394 :C 




3 


loadinfo (vmodnum, true, true); 






395 ;C 




3 


with newmods'^, directory .drp'^ do 






396 ;C 






begin 






397 :C 






newexttable := extaddr.a; 






398 :C 






gbytes(unresbits.a, ((extsize div 4 » 15) div 16)«2); 

tor i := 2 to extsize div 4 - 1 do urresbit s . brnp^Ci] ;= false: 






399 :C 










400:: 






for i := 2 to listsize-1 do unresbits , bmp" [list addr'^[i] div 4] 


:= true; 




401:C 






end; 






402 :C 




3 


if not dumped then dumpmod(newnicds) ; 






403:: 




3 


end; 






404 :S 












406 :D 




2 


procedure nextref; 






406:: 




3 


begin 






407:: 




3 


if refgvr.a < reflim then 






408:: 




4 


if refgvr ,gvp^. longof fset then 






409:: 




5 


refloc:=refloc+refgvr.gvp".lorg 






410:: 




5 


else 






411 :: 




5 


refloc : =refloc+ re fgvr.gvp^. short; 






412:: 




3 


end : 






413:S 












414:D 




2 


procedure list inst ruction ; 






41S:D 




3 


type regtype = (0,9); 
regrange = 0. .7; 






416:D 




3 






417:D 




3 


siz = (bytesiz,wordsiz , longsiz, invalid) ; 






418:D 
419:S 
420:D 




3 


opsizetype = ar ray[bytesiz . . longsiz) of string[3]; 








3 


const opsize = opsizetype [' .b ' , ' .w ','.1 ']; 
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*** 


421:S 












422 :D 




3 


var 






423:0 


-10 


3 


hexout : packed ar ray[0 . .4 ,0. .3] of hex; 






424:0 


-11 


3 


firstline: boolean; ( 1st line of current instruction? > 






425:0 


-14 


3 


bytesleft: 0..10; ( to be listed ir current instr ) 






426:0 
427 :S 
428:0 


-270 


3 


instrbuf: st ring [255] ;< alpha forrr of instruction } 






-270 


3 


instr: packed record case integer of 






429:0 


-270 


3 


1 : (opcode: 0. .15; 






430:0 


-270 


3 


case integer of 






431:0 


-270 


3 


1: (cond: 0..15; 






432:0 


-270 


3 


displ: -128. .127); 






433:0 


-270 


3 


2: ( regl : regrange; 
opmode: 0. .7; 






434:0 


-270 


3 






435:0 


-270 


3 


earnode; 0. .7; 






436:0 


-270 


3 


eareg: regrange); 






437:0 


-270 


3 


3: (dummy: 0. .7; 






438:0 


-270 


3 


bitS: boolean; 






439:0 


-270 


3 


size: siz) 






440:0 


-270 


3 


); 






441:0 


-270 


3 


3: (w: shortint); 






442:0 


-270 


3 


4: (lb, rb: byte); 






443:0 


-272 


3 


end; <instr> 






444 :S 












445:0 


-272 


3 


ext ; packed record 






446:0 


-272 


3 


case integer of 






447:0 


-272 


3 


1 : uwordext : . .65535) ; 






448:D 


-272 


3 


2: wordext; shortint); 






449:0 


-272 


3 


3 : longext : integer) ; 






450:0 


-272 


3 


4: regclass: regtype; 






451:0 


-272 


3 


reg: regrange; 






452:0 


-272 


3 


long: boolean; 






453:0 


-272 


3 


durrmy: 0. .7; 
byteext: -lis. .127); 






454:0 


-272 


3 






455:0 


-272 


3 


5: (mask: packed array [0..15] of boolean); 






456:0 


-276 


3 


end; 






457:5 












458:0 




3 


procedure emitint(val: integer); 






459:0 


-4 


4 


var i: integer; 






460;: 




4 


begin 






461:: 




4 


strwrite(instrbuf , st rlen(in5t rbuf ) +1 , i, val:l): 






462:: 




4 


end; 






463:S 












464 ;D 




3 


procedure conma ; 






465:: 




4 


begin sappend (inst rbuf , ','); end; 






466:S 












467:0 




3 


procedure space; 

begin sappend (inst rbuf , ' '); end; 






468:: 




4 






469:S 












470:0 




3 


procedure print inst rword; 






471 :D 


-4 


4 


var k; integer; 






472:: 




4 


begin write [listing, ' ' ) ; 
for k := to 3 do 






473:: 




4 






474:: 




5 


write(listing,titoc[hexout [ (instrsize-bytesleft ) div 2,k]]); 
bytesleft := bytesleft-2; 






475:C 




4 






476:: 




4 


end; 






477:S 












478:0 
479:: 




3 
4 


procedure getinst rbytes (size : shortint); 
begin 




11-599 


480:: 




4 


if codecount < size then e5cape(121); 
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481 :C 


4 


<82:C 


4 


483:C 


4 


4S4:C 


4 


48S:C 


4 


486:C 


4 


4B7:S 




488:0 


3 


489:C 


4 


490:C 


4 


491 :C 


4 


492;C 


4 


493:S 




494:0 


3 


49S:C 


4 


496:C 


4 


497:C 


4 


498 :C 


5 


499:C 


5 


500 :C 


5 


501 :C 


5 


502 :C 


5 


S03:C 


6 


504 ;C 


6 


SOS:C 


5 


506 :C 


5 


507 :C 


5 


508:C 


4 


609:S 




510:0 




511:0 


-12 4 


512:C 




513:C 




514:C 




S15:C 




516:C 


5 


517:C 


5 


518:C 


5 


519:C 


5 


520 :S 




521:C 


4 


522 :C 


5 


523:C 


6 


524 :C 


5 


625 :C 


5 


526:C 


6 


S27:S 




528:C 


4 


529:C 


4 


530:C 


5 


531:C 


6 


532:C 


4 


533:C 


4 


534 :C 


5 


535:C 


5 


536:C 


5 


537:C 


5 


538:C 


5 


539 :C 


5 


540 :C 


4 
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moveleftfinbuf. 5tp^ [code index] , ex t, size) ; 

movelef t (ext , hexout [inst rsize div 2], size); 

instrsize := in5t rsize+size; 

codeindex := codeindex+size; 

codecount :« codecount-size; 

end; 

procedure get in&t r jction; 

begin 

inst rsize := 0: 

get irst rbyte5(2) ; instr.w := ext.wordext; 

end; 

procedure defineword; 

begin 

inst rbuf := 'dew ' ; 

with Instr do 

oegin 

emit int (wj ; 

while St r Jen ( inst rbuf ) < 11 do space; 

sappend ( inst rbuf , ' or dc.b '); 

emit int (lb) ; comma; emitint(rb); 

while St rlen(inst rbuf ) < 30 do space: 

5append(instrbuf , ' or dc.b '' '''); 

if [lb >= 32) and (lb < 127) then instrbuf[43] :- 

if (rb >= 32) and (rb < 127) then instrbuf[44] := 

end; 
end; 

procedure extend (size: integer; pcrel; boolean) ; 
var offset, location, PCtemp: integer; 
begin 

location := PC-*-in5t rsize; 
if size = 1 then {byte extension) 
begin 

PCtemp :« location + 1; 
size := 2; 
end 
else PCtemp :■= locat ion; 

while ( refgvr .a<reflim) and ( refloc<PCtemp) do 
begin 

offset := 0; 
gvrst ring(refgvr .gvp, offset , false, false) ; 

next ref ; 
end; 

getinst rbytes [ size) ; 

If oddfPCtempl then offset ;= ext.byteext 

else if size == 2 then offset := ext.wordext 

else offset := ext.longext; 
if pcrel then offset := offset + location; 
if refloc=PCtemp then 

begin 

gvrst ring (refgvr .gvp, of f set , pcrel, false] ; 

next ref; 

end 
else 

gvrst ring [n:Llqvr .offset , pcrel , false) ; 
s append (inst rbuT,gvaluesT ring); 



chr (lb) ; 
chr(rb); 
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541 


:C 


542 


:S 


543 


:0 


544 


:D 


545 


:D 


548 


:D 


547 


:0 


548 


:D 


549 


:D 


550 


:S 


551 


:D 


552 


:S 


553 


:D 


554 


:D 


556 


■s 


566 





557 





558 


S 


559 


a 


560 


a 


561 





562 


s 


563 


s 


564 





665 





566 


c 


567 


c 


558 


c 


569 


c 


570 


s 


571 


D 


572 


c 


573 


c 


574 


c 


575 


c 


576 


c 


577 


c 


578 


c 


579 


s 


580 


a 


581 


c 


682 


c 


563 


c 


584 


c 


585 


s 


586 





587 


c 


588 


c 


589 


c 


590 


s 


591 


D 


592 


c 


593 


c 


594 


c 


595 


s 


596 


D 


597 


c 


598 


c 


599 


c 


600 


s 
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end; 



procedure decode; 

label 1,2; 

type 

opndtype = (50jrce,dest ) ; 

regsymtype = array [regtype] of string[l]; 

extsiztype = ar ray [bytesiz .. longs iz] of 1. 

arithoptype = arrdy[8..13] of string[3]; 

condcodetype = srray[0..15] of stringt2]; 



regsym = regsymtype [ 'd' ' a' ] ; 
extsize " extsiztype [1 ,2,4] ; 

condcode = condcodetype t ' t ',' f 
'vc ' . ' 
arithop = arithoptype[ 'or ' , 



5 'cc' , 'cs' , 'ne' , 'eq' 



,'f','hi' 'is' 

' ,'vs' .'pl','mi','ge' 'It' . 'gt', 'le']; 

' sub' , " , 'cmp' , ' and ' , add' j ; 



4 procedure osize; 

5 var size : siz ; 

5 begin size := instr. size; 

5 if size = invalid then goto 2; 

5 sappend( instrbuf, ops ize [size]) 

5 end; 



procedure emitdir [ regclass : regtype; reg: regrange) ; 
begin if (regclass » fi) and (reg = SP) then sappendjinst rbuf , ' sp' ) 
else begin 



sappend(in5t rbuf,regsym[reqcla5S]) 
5et5trlen( inst rbuf, strlenfinstrbuf) 



end; 



inst rbuf[strlen(inst rbuf)] 

end; 



n 



htoc [reg] ; 



4 procedure emitdrdef(reg: regrange); 

5 begin sappend ( inst rbuf ,'(') ; 
5 emitdir (fl, reg) ; 

5 sappend (inst rbuf,')'); 

5 end; 

4 procedure emitardisp( reg : regrange) ; 

5 begin extend (2, false) ; 
5 emitardef ( reg) ; 
5 end; 

4 procedure emi t pbs t incr ( reg : regrange); 

5 begin emit a rdef (( reg ) ; 

5 sappend (instrbuf, '+'); 

5 end; 

4 procedure emitpredecr [ reg; regrange); 

5 begin sappend ( inst rbuf , -']; 
5 emitardef ( reg) ; 

5 end; 



11-600 



Pascal [Rev 3.011 6/ 4/1)4] LIBRflRIfiN. l t>i f 



26-DSC-84 22:54:06 Page 11 »•* File name: LIBRfiRIRN «« 



601 :D 

602 :C 
603:C 
604 :C 
605:C 
606;C 
607:C 
608:C 
609;C 
610:C 
611 :C 
612:C 
613:S 
614:D 
615:C 



616 

617: 

618: 

619: 

620: 

621: 

622: 

623: 

624: 

625: 

626:0 

627 :C 

628 :C 

629 :C 

630 :C 

631 :C 
632:C 
633:C 
634: 
635: 
636: 
637: 
63S: 



639:C 



640: 

641 : 

642: 

643: 

644: 

645: 

646: 

647: 

648: 

649: 

860: 

651 :D 

652:D 

653:D 

654 :D 

655:S 

656:C 

e57:C 

658:C 

659:C 

660 :C 



Crocedjre emit indx ( pc rcl : boolean); 
egin 
extend(l jpcrel ] ; 5append(inst rbuf , '{'); 
with instr, ext do 
begin 
if not pcrel tnen 

begin emitd2r(fl, eareg); conina; end; 
emitdi r { regclaas, reg) ; 
if long then sappend ( in&t rbuf , ' . 1 1' ) 

else sappendfinst rbiif , ' -w) ' ) ; 
end; 
end; 

procedure emj t irTTn(val : integer); 
begin 

sappenc [instrbuf,'*'); emitint[val); 
end; 

procedure iimiediate ( fsize: siz); 
begin 

if fsize = invalid then goto 2, 

5 append (instrbuf,'*'); 

extend (extsize [fsize] ^ false); 
end; {immediate) 

procedure emitea (fsize : siz); 
begin 

with instr do 

case eamode of 
: emitdir (D, eareg) ; 
1 : emitdir (fl, eareg ; 
2 : emita rdef (eareg) ; 
3: emitpost incr (eareg) ; 
4: emitpredecr (eareg) ; 
5: emitardi3p(eare9) ; 
6: emitindx (false) ; 
7: case eareg of 
0: extend(2, false); 
1: extend(4,f alse) ; 
2: extend(2,truel ; 
3 : emit indx (t rue) ; 
4: irmiediate ( fsize) ; 
5. .7: qoto 2; 
end; (case eareg) 
end; (case eamode) 
end; (emitea) 

procedure opcodeO; 

{ bit, MOVEP, immediate, nOVES > 

type bitoptype = array[siz] of striTgCS]; 

immoptype = array[0..6] of string[4]; 
const bitop = bitopt ype ['btst ','bc:ig ','bclr ','bset 
immop = irrmoptype ['ori ' , ' andi ' , ' subi ' , 'addi ' , ' ' , 

begin < opcodeO ) 
with instr do 
if bits then 

if eamode = 1 then 
begin 



eori ' , 'cmpi ' ] ; 
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661 :C 


8 


662 :C 


9 


663:C 


8 


664 :C 


9 


e65:C 


9 


666:C 


9 


667:C 


9 


668:C 


9 


669:C 


9 


670 :C 


9 


671:C 


8 


672 :C 


8 


673 :C 


8 


674 :C 


8 


675 :C 


8 


676 :C 


8 


677 :C 


8 


678 :C 


8 


679:0 


8 


680 :C 


8 


681 :C 


8 


682 ;C 


8 


683 :C 


8 


684 :C 


8 


685 :C 


9 


686:0 


9 


e87:C 


9 


688:0 


9 


689:C 


10 


690;C 


10 


691 :C 


10 


692:C 


10 


693:C 


10 


694 :C 


9 


685 :C 


9 


696:C 


9 


697:C 


10 


698:C 


10 


699 :C 


10 


700:C 


11 


701:C 


10 


702:C 


10 


703:C 


10 


704 :C 


10 


705:C 


8 


706:C 


5 


707:S 




708:D 


4 


709:D 


5 


710:D 


-2 5 


7H:C 


5 


712:C 


5 


713:C 


6 


714:C 


6 


715:C 


7 


716:C 


7 


717:C 


7 


718:C 


7 


719:C 


6 


720:C 


6 
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if odd(opmode) then instrbjf := 'movep.l ' 

else instrbjf := 'movep.w '; 
if opmode <= 5 then 

begin emitardisp(eareg) ; 

comma; emitdirfD.regi); 
end 
else begin 

emitdi r (0, regl ) ; 
corma; emitardi5p(eareg) ; 
end; 
end 
else begin {dynamic bit} 

instrbuf := bitop[5ize]; 
emitdir(D, regl ); 
comma; emitea (bytesiz) ; 
end 
else if regl=4 then 

begin instrbuf :*= bitop[size] ; 
immediate (byte siz) ; comma; 
emitea(bylesiz {invalid}); 
end 
else { NOT bitS ) 

begin instrbuf := immop[regri; 
if regl=7 then 
begin { moves > 

instrbuf := 'moves' ; osize ; 
get inst rbyte5(2) ; 
if ext . long then 

begin emitdi r (ext . regcl ass, ext . reg) ; comma; emitea (size) ; 
end 
else 

begin emitea (size) ; comma; emitdir (ext .regcla5S,ext. reg) ; 
end; 
end 
else 

if (eamode=7) and (eareg=4) then 
begin 

space; immediate (wordsiz) ; comma; 
if size = bytesiz then sappend (inst rbuf , 'ccr') 
else sappend (inst rbuf , 'sr'); 
end 
else begin 

osize ; immediate (size I ; comma; emitea (size) ; 
end; 
end; 
end; {opcodeO} 

procedure move; 

{ opcodes 1..3: move byte, long, word > 

var Isize: siz ; 

begin 

with instr do 
begin 

case opcode of 
1 : Isize :« bytesiz; 
2 : Isize := longsiz; 
3; Isize := wordsiz; 
end; 

inst rbuf := 'move ' ; 
if opmode=l then sappend (inst rbuf ,' a' ) ; 



11-601 
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721 .C 


6 


722:C 


6 


723:C 


6 


724 :C 


6 


725:C 


6 


726:C 


6 


727;C 


6 


723:C 


6 


729;S 




730:0 


4 


731 :D 


5 


732:0 


5 


733:0 


5 


734:0 


5 


735:0 


5 


736:0 


5 


737:0 


-82 6 


738:S 




739:D 


5 


740 :D 


6 


741 :D 


6 


742:0 


6 


743:0 


6 


744:0 


6 


745:0 


6 


746:0 


6 


747:0 


6 


748:0 


6 


749:0 


6 


750:0 


6 


751:0 


-2 6 


752:0 


-14 6 


753:3 




754:0 


6 


755:0 


-2 7 


756:C 


7 


757:C 


7 


758:C 


8 


7S9:C 


7 


7S0:C 


8 


76I:C 


9 


762:C 


9 


763:C 


9 


764:C 


8 


76S:C 


9 


766:C 


9 


767:C 


9 


768 :C 


9 


769 :C 


9 


770 :C 


9 


77I:C 


8 


772 :C 


9 


773:C 


9 


774 :C 


9 


775:C 


9 


776 :C 


8 


777:C 


7 


778:S 




779 :C 


6 


780 :C 


6 
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sappend(instrbuf,opslze[lsize]); 
emitea(J5ize); coirma; 

<kluge to make emitea emit destination) 
eamode := opmode; eareg := regl; 
if (eamode=7) and (eareg>l) tnen goto 2; 
emitea(lsize (invalid)); 
end ; 
end; <move) 

procedu re opcode4; 

type miscoptype = array[0..7] of strinq[5]; 

unoptype = array[0..5] of string[2]; 
const predecr = 4; { eamode for predecrement ) 

miscop = 
miscoptype ['reset' , 'nop' , 'stop' , 'rte' , 'rtd' ,' rts' , Mrapv' , 'rtr']; 

unop = unoptype['neqx', 'clr', 'reg', 'not', '', 'tst']; 
van regstnng: stringSO; 

procedure erriitreglist 

foptj'pe: opndtype; predecr: boolean; var regstring: stringSO); 
{ emit register list to 'regstring' according to mask ) 
type 

regmasksymtype = array[0..15] of string[2]; 
const 

regmasksyrp = regmasksymt ype 

I'dO' /dl','d2', 'd3\ 'd4' , 'dS' , 'd6' , 'd7' , 
'aO' ,'al ','a2', 'a3', 'a4' , 'a5' , 'a6' , 'a?' j; 
va r 

state: (start, (waiting for a '1') 

open, (have seen a lone 'I'') 

cont); (at least two consecutive 'I's) 
j,k, bit count: integer; 

procedure transit ion (b: boolean); 

var states: shortint; 

begin 

if b then 

if optype = source then states := 6 else states := E>; 
case state of 
start : if b then 

begin state := open; 

s append (regstring, regmasksym [bit count ] ) ; 
end; 
open : if b then 

begin state := cont ; 
5 append (regstring, '-' ) ; 
end 
else begin state := start; 

sappend( regs t ring, '/' ) ; 
end; 
cont : if not b then 

begin state := start; 

sappend (regstring, reqmasksym[bitcount-l] ); 
5append(regstring, '/) ; 
end: 
end; (case) 
end; (transit ion) 

begin (emit reglist ) 
get inst rbytes (2 ) ; 
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781:C 


6 


782 :C 


7 


783:: 


7 


784:C 


7 


785:C 


7 


786:C 


7 


787:C 


8 


788:C 


9 


789:C 


9 


790:C 


10 


791 :C 


10 


792:C 


10 


793:C 


9 


794 :C 


9 


795;C 


9 


796:C 


8 


797:C 


9 


798:C 


9 


799:C 


10 


800:C 


10 


801 :C 


10 


802 :C 


9 


803 :C 


9 


804 :C 


7 


805 :C 


6 


806 :C 


7 


807 :C 


7 


808 :C 


6 


809 :S 




810:0 


5 


811:C 


6 


812:C 


7 


813:C 


7 


814:C 


7 


815:C 


7 


816:C 


6 


817:5 




818:0 


5 


819:C 


6 


820:C 


6 


821:C 


7 


822:C 


7 


823:C 


7 


824 :C 


8 


825:C 


8 


826:C 


9 


827:C 


10 


828:C 


8 


829:C 


8 


330:C 


6 


831:C 


8 


832:C 


9 


833:C 


10 


334 :C 


8 


835 :C 


7 


836:: 


6 


837 :S 




838:0 


5 


839:C 


6 


840:C 


7 



if ext.wordext = then regstring := ' 


(non 


else 




begin 




state := start ; 




bitcount := 0; regstring := ''; 




if not predecr then 




for j := 1 downto do 




begin 

for k := 7 downto do 






begin transition(ext.ma5k[k+ 
bitcount := bitcount+1; 


i*8] 




endj 




t ransition(fal5e) ; 




end 




else 




for j := to 1 do 




begin 

for k := to 7 do 







begin transition(ext.ma5k[k+j«8]); 

bitcount :*= bitcount + l; 
end; 
t r ansition (false ] ; 
end; 
end; 
if optype ■= source then 

reg St ring[5trlen (regst ring) ] := ' , ' 
else 5et5trlen(regstring, 5trlen(regstring)-l); 
end; (emitregllst ) 

procedure emitunop; 
begin with instr do 

begin 

instrbuf := unop[regl]; osize; 

emitea(si2e (invalid)); 

end ; 
end; 

procedure emit^reg; 
begin 

with ext do 
begin 

if dummyoO then goto 2; 
if not long then 
begin 

If bytee!<t=0 then sappend ( inst rbuf, ' sfc' J 
else if byteext=l then 5append(instrbuf,'dfc') 
else goto 2; 
end 
else 
begin 

If byteextt=0 then sappend (inst rbuf, 'usp' 1 
else if byteext^l then sappend(instrbuf,'vbr') 
else goto 2; 
end ; 
end; 
end; 

procedure jmpstates; 11-^09 

begin with instr do " ""^ 

case eamode of 
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841 :C 


8 




842 :C 


8 




843 :C 


8 




844 :C 


8 




84S:C 


6 


end; 


846 :S 






847 :C 


5 


begi 


848 :C 


5 


wi 


849 :C 


6 




850 :C 


7 




851:C 


8 




852 :C 


8 




853 :C 


8 




854 :C 


8 




855 :C 


8 




856 :C 


8 




857:C 


8 




858:C 


8 




8S9:C 


8 




8S0:C 


7 




861:C 


3 




862:C 


9 




863:C 


9 




864 :C 


9 




865:C 


8 




865:C 


9 




867:C 


9 




868:C 


9 




869:C 


3 




870:C 


9 




871 :C 


9 




872:C 


9 




873;C 


9 




874 :C 


9 




875:C 


8 




876:C 


9 




877:C 


9 




878 :C 


9 




879 :C 


9 




880:C 


9 




881:C 


8 




882:C 


9 




883:C 


9 




884 :C 


9 




885 :C 


9 




886:C 


10 




887:C 


10 




888:: 


10 




889 :C 


10 




890 :C 


10 




891:C 


9 




892 :C 


10 




893 :C 


10 




894 :C 


10 




895 :C 


10 




896 :C 


10 




897 :C 


10 




898:C 


10 




899 :C 


10 




900 :C 


10 





emitea (wordsiz) ; 



ccr, '; emitea[ wordsiz) ; 
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2,5,6:; 

7; if e3reg>3 then goto 2; 

otherwise goto 2; 

end; 



begin <opcode4 > 
ith instr do 
if bits then 

if ord [ size) = 2 then 

begin instrbuf ;= 'chk ' 
emiteatwordsiz) ; comma ; 
emitdir (D , regl ) ; 
end 
else be:3in instrbuf := 'lea '; 
emitea (invalid) ; comma; 
emitdir (fl, regl j ; 
end 
else { NOT bits ) 
case regl of 

0: if si2e=invalid then 

begin instrbuf := 'move 
end 
else emitLjnopj 
1: if 5ize=invalid then 

begin instrbuf := 'move 
end 
else emitunop; 
2; if size = invalid ther 
begin instrbuf := 'move '; 
emitea (wordsiz) ; 
s append (instrbuf, ',ccr'); 
end 
else emitunop; 
3: if size = invalid then 

begin instrbuf := 'move '; 
emitea (wordsiz) ; 
sappend(inst rbuf, ',5r'); 
end 
else emitunop: 
4; case ordfsize) of 

0: begin instrbjf := 'rbcd '; 

emitea (bytesiz (irvalid)); 
end; 
1 : if eamode ^ then 

begin instrbuf := 'swap '; emitdi 
end 
else 

begin inst rbuf 
end ; 
2,3: if eamode = then 

begin instrbuf ;= 'e^X'; 
5append(instrbuf,op5ize[pred(si2e 
emitdir (D^eareg) ; 
end 
else 
begin 

instrbuf := 'movem' ; 
sappendjinst rbuf, opsize[pred (size 
emit reglisl( source, eamode = predec r 
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r(D,ea 

emitea (invali 



)]); 

, regst ring) 
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905:C 


8 


906 :C 


9 


907:C 


9 


908:C 


9 


909:C 


9 


910:C 


8 


911:C 
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9 


914:C 


9 
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9 


916:C 


9 


917:C 


9 
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9 
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925:C 


10 


926:C 


10 


927:C 


10 
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10 
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10 
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932;C 


11 


933:C 


11 
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93S:C 


12 
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12 


937:C 


12 


938:C 


12 


939:C 


12 


940 :C 


13 


941 :C 


13 


942 :C 


13 


943 :C 


13 


944 :C 


14 


945 :C 


14 


946 :C 


14 


847 :C 


14 


948 ;C 


14 


949 :C 


14 


950;C 
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sappendj inst rbuf, regstring) ; 
emitea(invalid) ; 
end; 
end; {case size) 
if size = invalid then 

begin instrbuf := 'tas ': 
emitea(bytesiz {invalid}); 
end 
else emitunop; 
if 5ize<longsiz then goto 2 
else 

begin instrbuf := 'movem'; 
sappend ( inst rbuf,opsize[pred (size)]) ; 
emitregli5t(de5t,false,reg5tring); 
emitea (invalid) ; comma; 
sappend [ inst rbuf, regst ring); 
end; 
if ord(size) = 2 then 

begin instrbuf := 'jsr '; 
jmpstates; 
emitea (invalid) ; 
end 
else if ord(size) = 3 then 
begin instrbuf := 'jmp '; 
jmpstates; 
emitea (invalid] ; 
end 
else 

case eamode of 
0,1: 

begin instrbuf := 'trap '; 
emi t imm(eareg+3«eamodej ; 
if eareg + 8*eamode = 9 then 
begin 

comma; imnediate (wordsiz) ; 
comma; extend(4,t rue) ; 
end 
else 
if eareg ♦ 8*eamode = 1 then 

begin comma; immediate (wordsiz) ; 
end 
else 

if eareg + 8*eamode = then 
begin 

comma J geTinstrbytes(2); 
lastline := ext . uwordext ; 
emitimm(la5tline) ; 

while St rlen (inst rbuf ) < 20 do space: 
sappend(instrbuf, 'COnPILED LINE NUMBER ') 
emit int ( lastline) ; 
end; 
end; 
2 : begin instrbuf := 'link '; 
emitdi r (P, eareg ) ; comma; 
immediate (wordsiz ) ; 
end; 
3: begin instrbuf := 'unlk ' ; emitdir (fi , eareg) ; 

end; 
4,5: 

begin inst rbuf := 'move '; 
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999 :D 


5 


1000:D 


S 


1001:D 
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if eamode = 5 then sappend(inst rbuf , 'usp, ' ) ; 
emitdir (fl.eareg ) ; 

if eamode = 4 then sappend(inst rbuf , ' , usp' ) ; 
end; 
6: begin 

instrbuf := miscopCeareq] ; 
if (e3reg=2) or (eareg=4) then {stop}{rtd) 
begin space; immediate (wordsiz) ; 
end; 
end; 
7: begin ( movec ) 

if ord(size)<>l then goto 2; 

inst rbuf := 'movec ' ; 

get insT rbytes (2) ; 

if eareg-2 then 

begin 

emitsreg ; comma; emitdir (ext . regclass,ext,reg) ; 

end 

else 

if edreg=3 then 
begin 

emitdir [ext .regc lass, ext .reg) ; comma; emitsreg; 
end 

else goto 2; 
end; 
end; {case eamode) 
end; (case regl > 
end; {opcode* } 

procedure quick; 

begin 

with instr do if regl = then emitirmi(8) 

else emit irrm(regl ) ; 
comma; 
end; 

procedure shift; 
type 

shiftoptype = arrayCO..?] of 5tring[4]; 

const 

shiftop = 

shlftop1ype['asr','lsr' , ' roxr', 'ror', 'asl' , 'Isl' , 'roxl', 'rol'] ; 

begin 

with inst r do 

if size = invalid then 

begin inst rbuf := shiftop [4 «ord(bit8)+regl]; 
space; emitea(bytesiz {invalid)); 
end 
else 
begin 

instrbuf := shif top[4*ord (bitS ) +eamode mod 4]; 
osize; 

if eamode div 4=1 then 
begin 

emitdir (D , regl ) ; 
corrma ; 
end 
else quick; 
emitdir (D,eareg) ; 
end; 
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1021:C 5 end; {shift) 

1022:S 

1023:C 4 begin {decode) 

1024 :C 4 with inst r do 

1025:C 5 case opcode of 

1026:C 6 0: opcodeO; 

1027:C 6 1 ,2,3: move; 

1028:C 6 4: opcode4; 

1029:C 6 S: if size * invalid then 

1030;C 7 begin 

1031:C 7 if eamode = 1 then 

1032:C 8 begin 

1033:C 8 instrbuf := 'db'; 

1034:C 8 if cond = 1 then sappend(inst rbuf , ' ra' ) 

1035 :C 9 else sappend(inst rbuf ,condcode[ cond] ) ; 

1036:C 8 space; emitdirJD, eareg); 

1037:C 8 corma; extend(2, t rue) ; 

1038:C 8 end 

1039:C 8 else 

1040:C 8 begin 

1041:C 8 instrbuf := 's'; 

1042:C 8 sappend(in5t rbuf ,condcode [cond] ) ; 

1043:C 8 space; emitea(byte5iz {invalid) ) ; 

1044:C 8 end; 

1045:C 7 end 

1046:C 7 else 

1047:C 7 begin 

1048:C 7 if bit8 then instrbuf := 'subq' 

1049:C 8 else instrbuf := 'addq'; 

10S0:C 7 osize; quick; 

105l:C 7 emitea(size (invalid)); 

1052:C 7 end; 

1053:C 6 6: begin instrbuf := 'b'; 

1054:C 6 if cond = then sappend (inst rbuf ,' ra' ) 

1055:C 7 else if cond = 1 then sappendfinst rbuf , ' sr' ) 

1056;C 8 else sappendfinst rbuf .condcode [cond] ) : 

1057:S 

1058:C 6 if displ = then 

10S9:C 7 begin space; extend(2, t rue) ; end 

1060:C 7 else 

1061 :C 7 begin sappend(inst rbuf , ' . s '); 

1062:C 7 ext.longext := pc + 2 + displ; 

1063 :C 7 gvrst ring(nilgvr,ext . longext , t rue , false) ; 

1064 :C 7 sappend (inst rouf ,gvaluest ring) ; 
1065:C 7 end; 

1066:C 6 end: 

1067:C 6 7: begin instrbuf := 'moveq '; 

1068:C 6 emit inmi(displ ) ; comma; 

I069:C 6 emitdir(D,regl) ; 

1070:C 6 end; 

1071:S 

1072:S 

1073:S 

1074:C 6 8,9,11 ,12.13: begin 

1075:C 6 instrbuf := arithop[opcode] ; 

1076:C 6 if size-invalid then 

1077:C 7 begin 

1078:C 7 if odd(opcode) then TI.AOd 

1079:C 8 begin 11-OU** 

1080 :C 8 sappend (inst rbuf, 'a'); 
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9 
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9 
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9 
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8 
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8 


1092:C 


8 
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8 


1094:C 


8 
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9 


1096 :C 


8 
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9 


1098:C 


8 


1099:C 


8 


1100:C 
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1101:C 
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1102:C 


8 
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8 
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9 
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10 


1106:C 




1107:C 
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1110:C 
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1112:C 
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1113:C 


8 


1114:C 


9 


1116:C 


9 


1116:C 


9 


1117:C 


8 


1118:C 


8 


1119:C 


8 


1120:C 


8 


1121:C 


9 


U22:C 


10 


1123:C 


11 


1124:C 


11 


1125;C 


11 


1126:C 


12 


1127:C 


12 


1128:C 


13 


1129:C 


13 


1130:C 


13 


1131:C 


11 


1132:C 


11 
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S 
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B 
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9 
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9 
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9 
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8 
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6 
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in 



then 



if bits then 
begin 
S8ppend(in5trbuf, opsize[longsi2]); 

emi te3( iongsiz] ; 
end 
else begin 

sappend(instrbuf,opsize [words iz] ) ; 
eniitea(wordsiz) ; 
end; 
comma; emitdir(fl,regl); 
end 
else 
begin 
if opcode = 8 then instrbuf := 'div' 

else instrbuf ;= 'mul'; 
if bits then sappend( inst rbjf , ' s ') 

else 5append( insi rb jf , 'u '); 
emi tea (wordsiz) ; comma; emitdir[D,regl); 
end 
end 
else if (not bitS] or (eamode > 1) or (opcode 
begin 
if opcode = 11 then 
if bite then 
if eamode = 1 then 
begin 

sappend(inst rbuf , 'm' ) ; osize; 

emit post incr (eareg) ; comma; emit post inc r ( regl ) ; 
goto 1; 
end 
else inst rbuf := 'eor ' ; 
osize; 

if bits then begin emitdi r [D, regl ] ; comma; emiteaC size) ; 
end 
else begin emitea [ size ) ; comma; emitdir (D, regl ) ; 
end; 
end 
else 
begin 

if odd(opcode) then begin sappend( inst rbuf , 'x' ) ; osize; 
else if opcode = 8 then instrbuf := 'sbcd 
else if size = bytesiz then instrbuf := 'abed ' 
else begin 

inst rbuf := 'exg ' ; 
if eamode = then 

begin emitdir{0, regl) 
else if oprnode = 5 then 
begin emitdi r (fl, regl ) 
else 

begin emitdi r (D, regl ) 
goto 1; 
end; 
if eamode = then 

begin emitdir (D,ea '-eg) ; 
end 
else begin emitpredecr (earc; 

end; 
end; 
end; 
14:shift; 



comma; emitdir(D,eare9) end 
comma; emitdi r [fl,eareg) end 
comma; emitdir[R,eareg) end; 

comma; emitdi r (D, regl ) ; 
comma; emitpredecr(regl); 
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1175:C 


6 


1176:C 


7 


1177:C 


8 


1178:C 
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6/ 4/843 LIBRPRIflN.TEXT 

otherwise goto 2; 
end; {case) 
goto 1; 
2: begin defineword; 

If decodestate <> abscode then decodestate ;= consts; 
end; 
1 : end; (decode) 

procedure def inecaseword; 

var savepc ; integer ; 

begin 

instrsize ;= 0; 

instrbuf := 'case jump ' ; 

savepc :« pc; pc :* tablepc; 

extend(2, true); 

pc :* savepc; 

end; 

procedure decodestuff; 

label 1; 

var temp: integer; 

frocedure printprocboundary; 
abel 1; 
var def add r, def limit ^len^gvrbase : integer; 

veloc : addrec ; 
begin 

aefaddr :=newmods".defaddr . a; 
def limit : =de f add r+newmods". def size; 
while defaddr < deflimit do 
begin 

len:=strlen (symbolpt r (def addr ) ^) ; 
len:=len+2-ord(odd(len)); 
gvrbase:=defaddr+lenj 
with gvrpt r (gvrbase) do 

if primarytype = ioadgvr'^. primarytype then 
begin 

veloc . a : = gvrbase+5izeof igeneralvalue, false) ; 
if veloc. vep'^. value = PC then goto 1; 
end; 
defaddr :=defaddr+len+ord (symt ableptr(defaddr)''[len+l]) 
end; 
listln; 
1: list; write(li5ting, 



/I; 



if defaddr < deflimit then 

write (listing .symbolpt r (defaddr ) ^) ; 
writeln(iisting) ; 
end; (printprocboundary) 

begin (decodestuff) 
1: case decodestate of 
consts : 

begin getinst ruction; 

If (instr.w = 20054) (LINK F)6 ) 
or (instr.w = 20033) (TRPP #1) then 
begin decodestate := code; decode; 
if (rangetype = norange) or 

((rangetype = pcrange) and [PC >= lowrange) 



and (PC < highrange)) or 
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7 ((rangetype = linerange) and (lastline >= lowrange) and (lastline < highrange)) 

7 then printprocboundary; 

6 end 

6 else If (instr.w = 202171 <jnp long abs) 

7 or (instr.w . 24576) (BRfl 16 bit) then 
7 decode 
7 else defineword; 
5 end; 
5 abscode, 
5 code: begin 
5 getinst ruction; 
5 decode; 

5 if decodestate <> abscode then 

6 if instr.w = 20062 <UNLK Ft6> then decodestate := endofproc 

7 else if instr.w = 20219 (JnP pc indexed) then 

8 begin oJdstate := code; decodestate := startcase end; 
5 end; 
5 startcase: 
5 begin 
5 tablePC := PC; 
5 def inecaseword; 
5 casecodestart : =ext .wordext+PC; 
5 decodestate := casetable; 
5 end; 
5 casetable: 
5 begin 

5 If PC = casecodestart 

6 then begin decodestate := oldstate; goto 1 end 
6 else 

5 begin def inecaseword; 

6 If not fortranflag then 

7 begin 

7 temp:=ext .wordext+tablePC; 

7 if temp<casecodestart then casecodestart ;= temp; 

7 end; 

6 end; 

5 end; 

5 endofproc: 

5 begin get inst ruct ion; decode; 

5 If (instr.w = 20085 (RTS> 

6 or (instr.w div 8 > 2522 {JMP (fin)) ) then 
6 decodestate := consts; 
5 end; 
S end; (case) 
4 end; (decodestuff ) 

3 be'jin ( list inst ruct ion) 

3 decodestuff; 

3 bytesleft := irstrsize; firstline := true; 

3 If (rangetype = norange) or 

4 ((rangetype := pcrange) and (PC >= lowrange) and (PC < highranqe]) or 
4 ((rangetype ■= linerange) and (lastline >= lowrange) and (lastline < highrange)) then 

4 repeat 

5 list; 

5 if firstline then write(list ing . PC : 8, ' ') 

6 else write(listing, " :9 <17) ); 
5 print inst rword; 

5 if byte3left>0 then printinst rword 

6 else 
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1261:C 6 if firstline then write [listing ," :5) ; 

1262:C S if firstline then 

1263:C 6 begin wrlteln (listing, " :9, inst rbuf) ; firstline := false end 

1264:C 6 else writeln (listing) ; 

1265:C 5 until bytesleft > 0; 

126e:C 3 PC:=!PC * instrsize; 

1267:C 3 end; ( list instruction) 

1268:S 

1269:0 2 procedure getcodeblocks; 

1270:D -4 3 var junkint: integer; 

1271:D -8 3 pclimit: integer; 

1272:D -12 3 textstep: addrec; 

1273:D -14 3 textrecctr: shortint; 

1274:C 3 begin 

1275:C 3 with newmods'^, directory. drp" do 

1276:C 4 begin 

1277:C 4 textstep. a:"=directory. a+sizeof (moduledirectory) ; 

1278:C 4 junkint : =5t raen( textstep. syp") ; 

1279:C 4 textstep. » := textstep. a* junkint+2-ord(odd ( junkint )) ; 

1280:C 4 if executable then textstep. a := textstep. a + text step. gvp-^. sho rt ; 

1281:C 4 textrecctr :=textrecord5; 

1282:C 4 while textrecctr > do with textstep. tdp^ do 

1283:C 6 begin 

1284:C 6 text recct r :«lext recct r-1 ; 

1285:C 6 list; writelndlst ing, 'TEXT RECORD t' , 

1286:C 6 text records-text recct r, ' of ''*, fdirectory^[vmodnum] .dt id, '":'); 

1287:C 6 list; writeln( listing, ' TEXT start block ' , textstart :4, 

1288:C 6 ' Size ',textslze,' bytes'); 

1289:C 6 list; wrlteln(Hsting, ' REF start block ', ref start :4 , 

1290:C 6 ' Size '.refsize,' bytes'); 

1291 :C 6 textstep. a :=text5tep. a+sizeof (textdesc riptor ) ; 

1292 :C 6 PC := 0; 

1293:C 6 loadgvr :« textstep. gvp; 

1294:C 6 9vrstring(textstep. gvp, PC, false, false); 

1295:C 6 gbytes (inbuf . a, text size) ; 

1296:C 6 readblocks(f i lef ib . fbp"^, inbuf . p~, textsize, f ileblock*textstart ) ; 

1297:C 6 codeindex :=0 ; codecount : = textsize; 

1298:C 6 gbyte5(refpt r . a, ref size) ; 

1299:0 6 readbloc ks (f ilef ib. fbp^, ref ptr.p", re fsize,fileblock*ref start); 

1300:S 

1301:C 6 refqvr:=refptr; 

1302:C 6 reflim:=refptr.a*refsize; 

1303:C 6 refloc:-PC; nextref; 

I304:C 6 pclimit := PC + textsize; 

1305:3 

130e:C 6 list; writelndisting, ' LOfiD address ' ,gvaluest ring) ; 

1307:C 6 listln; 

1308:0 6 while PC < pclimit do listinst ruct ion; 

1309:0 6 listln; listln; 

1310:C 6 lowheap := inbuf; 

1311:0 6 end; 

1312:0 4 end; (with newrrods", directory") 

1313:0 3 end; (getcodeblocksi) 

1314;S 

1316:D 2 procedure listdefs; 

1316:D 3 var 

1317:D -8 3 len,val: integer; 

1318:0 -16 3 lim.pl: addrec; U (\(\(\ 

1319:0 3 begin II-OUO 

1320:0 3 prepunassem; 
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1321 ;C 




3 


with newmods" do 




1322:C 




4 


begin 




1323:C 




4 


llsl; »/riteln(li5ting,' OEF table of '", 




1324 :C 




4 


fdirectory'[vmodnum3 .dtid, ''';'); 




132S;C 




4 


1 i 5 1 1 n ; 




1326:C 




4 


pi :== defaddr; 




1327:C 




4 


lim.a := pi . a * defsize; 




1328:C 




4 


while pi . a < lim. a do 




1329:C 




S 


begin 




I330:C 




5 


len :=strlen(pl . syp^) ; 

list; write(li5ting ' ■ :5,pl .syp" ' • : (30-Jen) ) J 

pi , a := pi . a * len+2-ord(odd (len ) ) ; 




1331:C 




5 




1332:C 




5 




1333:C 




5 


val := 0; 




1334:C 




5 


gv r St ring ( pi. gvp,val, false, false); 
wrlteln [list ing,gvaluest ring); 




1335:C 




5 




1336:C 




5 


end; 




1337:C 




4 


end; 




1338:: 




3 


1 i s 1 1 n ; 




1339:C 




3 


newmods := modsave; 




1340:C 




3 


lowheap :- infost; 




1341;C 




3 


end; 




1342:S 










1343:D 




2 


procedure listexts; 




1344:0 




3 


var 




1345:0 


-4 


3 


i: integer; 




1346:0 


-8 


3 


pi: addrec; 




1347:C 




3 


begin 




1348:C 




3 


prepunassem; 
with newmods'^ do 




1349:C 




3 




1350 :C 




4 


begin 




13S1:C 




4 


list; wrltelndisting, ■ EXT table of '", 




13S2:C 




4 


fdlrectory"[vmodnum] .dtid, ''':']; 




1353:C 




4 


1 1 s t j; n ; 




1 3S4 : C 




4 


for i:=2 to listsize-1 do if listaddr'[i] <> then 




1365:C 




6 


begin 




1356:C 




e 


pi. a := extaddr.a + li5taddr'^[i] ; 
list; writeln(listin9,":5,pl.syp'^); 




1367:C 




6 




1358:C 




s 


end; 




1359:C 




4 


end; 




1360:C 




3 


listln; 




1361:C 




3 


newrrods ;= modsave; 




1362:C 




3 


lowheap :- irfost; 




1363:C 




3 


end; 




1364:S 










1365:0 




2 


procedure listtext; 




136S:0 




3 


const pagesize = pageblocks « blocKsize; 




1367:0 




3 


var 




1368:0 


-8 


3 


textbuf,ptr: addrec; 




1369:0 


-20 


3 


i,j, pages: integer; 




1370:0 


-24 


3 


readsize: integer; 




1371:0 


-25 


3 


linestart: boolean; 




1372:S 










1373:0 




3 


procedure dochar(c: char]; 




1374:C 




4 


begin 




137S:C 




4 


if linestart then list; 




1376:C 




4 


linestart := (c = eol); 




1377:C 




4 


if linestart then writeln ( list ing) else write [ list ing, c); 




1378;C 




4 


end ; 




1379:S 










1380:C 




3 


begin 
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1381:C 




3 


prepunassem; 




13S2:C 




3 


gbytest textbuf .a, pagesize); 




1383:C 




3 


with newmods", directory .drp*^ do 




1384:C 




4 


begin 




1385:C 




4 


list; writeln(listing, ' DEFINE SOURCE of ''', 




1386:C 




4 


fdi rectory^tvmodnum] .dtid, '"':'); 




1387:C 




4 


listln; 




1388:C 




4 


pages := (sourcesize * (pagesize-l ) ) div pagesize; 
for i := to pages-1 do 




1389:C 




4 




1390:C 




5 


begin 




1391:C 




S 


readsize ;= sourcesize - i*pagesize; ( scs 1/17/83 ) 




1392:C 




5 


if readsize > pagesize then readsize := pagesize; { scs 1/17/83 ) 




1393:C 




5 


readblockslfilef lb .fbp'^, textbuf .p"^, readsize, < scs 1/17/83 > 




1394:C 




S 


fileblock+50urcebloc)c+i* pageblocks) ; 




1395:C 




5 


pt r := textbuf: linestart := true; 




1396:C 




5 


repeat 




1397:C 




6 


case pt r .cp^ of 




1398:C 




7 


chr(etx) , 

nullchar: ptr.a := textbuf. a + pagesize; 




1399:C 




7 




1400:C 




7 


otherwise docha r [ pt r .cp^) ; 




1401 :C 




7 


end; 




1402:C 




e> 


pt r .a := pt r .a + 1 ; 




1403:C 




6 


until ptr.a >= textbuf. a * pagesize; 




1404 :C 




s 


if not linestart then dochar(eol): 




1405:C 




s 


end; 




1406:C 




4 


end; 




1407:C 




3 


listln; 




1408:C 




3 


newmods := modsave; 




1409:C 




3 


lowheap := infost; 




1410:C 




3 


end; 




1411:S 










1412:D 




2 


procedure disassemble; 




1413:C 




3 


begin 




1414:C 




3 


prepunassem: 
nilgvr := NIL; 




141S;C 




3 




1416:C 




3 


getcodeblocks; 




1417:C 




3 


newmods := modsave; 




1418:C 




3 


lowheap := infost; 




1419:C 




3 


end; 




1420:S 










1421 :D 




2 


procedure getbounds; 
begin 

lastline := -1; 




1422:C 




3 




1423:C 




3 




1424;C 




3 


fgotoxy output , 0,13) : 
write(* ower bound? ' ); 




1425:C 




3 




1426:C 




3 


if read nt(lowrange) then 




1427:C 




4 


begin 




1428:C 




4 


writeCupper bound? '); 




1429:C 




4 


if not readint (highrange) then 




1430:C 




S 


highrange :- maxinT; 




1431:C 




4 


end 




1432:C 




4 


else begin 




1433:C 




4 


lowrange ;= minint; 




1434:C 




4 


highrange := maxint; 




143S:C 




4 


end; 




1436:C 




3 


end; 




1437:5 










1438:C 
1439:C 




2 
2 


begin {unassemble) 

Tortranflag ;= false; 


11-607 


1440:C 




2 


decodestate ;= notype; dumped : = false; 
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1441 ;C 
1442 :C 
1443:: 
1444:: 
1445:: 
1446:: 
1447:: 
1448:: 
1449:: 



1450: 

1451: 

1452: 

1453: 

1454: 

1455: 

1456: 

1457:: 

1458:: 

1459;: 

1460:: 

1461:: 

1462:: 

1463:: 

1464:: 

1465:: 

1466:: 

1467:: 

1468:: 

1469:: 

1470:: 

1471 :S 

1472:S 

1473:D 

1474:D 

1475:S 

1476:0 



1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 



-2 
-2 
-2 
-2 
-18 



-12 
-12 
-14 



rftpeat 

fgotoxyfoutput , 0,2); 
riteln('Q Quit'.cteos) 



writelnl 
writelnf 
writelnl 
writelnl 
wr iteln j 
writeln I 
writeln 



riteln( 'L 



Stop unassembling'); 

print import Text ' ) ; 

print Ext table'l ; 

print Def table'); 

unassemble all (Assembler conventions) 

unassemble all (Compiler conventions) 

PC range (ftssembler conventions) 

line range [Compiler conventions) 



getcommandchar ( 'unassemble option?' .contnandchar ) ; 
if commandchar <> ' ' then 



case commandchar of 



decodestate 

begin 

decodestate 

quit ; 

end I 

begin rangetype := 

begin rangetype := 

begin rangetype := 

begin rangetype :» 

listtext; 

lisldefs; 

Jistexts; 
otherwise dobeep; 
end; 

until decodestate = quittype; 
end; {unassemble) 



■C 
'P' 
■L' 
'T' 
■0' 
'E' 



quit type; 
quit type ; 



norange 
norange 
pcrange 
lineran< 



decodes! ate 

decodest ate 

decodestate 

e; decodestate 



cteos ) ; 



abscode; diisassemble; end; 
consts; disassemble; end; 
abscode; getbounds; disassemble: end; 
:= consts; getbounds; disassemble; end; 



1 procedure makencwgvr (var oldptr: addrec; 

2 modptr: moddescptr); 



ar refsize: shortint; 
lastpt r, 
f irstpt r , 
vpt r , 
gptr: addrec; 

procedure runlistlvar oldptr: addrec; modptr: moddescptr; sub: boolean); 
var done: boolean; 
defptr: addrec; 

procedure addref(add: shortint; sub: boolean): 
var ipt r , jpt r , t p: addrec; 
notdone, 
notcancels: 
begin 
if add = then 

if sub then vptr.v 

else vptr.v 

else if add = 1 then 

if sub then vptr.v^ 

else vptr.vi 

iptr := lastptr; notdone := true; notcancels 
while (iptr. a > firstptr.a) and notdone do 
begin 



boolean; 










ep'^. value 
ep". value 


:= vptr 
:= vptr 


vep'^. value 
vep'^. value 


+ 


modptr". relocdelt a 
modptr". relocdeita 


ep". value 
ep". value 


:= vptr 
:= vptr 


vep'^. value 
vep^. value 


+ 


mo dptr". glob aide Ita 
modpt r". glob aide Ita 



Pascal [Rev 3. On 6/ 4/84] (.IBRflRinN.TEXT 



26-Dec-84 22:54:06 Page 26 



File name: LIBRflRISN »«» 



1501 : 

1502: 

1503: 

1504: 

1505: 

1506: 

1S07:C 

1508:C 



1509: 

1510: 

1511 : 

1512: 

1513; 

1514: 

1515: 

1516: 

1517: 

1518: 

1519: 

1520: 

1521: 

1522: 

1523: 

1524: 

1525; 

1526:C 

1627:C 

1528:C 

I529:C 

1530:C 

1531:C 

1532:: 

1S33:C 

1534 :C 

1535:C 

1536:C 

1537:: 

1538: 

1539: 

1540: 

1541 : 

1542: 

1543: 

1544: 

1545: 

1546: 

1547: 

1548: 

1549: 

1550: 

1551 : 

1552: 

1553: 

1554: 

1555: 

1556: 

1557: 

1558: 

1559: 

1560: 



5 iptr. a := iptr. a - sizeof ( referencept r ) ; 

5 with ipt r . rpp" do 

6 if adr <= add then 

7 begin 

7 if adr ■= add then notcancels := (op = subit) = sub; 

7 iptr. a := iptr. a + sizeof ( referencept r) ; 

7 notdone := false; 

7 end; 

5 end; 

4 if notcancels then 

5 begin 

5 gbytes( jpt r . a, sizeof ( referencept r) ) ; 

5 lastptr :■ .lowheap; 

5 while jptr.a > iptr. a do 

6 begin 

6 tp.a ;= jptr.a - sizeof (referenceptr) ; 

6 jptr.rpp* :- tp.rpp"; 

6 :ptr := tp; 

6 end; 

5 with iptr .rpp*^ do 

6 begin adr :» add; last := false; 

6 if sub then op ;= subit else op := addit; 

6 end; 

5 end 

5 else 

5 begin 

5 tp.a := iptr. a - sizeof ( referencept r) ; 

5 wfiile iptr.s < lastptr. a do 

6 begin 

6 tp.rpp'" := iptr.rpp^; 

6 tp := iptr; 

6 iptr. a :=« iptr. a + sizeof ( referencept r ) ; 

6 end; 

5 lastptr. 8 :« lastptr. a - sizeof (referencept r) ; 

5 lowheap := lastptr; 

5 end; 

4 end; 

3 begin {runlist) 

3 with oldptr. gvp'^ do 

4 begin 

4 if longoffset then oldptr. a := oldpt r . a+sizeof (generalvalue, true) 

5 else oldptr. a := oldpt r . a+5izeof (generalvalue, false); 

4 if valueextcnd then 

5 begin 

5 if sub then vpt r .vep^. value := vpt r.vep^. value - oldpt r .vep'. value 

6 else vpt r .vep^. value := vpt r .vep"^. value + oldpt r .vep' .value; 
5 oldptr. a := oldptr. a + sizeof (valueextension, sint); 

5 end; 

4 if primarytype ^> absolute then 

5 begin i 

5 if modptr = NIL then 

6 begin 

6 modptr := newmods; done ;= false; 

6 repeat 

7 with modptr^ do 

8 if patchmod then modptr := link 

9 else if oldptr, a < defaddr.a then modptr := link 

10 else if oldptr. a > defaddr.a + defsize then modptr := link 



11-608 
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1561:C 


11 


1562:C 


7 


1S63:C 


ei 


1S64:C 


5 


1565;C 


6 


1566:C 


6 


1S67:C 


8 


1568:C 


8 


1S69:C 


6 


1570:C 


8 


1S71:C 


8 


1572:C 


8 


1573;C 


8 


1574:C 


S 


1576:C 


9 


1S76:C 


9 


1577:C 


9 


1578:C 


9 


1S79:C 


9 


1S80:C 


9 


1581;C 


8 


1582:C 


8 


1S83:C 


8 


1584 :C 


7 


1S8S:C 


6 


158$:C 


6 


1687;C 


S 


1588:C 


4 


1589:C 


3 


1S90:S 




1S91:C 


2 


1592:C 


2 


!S93:C 


2 


1594:C 


2 


1596:C 


3 


1598:C 


;i 


1S97;C 


4 


1598:C 


4 


1599:C 


3 


1600:C 


3 


1601;C 


3 


1602:C 


3 


1603:S 




1604:C 


2 


160S:S 




ie06:C 


2 


1607:C 


2 


1608:C 


3 


1609:C 


3 


1610:C 


3 


16n:C 


4 


1612:C 


4 


1813:C 


4 


1614:C 


6 


16I5:C 


8 


1616:C 


8 


1617;C 


S 


1618:C 


8 


1619:C 


8 


1620:C 


8 
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else done := true; 
until done; 
end; 
case primarytype of 
relocatable: addref [0 , sub) ; 

global: addreffl, sub); 

general ; 
begin 

done : = false : 
repeat with oldptr.rpp" do 
begin 

defpt r := modpt r^.extaddr.ptp^radr]; 
if modpt r'^.unresbits .bmp"[adr] then 

addref (defpt r . rp. adr, sub <> (op = subit)) 
else 
begin 
efptr. 



defpt 



:= defptr.a * st rlen (defpt r . syp") + 2 
- ord(odd [St rlen (de'^pt r . syp^) ] J ; 
runlist (defpt r, NIL, sub <> [op = subit)); 
end; 
oldptr.a := oldptr.a + sizeof ( referencept r) ; 
done := last; 
end; 
until done; 
end; (general) 
end; (case) 
end; (primarytype <> absolute) 
end; (with) 
end; ( runlist > 

begin (makenewgvr) 

gbytes(gptr.a, sizeof(generalvalue) ) ; 
gptr.gvp^ := oldpt r .gvp"; 
with gptr.gvp" do 

begin 

if not longoffset then 

lowheap. a := lowheap. a - 

(5izeof(generalvaIue) - 5Jzeof(genera lvalue, false)); 
gbytes(vptr.a, sizeof (valueex tension , sint ) ) ; 
vpt r .vep". value := 0; 
valueextend := true; 
end ; 



firatptr 



lowheap; lastpt r 



firstpt 



runlist (oldpt r, modptr, false); 
with gptr.gvp" do 
begin 

refsize :- lastptr.a - firstptr.a; 
if refsize = then primarytype := absolute 
else 
begin 

if refsize = sizeof ( referencept r ) then with f irstpt r . rpp" do 
if adr <= 1 then if op = addit then 
begin 
if adr = then primarytype := relocatable 

else primarytype := global; 
lastpt r := fi rstpt r ; 
lowheap := lastptr; 
refsize := 0; 
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1621 :C 

1622:C 

1623:C 

1624:C 

1625:C 

1626:C 

1627:C 

1628:C 

1629:C 

1630:C 

1631:S 

1632:S 

1633:D 

1634:D 

1635:C 

1636:C 

1637:C 

1638:C 

1639:C 

1640;C 

1641: 

1642: 

1643: 

1644: 

1645: 

1646: 

1647: 

1648: 

1649: 

1650: 

16S1: 

1652: 

1653: 

16S4: 

1655: 

1656: 

1657: 

1658: 

1659: 

1660: 

1661 ; 

1662: 

1663:C 

1664:C 

1665:S 

1666:C 

1667:C 

1668:C 

1669:C 

1670:C 

1671 :C 

1672:C 

1673:C 

1674:C 

1675:C 

1676:C 

1677:C 

1678:C 

1679:C 

1680:C 



end; 
if refsize > then 
& begin 
5 firstptr.a := lastptr.a - sizeof [ referencept r) ; 

5 firstptr. rpp" .last := true; 

6 end; 
4 end; 

3 short := lastptr.a - gptr.a; {even if it is long variety) 

3 e nd ; 
2 e nd ; 

1 procedure compressgvr (gvptr : addrec) ; 

2 var vptr: addrec; 
2 begin 

2 with gvptr. gvp'" do if valueextend then 

4 begin 

4 if longoffset then vptr. a := gvptr. a + sizeof (generalvalue, true) 

5 else vptr. a := gvptr. a + sizeof (generalvalue, false); 
4 with vpt r . vep* do 

S> if value = then 

6 begin 

6 lowheap. a := lowheap. a - sizeof (valueextension, sint); 

6 fastmove(point(vptr.a + sizeof(valueexten5ion, sint)), vptr.p, 

6 lowheap. a - vptr. a); 

6 valueextend := false; short := short - sizeof (valueextension, sint ) ; 

6 end; 

4 end; 

2 end; 



-12 
-20 
-24 
-26 
-28 



procedure rsolve; 

var modptr, lastptr, nextptr: moddescptr; 

mrbase.mgbase : integer; 

sp: addrec; 

len : shortint ; 

i : shortint ; 

begin 

modpt r := newmods; lastptr := NIL; (reverse the pointers) 
while modptr <> NIL do with modptr" do 

begin nextptr := link; link := lastptr; 

lastptr := modptr; modptr := nextptr; 

end; 
newmods := lastpt r; 

startgvr.p := NIL; startgvrmod := NIL; 

modptr := newmods; totalpatchspace := 0; 

forwardpatches ;=NtL; backwardpatche5:~NIL: 
mrbase := start re loc; mgbase := startglobai; 
while modptr <> NIL do with modptr"^ do 
begin 
if patchmod then 

begin 

patchbase := mrbase; 

mrbase := mrbase + patchsize; 



mroase := mroase + paicnsize; 

totalpatchspace := totalpatchspace + patchsize; 
if forwardpatches = NIL then forwardpatches := 
else lastpt r" .patchlink := modptr; 



modpt r 



lastpt 

end 



■ modpt 



11-609 
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1681:C 5 else with directory . drp^ do 

1682:C 6 begin 

1683:C 6 relocbase := mrbase; relocdelta := mrbase - relocatablebase; 

1684;C 6 mrbase := mrbase + relocatablesize + ord (odd( relocatablesize ) ) ; 

1685:C 8 globase := mgbase; globaldelta := mgbase - globalbasej 

1686:C 6 mgbase := mgbase - globalsize - ord (oddfglobalsize) ) ; 

1687:S 

1688:C 6 gbytes (unresbit s . a , ((extsize div 4 * 16) div 16)»2); 

1689:0 6 for i := 2 lo extsize div 4 - 1 do unresbits .bmp''[i] := false; 

1690:C 6 lin resbits .bmp'^LO] :- true; unresbit s .bmp^[l] := true; 

1691:C 6 extaddr .ptp-^tO] .rp.w :■ 0; 

1692:C 6 extaddr . ptp'tU . rp.w := 4; 

1694:C 6 sp := directory; 

1695:C 6 sp.a := sp . atslzeof (moduledi rector y) ; 

1696:S 

1697:C 6 if newtnodname . syp = NIL then revAnodname := sp; 

1698:C 6 if startgvr.p = NIL then 

1699:C 7 if executable then 

1700:C 8 begin 

1701 :C 8 startgvrmod := modptr; 

1702:C 8 startgvr.a := sp. a+st r len {sp. syp")+2-ordCodd [ st rlen(sp. syp^l ) ) ; 

1703:C 8 end; 

1704:C 8 end; 

1705:C 4 modptr := link; 

1706:C 4 end; 

1707:C 2 totalreloc := mrbase - startreloc; 

1708:C 2 totalglobal := startglobal - mgbase; 

1709;S 

1710:C 2 end; (rsolve) 

1711 :S 

1712:S 

1713:D 1 proi:edure mergeexTs; 

1714:S 

17I5:D -4 2varila5t: addrec; 

1716:D -8 2 slist: sortlistptr; 

I717:D -12 2 sptr: addrec; 

1718:D -14 2 listlen: shortint; 

1719:D -16 2 sortlen: shortint: 

1720:D -18 2 mlnindex: shortint; 

1721:D -22 2 modptr: moddescptr; 

1722:D -22 2 len, 

1723:D -30 2 i: integer; 

1724:0 -31 2 done: boolean; 

172S:D -31 2 strptr, 

1726:D -40 2 neu/strptr: addrec; 

1727:S 

1728:C 2 begin 

1729:C 2 slist := lowheap.slp; listlen :» 0; 

1730:C 2 modptr :- newmods; 

1731 :C 2 wfiile modptr <> NIL do with modptr'^ do 

1732:C 4 begin 

1733:C 4 if not patchmod then if not resolved then 

1734:C 6 begin 

1735:C 6 listlen :- listlen ♦ 1; 

1736:C 6 gbytes ( spt r . a, sizeof (sortdesc) ) ; 

n37:C 6 with sptr .sdp" do 

1738:C 7 begin 

1739:C 7 modp := modptr; 

1740:C 7 N := 0; 
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1741 :C 7 end; 

1742:C 6 end; 

1743:C 4 modptr := link; 

1744:C 4 end; 

1745;S 

1746:C 2 gbytesdlist .a, listlen » sizeof ( shortint )) ; 

1747:C 2 tor i := 1 to listlen do ilist . ilp" [i] := i-1; 

1748:C 2 sortlen := listlen; 

1749:C 2 gtyte5(newexttable, 8); 

1750:C 2 nfwextsize := 8; 

17S1:S 

17S2:C 2 while listlen > do 

1753:C 3 begin 

1754:C 3 while sortlen > do with slist" [ilist . ilp~[sortlen]] , modp' do 

1755:C 5 begin 

1756:C 5 done := false; 

1757:0 5 repeat 

1758:C 6 if N >= listsize then 

1759:C 7 begin 

1760:C 7 listlen := listlen - 1; 

1761:C 7 for i :• sortlen to listlen do ilist . ilp'Ii] :- ilist . ilp' [i+l 1 : 

1762:C 7 done := true; 

1763:C 7 end 

1764:C 7 else if listaddr'CN] = then N :=■ N <• 1 

1765:C 8 else 

1766:C 8 begin 

1767:C 8 ext := synibolpt r (extaddr . a ♦ listaddr'tN) ) ; 

1768;C 8 i := sortlen; minindex := ilist . ilp'[i] ; 

1769:C 8 repeal 

1770:C 9 if i >= listlen then done := true 

1771:C 10 else if ext~ <= Sli5t"[ilist . ilp'Ii*! ]] .exf then done := true 

1772:C 11 else begin ilist . llp-[i] :- ilist . ilp-~[i*l ] ; 1 := i ♦ 1; end; 

1773:C 9 until done: 

1774:C 8 ilist .ilp'ti] ;= mlnindex; 

1775:C 8 end; 

1776:C 6 until done; 

1777:C 5 sortlen := sortlen - 1; 

1778:C 5 end; 

1779:C 3 if listlen > then 

1780:C 4 begin 

1781:C 4 strptr. syp := slist' [i list . i Ip" tU ] .ext ; 

1782:C 4 len := st rlen (st rpt r . syp') + 4 - st rlen ( st rpt r . syp') mod 4; 

1783:0 4 gbytes (newst rpt r .a, len); 

1784:C 4 f astmove (st rpt r . p, newstrptr.p, len); 

1785:0 4 1 :- 1; done := false; 

1786:0 4 repeat with slist'Cilist . ilp"[i] ] , modp' do 

1787:0 6 if ext' = newst rpt r . syp' then 

1788:0 7 begin 

1789:0 7 wordrecpt r (ext ) ' .w := newextsize: 

1790:0 7 unresbits.bmp'tlistaddr'CN] div 4] :« true; 

1791 :0 7 N := N * I ; 

1792:0 7 i :- i * 1; done := i > listlen; 

1793:0 7 end 

1794:0 7 else done := true; 

1795:0 5 until done; 

1796:0 4 sortlen := i-1; 

1797:0 4 newextsize := newextsize * len; 

1798:0 4 end; Il-filfl 

1799:0 3 end: " ^ ^^ 

1800:S 
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1801:C 




2 


if newextsize <= 8 then newextsi^e :^ 0; 




1802:S 










1803:C 




2 


end; 




]804:S 










180S:D 




1 


function gvrequal (a.b : addrec; offset: integer): boolean; 




1806:D 




2 


var boff. 




1807:D 


~8 


2 


aoff: integer; 




1808:D 


--12 


2 


bO: gvrptr; 




1809:C 




2 


begin 




1810:C 




2 


gvrequal := false; 




ieil:C 




2 


bO := b.gvp; 




I812:C 




2 


with a.gvp" do 




I813:C 




3 


if primarytype = bO^ . primaryt ype then 




1814:C 




4 


begin 




181S:C 




4 


if longoffset then a. a 


= a.a ♦ 4 




1816:C 




6 


else a. a 


= a . 3 + 2 ; 




1817:C 




4 


if bO^.Iongof fset then b.a 


= b.a + 4 




1818:C 




s 


else b.a 


= b.a * 2 : 




1819;C 




4 


if valueextend then 




1820:C 




5 


begin 

aotf := a.vep".value; 




1821:C 




E 




1822:C 




5 


a. a := a. a ■* sizeof (valueextension , sint); 




1823:C 




S 


end 




1824:C 




5 


else aoff := 0; 




182S:C 




4 


if bC^. valueextend then 




1826:C 




5 


begin 

boff := b.vep-^. value; 




1827:C 




5 




1828:C 




5 


b.a := b.a * sizeof (valueextension , sint); 




1829:C 




6 


end 




1830:C 




S 


else boff := 0; 




1831:C 




4 


if aoff + offset = boff then 




1832:C 




5 


if primarytype = general then 




1833:C 




6 


begin 

while (a.rpp^.w 




1834;C 




6 




1835:C 




7 


= b. rpp^.w) 




1836:C 




7 


and (a. rpp'-.last = false) do 




1837;C 




7 


begin 




1838;C 




7 


a. a ;= a. a + sizeof (referencept r) ; 
b.a := b.a •*■ sizeof { referencept r ) ; 




1839:C 




7 




1840:C 




7 


end; 




1841 :C 




6 


gvrequal := a.rpp^.w = b-rpp".*; 




1842:C 




6 


end 




1843:C 




6 


else gvrequal := true; 




1844:C 




4 


end; 




1845:C 




2 


end; 




1846:S 










1847:0 




1 


procedure makedir; 




1848:5 










1849:D 


-4 


2 


van modptr: moddescptr; 




1850:D 


-4 


2 


newtext rec, 




1851:0 


-12 


Z 


lasttextrec: addrec; 




1852:0 


-14 


2 


len: shortint; 




1853:0 


-14 


2 


extblocks, 




1854:0 


-14 


2 


newtext recs. 




1855:0 


-14 


2 


movebytes. 




1856:0 


-30 


2 


textrecs : integer; 




1857:0 


-30 


2 


index. 




1858:0 


-38 


2 


newptr: address; 




1859:0 


-38 


2 


tempdirpt r, 




1860:0 


-38 




oldindex. 
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1861 :0 


-38 


2 


oldptr, 




1862:0 


-54 


2 


pt r : addrec; 




1863:S 










1864 :S 










1865:D 




2 


procedure mergetext; 




1866:(l 


-1 


3: 


var merged: boolean; 




1867:D 


-1 


3: 


lastptr , 




1868:0 


-10 


3 


newptr: addrec; 




1869:C 




3: 


begin 
it newtextrec . tdp^. textsize = then lowheap := newtextrec 




1870:C 




2 




1871:C 




4 


else 




I872:C 




4 


begin 




1873:C 




4 


if lasttextrec. tdp <> NIL then 




1874:C 




6 


begin 




1875:C 




5 


lastptr.a := last text rec . a * sizeof (textdesc riptor) ; 




1876:C 




5 


newptr. a ;= newtextrec. a * sizeof ( textdesc riptor ) ; 




1877:C 




£ 


merged :- gvrequal(lastptr, newptr, last text rec . tdp^. text size ); 




1878:C 




S 


end 




1879:C 




S 


else merged := false; 




1880:S 










1881:C 




4 


if merged then 




1882:C 




S 


begin 




1883:C 




E 


lasttext rec.tdp". textsize := last text rec . tdp^. text size + newtext rec . tdp^. textsize ; 




ia84:C 




5 


lowheap := newtextrec: 




1885:C 




5 


end 




I386:C 




E 


else 




1887:C 




S 


begin newtextrecs := newtextrecs ■* 1; 




1888:C 




S 


lasttextrec :- newtextrec; 




1S89:C 




5 


end; 




189t):C 




4 


end; 




1891 :C 




3 


end; 




1892:S 










1893:C 




2 


begin [makedir) 




1894:C 




2 


gbyte5[tempdirptr .a, sizeof(moduledirectory)); 




1395:C 




2 


If newmodname.syp^NIL then 




189S:C 




3 


begin gbytes (ne^wnodname . a, 2); 




1897:C 




3: 


newmodname . syp'' ;= ''; 




1898:C 




3: 


end 




1899:C 




■;■ 


else 




1900:C 




3 


begin 




1901 :C 




3 


len := st rlen(newmodname . syp^) + 2 - ord(odd(st rlen (newmodname . syp") ) ) ; 




1902:C 




3 


qbytes(index, len); 

f astmove(newmodname.p, point ( index) , len); 




1903:C 




"< 




1904:C 




3 


end; 




190S:S 










1906:C 




2 


if startgvr. poNIL then 




1907:C 




3 


begin 




1908:C 




"< 


oldptr := startgvr; 




1909:C 




3 


ptr := lowheap; makenewgvr (oldpt r , startgvrmod) ; 




1910:C 




2 


corrpressgvr (pt r ) ; 




1911:C 




3 


end; 




1912:S 










19I3:C 




2 


lasttextrec . tdp := NIL; 




1914:C 




2 


newtextrecs := 0; 




1916:C 




2 


modptr := newmods; 




1916:C 




2 


while modptr <> NIL do with modptr" do 




1917:C 




4 


begin 




1918:C 
1919:C 




4 

E 


if patchmod then 
begin 


11-611 


1920:C 




c. 


gbytes(newtextrec .a, sizec 


f (textdescriptor) ) ; 
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1921 :C 


5 


1922;C 


5 


1923:C 


5 


1924:C 


$ 


1925:C 


6 


1926:C 


6 


1927:C 


6 


1928:C 




1929:C 




1930:C 




1931 :C 




1932:C 




1933:C 




1934:C 


5 


1935:C 


5 


1936:C 


S 


1937:C 


6 


1938:C 


6 


1939:C 


6 


1940:C 


6 


1941 :C 


6 


1942:C 


6 


1943:C 


6 


1944 :C 


8 


1945:C 


8 


1946:C 


8 


1947:C 


3 


1948:C 


8 


1949:C 


8 


1950:C 


8 


19S1:C 


8 


1952 :C 


8 


1953:C 


8 


1954 :C 


6 


1955;C 


4 


1956:C 


4 


19S7rS 




1958:C 


2 


1969 :C 


3 


1960 :C 


3 


1961:C 


3 


1962:C 


3 


1963:C 


3 


I964:C 


3 


196S:C 


3 


1966:C 


3 


19e7:C 


3 


1968:C 


3 


1969:C 


3 


1970:C 


3 


1971:C 


3 


1972:C 


3 


1973:C 


3 


1974 :C 


3 


1975:C 


3 


1976:C 


3 


1977:C 


3 


1978:C 


3 


1979:S 




1980:C 


3 
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newtextrec.tdp'^.texTsize := patchsize; 

gbytestoldpTr.a, sizeof(gereralva]ue, false)); 
with oldpt r .gvp do 
begin 

pnmarytype := relocatable; datasize := sint; 
patchable := false- longoffset := false; 

if patchbase = then begin valueextend :* false; shor 
else begin 

sizeofCvalueextension, 
.value := patchbase; 



sint)); 



true; short 



do 



gbytes ( newpt r 
vept r (newpt r) 
valueextend : 
end 
end; 
mergetext ; 
end 
else with directory .drp" 
begin 

oldinde>(.a := directory. a + sizeof (moduledirectory) ; 
oldindex.a := oldindex.a + st rlen (oldindex . syp'^) + 2 - 

ord(odd(strlen(oldindex.syp'")j); 
if executable then oldindex.a := oldindex.a + oldindex .gvp"' 
textrecs := textrecordsj 

while textrecs > do with oldindex. tdp" do 
begin 

gbytesfnewtextrec.a, sizeof { text descriptor)); 
if odd ( textsize) then textsize := textsize + 1; 
newt ex t rec.tdp". textsize := textsize; 
oldindex.a := oldindex.a * sizeof (textdescriptor) ; 
ptr := lowheap; makenewgvr (oldindex, modptr); 
compressgvr (pt r) ; 
mergetext ; 

textrecs := t ex trees - 1; 
end ; 
end; 
modptr := link; 
end; 

with tempdirptr .drp'' do 
begin 

date := todavsdate; 
revision ;= linkerdate; 

producer := ' L ' ; 

systemid := 3; 

notice := copyright; 

directorysize := lowheap.a 
<;modulesize := ) 

executable := (startgvr.p < 

relocatablesize := total re loc; 

relocatablebase := start re loc; 

glcbalsize := totalglobal; 

globalbase := startglobal; 
iextblock :=> 
(extsize := > 
■;defblock := > 
idefsize := 

sourceblock 

sourcesize 

text records 

nextblock ;= 



tempdirpt r . a; 

NIL); 



:= 0; {implement later) 

:* 0; 

: = newtext recs; 

(directorysize + (blocksize-1 ) ) div blocksize; 
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1981:5 
1982;C 
I983:C 
1984:C 
198S:C 
1986:C 
1987:S 
1988:S 

1989 :S 

1990 :C 

1991 -.C 
1992 ;S 
1993 :C 
1994: 
1995: 
1996: 
1997: 
19 
1999: 
2000: 
2001 : 
2002: 
2003: 
2004: 
2005; 
2006: 
2007:0 
2008:D 
2009:S 
2010:D 
2011 :D 
20I2:D 
2013:S 
2014:C 
2015:C 
2016:C 
2017:C 
2018 :C 
2019:C 
2020:C 



2021 : 

2022:C 

2023:C 

2024 :C 
2025 :C 

2026 :C 

2027 :C 
2028:C 
2029 :C 
2030:C 
2031 :S 
2032:C 
2033:C 
2034 :C 
2035:C 
2036:S 
2037:C 
2038:C 
2039:C 
2040:C 



-10 
-12 
-14 
-18 
-18 
-26 
-27 
-27 
-27 
-40 

-44 
-48 



extblock := nextblock; 

extsize := newextsize; 

extblocks ;= (newextsize + (blocksize-l ) ) div blocksize; 

blockwrite(outfile, point (newext table)^,extblock5,outblock+nextblock}; 

nextblock := nextblock + extblocks; 

(lowheap.a := newdi rectory . a + directorysize; 
fasimove ( tempdirpt r . p, newdi recto ry.p, directorysize); 
> newdi rectory := tempdirpt r ; 
end; 



2 end; 

1 procedure mergedefs; 



ar slist : 
ilist : 
list len: 
sort len : 
minindex: 
modpt r : 
len, 
i : 

done : 
St rptr, 
newst rpt r, 
spt r : 



sort listpt r; 
addrec ; 
short in t ; 
short in t ; 
shortint ; 
moddescpt r ; 

integer; 
boolean; 



addrec; 



newdeft able : address; 
defb locks: integer; 
c : c h cr r ; 



2 begin 

2 slist := lowheap.slp; listlen := 0; 

2 modptr := newmods- 

2 while modptr <> NIL do with modptr"^ do 

4 begin 

4 if not patchmod then if defsize > then 

6 begin 

6 listlen := listlen + 1; 

6 gbytes(sptr.a, sizeof(sortdesc)); 

6 with spt r . sdp do 

7 begin 

7 modp := modptr; 

7 def := defaddr; 

7 end; 

6 end; 

4 modpt r ;- link; 

4 end; 

2 qbytes{ilist.a. listlen « sizeof(shortint)); 

2 for i := 1 to listlen do ilist . ilp'^ti] := i-l; 

2 sort len := list len ■ 

2 newdeftable := lowheap.a; 

2 while listlen > do 

3 begin 

3 while sortlen > do with slist^Cilist . ilp^Csor t len]] , modp^ 

5 begin 
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2041 :C 




5 


(Jone := false; 




2042 :C 




S 


repeat 




2043 :C 




6 


if def.a >= defaddr.a ♦ defsize then 




2044 :C 




7 


begin 




2045 :C 




7 


listlen := listlen - 1: 




2046 :C 




7 


for i := sortlen to listlen do Hist . ilp~[i] := ilist . ilp'-[i*l] ; 




2047 :C 




7 


done := true; 




2048:C 




7 


end 




2049:C 




7 


else 




2050:C 




7 


begin 




2051 :C 




7 


len :~ st rlen(def . syp^) + 2 - ord(odd (st rlen(def .syp'^) ) ) ; 




2052:C 




7 


with gvrpt r(def . a+len)-^ do 




20S3:C 




8 


if patchable then def.a :^ def.a + len + short 




2054 :C 




9 


else 




2055 :C 




9 


begin 




2056 :C 




9 


i := sortlen; mlnindex := il ist . ilp"^ [i] ; 




2057 :C 




9 


repeat 




20S8:C 




10 


if i >= listlen then done :- true 




2059:C 




n 


else if def.syp" <= 5list"[ili5t . ilp' [i+1] ] .def . syp" then done := true 
else begin ilist . ilp-~[i] := Hist . ilp"[i»ll ; i := i ♦ 1; end; 




2060:C 




12 




2061 :C 




10 


until done; 




2062:C 




9 


ilist .ilp-"[i] := minindex, 




2063:C 




9 


end; 




2064 ;C 




7 


end 




2065:C 




7 


until done; 




2066:C 




S 


sortlen := sortlen - 1; 




2067:C 




5 


end; 




2068:C 




3 


if listlen > then 




2069:C 




4 


begin 




2070:C 




4 


with slist'[ilist.ilp-"[l]l do 




2071 :C 




S 


begin 




2072:C 




5 


strptr := def; 




2073:C 




S 


len := st r len (st rpt r .syp") + 2 - ord(odd(5t rlen ( st rpt r . syp'^) ) ) ; 




2074 :C 




5 


gbytes (newstrpt r .a, len); 
fastmove(st rptr .p, newstrptr.p, len); 




2075:C 




S 




2076 :C 




S 


def. a := st rptr.a + len; 




2077:C 




5 


makenewgvr (def , modp); 




2078:C 




5 


end; 
i := 2; done := false; 




2079:C 




4 




2080 :C 




4 


repeat with slist"[ilist . ilp''(i) ) , modp" do 




2081 :C 




(5 


if i > listlen then done := true 




2082:C 




7 


else if def.syp" = newst rpt r . syp' then 




2083:C 




8 


begin 




2084 :C 




8 


if printeron then 




208S:C 




9 


begin 

list; writeln {listing, 'duplicate symbol definition for: ', 




2086 :C 




9 




2087 :C 




9 


def.syp'); (««!!!l«> 




2088:C 




9 


end 




2089:C 




9 


else 




2090:C 




9 


begin 




2091 :C 




9 


er rorline; 




2092:C 




9 


writeln{ 'duplicate symbol: ' ,def . syp"^) ; 




2093:C 




9 


if streaming then escape(119); 




2094 :C 




9 


write('Pre5s "C' to continue, any other key to abort ',cteol]; 




2095:C 




9 


read(keyboard,c) ; 




2096;C 




9 


if (c <> 'C') and (c <> 'c') then escape(119); 




2097:C 




9 


fgotoxy(output , 0, 22 ) ; 




2098:C 




9 


writeln(cteol) ; 

write! 'LINKING . . . ', cteol) ; 




2099:C 




9 




2100:C 




9 


end; 
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2101:C 




8 


def.a := def.a + st r len (def . syp") + 2 - ord (odd (st rlen (def . syp") ) ) ; 




2102:C 




9 


def.a := def.a + def .gvp". short ; 




2103:C 




8 


i := i + 1 ; 




2104;C 




3 


end 




210S:C 




8 


else done := true; 




2106:C 




5 


until done; 




2107:C 




4 


sortlen := i-1; 




2108:C 




4 


end; 




2109:C 




3 


end; 




2110:S 










2111:C 




2 


with newdirectory.drp'" do 




2112:C 




3 


begin 

defblock := nextblock; 




2113:C 




3 




2114;C 




3 


if defsout then defsize := lowheap.a - newdeftable 




21I5:C 




4 


else defsize := 0; 




2116:C 




3 


defblocks := (defsize + (blocksize-l ) ) div blocksize; 




2117:C 




3 


if defblocks > then 




21I8:C 




4 


bloc kwrite(outfile, point ( newdeftable)", def blocks, out block+next block ) ; 
nextblock := nextblock + defblocks; 




2119:C 




3 




2120:C 




3 


end; 




2121:C 




2 


lowheap.slp ;= slist; 




2122;S 










2123:C 




2 


end; 




2124:S 










2125:0 




1 


procedure copytext; 




2126:S 










2127:D 


-4 


2 


var patchptr: patchdescpt r ; 




2128:0 


-12 


2 


loadaddr,loadaddrO: address; 




2129:0 


-16 


2 


modptr: moddescptr; {current module being loaded) 




2130:0 


-20 


2 


gvrp: gvrptr; 




2131:0 


-20 


2 


patching. 




2132:0 


-22 


2 


merging: boolean; (whether text records are combined) 




2133:S 










2134:0 


-22 


2 


textbuffer, base of text record buffer) 




2135:0 


-22 


2 


textbuftop, end of text record buffer) 




2136:0 


-22 


2 


textindex, pointer to next space available in text buffer) 




2137:0 


-22 


2 


object, object in text record being modified by ref record) 




2138:S 










2139:0 


-22 


2 


refbuffer, base of ref table buffer) 
refbuftop, end of ref table buffer) 




2140:0 


-22 


2 




2141:0 


-22 


2 


outrefindex, pointer to next space available in ref buffer) 




2142:0 
2143:S 
2144:0 


-22 


2 


inrefindex, pointer to next record in ref buffer to process) 




-22 


2 


newptr, {base of new gvr on heap) 




214S:D 


-22 


2 


valptr, {value extension in new gvr on heap) 




2146:5 










2147:0 


-22 


2 


oldindex, {pointer to old text descriptors) 
newindex: {pointer to new text descriptors) 




2148:0 


-22 


2 




2149:0 


-70 


2 


addrec; 




2150:S 










2151:0 


-70 


2 


vevalue, 




2152:0 


-70 


2 


newbytes, {size of new gvr on heap) 




2153:0 


-70 


2 


offsetbyles, {distance from last object referenced by new refs) 




2154:0 


-70 


2 


oldtextrec, (text records left to process from old module) 




21S5:S 










2156:0 


-70 


2 


textbufblocks, {maximum blocks allocated for text buffer) 
textinblock, {file relative block index into old text) 




2157:0 


-70 


2 




2158:0 


-70 


2 


texlinsize, (number of bytes left to read from old text) 


n-613 


2159:0 


-70 


2 


textoutblock, (file relative block index into new text) 


2160:0 


-70 


2 


textoutsize, (number of bytes processed into new text) 
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2161:S 

2162;D -70 2 refbufblocks, fmaximum blocks allocated for ref buffer) 

2163:0 -70 2 refinblock, (file relative block index into old ref table) 

2164:D -70 2 refinsize, {number of bytes left to read from old ref) 

21B5:D -70 2 refoutblock, {file relative block index into new ref tableV 

2166:0 -70 2 refoutsize: {number of bytes processed into new ref table) 

2167:0 -126 2 integer; 

2168:S 

2169:0 2 procedure starttext; 

2170:C 3 begin 

2171:C 3 If not merging tlien with newindex . tdp'^ do 

2172:C 5 begin 

2173:C 5 textstart := nextblock; textoutblock ;- nextblock + outblock; 

2174:C 5 nextblock := nextblock + (textsize + (blocksize - 1)) div blocksize; 

2175:C 5 refoutblock := nextblock + outblock; 

2176:S 

2177:C 5 textoutsize := 0; textindex := textbuffer; 

2178:C 5 refoutsize ;= 0: outrefindex := refbuffer; 

2179:C S offsetbytes := 6; object := textbuffer; 

2180:S 

2181:C 5 valptr.a ;= newindex.a + si2eof(textdescriptor); 

2182:C 5 patching := [valpt r .gvp"^. primaryt ype = relocatable) and (tot alpatchspace > 0); 

2183:C 5 if patching Then 

2184:C 6 if valpt r .gvp". valueextend then 

2185:C 7 begin 

2186:C 7 valptr.a := s'alptr.a + sizeof (generalvalue, false); 

2187:C 7 loadaddrO := valpt r , vep" . value ; 

2188:C 7 end 

2189:C 7 else loadaddrO := 0; 

2190:C 5 loadaddr := object. a - loadaddrO; 

2191:C 5 end; 

2192:C 3 end; 

2193 : S 

2194:0 2 procedure endtexl ; 

2195:0 -4 3 v.r laatblocks: integer; 

2196:0 -8 3 Id: addrec; 

2197:0 -12 3 org: integer; 

219S:C 3 begin 

2199:C 3 wDth newindex . tdp"" do 

2200:C 4 begin 

2201 :C 4 merging := (textoutsize < textsize); 

2202:C 4 if not merging then 

2203:C 5 begin 

2204;C 5 if textindex. a > textbuffer. a then 

2205:C 6 begin 

2206:C 6 lastblocks :- [tex tindex . a- textbuffe r . a+ [blocksize- 1 ) ) div blocksize; 

2207 :C 6 blockwrite (out file, textbuf fer . p", last blocks, textoutblock) ; 

2208:C 6 end; 

2209:C 5 if out ref index . a > refbuffer. a then 

2210:C 6 begin 

2211:C 6 lastblocks := (outrefindex.a - refbuffer.a* ( b lock size -1 )) div blocksize; 

2212 ;C 6 blockwrite (out file , refbuffer .p-", lastblocks, refoutblock) ; 

2213:C 6 end; 

2214:C 5 refstart := nextblock; refsi^e :^ refoutsize; 

2215:C 5 nextblock : = nextblock * (refoutsize + (blocksize - 1)) div blocksize; 

2216:C 5 newindex.a := newindex.a + sizeof ( textdesc riptor ) ; 

2217:C 5 org;=0;gvr5t ring{newindex .gvp, org, false, true); 

2218:C 5 if printeron then 

2219:C 6 begin 

2220:C 6 list; wr iteln ( lis t ing , 
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6 '(load record: size = '.textsize;!,', load address = ' .gvaluest ring , ')'); 

6 end ; 

5 end; 

4 end; 

3 end; 

2 procedure dumptext (wri tebytes : integer); 
-4 3 var writeblocks: integer; 

3 begin 

3 writeblocks :- writebytes div blocksize; 

3 writebytes := writeblocks * blocksize; 

3 blockwrite (out file, textbuffer. p'^, writeblocks, textoutblock ) ; 

3 textoutblock := textoutblock + writeblocks; 

3 textindex.a :- textindex. a - writebytes; 

3 object. a := object. a - writebytes; 

3 loadaddr := loadaddr - writebytes; 

3 fastmove (point ( textbuffer . a + writebytes), textbuffer . p, 

3 textindex. a - textbuffer .a) ; 

3 end; 

2 procedure check textbuf (obsize : integer); 
-8 3 var readbytes, writebytes: integer; 

3 begin 

3 while Textindex. a < object. a + obsize do 

4 begin 
4 readbytes := textbuftop.a - text index . a; 

4 if textinsize <= readbytes then readbytes := textinsize 

5 else 
5 begin 

5 if object. a < textindex. a then writebytes := object. a - textbuffer. a 

6 else writebytes := textindex. a - t extbuf fer . a; 

5 if writebytes < readbytes then 

6 readbytes := readbytes - readbytes mod blocksize 
6 else begin dumptext (writebytes) ; readbytes := 0; end; 
S end; 

4 if readbytes > D then 

5 begin 

5 readblock5(modpt r'^.filefib.fbp", textindex. p", readbytes, textinblock); 

5 textinblock := textinblock + readbytes div blocksize; 

5 textinsize := textinsize - readbytes; 

5 textindex. a := textindex. a + readbytes; 

5 end; 

4 end ; 

3 end; 

2 procedure dumprefs; 
-8 3 var- writebytes, writeblocks: integer; 

3 bejin 

3 writeblocks := (outrefindex.a - refbuffer. a) div blocksize; 

3 writebytes := writeblocks * blocksize; 

3 blockwrite (out file, refbuffer.p", writeblocks, refoutblock); 

3 refoutblock := |refoutblock + writeblocks; 

3 outrefindex.a : i= outrefindex.a - writebytes; 

3 fasTmove [ point (refbuffer . a + writebytes), refbuffer. p, 

3 outrefindex.a - refbuf fe r , a ) ; 

3 emJ; 

2 procedure checkinref; il-Dl'* 

3 const maxrefsize ■■= 254; 
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2221 


:C 


2222 


:C 


2223 


:C 


2224 


:C 


222S 


:C 


2226 


:S 


2227 


-.0 


2228 


:D 


2229 


:C 


2230 


■c 


2231 


C 


2232 


C 


2233 


c 


2234 


c 


2236 


c 


2236 


c 


2237 


c 


2238 


c 


2239 


c 


2240 


s 


2241 


a 


2242 


D 


2243 


c 


2244 


c 


2245 


c 


2246 


c 


2247 


c 


2248 


c 


2249 


c 


2250 


c 


2251 


c 


2252 


c 


2253 


c 


2254 


: 


2256 


c 


2256 


c 


2257 


c 


2258 


c 


2259 


c 


2260 


c 


2261 


c 


2262 


c 


2263 


c 


2264 


c 


2266 


s 


2266 


D 


2267 


D 


2268 


C 


2269 


c 


2270 


c 


2271 


c 


2272 


c 


2273 


c 


2274 


c 


2276 


c 


2276 


: 


2277 


s 


2278 


s 


2279 


D 


2280 


D 
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2281 :D 
2282:C 
2283:C 
2284 :C 
2285:C 
2286:C 
2287:C 
2288:C 
2269:0 
2290:C 
2291 :C 
2292;C 
2293:C 
2294:C 
2295 :C 
2296:C 
2297:C 
2298:C 
2299:C 



2300; 

2301 : 

2302: 

2303: 

2304: 

2305: 

2306: 

2307: 

2308: 

2309: 

2310: 

2311: 

2312: 

2313: 

2314: 

2315: 

2316: 

2317: 

2318: 

2319: 

2320:C 

2321 :C 

2322:C 

2323:C 

2324:C 

2325:C 

2326:C 

2327:C 

2328:C 

2329:C 

2330:C 

2331 :C 

2332:C 

2333:S 

£334:D 

2335:S 

2336:D 

2337:D 

2338:C 

2339:C 

2340;C 



var refinbytes, readbytes : 



begin 
ref inl 
if re 
beg 
If 
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integer ; 



bytes 

finbyte 



= refbuftop.a - inrefindex.a; 
5 < maxrefsize then 



in 

refinsize > then 
epeat 
f outre 
rea 
Ise red 
f refin 
Ise if 



els 
if readb 
begin 
f astmo 
inrefi 
readbl 



findex.a > refbuffer.a + blocksize then 

dbytes := inrefindex.a - [out ref index . a + blocksize) 

dbytes := inrefindex.a - (refbuffer.a + (2 » blocksize)); 

size <= readbytes then readbytes := refinsize 

out refindex .a - refbuffer.a < readbytes then 

eadbytes := readbytes - readbytes mod blocksize 

e begin dumprefs; readbytes := 0; end; 

ytes > then 

e ( in refindex .p, poim (inrefi ndex. a - readbytes), refinbytes); 
ndex.a := inrefindex.a - readbytes; 
ock5(modpt r'". f ilef ib. fbp"-, point ( in refindex , a + refinbytes)", 

readbytes, refinblock); 
lock := refinblock + readbytes div blocksize; 
ize := refinsize - readbytes; 



ref inb 
refins 
end 
unt il readbytes > 0; 



off setbytes 
256 then short := offsetbytes 



sizeoffgeneralvalue, false) ; 



end; 

procedure putref; 

var newbytes : shortint; 

valpt r : addrec; 
begin 

compressgvr (nevvpt r ) ; 
with newptr.gvp" do 

if lonqoffset then long 
else if offsetbytes < 
else 

b e q i n 

valpt r . a := newpt r . a 

mo veright (valpt r.p'^, point (valpt 
lowheap. a - valpt r , a ) ; 

lowheap.a := lowheap. a + 2; 

longof f set : = t rue; 

long := offsetbytes; 

end; 
offsetbytes := 0; 
newbytes : = lowheap, a - newptr.a; 

if out refindex . a * newbytes > inrefindex.a then dumprefs; 
fa5tmove(newptr.p, out refindex . p, newbyte s ] ; 
outrefindex.a := outrefindex.a + newbyt es ; 
refoutsize := refoutsize + newbytes; 
lowheap := newpt r ; 
end; <putref) 

procedure patcherror(dsize: datatype]; 

procedure print me S5age(var f: text); 

var index: addrec; 

begin 

index, a := modptr^.di rectory. a+sizeof (moduledirector y) ; 

write(f, 'Can''t patch byte ', 
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2341:0 




A 


2342:C 




4 


2343:C 




4 


2344:C 




4 


234S:S 






2346:C 




3 


2347;C 




:i 


2348 :C 




;i 


2349;C 




3 


2350;C 




4 


2351:C 




4 


2352:C 




4 


2363:C 




4 


2364:C 




4 


2355 :C 




3 


2356:3 






2357 :D 




2 


2358:D 


-8 


3 


23S9:D 


-12 


3 


2360 :D 


-16 


3 


2361 :D 


-16 


3 


2362:D 


-24 


3 


2363:D 


-24 


3 


2364 :D 


-24 


3 


2365:D 


-36 


3 


2366:D 


-36 


3 


2367 :D 


-48 


3 


2368:0 


-50 


3 


2369:D 


-51 


3 


2370:C 




3 


2371:C 




3 


2372:C 




3 


2373:C 




4 


2374 :C 




3 


2375:C 




4 


2376:C 




4 


2377:C 




4 


2378:C 




5 


2379:C 




5 


2380:C 




5 


2381 :C 




6 


2382:C 




El 


2383:C 




6 


2384:C 




7 


2385:C 




6 


2386:C 




6 


2387:C 




7 


2388:C 




7 


2389:C 




6 


2390:C 




6 


2391 :C 




6 


2392:C 




6 


2393:C 




6 


2394:C 




6 


2395:C 




7 


2396:C 




8 


2397:C 




9 


2398:C 




9 


2399 :C 




9 


2400:C 




9 
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object. a - loadaddr - loadaddrO:!, 
' ]n text record ' ,oldtext rec : 1 , 
' of module ', index . syp^) ; 
end; 

begin 

errors :- errors + 1; 

error line; print message (output); 

if printeron then 

begin list; 

wrjtedisting '*** ERROR *«* M; 

printmessage] listing) ; writeln(li5ting); 

end 
else e5cape(128) ; 
end; 

procedure makepatch; 
var r , rpT r : addrec ; 

objectaddr: address; 
patchaddr : address; 
foundpatchmodpt r , 
patchrnodpt r : moddescpt r ; 
foundlast ppt r , 
last patchpt r , 

patchpt r : pate hde sept r ; 

patchdelta, 

<lelta2,foundpatchdelta: integer; 

patchstate: (nopatch,longpatcn, short patch, oldpatch) ; 
backwardlist: boolean; 
begin 

objectaddr := object. a - loadaddr; 
with valpt r . vep" do 

value := value + object. sw'^ + objectaddr; 
with newptr.gvp" do 
begin 

patchable := false; 

if primarytype = absolute then prirrarvtype := relocatable 
else 
begin 

if primarytype <> general Then 
begin 

gbyte5(rptr.a, sizeof(referenceptr)); 
with rpt r , rpp'^ do 

begin adr ;= 0; op := addit; last := false; end; 
gbytes(rptr.a, 5izeof(referencepTr;i ) ; 
with rpt r . rpp" do 
begin adr := ord ( primarytype ) -1 ; 
op ;= addit; last := true; end; 
primarytype := general; snort := short + 4; 
end 
else 
begin 

rptr.a := valptr.a + sizeof [ valueex te nsion, sint ) ; 
wit h rpt r . rpp'^ do 



if (adr=0) and (op=5ubitl then 
if last then 

absolute; lowheap 



begin 

primaryt ype 
short : = short 
end 



rpt r ; 



11-615 
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2401 :C 


9 


else 




2402 :C 


9 


begin 




2403:C 


9 


moveleft (point (rptr .a+2)", rptr.p^, 




2404 :C 


9 


short- (valptr .a-newptr .a)-6) ; 




2405:C 


9 


lowheap.a := lowheap.a - sareof ( ref erencept r ) ; 




2406:C 


9 


short :s short - 2; 




2407:C 


9 


end 




2408:C 


9 


else 




2409:C 


8 


begin 




2410:C 


8 


gbytes{r.a, sizeof(referenceptr])- 
move right (rptr.p'^,point(rptr.a+2). 




24 1 1 : C 


8 




2412:C 


8 


short- (valptr .a-newptr .a]-4) ; 




2413:C 


8 


adr := 0; op := addit; last := false; 




2414;C 


8 


short := short * 2; 




24 1 5 : C 


8 


end; 




2416:C 


6 


end; 




2417:C 


5 


end; 




2418:C 


4 


end; 




2419;C 


3 


patchstate := nopatch; 




2420:C 


3 


for backwardlist := false to true do 




2421:C 


4 


begin 




2422 :C 


4 


if backwardlist then patchmodptr := backwardpatches 




2423:C 


5 


else patchmodptr := forwardpatches ; 




2424 :C 


4 


while (patchmodptr <> NIL) and (patchstate < oldpatch) do 




2425:C 


5 


with patchmodpt r^ do 




2426:C 


6 


begin 




2427:C 


6 


patchaddr ;= patchbase; 




2428:C 


6 


patchptr ;* patchlist ; 




2429:C 


6 


while (patchptroNIL) and (patchstate < oldpatch) do 




2430:C 


7 


with patchptr'^ do 




2431 :C 


8 


begin 




2432:C 


8 


patchdelta := patchaddr-ob jectaddr ; 




2433:C 


8 


if (-32768<»patchdelta) and (patchdelta<32768 ) 
then if gvrequal (newpt r , patchref ,0) 




2434 :C 


9 




243S:C 


10 


then begin 




2436:C 


10 


object. sw^ := patchdelta; 




2437:C 


10 


lowheap := newptr; 




2438:C 


10 


patchstate := oldpatch; 




2439:C 


10 


end; 




2440 :C 


8 


if patchref .gvp^.datasize = sword then 




2441 :C 


9 


patchaddr := patchaddr + 4 




2442 :C 


9 


else patchaddr := patchaddr + 6; 




2443:C 


3 


lastpatchptr := patchptr; 
patchptr := patchlist; 




2444 :C 


8 




244S:C 


8 


end; 




2446:C 


6 


patchdelta := patchaddr-obiect addr ; 
if [patchstate < shortpatcn) then 




2447 :C 


6 




2448:C 


7 


if (-32768<»patchdelta) and ( patchdelt a<32768 ) then 




2449 :C 


8 


begin 




2450:C 


8 


if patchsire - (patchaddr - patchbase) >= 4 then 




2461 :C 


9 


if newptr .qvp'^. primarytype = relocatable then 




24S2:C 


10 


begin 

delta2 := valpt r .vep" .value - (patchaddr+2 ) ; 




2453:C 


10 




2454:C 


10 


if (-32768 <» delta2) and tdelta2 < 32768) then 




2455:C 


11 


if object. a + patchdelta >= textbjffer.a then 




2456 :C 


12 


begin 




24S7;C 


12 


patchstate := shortpatch; 




2458 :C 


12 


foundpatchdelta := patchdelta; 
foundlastppt r := lastpatchptr; 




2459:C 


12 




2460 :C 


12 


foundpatchmodpt r := patchmodptr; 
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2461:: 


12 


end; 




2462 :C 


10 


end; 




2463 :C 


8 


if (patchstate < longpatch) and not backwardlist then 
if patchsize - (patchaddr - patchbase) >= 6 then 




2464:: 


9 




2465:: 


10 


begin 




2466:: 


10 


patchstate := longpatch: 
foundpatchdelta := patchdelta; 
foundlastpptr := lastpatchptr; 
foundpatchmodpt r := patchmodptr; 




2467:: 


10 




2468:: 


10 




2469:: 


10 




2470:: 


10 


end; 




2471:: 


8 


end; 




2472:: 


6 


patchmodptr :== patchlink; 




2473:: 


6 


end; 




2474:: 


4 


end; 




2476:: 


3 


if patchstate = nopatch then patcherror (newptr .gvp'^.datasize) 




2476:: 


4 


else if patchstate < oldpatch then 




2477:: 


5 


with foundpatchmodpt r^ do 




2478 :C 


6 


begin 




2479:: 


6 


gbytes(r. a, sizeof (patchdescriptor) ) ; 




2480:: 


6 


if patchlist « NIL then patchlist := r.pdp 
else foundlastpptr^. patchlist := r.pdp; 




2481:: 


7 




2482 :C 


6 


with r .pdp' do 




2483:: 


7 


begin 




2484 :C 


7 


patchlist := NIL; 




2485:: 


7 


patchref := newptr; 




2486 :C 


7 


if patchstate = longpatch then newpt r .gvp^.datasize :« sint 




2487 :C 


8 


else begin 




2488:C 


8 


newpt r.gvp^.datasize := sword; 




2489:C 


8 


if foundpatchdelta < then 




2490 :C 


9 


begin 




2491 :C 


9 


r.a := object. a + foundpatchdelta: 




2492:: 


9 


r.uw^.w := 24576 (BRO pc relative); 




2493 :C 


9 


r.a := r.a ♦ 2; 
r.sw" := delta2; 




2494:: 


9 




2495 :C 


9 


if printeron then 




2496:: 


10 


begin 




2497:: 


10 


list; write(listin9, '(backward patch) BRfl '); 




2498:: 


10 


gvrp := patchref .gvp; vevalue := 0; 
gvrst rinq(gvrp, vevalue, false, true); 
writeln(listing, gvaluest ring, 
":20"Strlen(gvaluestring), 




2499:: 


10 




2500:: 


10 




2501:: 


10 




2S02:C 


10 


r.a-2 ■loadaddr:10); 




2503:C 


10 


end; 




2504 :C 


9 


end; 




2505:: 


8 


end; 




2506:0 


7 


end; 




2507:: 


6 


object. sw^ ;= foundpatchdelta; 




2508:0 


6 


end; 




2509:0 


3 


end; 




2510:S 








2511:0 


2 


jegin ^procedure copytext) 




2512:0 


2 


(estimate data structures at 3/2 (totalpatchspace) + 1/4 (workspace ) > 
textbufblocks :- |( (highheap. a - lowheap.a) « 3 - 




2513:0 


2 




2514:0 


2 


totalpatchspace * 6 ) div (blocksize * 4); 




2515:S 








2516:0 


2 


refbufblocks := textbufblocks div 4; 




2517:0 


2 


if refbufblocks < 4 then refbufblocks := 4; 




2518:5 






11-616 


2519:0 


2 


textbufblocks := textbufblocks - refbufblocks; 




2520:0 


2 


if textbufblocks < 3 then textbufblocks := 3; 
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2521 :S 








2S22:C 


2 


gbytes ( textbuf fer .a , Textbufblocks * blocksize); 
textbuTtop := lowheap; 




2523:C 


2 




2524 :C 


2 


gbytes ( refbuf fer . a, refbufblockb * blocksize); 




2525:C 


2 


refbuftop ;= lowheap; 




2S26:S 








2527:C 


2 


newindex.a := newdirectory. a + sizeof (moduledirectory) ; 




2528:C 


2 


newindex.a := newindex.a + st rlen [newindex. syp^) + 2 - 
ord(odd(strlen(newindex. syp"")) ) ; 




2529:C 


2 




2S30:C 


2 


if newdi rectory .drp*^ .executable then 




2531 :C 


3 


newindex.a := newindex.a + newindex .gvp"^. short ; 




2532 :S 








2533:C 


2 


merging := false; 




2534 :C 


2 


modptr := neumods: 




2535:C 


2 


while modptr <> NIL do with modptr"^ do 




253S;C 


4 


begin 




2537:C 


4 


if patchmod then 




2538:C 


5 


begin 




2539;C 


5 


if prinleron then 




2540 :C 


6 


begin 




2541 :C 


6 


list; writeln(listing, '(patch space)', patchsize :29, patchbase : 10) ; 




2542 ;C 


6 


end; 




2S43:C 


5 


starttext; 




2544 :C 


5 


patchptr := patchlist; 




254S:C 


5 


while patchptr <> NIL do with patchptr*, patchref .gvp* do 




2546 :C 


7 


begin 




2547;C 


7 


if textbuftop.a - textindex.a < 6 then 




2548 ;C 


8 


dumptext (textindex.a - textbuf fer . a) ; 




2549:C 


7 


if printeron then 




25S0:C 


8 


begin list; 




2551 :C 


8 


gvrp := patchref .gvp: vevalue :* 0; 
gvrstringtgvrp, vevalue, false, true); 




2552:C 


8 




2553 :C 


3 


end' 




2554 :C 


7 


if valueextend then 




2S5S:C 


8 


begin 




2556:C 


8 


if longoffset then valptr.a := patchref. a +5izeof (generalvalue, t rue) 
else valptr.a := patchref. a +sizeof (generalvalue, false) ; 




25S7:C 


9 




2558 :C 


8 


vevalue := valpt r .vep* .value ; 




2559;C 


3 


end 




2560 :C 


3 


else vevalue := 0; 




2561 :C 


7 


if datasize = sword (PC relative branch) then 




2562 :C 


8 


begin 




2S63:C 


8 


if printeron then 




2564 :C 


9 


wr iteln (1 isting, ' BRfl ' .gvaluest ring, 




256S;C 


9 


" :26-strlen(qvaluestring), ob:ect.a-loadaddr:20); 
Ob ect.uw-^.w := 24576 (BRfi pc relative); 




2566:C 


8 




2567 :C 


3 


ob ect .a := object .a + 2; 




2568:C 


8 


object. sw* := vevalue - (object. a - loadaddr); 




2569:C 


8 


Ob ect .a ;= object .a + 2; 
offsetbytes := offselbytes * 4; 




2570:C 


8 




2S71 :C 


8 


end 




2572:C 


8 


else < long absolute branch) 




2573:C 


8 


begin 




2574 :C 


8 


if printeron then 




2575:C 


9 


writeln(listing, ' JHP ', gvaluest ring, 

": 26 -St rlen] gvaluest ring), object.a-loadaddr:20); 
object .uw-^.w := 20217 <JMP long absolute); 




2576:C 


9 




2577:C 


3 




2578:C 


3 


object. a := object. a + 2; 




2579:C 


8 


object .si* := vevalue; 




2580:C 


8 


object .a := object .a + 4; 
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2581 :C 


8 


gbytes(newptr .a, short); 
fastmove(patchref .p, newptr.p, short); 




2582:C 


8 




2583:C 


8 


if valueextend then 




2584 :C 


9 


begin 

valptr.a := newptr.a + (valptr.a - patchref. a); 




2585:C 


9 




2586 rC 


9 


valptr .vep*. value := 0; 




2587:C 


9 


end; 




2588:C 


8 


offsetbytes := offsetbytes + 2; 




2589:C 


8 


putref ; 




2S90:C 


8 


offsetbytes := 4; 




2591 :C 


8 


end; 




2592 :C 


7 


textindex :» object; 




2593:C 


7 


patchptr := patchlist; 




2594 :C 


7 


end; 




2595 :C 


5 


object. a ;= textindex.a + patchsize - (object. a - loadaddr - patchbase); 




2596 :C 


5 


while textindex.a < object. a do 




2597 :C 


6 


begin 




2598 :C 


6 


if textindex.a >= textbuftop.a - 2 then 




2S99:C 


7 


dumptext (textindex.a - textbuffer .a ) ; 




2600 :C 


6 


textindex. sw* := -1; 




2601 :C 


6 


textindex.a := textindex.a + 2; 




2602 ;C 


6 


offsetbytes := offsetbytes + 2; 




2603:C 


6 


end; 




2604 :C 


6 


textoutsize := textoutsize + patchsize; 




2605 :C 


S 


endtext ; 




2606 :C 


5 


forwardpatches := patchlink; 




2607 :C 


5 


patchlink :«= backwardpatches; 
backwardpatches := modptr; 




2608 :C 


5 




2609:C 


5 


end 




2610:C 


5 


else with directory .drp* do 




26U:C 


6 


begin 




2612:C 


6 


oldindex.a := directory. a + sizeof (moduledirectory) ; 




2613:C 


6 


if printeron then 




2ei4:C 


7 


begin 




2615:C 


7 


list; writeln(listing, oldindex .syp*, ' ' :32-5t rlen(oldindex .syp*) , 
relocatablesize:10,relocbase:10. 




2616:C 


7 




2617:C 


7 


globalsize:10, globase:10]; 




2618;C 


7 


end; 




2ei9:C 


6 


oldindex.a := oldindex.a + st rlenfoldindex .syp") + 2 - 
ord(odd(strlen(oldindex.syp*) ) ) ; 




2620:C 


6 




2621 :C 


6 


if executable then oldindex.a := oldindex.a + oldindex. gvp*. short ; 




2622:C 


6 


for oldtextrec := 1 to textrecords do 




2623:C 


7 


begin 




2624 :C 


7 


if oidlndex. tdp*.textsize > then 




2625:C 


8 


begin 




2e26:C 


8 


starttext ; 




2627:C 


8 


loadaddrO := object. a - loadaddr; 




2628 ;C 


8 


with oldindex.tdp* do 




2629:C 


9 


begin 

retinsize := refsize; 




2630:C 


9 




2631:C 


9 


textinsize := textsize; 
refinblock := f ileblock* ref star t ; 




2632:C 


9 




2633:C 


9 


textinblock := f ileblock^textst art ; 




2634:C 


9 


textoutsize := textoutsize + textsize; 




2635:C 


9 


end.; 




2636:5 








2637:C 


8 


inrefindex := refbuftop; 




2638 ;S 
2639:C 


8 


while (refbuftop. a - inrefindex .a) + refinsize > do 


n-617 


2640 ;C 


9 


begin 
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2641 :C 

2642 :C 

2643 :C 

2644 :C 

2645 :C 

2646 :C 

2647 :C 
2648;C 
2649:C 
2650:C 
2651 :C 



2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659:C 
2660:C 
2661 :C 
2662 :C 
2663 :C 
2664 :C 
2665 :C 
2666 :C 
2667 :C 
2668 :C 



2669; 

2670: 

2671: 

2672: 

2673: 

2674: 

2675: 

2675: 

2677: 

2678: 

2679: 

2680: 

2681 :C 

2682:C 

2683:C 

2684 :C 

2685:C 

2686:C 

2687:C 

2688:C 

2689:C 

2690:C 

2691 :C 

2692:C 

2693:C 

2694 :C 

2695:C 



2696 
2697 
2698 
2699 
2700 



9 

9 

9 

10 

11 

11 

11 

11 

11 

11 

U 

11 

U 

9 



10 
10 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
10 

11 
11 

12 
13 



clieckinref : 
newptr := iowheap; 
with inre f index .gvp^ do 
if longoffset then 
begin 

newbytes := long; 

valptr.a := newptr. a + sizeoftgeneralvalue, true); 
end 
else 
begin 

newbytes := short; 

valptr.a :- newptr. a + sizeof (generalvalue, false); 
end; 
object. a := object. a + newbytes; 
offsetbytes := offsetbytes + newbytes; 
makenewqvr [ inref index , modptr); 
with newptr. gvp", valptr.vep" do 
begin 

case datasize of (Srange offS) 
sbyte : 

begin 

checktextbuf( sizeof ( sbyte rec ) ) ; 

value := value + object . sb^. sb; 

object . sb"^. sb :- value; 

value := value - object . sb^. sb; 

end; 
sword : 

begin 

c heck texlbuf[ sizeof (shortint)); 

value := value + object. sw"; 

object. sw^ := value; 

value := value - object. sw^; 

end; 
sint : 

begin 

checktextbuf(sizeof(integer)): 

object. 51^ ;= object. si^ * value; 

value := 0; 

erd; 
ubyte : 

begin 

checktextbuf( sizeof (ubyterec)) ; 

value := value + object . ub^. ub; 

Ob iect . ub" .ub :- value; 

value := value - object . ub'". ub; 

end ; 
uword : 

begin 

checktextbuf( sizeof [ wo rdrec)); 

value := value + object . uw^.w; 

ob ject . uw"^ .w := value; 

value := value - object . uw^.w; 

end; <$range on$} 
otherwise escape[lll); 
end; {case datasize) 
if primarytype = absolute then 
begin 
if value <> then 

if patchable and patching then makepatch 

else patcherror (datasize] ; 
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2701 :C 

2702 :C 

2703 :C 

2704 :C 

2705:C 

2706:S 

2707:C 

2708:C 

2709:C 

2710:C 

2711 : 

2712: 

2713: 

2714: 

2715: 

2716: 

2717: 

2718: 

2719 

2720: 

2721 : 

2722: 

2723: 

2724: 

2725; 

2726:C 

2727:C 

2728 :C 

2729:C 

2730:C 

2731 :C 

2732:C 

2733:" 

2734: 

2736: 

2736: 

2737: 

2738: 

2739: 

2740: 

2741: 

2742: 

2743: 

2744 :C 

2745 :'S 
2746 :C 
2747 ;C 
2748:C 
2749:C 
27S0;C 
2751 :C 
2752:C 
2763:C 
2754 :C 
2755:C 
2756:C 
2757:C 
2768 :C 
2759:C 
2760:C 



11 
11 
12 
10 
9 



else if patching and patchable then makepatch 
else putref; 

end; {with gvrpt r (newpt r)", valptr") 
end; {while there are any ref's ) 

8 newbytes := textindex.a + textinsize - object. a; 

8 offsetbytes := offsetbytes + newbytes; 

8 object. a := object. a + newbytes; 

8 checktextbuf (0) ; 

8 endtext; 

8 end; 

7 oldindex.a := oldindex.a + sizeof [ textdescriptor) ; 

7 oldindex.a := oldindex.a + oldindex.gvp^. short ; 

7 end; {for oldtextrec) 

6 end; {with directory^ do> 

4 modptr := link; 

4 end; 

2 end; {copytext) 

)rocedure printdirectent ry (modnum: shortint; var entry: direntry] 
legin 
wit h ent r y do 

begin 

upc (dtid) ; 

list; write (listing . modnum:4,' ',dtid, 

dlastblk-dfir5tblk:21-5trlen(dtid),' "); 

writedate (list ing , daccess); 

writelndisting, df irstblk :7) ; 

end; 
end; 



procedure bootmod (modnum: shortint); 

const sectorsize = 256; 

var buffer, bufptr, valptr, ptr, 

infostart : addrec; 

object, recordnum: integer; 

procedure writesector (anyvar f: fib; 
beg in 



endrefs, mname. 



anyvar obj: window; size, sector: integer) 



call (f.am, addr(fl, writebytes, obj, size, sector * sectorsize); 
if ioresult <> then escape(114); 

nd; 

begin 

infostart := Iowheap; 
loadinfo (modnum, t rue , true): 
with newmods"^, directory. drp do 
begin 

if extsize > 8 then e5cape(120); 

mname. a := directory. a + sizeof (moduledirectory) ; 

ptr. a := mname. a + st rlen(mname . syp^) + 2 - ord(odd(st rlen (mname -syp"^) ) ) 
if executable then with ptr.gvp"^, f ibp(addr (outf ile) ) ^ do 
begin 

if fst artaddress = then 
if valueextend then 
begin 

valptr.a := ptr. a + sizeof (generalvalue, false) ; 
f startaddress := valptr. vep .value; 



11-618 
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2761 :C 


7 


2762 :C 


5 


2763:C 


5 


2764 :C 


3 


2765 :C 


3 


2766 :C 


5 


2767:C 


5 


2768:C 


5 


2769:C 


6 


2770:C 


6 


2771 :C 


6 


2772:C 


6 


2773:C 


6 


2774:C 


6 


2775:C 


8 


2776:C 


8 


2777:C 


9 


277e:C 


9 


2779:C 


9 


2780:C 


9 


2781 :C 


9 


2782:C 


9 


2783:C 


8 


2734 ;C 


9 


2785:C 


9 


2786:C 


9 


2787:C 


9 


2788:C 


3 


2789:C 


9 


2790:C 


9 


2791 :C 


8 


2792:C 


9 


2793:C 


9 


2794 :C 


10 


279S:C 


9 


2796:C 


9 


2797:C 


8 


2798:: 


6 


2799. -C 


6 


2800:: 


■5 


2801 :: 


5 


2802 :C 


5 


2803 :C 


6 


2804:: 


6 


2805:: 


7 


2806:: 


7 


2807:: 


7 


2808:: 


7 


2809:: 


7 


2810;: 


6 


2811:: 


6 


2812:S 




2813:: 


5 


2814:: 


5 


2815:S 




2816:: 


5 


2817:: 


5 


2818:0 


5 


2819:C 


5 


2820:C 


5 
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end; 
pt r . a :=: pt r . a + short ; 

end ; 
recordnum := 0; 

while lextrecords > do with ptr.tdp" do 
begin 

recordnum :~ recordnum + 1; 

if refsize > then (check to make sure code is "absolute") 
begin 

gbytes (buffer. a, refsize); 

readbIocks(filefib.fbp'",bjffe'-.p'*, refsize.fileblock+refstart); 
bufptr :^ buffer; endrefs.a := buffer. a + refsize; 
object := 0; 

while bufptr. a < endrefs.a do with bufptr. gvp^ do 
begin 
if longoffset then 

begin object := object + Jong; 

bufptr. a := bufptr. a + sizeof (generalvalue, true); 
end 
else begin object := object + short; 

bufptr. a := bjfptr.a * sizeof (generalvalue, false); 
end; 
if valueextend then 
begin 

errorline ■ 

write ['Can'M relocate byte ', object:!, 
' in record ' , reco rdnumrl , 
' of module ' ,mname . syp^) ; 
e5cape(128) ; 
end; 
if primarytype = general then 
begin 
while not bufpt r . rpp^ . last do 

bufptr. a := bufptr. a + sizeof (referencept r ) ; 
bufptr. a ;= bufptr. a + sizeof (referencept r) ; 
end; 
end; 
lowheap := buffer; 
end; 
gbytes(buffer.a, sizeoffintegeri ) j 
ptr.a := ptr.a + sizeof ( te^^tdescriptor) ; 
with pt r .gvp^ do 
begin 

if val(jee>:tend then 
begi n 

valptr.a := ptr.a + sizeof(qenera lvalue, false); 
buffer. p^ := valpt r . vep". val je; 
end 
else buffer . p'*- := 0; 
pt r . a := pt r . a + short ; 
end; 

C|byte5(bufp1 r .a, sizeof(integer) ) ; 
bufpt r . p'^ :- text size ; 

gbyte5( bufptr. a, textsize); 

readb locks [filefib.fbp", bufpt r.p"-,text5ize,fiIeblock + textstart); 
writesec tor (out file, buf fer . p'', textsize+2«5izeof( integer ) , out block) ; 
outblock := outblock + 

(textsize + Z^^sizeof ( integer) + [sec torsize-1 ) ) div sectorsize; 
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2822 :C 5 


2823 :C 5 


2824:: 3 


2825 :C 2 


2826:: 2 


2827 :C 2 


2828:S 


2829:0 1 


2830:0 2 


2831:0 2 


2832:0 -6 2 


2833:0 -10 2 


2834:0 -12 2 


2835 :C 2 


2836 :C 2 


2837:C 3 


2838 :C 4 


2839:0 S 


2840:0 S 


2841:0 5 


2842:0 5 


2843:0 S 


2844:0 5 


2845:0 4 


2846:0 4 


2847:0 4 


2848:0 4 


2849:0 4 


2850:0 4 


28S1:S 


2852:0 4 


2853:0 4 


2854:0 4 


2855:0 4 


2856:0 S 


2857:0 6 


2858:0 5 


2859:0 4 


2860:0 6 


2861:0 5 


2862:0 S 


2863:0 4 


2864:0 5 


2865:0 5 


2866:0 6 


2867:0 S 


2868:0 5 


2869:C 5 


2870:0 6 


2871:0 5 


2872:0 6 


2873:0 4 


2874:0 4 


2875:0 4 


2876:0 2 


2877:3 


2878:0 1 


2879:0 2 


2880:0 2 
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shortint ; 
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lowheap := buffer; 
textreccrds := textrecords - 1: 
end; 
end ; 
lowheap := info start; 
newmods :- NIL; 
end ; 

procedure copymodulefmodnum; short in t ) ; 
const fosize = 5izeoT(addrec)+5izeof(fib,I); 

fsize = fosize*ord(odd(fo3ize) ) ; 
var startblock, numblocks, transblocks: 
copybuffer : addrec; 
bufb locks: shortint; 
begin 

if booting then bootmod (modnum) 
else if linking then begin 

if loadfib.a >= highheap.a then 
begin 

fastmove(highheap.p, lowheap. p, fsize); 
highheap.a := highheap.a + fsize; 
lowheap. a := lowheap. a * fsize; 

load fib. a := loadfib.a - (high heap. a - lowheap. a); 
end; 
loadinfo (modnum, t rue, t rue) 
end 
else 
begin 

buTblocks := (highheap.a -lowheap. a) div blocksize; 
gbyles(copybuffer .a, bufblocks * blocksize); 

if outniodnurri>=maxmoduIes then e5cape(127); 
outmodnum ;= outmodnun + 1; 

outdirectory.fdp"^ [outmodnum] := fdirectory^ [modnum] ; 
with fdirectory" [modnum] do 

begin 

startblock := dfirstblk; numblocks := dlastblk-startblock; 

end; 
with outdirectory .fdp'^[outmodnum] do 

begin 

dfarstblk := outblock; dlastblk ;= outblock + numblocks; 

end; 
while numblocks > do 

begin 

if' numblocks <= bufblocks then transblocks := numblocks 
else transblocks ;= bufblocks; 

readb locks (loadfib.fbp", copybuffer.p^, t ran sb locks* blocksize, startblock); 

blockwrite (out file, copybuffer.p"-. transblocks, outblock); 

startblock ;= startblock + t ran sb locks; 

outblock := outblock + transblocks; 

numblocks := numblocks - transblocks; 

end; 

lowheap := copybuffer; 

<if printeron then printdirectent ry(outmodnum, outdirectory . fdp^Eoutmodnum] ) ; > 
end; 
end; 

procedure wr itedi rector y; 

begin 

with newdirectory .drp'^ do 
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2881 :C 




3 


begin 




2882 :C 




3 


modulesize := nextblock « blocksize; 




2883:C 




3 


blockwrlte(outf ile, new/director y.drp-^, extblock, ouTblock); 




2884:C 




3 


end; 




2885:S 










2886:C 




2 


if outmodnum>=rnaxmodules then e5cape(127); 




2887:: 




2 


outmodnum ;= outnodnum + 1; 




2888;C 




2 


with outdirecto ry . fdp^Coutmodnum] do 




2889;C 




3 


begin 




2890:C 




3 


dfirstblk := outblock; 




2891 :C 




3 


outblock := ouTblock + nextblock; 




2892:C 




3 


dlastblk := outblock; 




2893:C 




3 


dfkind := codefile; 




2894 :C 




3 


movelef t (newiTiQdname.syp^, dtid, sizeof (f ilname) ) ; 




2895:C 




3 


if strlen(dtid) > fnlength then setst r len [dtid, fnlength); 
dlastbyte :» 256; 




2896:C 




3 




2897:C 




3 


daccess ;= todaysdate; 




2898:C 




3 


end; 




2899:C 




2 


■:if printeron then printdi rectent ry (outmodnum, outdirectory. fdp''[outmodnum] ] ; ) 




2900 :C 




2 


end; 




2901 :S 










2902:D 




1 


procedure trim(var s: string); 




2903:D 


-4 


2 


vai- first, last: shortint; 




2904 :C 




2 


beqir 

.ast := strlen(s] ; 




2905 :C 




2 




2906:: 




2 


while last > do 




2907:: 




3 


begin 




2908:: 




3 


if s[last] = ' ' then 




2909:: 




4 


begin last :- last - 1; if last - then s := '': end 




2910:: 




4 


else 




2911:: 




4 


begin 




2912:: 




4 


first := 1; while sCfirst] = ' ' do first := first ♦ 1; 




2913:: 




4 


s := str(5, first, last - first * 1); last :• 0; 




2914:: 




4 


end; 




2915:: 




3 


end; 




291$:: 




2 


end; 




2917:S 










2918:D 




1 


procedure toggleprinter ; 
var newlistname: stringSO; 




2919:0 


-82 


2 




2920:D 


-100 


2 


fvid: vid; 




2921:D 


-222 


2 


ftitle: fid; 




2922:0 


-226 


2 


fsegs: integer; 
fkind: filelind; 




2923:0 


-228 


2 




2924:: 




2 


begin 




2925:: 




2 


printeron := not printeron; 




2926:: 




2 


if printeron then 




2927:: 




3 


tegin 




2928:C 




3 


fgotoxy(output , 13,3); write(* ',cteoI); 




2929:C 




3 


readln(newlistname) ; 




2930:C 




3 


fixname[newli5tname, textfile); 




2931 :C 




3 


:f scantitle(newli5tname, fvid, ftitle, fsegs, fkind) then ; < jws 3/2/84) 




2932;: 




3 


:f St rlen(newlisTname)>0 then 




2933:: 




4 


begin 




2934:0 




4 


listfilename := newlistname; 




2935:: 




4 


if fsegS'O then < jws 3/2/84 > 




2936:: 




5 


sappend(newlistname, '[*]'); 




2937:: 




4 


pagee ject ; 




2938:0 




4 


if (pagenuni=0) and (linentjm=0) 
then closellisting) 




2939:: 




5 




2940:0 




5 


else closellisting, 'lock'); 
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2941:: 




4 


rewrite(listing, newlistname); 




2942:: 




4 


pagenum := 0; linenum := 0; 




2943:: 




4 


printopen := ieresult = 0; 




2944:: 




4 


printeron ;= printopen; 




2946:0 




4 


if not printopen then escape(118); 




2946:: 




4 


end 




2847:: 




4 


else printeron := printopen; 




2948:: 




3 


end; 




2949:: 




2 


end; 




2950 :S 










2951:0 




1 


procedure copyon; 




2952:0 




2 


beqin 




2953:0 




2 


Jowheap := infostart; 




2954:0 




2 


linking := false; 




2955:0 




2 


end; 




29S6:S 










2957:0 




1 


procedure closein; 




2958:0 




2 


begin 
it fdirectory <> NIL then 




2959:0 




2 




2960:0 




3 


begin 




2961 :C 




3 


if loadfib.a >= highheap.a then 




2962:0 




4 


begin 




2963:0 




4 


close(loadfib.php^) ; 

Joadflb.a :» loadfib.a - sizeof (addrec) ; 




2964:0 




4 




2965:0 




4 


loadfib := loadf ib . arp"; 




2966:0 




4 


end: 
highheap := highheapO; fdirectory := NIL; 




2967:0 




3 




2968:0 




3 


vmodnum := 0; verifying := false; 




2969:0 




3 


end; 




2970:0 




2 


end; 




2971 :S 










2972:D 




1 


procedure initlink; 




2973:C 




2 


begin 




2974:0 




2 


linking := true; defsout := true; 




2975:0 




2 


infostart := lowheap; newmodname . syp := NIL; 




2976:0 




2 


startreloc := 0; startglobal := 0; 




2977:0 




2 


copyright := ' ' ; 




2978:0 




2 


end; 




2979:S 










2980:0 




1 


procedure link; 
3egin 




2981:0 




2 




2982:0 




2 


errors := 0; 




2983:0 




2 


fgotoxy(output , 0,23); write ( 'LINKING ...'); 




2984:0 




2 


rsolve; 




2985:0 




2 


if printeron then 




2986:0 




3 


begin 




2987:0 




3 


list; writelnflisting, 'link map", 'Rsize':34, 'Rbase':10, 'G5ize':10, 'Gba5e*:10); 
list; writelntlisting, ' ':42, '-- :10, ' ':10, ' .10); 




2988:0 




3 




2989:0 




3 


end; 




2990:0 




2 


newdirectory := lowheap; 




2991:0 




2 


mergeexts; 




2992:0 




2 


makedir; (also write new ext table, move down directory) 




2993:0 




2 


mergedefs; 




2994:0 




2 


copytext : 




2995:0 




2 


wr itedirectory; 




2996 :S 










2997:0 




2 


if printeron then 




2998:0 




3 


begin 


11-620 


2999:0 




3 


list; writelndisting, ' ':42,' ':20); 


3000:0 




3 


list; 
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... 


3001 :C 


3 


if (lewmodname.syp = NIL then write ( listing, '(no name)', ":32-9) 




3002:C 


4 


else writellisting, newmodname . syp^, ' ' :32-st rlen(newmodname . syp^) ) ; 




3003:C 


3 


writeln(listing, totalreloc : 10, totalglobal :20) ; 




3004:C 


3 


listin; 




3005:C 


3 


end; 




3006:C 


2 


closein: 
closef lies; 




3007:C 


2 




3008:C 


2 


lowheap := infostart; {release memory used by linker) 




3009:C 


2 


linking ;= false; newmods := Nil; 




3010:C 


2 


if errors > then escape(122J; 




3011:C 


2 


end; (link) 




3012:S 








3013:S 








3014:D 


1 


procedure printdirectory; 




3015:0 


-2 2 


var numfiles: shortint; 




3016:D 


-4 2 


modrum: shortint; 




3017;C 


2 


begin 




3018:C 


2 


list; writelrdisting, 'FILE DIRECTORY OF: "•, loadf ib , fbp". ft id, ""); 
listin; 




3019:C 


2 




3020:C 


2 


numfiles ;= fdirectory''[0] . dnumf iles , 




3021 ;C 


2 


for modnum := 1 to numfiles do 




3022:C 


3 


printdirectent ry (modnum, fdi rectory^ [modnum] ) ; 




3023:C 


2 


listin; 




3024 :C 


2 


end; 




302S:S 








3026:0 


I 


procedure copyfile; 




3027:0 


-2 2 


var modnum: shortint; 




3028:C 


2 


begin 




3029:C 


2 


for modnum := 1 to fdi rectory'^[0] .dnumf iles do 




3030:C 


3 


copymodule (modnum) ; 




3031 :C 


2 


closein; 




3032:C 


2 


end; 




3033:S 








3034:0 


1 


procedure verifynext; 




3035:C 


2 


begin 
if vmodnum < fdirectory^ [0] .dnumf iles then 




3036:C 


2 




3037:C 


3 


begin 




3038:C 


3 


vmodnum := vmodnum * 1; 




3039;C 


3 


upc (fdi rectory'^ [vmodnum] .dtid) 




3040:C 


3 


end 




3041 ;C 


3 


else 




3042 :C 


3 


begin 




3043:C 


3 


vmodnum := 0; 




3044 :C 


3 


verifying := false; 




3045:C 


3 


end; 




3046:C 


2 


end; 




3047 :S 








3048:0 


1 


procedure verifymod; 




3049:C 


2 


begin 




3060 :C 


2 


vmodnum := 0; verifying := true; 




3051 :C 


2 


verif ynext ; 




3052 :C 


2 


end; 




3053 :S 








30S4:D 


1 


procedure xfer ; 




3055:0 


-2 2 


var modnum: shortint; 




3056:C 


2 


begin 
if verifying then 




3057:C 


2 




3058:C 


3 


begin 




3059 :C 


3 


copymodule (vmodnum) ; 




3060 :C 


3 


veraf ynext ; 
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*.** 


3061 :C 


3 


end 




3062:C 


3 


else 




3063:C 


3 


begin 




3064:C 


3 


for modnum := 1 to fdirectory'^[0] .dnumf iles do 




306S:C 


4 


with fdirectory'[modnum] do 




3066:C 


S 


begin 




3067:C 


5 


upc(dtid); 




3068:C 


S 


if dtid = fdirector y^[vmodnum] .dt id then 
copymodule (modnum) ; 




3069:C 


6 




3070:C 


5 


end; 




3071:C 


3 


vmodnum := 0; 




3072:C 


3 


end ; 




3073:C 


2 


end; 




3074 :S 








3075:D 


1 


procedure openin; 




3076:0 


2 


const fosize = sizeof (addrec)+sizeof ( f ib, 1 ) ; 




3077:0 


2 


fsize =^ fo5ize+ord(odd(fosize) ) ; 




3078:C 


2 


begin 
closein; 




3079:C 


2 




3080:C 


2 


fgotoxyloutput, 22,13); write (cteol) ; 

if 5trien(inf ilename)*0 then < if no name then get it > 




3081;C 


2 




3082:C 


3 


begin readln( inf ilename) ; f ixname(inf ilename , codefile); 




3083:C 


3 


end; 




3034 :C 


2 


if 5trlen(inf ilename) > then 




3085 :C 


3 


begin 




3086 :C 


3 


openlinkfile( inf ilename) ; 




3087 :C 


3 


if fdirectory = NIL then 




308e:C 


4 


begin errorlane; 




3089:C 


4 


writeCcannot open '", infilename, "', '); 




3090 :C 


4 


ioerror; 




3091 :C 


4 


end 




3092 :C 


4 


else 




3093 :C 


4 


begin highheap.a := highheap.a - fsize; 
lowheap. a := lowheap. a - fsize; 




3094 :C 


4 




3095 :C 


4 


f astmove(lowheap.p, highheap.p, fsize); 

loadfib.a := loadfib.a + (highheap.a - lowheap. a); 

if fdlrectory*[0] .dnumfiles = 1 then vmodnum := 1 




3096:C 


4 




3097:C 


4 




3098:C 


5 


else verifymod: 




3099:C 


4 


end; 




3100:C 


3 


end; 




3101:C 


2 


end; < openin ) 




3102:S 








3103:0 


1 


procedure closeout; 




3104:C 


2 


begin 
closein; 




3105:C 


2 




3106:C 


2 


with outdirectory. fdp'^[0] do 




3107:C 


3 


begin 




3108:C 


3 


deovblk := outblock; 




3109:C 


3 


dnumfiles := outmodnum; 




3110:C 


3 


outopen := false; outmodnum := 0; 




3111;C 


3 


lowheap := outdirectory; 




3112:C 


3 


blockwrite(outf lie, outdirectory. fdp*, outdirectsize, 0); 
close(outfile, 'lock'); 




3113:C 


3 




3114;C 


3 


if ioresult <> then escapell26); 




311S:C 


3 


end; 




3116:C 


2 


end; 




3117:S 








3118:0 
3119:0 


1 
-8 2 


procedure openout (boot : boolean); 
var 1,1: integer: 

nul: string[r!; typestring: string[6]; 


11-621 


3120:0 


-18 2 
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3121:0 


-30 2 


3122:C 


2 


3123:C 


2 


3124:C 


2 


312S;C 


2 


3126:C 


2 


3127:C 


3 


3128:C 


3 


3129:C 


3 


3130:C 


3 


3131:C 


2 


3132:C 


2 


3133:C 


2 


3134:C 


2 


3135:C 


2 


3136:C 


3 


3137:C 


3 


3138:C 


3 


3139:C 




3140:C 




3141 :C 




3142:C 




3143:C 




3144:C 




3145:C 




3146:C 
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3147:C 

3148:C 

3149;C 

3150:C 

3151 :C 

31S2:C 

3153: 

3154: 

3155: 

3156: 

3157: 

3158: 

3159: 

3160: 

3161: 

3162:C 

3163:C 

3164:C 

316S:C 

3166:C 

3167:C 

3168:C 

31$9:C 

3170: 

3171: 

3172: 

3173: 

3174: 

3175: 

317S: 

3177:D 

3178:D 

3179:C 

3180:C 



thirdparm: string[10}; 
begin 
thirdparm := 'shared'; 
if linking then iowheap := infostart; 
linking := false; 
if outopen then 

begin 

close (outf ile) ; 

lowheap := outdirectory; 

end; 
outopen := false ; 

fgotDxy(output , i?2,4); wr ite (c teol ] ; 
rpadln(out filename J ; 
t rim(outf ilename ) ; 
if St rlen (out filename ) > then 
begin 

if boot then 
begin 

fi>;name (out filename, sysfile); 

reset (outf ile , out filename) ; close (out file, 'PURGE'); 

typestring ;= '.SYSTM'; fmaketype(outf ile, outfilename, thirdparm, typestring) 
outopen := (ioresult = 0); 
outblock := 0; 
end 
else 
begin 

fip^name (outf ilename, codefile); 

typestring := '.CODE'; fmaketype (out file, outfilename, thirdparm, typestring); 
if ioresult = then 
begin 

gbytes (outdirectory. a, outdirectsi2e*blocksize); 
with outdirectory . fdp'^LO] do 
begin 

dfirstblk := 0; dlastblk := outdirectsize; 
dfkind := untypedfile {volume entry); 
moveleft (outf Ilename , dvid, sireof (volname) ) ; 

if St rlen(outfilename) > vnlenqth then setst rlen (dvid, vnlength); 
deovblk := outdirectsize; dnumfiles := 0; 
dloadtime ;= 0; dlastboot := todaysdate; 
end; 
outblock := outdirectsize; 
outopen := true; 
end; 
end ; 

if outopen then booting := boot 
else 
begin 

booting := false; 
errorline; 

write ( 'cannot open ''', outfilename, ''', '); 
ioer ror ; 
end; 
end; 
end; { openout } 



1 procedure setmaxmodules; 

2 var total, excess: integer; 
2 begin 

2 fgotoxy(output, 30,6); write (cteol ) ; 
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3181 :C 

3182:C 

3183:C 

3184:C 

3185:C 

3186:C 

3187:C 

3188:" 

318 

3190: 

3191: 

3192: 

3193: 

3194: 

3195: 

3196: 

3197: 

3198:C 

3199:S 

3200:D 



3201 : 

3202:C 

3203:C 

3204 :C 

3205 :S 
3206 :D 
3207:C 

3208 :C 

3209 :C 
3210:C 
3211:C 
3212:S 
3213:0 
3214: 
3215: 
3216: 
3217: 
3218: 
3219: 
3220: 
3221 : 
3222: 
3223: 
3224: 
3225: 
3226: 
3227: 
3228: 
3229: 
3230: 
3231: 
3232: 
3233; 
3234; 
3235:C 
3236:C 
3237:C 
3238:C 
3239:C 
3240:C 



readint (maxmodules 

egin 

f maxmodules 

begin 

maxmodules 

escape(125) 

end; 

f maxmodules <= then maxmodules := 0: 

utdirectsize := ( [maxmodules+1 )«ent rysize+ (blocksize-1 ) ) div blocksize; 
axmodules :« outdlrcct5ize«blocksize div entrysize - 1; 



then 
300000 then 
38; 



2 if 

3 
3 1 
4 

4 

4 

4 

3 i 

3 o 

3 m 

3 e 

2 end; 



1 procedure setreloc; 

2 begin 

2 fgotoxy(output , 21,7): 
2 if readint (start reloc) 
2 end; 



1 procedure setglobal; 

2 begin 

2 fgotoxy(output , 21,8); write (cteol) ; 
2 if readint (startglobal) then ; 
2 end; 



write(cteol ) ; 
then ; 



procedure setcopyright ; 

begin 

f>jotoxy(output, 0,12); 
fgotoxy(output, 22,11) 
readln (copyright) ; 

end ; 



wrlte(cteol) 
write (cteol 



1 procedure makepatchspace; 

2 var pmod: addrec; 
begin 

fgotoxy(output , 23^9); write(cteol ) ; 
if readint (patchbytes) then 
if patchbytes > then 

begin 

patchbytes ;= patchbytes + ord (odd (patchbytes ) ) 

gbytes (pmod. a, sizeof (moduledescriptor , true) ) ; 

with pmod.mdp do 



end ; 



begin 
patchmod := true; 
link := newmods: 
patchlink := NIL; 
end ; 
end; 



patchsize 
newtnods : = 
patchlist 



= patchbytes; 
pmod.mdp; 

= NIL; 



1 procedure setname; ' 

2 var s: stringSO; 
2 begin 

2 fgctoxy(output, 24,6); wr ite(cteol ) ; 
2 readln(s) ; t rim(5) ; 

2 if strlen(s)=0 then newmodname . syp := NIL 

3 else 

3 begin 

3 upc(s); 

3 gtytes [newmodname . a, st rIen(s)*2-ord(odd(5t rlen (s) 



11-622 
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3241 :C 


3 


3242:C 


3 


3243:C 


2 


3244 :S 




3245:D 


1 


324B:D 


-82 2 


3247:0 


-84 2 


324S:C 


2 


3249:C 


2 


3250:C 


2 


3251 :C 


2 


3252:C 


2 


3253:C 


3 


3254:C 


3 


325S;C 


3 


3256:C 


4 


3257:C 


5 


3258:C 


5 


3259:C 


6 


3260:C 


6 


3261 :C 


5 


3262;C 


3 


3263:C 


4 


3264 :C 


4 


326S:C 


4 


3266:C 


4 


3267:C 


3 


3268 :C 


2 


3269;S 




3270:D 


1 


3271 :D 


-4 2 


3272:C 


2 


3273:C 


2 


3274 :C 


3 


327S:C 


2 


3276:C 


2 


3277 :C 


3 


3278:C 


3 


3279:C 


3 


3280:C 


4 


3281 :C 


5 


3282 :C 


5 


3283 :C 


S 


3284 :C 


5 


3285 :C 


3 


3286 :C 


3 


3287:C 


2 


3288:S 




3289:0 


1 


3290:C 


2 


3291 :C 


2 


3292:C 


2 


3293:S 




3294:0 


1 


329S:C 


2 


3296:3 




3297:0 


1 


3298:0 


2 


3299:0 


-48 2 


3300:0 


-60 2 
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move left (s , newmodname ■syp'^, strlen(5) + l); 
end; 
end; {setname) 

procedure openmod ; 
var s : St ringSO; 
i ; short int ; 
begin 

verifying := false; vmodnum := 0: 
fgotoxy(output , 18,18); \wri te (c teol ) ; 
readln fs) ; t rim( s) ; 
if 5t rlen(s) > then 
begin 

upc (s) ; i : = 1 ; 

while (i <= fdirectory'^[0] . dnijmf iles ) and [vmodnum = 0) 
with fdirectory" [i] do 
begin 
upc Jdtid) ; 

if 5 = dtid then vmodnum := i 
else i : = i + 1 ; 
end; 
if vmodnum = then 
begin 

errorline: wri te ( 'module ''', s,''" not found in file 
esc ape (123) ; 
end; 
end; 
end; (openmod) 

procedure findmod (var s : filname; var nishortint); 

var i : integer ; 

begin 

if strlen(s)=0 then { if no name given then get it > 

begin readln(s); trim(s); end; 

n:= 0; 

if St rlen (s) > then 

begin 

upc (5) ; i := 1 ; 

while (i <= fdirectory^ [0] .dnumf iles) and (n = 0) do 
with fdirectory'^Ci] do 
begin 

upc (dtid ) ; 

if s = dtid then n := i else i:= i + 1; 
end; 
if n = then n: = -l; ( sign<al not found > 
end; 
end; ( findmod ) 

procedure clear(N: shortint); 
begin 

repeat writeln (cleol) ; n := n - 1; until n <= 0; 
end; 

procedure none; 

begin write('(none)'); clear(l); end; 

procedu re doedit ; 
var 

f irstrnodname, unt ilmodname, oldvmodname : filname; 

f ir strnodnum, untilmodnum, oldvmodnum : integer; 
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oldfi lename : st ringSO ■ 
modlist : st ring25S; 
assoc : boolean : 
Ic : st ring [4] ; 
tempf ; filname; 
im : short int ; 
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3301:0 -142 2 


3302:0 -398 2 


3303:0 -399 2 


3304:0 -404 2 


3305:0 -420 2 


3306:0 -422 2 


3307:S 




3308:0 


2 


3309:C 


3 


3310:C 


3 


3311:C 


3 


3312:C 


4 


3313:C 


4 


3314:C 


4 


331S:C 


4 


3316:C 


3 


3317:0 


2 


3318:C 


3 


3319:C 


3 


3320:0 


2 


3321 :C 


3 


3322:C 


3 


3323:S 




3324 :C 


2 


3325:C 


2 


3326;C 


2 


3327:C 


2 


3328:C 


3 


3329:C 


2 


3330:C 


2 


3331 :C 


2 


3332:C 


2 


3333 :C 


3 


3334;C 


3 


333S:C 


3 


3336:C 


3 


3337:C 


4 


3338:C 


4 


3339:C 


3 


3340:C 


3 


3341 :C 


3 


3342:C 


3 


3343:C 


3 


3344 :C 


3 


3345:C 


3 


3348:C 


4 


3347:C 


4 


3348:C 


4 


3349 :C 


4 


33S0:C 


5 


3351 :C 


6 


3352:C 


4 


33S3:C 


4 


3354 :C 


4 


335S:C 


4 


335S:C 


3 


3357 :C 


3 


3353 :C 


4 


33S9:C 


4 


3360:C 


4 



procedure checkassoc; 
begin 

assoc ;=as50C and (vmodnum>0) ; 

if assoc then 

begin firstmodname :=fdirectory^ [vmodnum] .dtid; 
fir5lmodnum:=vmodnum; 
assoc :=assoc and ( firstmodnumo untilmodnum) ; 

end; 
end; 

procedure outoforder; 

begin errorline; write( 'module ', tempf,' out of order'); dobeep; 
end; 

procedure mnotfoundj 

begin errorline; write('module ', tempf,' not found'); dobeep; 
end; 

begin ( doedit > 

untilmodname := '(end of file)'; 

unt ilmodnum : = fdirectory'^(Oj .dnumfiles+l ; 

if vmodnum=0 then firstmodname :=' (none) ' 

else firstmodname := fdi rect or y^[ vmodnum] .dtid; 
firstmodnum := vmodnum; 
assoc ;= true; 

fgoto.xy(out put, 0,2); write(cte05); 
repeat 



fgotoxyfoutput ,0,2) ^ 
writeln('S Stop editin 



op editing' ) ; 
clear(2) ; 
if tirstmodnum>0 then 

writeln('C Copy First module upto Until module' ,cteol) 
else clear [1 ) ; 

First module: ', firstmodname, cteoll ; 
, untilmodname,cteol I ; 



module : 
Until module: 



'); clear (S); 



ritelnf'F 
writeln( 'U 
clear(l): 

writelnf'ft Append module(s) 
fgotoxy(output ,0,18) : 
write('t1 input Module: '); 

if vmodnum = then begin none; clear(3); end 
else 
begin 

writeln (fdi rectory^ [vmodnum] .dtid,cteol) ; 

if booting then Ic := 'boot' 

else if linking then Ic := 'link' 
else Ic :^ 'copy' ; 

writeln; 

writeln('T Transfer (',1c,') 

wri teln ( '<space> to continue 
end ; 

getcommandchar ('Edit option?' ,cormandchar) ; 
case commandchar of 
'fl' :begin 

oldfi lename : = infi lename; < save current input file name ) 
oldvmodnum := vmodnum; { same current module number & name > 



module' ,cteol) : 
verifying' .cteol) ; 
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3361 .-C 




oldvmodname := fdirectory*[vmodnum] .dt id; 




3362 :C 




fgotoxy(outpLit ,0,13) ; wnteC Input file: '.cteol); 
setst rlen(infiiename,0) ; 




3363 :C 






3364 :C 




openin; get new input file ) 

if 5trlen(lnfi enamej>0 then begin ( 3.0 BUG FIX -- 4/11/84 > 

{ get list of modules and copy them ) 

fgotoxy(output ,0,10) ; 




3365 :i; 






3366 :i: 


6 




3367 :C 


5 




3368 :i; 


6 


writeln( 'enter list of modules or = for all'); 




3369 :i: 


S 


readln(modlist ) ; t rim(modlist ) ; upc (modlist ) ; 
if modlist='=' then 




3370 :i: 


6 




3371 :C 


6 


begin ( all modules > 

for lm: = l to fdi rectory'^tO] .dnumf ilea do 




3372 :C 


6 




3373 :i; 


7 


begin 

fgotoxy(output,0,ll); write {fdirectory'^[im] ,dtid,cteol); 




3374 : C 


7 




3375 :C 


7 


copymodule (im) ; 




337S:C 


7 


end; 




3377 :C 


6 


end 




3378 :i; 


6 


else 




3379 :C 


6 


while strlen(inodli5t )>0 do 




3380 :C 


7 


begin 




«««UfiRNING: 


(line 


3381): STRPOS does not conform to HP standard, see JSUITCH_STRPOS$ 




3381::: 


7 


im: =st rpos ( ' , ' ,modlist ) ; 




3382:C 


7 


if im=0 then im: = st rlen [modlist ) + l ; 




3383:C 


7 


try 




3384:3 


8 


if im>5izeof (tempf ) then escape(129) 




3385:; 


9 


else tempf :=str (modlist ,l,im-l) ; 




3386 :i: 


8 


if im>5t rlen(modlist) then setst rlen[modlist ,0) 




3387 :C 


9 


else 5trdelete(modli5t , i,im) ; 




3388 ;i: 


8 


if St rlen ( tempf )>0 then 




3389 :i; 


9 


begin { find the module and copy it } 
findmod ( tempf, vmodnum) ; 




3390 :C 


9 




3391 :C 


9 


if ymodnum>0 then copymodule (vmodnum) else e5cape(123); 




3392 :C 


9 


fgoto>cy[output,0,ll); write (modlist ,cteol ) ; 




3393 :C 


9 


end; 




3394 ;C 


8 


recover 




3395 :C 


8 


begin 




3396 :C 


8 


lm:=e5capecode; errorline; 




3397 :C 


8 


case im of 




3398:1: 


9 


123: writelnr 'module ', tempf,' not found'); 




3399 :C 


9 


129: writeln( 'invalid module name'); 




3400 : C 


9 


otherwise escape(im) 




3401 :C 


9 


end; { case im ) 




3402 :C 


8 


dobeep; setst rlen(modlist ,0] ; { zap module list to force exit ) 




3403 :C 


8 


end;^ end recover) 




3404 :i: 


7 


end; <while list not empty) 




34 05:;; 








3406:(: 


5 


if not streaming then < 3.0 bug fix -- 4/9/84 jws > 




3407 :i; 


6 


repeat getcommandchar ( 'Append done, <space> to cont inue ' .commandchar ) ; 




3408 :C 


7 


until corrniandchar=' '; 




3409 :C 
3410:S 
3411 :C 


5 


end; < 3.0 BUG FIX -- 4/U/84 ) 




4 


infilerame := oldfilename; 




3412:i: 


4 


openin; < reopen the old file & find old input nodule ) 
if oldvmodnum-O then vmodnum:=0 




3413:i: 


4 




34i4:i: 


5 


else 




3415:(: 


5 


begin 

findmod (oldvmodname, vmodnum) ; 




3416:(: 


5 




3417:i: 


5 


if (vmodnumooldvmodnum) then 




3418:i: 


6 


begin errorline; 




3419:(: 


6 


write( 'unable to find old input module ', oldvmodname ) ; 
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3420 :(: 


6 


vmodnum: =0; dobeep; 




3421 :( 


6 


end; 




3422 :C 


5 


end; 




3423 :t 


4 


end; 




3424 :t 


4 


'C':if (f irstmodnum>0) and ( f irstmodnum<untilmodnum) then 




3425 :C 


5 


begin 

for im:=f irstmodnum to untilmodnum-1 do 




3426 :C 


5 




3427 :( 


6 


begin fgotoxy(output ,0,8) ; 

write('now copying ' , fdirectory^[im] .dt id,cteol) ; 




3428 :C: 


6 




3429 :( 


6 


copymodule (im) ; 




3430 :(; 


6 


end; 




3431 :( 


5 


if assoc then 




3432 :(: 


6 


begin 




3433 :[ 


6 


if untilmodnum>fdirectory'^[01 .dnumfiles 




3434 :C 




then begin vmodnum := 0; 




3435 :C 




firstmodname := '(none)'; 




3436 :C 




end 




3437 ;C 




else begin vmodnum := untilmodnum; 




3438 :C 




firstmodname :=: fdirectory^[vmodnum] .dt id; 




3439 :C 




end; 




3440 :C 


6 


firstmodnum := vmodnum; 




344 1 : C 


6 


assoc:= assoc and (vmodnum>0); 




3442 :r 


6 


end; 




3443 :C 


5 


end 




3444 :C 


5 


else dobeep; 




3445 :C 


4 


'F' :begin 

fgotoxy(output ,17,6); write fcteol); 
setst rlen (tempf ,0) ; findmod (tempf , im) ; 
case im of 




3446 : C. 


4 




3447 :C 


4 




3448 :C 


4 




3449 :C 


5 


-1: mnotfound; 
0: { no module name given, so use default > 

begin if (vmodnum>0) and (vmodnum<=untiimodnum) then 




3450 :C 


5 




3451 :C 


5 




3452 :C 


6 


begin firstmodname := fdirectory^[vmodnum] .dtid; 




3453 :C 


6 


firstmodnum := vmodnum; 




3454 :C 


6 


assoc := assoc and (vmocInum<untilmodnum) ; 




34SS:C 


6 


end 




3456 :C 


6 


else dobeep; 




34S7:C 


5 


end; 




3458 :C 


5 


otherwise { found the module ) 




3459 :C 


S 


if im<=untilmodnum then 




3460:C 


6 


begin firstmodname := tempf; f irstmodnum:=im: assoc :*falae; 




3461 :C 


6 


end 




3462 :C 


6 


else outoforder; 




3463 :C 


5 


end; { case im > 




3464 :C 


4 


end; 




3465:0 


4 


'H': if fdirectoryoNIL then 




3466:: 


5 


begin openmod; 

If vmodnum>6 then begin < 3.0 BUG » 57 4/10/84 > 




3467 :C 


5 




3468 :C 


6 


assoc := assoc and (vmodnum<untilmodnum) ; 




3469 :C 


6 


if assoc then 




3470:C 


7 


begin 

firstmodname := fdirectory^[vmodnum] .dtid; 




3471 :C 


7 




3472 :C 


7 


firsltmodnum := vmodnum; 




3473 :C 


7 


end; ' 




3474 :C 


6 


end ( 3.0 BUG * 57 4/10/84 ) 
else dobeep < 3.0 BUG # 57 4/10/84 > 




3475:C 


6 




3476:C 


6 


end 




3477:C 
3478:C 


5 
4 


else dobeep; 
'S':; 
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3479:C 


4 


'T * : if vmodnijm>0 then 
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3480 :C 


5 


3481 :C 


5 


3482 :C 


5 


3483:C 


4 


3484 :C 


4 


3485:C 


4 


3486 :C 


4 


3437:C 


5 


3488:C 


5 


3489:C 


S 


3490:C 


5 


3491 :C 


5 


3492:C 


5 


3493 :C 


5 


3494 :C 


6 


349S;C 


6 


3496 :C 


6 


3497 :C 


5 


3498 :C 


5 


3499 :C 


4 


3500:C 


4 


3S01:C 


6 


3502 :C 


5 


3603:C 


5 


3S04;C 


4 


350S:C 


4 


3606 :C 


3 


3507 :C 


2 


3S08:S 




3509:D 


1 


3510:C 


2 


3511:C 


2 


3S12:C 


2 


3613:C 


2 


3S14:C 


2 


3615:C 


2 


3516:S 




3S17:D 


1 


3S18:D 


-6 2 


3518:C 


2 


3520 :C 


2 


3521 :C 


2 


3522 :C 


2 


3523 :C 


2 


3524 :C 


3 


3525:C 


3 


3526;C 


4 


3S27:C 


3 


3528 :C 


3 


3529 ;C 


3 


3530:C 


3 


3631 :C 


2 


3532 :C 


2 


3533 :C 


3 


3534 :C 


4 


3536 :C 


4 


3636 :C 


2 


3537:C 


2 


3538 :C 


3 


3539 :C 


2 
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begin xfer; checkassoc; 
end 

else dobeep; 
*U' :begin 

fgotoxy (output, 17.7) ; write [cteol ) : 
setstrlenftempfjO); findmod[tempf , im) ; 
case im or 
-1: mnotfound: 
0: < no module name given, so default ) 
begin untilmodname := '(end of file)'; 

unt ilmodnum := fdi rec tory" [Oj .dnumf iles+l ; 
end; 
otherwise < found the module ) 
if lm>=f i rstmodnum then 

begin untilmodname :=^ tempf; untilmodnum: = im; 
end 

else outoforder; 

assoc := assoc and (im>fi rstmodnum) ; 
end; { case im ) 
end; 
' ' ; if vmodnum>0 then 

begin verifynext; checkassoc; 
end 

else dobeep; 
otherwise dobeep 
end; 
until conimandchar= 'S' ; 
end; (doedit > 

procedure finishboot ; 

begin 

close(outfile. 'LOCK'); 

if ioresultoO then e5cape[126)- 
outopen := false; booting := false; 
outmodnum := 0; 
end; 

procedure menu; 
var Ic : st ring [4] ; 
begin 
fgotoxy(output , 0,2); write('Q Quit' 



clear(l); 



write( 'P Printout ') ; 
if printopen then 

begin 

if printeron then writef'ON ') 
else writef'OFF ' ); 

write (list filename) ; 

clear(l); 

end 
else none; 

if outmodnum > then write('K Keep o') 
else if (newmods = NIL) and not booting 
then write('0 O"') 
else write( ' o ' ) ; 
write['utput file: '1; 
if outopen then writein (outfilename, cteol ) 

else none; 
if outopen then 
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3S40:C 
3541 :C 
3542:C 
3543 ;C 
3544 :C 
3545 ;C 
3546:C 
3547;C 

3548 :C 

3549 :C 

3550 :C 

3551 :C 
3552:C 
3553:C 

3554 :C 

3555 :C 

3556 :C 

3557 :C 
3558;C 
3559:C 
3560;C 

3561 :C 

3562 :C 

3563 :C 

3564 :S 

3565 :C 

3566 :C 
3567:C 
3568:C 
3569;C 

3570 ;C 

3571 :C 

3572 :C 
3S73:C 

3574 :C 

3575 :C 
3576:0 
3577:C 
3578:C 

3579 :C 

3580 :C 

3581 :C 
3582: 
3583: 
3584: 
3585: 
3586: 
3587: 
3588: 
3589: 
3590: 
3591 : 
3592: 
3593:C 
3594 :C 
3595:C 
3596:C 
3597 :C 
3598:C 
3599:C 



begin 

if booting then write('B finish Boot') 

else if newmods <> NIL then writeC'L finish Linking') 

else if linking then write('C Copy') 

else write { ' L Link ' ) ; 

write (cteol): fgotoxy(output, 40,5); 

if booting tnen begin 

writeln('BOOTlNG') ; 

Ic := 'boot ' ; 

end 
else if linking then begin 

w: itelnf 'LINKING') ; 

Ic := 'link'; 

end 
else begin 

writelnt'COPVlNG'), 

Ic := 'copy' ; 

end; 



write to Boot disk' .cteol) ; 

file Header maximum size: ' ,fnaxmodules, cteol) ; 



end 
else 
begin 

writelnf 

writelnf 
end; 

if linking and outopen then 

begin 

write('N Name of new module: '); 

if newmodname . syp = NIL then none 

else writeln [newmodname . syp'^, cteol } ; 

writelnf 'R Relocation base: ', start reloc: 12, cteol); 

writelnt 'G Global base: ' , startglobal : 12, cteol) ; 

write i'S Space for patches:'); 

if patchbytes > then writeln (patchbytes : 12) 

else clear(l ) ; 

patchbytes := 0; 

writef^D output Oef table? ']; 

if defsout then write('YES') 

else write( 'NO ' ) ; 

writeln (cteol) ; 

writeln('X copyright notice: ', copyright); 

end 
else clear (7) ; 



fgotoxyfoutput , 



0,13); 
writefM Input file: ') ; 

if fdirectory = NIL then 
begin none; clear(7); end 
else 
begin 

writeln ( infHename,cteoll ; 
if outopen then writeln(*E Edit') 
writeln('F list File directory'): 
if outopen then writeln{'ft ',1c,' 
write('V Verify modules'); 
if verifying then 
begin 

fgotoxy(output , 40,17); writeln (' VERI FYING' ) ; 
end 
else clear (1 ) ; 



else clear (1 ); 

fill modules') else clear(l); 
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3600:C 
3601 :C 
3602 :C 
3603 :C 
3604 :C 

3605 :C 

3606 :C 

3607 :C 
3608:C 
3609 :C 
3610:C 
36n:C 
3612:C 
3613:C 
3614:5 
3615:C 
3616:C 
36n:( 
3618:C 
3619 :C 
3620:C 



3621: 

3622: 

3623: 

3624: 

3625: 

3626: 

3627: 

3628: 

3629: 

3630: 

3631 : 

3632: 

3633: 

3634: 

3635: 

3636:C 

3637:C 

3638:C 

3639:C 

3640 :C 

3641 :C 



3642: 

364 3: 

3644: 

3645: 

3646: 

3647: 

3648: 

3649: 

3650: 

3651 : 

3652: 

3653:C 

3654 :C 

3655:S 

3656:C 

3657:C 

3658;S 

3659:C 



3 *rite('n input Module: '); 

3 if vmodnum = then 

4 begin none; clear(3): end 
4 else 

4 begin 

4 writeln [ fdi rec to ry*^ [vmodnum] .dtid,cteol); 

4 writeln('U Unassemble object'); 

4 if outopen then writeln('T Transfer (',1c,') module') 

5 else clear ( 1 ) ; 

4 if verifying then writeln ( ' <space> to continue verifying') 

5 el se clear ( 1 ) ; 
4 end; 

3 ;nd; 

2 enj; (menu) 



begin 
re pea 
try 
men 
■getc 
case 
'fi' 
'B' 



dure getcommand; 
Strin9[80] ; 



ommandchar ( 'command? ' , comma ndchar) ; 
commandchar of 

if (fdirectoryoNIL) and outopen then copyfiie else dobeep; 

if booting then finishboot 

else if outopen then dobeep 

else openout (t rue ) ; 
'C': if outopen and linking and (newimods = NIL) 

and not booting then copyon else dobeep: 
'D': if linking and outopen 

then defsout := not defsout else dobeep; 
'E'; if (fdirectoryoNIL) and outopen then doedit else dobeep; 
'F': if fdirectoryoNIL then printdirectory else dobeep; 
'G': if linking and outopen then setglobal else dobeep: 
'H': if outopen then dobeep else setmaxmodules; 
'I': begin set st rlen ( inf ilename,0) ; openin; end; 
'K': if (outmodnum > 0) and not booting 

then closeout else dobeep; 
'L': if booting then dobeep 

else if newmods <> NIL then link 

else if outopen and not linking 

then initlink else dobeep; 
'M': if fdirectoryoNIL then openmod else dobeep; 
'N': if linking and outopen then setname else dobeep; 
'0': if (outmodnum = 0) and (newmod5=NI L) and not booting 

then openout (false ) else dobeep; 
' P' ; toggleprinter ; 
'Q' : quit ; 

'R': if linking and outopen then setreloc else dobeep; 
'S': if linking and outopen then makepatchspace else dobeep; 
'T' : if (vmodnum > 0) and outopen then xfer else dobeep; 
'U': if (vmodnum > 0) then unassemble else dobeep; 
'V: if fdirectoryoNIL then verifymod else dobeep; 
'X': if linking and outopen ther setcopyright else dobeep; 
* ': if verifying then verifynext; 

otherwise dobeep; 
.-nd; 
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:C 


3661 
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3662 


:C 


3663 


:C 


3664 


:C 


3665 


:C 


3666 


:C 


3667 


:C 


3668 


:C 


3669 


:C 


3670 


:C 


3671 


:C 


3672 


:C 


3673 


:C 


3674 


:C 


3675 


:C 


3676 


:C 


3677 


:C 


3678 


C 


3679 


C 


3680 


C 


3681 


c 


3682 


c 


3633 


c 


3684 


c 


3685 


c 


3686 


c 


3687 


c 


3688 


c 


3689 


c 


3690 


c 


3691 


c 


3692 


c 


3693 


c 


3694 


c 


3695 


c 


3696 


c 


3697 


s 


3698 


s 


3699 


D 


3700 


c 


3701 


c 


3702 


c 


3703 


c 


3704 


c 


3705 


c 


3706 


c 


3707 


c 


3708 


s 


3709 


c 


3710 


c 


3711 


c 


3712 


c 


3713 


s 


3714 


c 


3715 


s 


3716 


c 


3717 


c 


3718 


c 


3719 


c 
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File name: LIBRfiRIflN **» 



begin 

if [escapecode 



:> -20) and (escapecode <> 123) 



if e5capecode= -10 then begin get ioerrmsg(e rr , 
el&e case escapecode of 

110: write ( ' sirTiibols defined recursivel 
111; write ( ' improper link info forma 
112: writef'nct enough memory'); 
113: writet'oijtpui file fuir ); 

wr itef 'e rror writing to boot disk, ioresult 



and (escapecode<>128 ] 

then errorline; 
res); writeln(err); end 



vely'); 
at'}; 



114: 

116; write(''"', infilen ame , 

118: ■ " 

119: 
120: 
121: 
122 



is not a code file' 



, i res ; 1 ) ; 



ritef'pr inter or list file not on line'); 

write ['duplicate symbol definition' ) ; 

writ e [ ■'module being booted has external references'); 

write (' unexpected end of code'); 

write(errors:l, ' errors during linking ',cteol); 
123,128;129: (error message already printed}; 
124: u/ritef' integer required') 



125: writet ' integer too large'); 

126: write ( 'unable to close output, ioresult 

127: wnteCfile header full'); 

1 herwise escape (escapecode) ; 

end; {case escapecode) 

if streaming ihen escape(-l) 



' , ires : 1 ) ; 



if [escapecode-100 
if (escapecode-100 
begin 

if newmods <> NIL 
linking :« false; 
if outopen then clo5e(out file) ; 
outopen := false; outmodnum 
booting := false; 
lowheap := JowheapO; 
end; 
end: (recover) 
LHtii comtnandchar = 'Q'; 
c {getcommand); 



[12,16] then closeir; 
[10. .13,19,22,26,28] then 



tfien begin closein; closefiles; end; 
newmods := NIL; 



1 begin (program linker) 

1 with linkerdate do 

2 begin day := 4 ; year 
1 sysdate ( today sd ate); 



procedure wrapup; 
begin 
pageeject ; 
closein; 
closefiles; 

if (pagenum=0) and (linenum^^O) 
then close (listing) 
else close {listing, 'lock'); 
end ; {wrapup) 



= 84; month 



1 



linenum 



pagenum := 0; 

1 f9otoxy(out put , 0,0); 

1 printheader(output): 

1 fgotoxy(out put , 0, 22) ; 

1 writeln ( 'Copyright 1984 Hewlel 
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3720:S 

3721 :C 

3722:C 

3723;C 

3724:5 

3725: 

3726: 

3727: 

3728: 

3729: 

3730: 

3731 : 

3732: 

3733: 

3734: 

3735: 

3736: 

3737: 

3738: 

3739: 

3740: 

3741; 

3742:C 

3743:C 

3744 :C 

3745:3 

3746:C 

3747 :S 

3748 :C 



1 mark ( lowheap. p) ; lowheapO := lowheap; 

1 hiqhheap.a := lowheap.a ♦ memavail - 5000; 

1 relea5e(hi9hheap. p) ; highheapO := highheap; 

1 listfilename := ' PRINTER : LINK .fiSC ; 

1 rewrite (list ing, listfilename); 

1 printopen :- ioresult = 0; 

1 printeron := false; 



patchbytes := 0- 
maxmodules :- 38; 
linking ;= false; 
outopen := false; 
booting := false: 
fdirectorv := NIL 
loadf ib . pnp 



ML; 



outdirectsize := 2; 
nevwiods ;= NIL; 
outmodnum := 0; 
verifying ;= false; 
vmodnum ;= 0; 



try getcommand; 



begin 

esccode :- escapecode; 

wrapup; 

escape (esccode) ; 

end; 



mors. 1 warnings. 

•x»«* Nonstandard language features enabled 
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LIFDAM 



Description 

LIFDAM provides access to LIF format directories. The module also contains the code which 
installs itself in the system. 



Usage 

LIFDAM is called by the filesystem to operate on LIF format directories. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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*** File name: LIFDflM *** 



:D 

45:D 
46:0 



47 
48 
49 

50 

51 

52 

53 

54 

55 

56:D 

57:D 

58:D 

59:D 

60 :D 



(c ) Copyright Hewlett-Packard Company, 1982. 
fill rights are reserved. Cop/ing or other 
rep-oduction of this program except for archival 
purooses is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 

Ear.jgraph (b) (3) (B) of the Rights in Technical 
at3 and Computer Software clause in 
DflR 7-104. 9(a). 

HEUlETT-PPCKARD COnPflNY 

Fort Collins, Colorado *) 



$(10DCflL$ 

IDEBUG OFF, range off, ovflcheck offi 
pro'jram instlifdam; 
module lifmodule; 

import sysglobals, sysdevs, misc, fs; 
export 

procedure lifdam(anyvar f: fib; unum: 
procedure installlifdam; 

implement 
const 

ent rysize = 32; 
type 

vname =packed array[l. 
lifname = packed array[l 
bed = 0, . 15- 

word = 0. .65535; 

inlegerie = -32768. .327S7 
wordi5 = 0. .32767; 
tdate = packed arraytl. 
lvheader=packed record 

disc id 

vol name 

dstart 

dutrrnyl 

dummy2 

dsi;:e 

ve rslon 

dummyS 

tps 

spm 

spt 

cd a " e 

filler 

sdate 

dummy4 
end; 
direntry = packed record 

fnane ; lifname 



request: dam request type) ; 



6] of char; 
.10] of char; 



12] of bed; 

{volume header sector 0) 
wo rd ; 
vname; 
integer ; 
integer 16 ; 
integerie ; 
integer ; 
integer 16 ; 
integerie ; 
integer 
intege <~ 
in t ege-- 
tdale; 



{ t racks/surface) 
(surfaces/medium) 
(sectors/t rack ) 

i^.^!^, (volume create time) 

packed ar ray[21 . . 123] of integerle; 

tdate; 

intege rl6 ; 
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62: 
63: 
64: 
65: 

66: 
67: 



:0 
:D 
:D 
:D 
:D 
:0 
:0 
:D 
69:S 
70:D 
71 :D 
72:D 
73:D 
74:0 
75:0 
76:0 
77:0 
78:0 
79:0 

80 :S 

81 :D 
82:0 



90: 
91: 
92: 
93: 

94 :C 

95 :C 
96:S 
97:D 
98:D 
99:0 

100:D 
101 :C 
102:C 
103:C 
104:0 
105:C 
106:C 
107:S 



108: 
109: 
110: 

in :S 

112:0 
113:0 
114:D 
115:D 
116:C 
117:C 
118:C 
119:C 
120:C 



catarray 
dirfile 



ftype : integerl6; 

fstart : integer ; 

fsize : integer; 

fdate : tdate; 

lasivol : boolean; 

volnumber: wordl5; 

extension : integer ; 
end; 

= record 

S S 1 d r t 

sslze 
here 

hole 
end ; 

= array [1 . .maxint] of catentry; 
= file of dirent ry; 

: -^dirfile; 

*:tt.m********»*.***.**t* 



: integer; 
: integer; 
integer ; 
integer ; 



t***X»**M** 



(**»»**»** t *********** 
procedure goodio; 
begin if ioresultoord (i no error) then escape (0); end; 

procedure badio(result : iorsltwd); 

begin ioresult := ord{re5ult); e5cape[0); end; 

procedure pactost r ( anyvar pc : lifname; l:integer; var s:string); 

var i : integer ; 

begin 

set s t rlen (s, 1 } ; for i: = l to 1 do s[i] := pc[i]; i := 1; 

while (i>l) and (5[i]=' ') do i: = i-l; setst rlen(s, i ) ; 
end; 

^^»**t*** *******■»:*** ***-^*w****.****.w*t****t*******-******* ********** 
procedure strtopac (anyvar s:string255; l:inteqer; 

anyva r pe : lifname; sjzechk:boolean) ; 
var i , k : integer ; 
begin 

jf sizechk then 

if (strlen(s)>l) or (st rlen (s )=0) then badio (ibadtitle) ; 
k:=strlen[5) ; 

for i:=l to 1 do if i>k then pc[i] ;= ' ' else pc[i] := s[i]; 
end; 

{*t^»Mt ***************************************** ***************** 
procedure strtoany(var s:string; anyvar 32 : st ring255) ; 
begin 52 :=s; end; 

(_***»******************************************************■$***** 
procedure setdatei(var d:tdate); 



********** 



*********** y 



doy:daterec; tod: t imerec ; 

begin 

5ysdate(doy); syst ime (tod) ; 

wit h doy , tod do 

begin 

d[l] := year div 10; d[2] 
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year mod 10 ; 
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121:C 




3 


d 3 := month div 10; dr41 := month mod 10: 




122:C 




3 


d 5 


= day div 10: d[6] := day mod 10; 
- hour div 10; di8) := hour mod 10: 




123:C 




3 


d 7 




124:C 




3 


d 9 


= minute div 10; d[10] := minute mod 10; 




I2S:C 




3 


d 1 ] 


= (centisecond div 100] div 10; 




t2$:C 




3 


d 12] 


= (centisecond div 100} mod 10: 




127:C 




3 


end; 




128:C 




2 


end ; 




129:S 










130:D 


-4 


1 


(««****«********»**)* *«**♦*««#*»«*«*#*»»««»»**««*»»«««»»«*«««*«»«» jK«»*»l«X«X««« J 




131:D 




1 


procedure lif nametost r (anyvar In :]ifname ; var s:strang): 




132:D 




2 


label 1; 




133:D 




2 


van 




134:D 


-4 


2 


si : integer; 
fk : filekind; 




135:D 


-6 


2 




136:D 


-7 


2 


found : boolean; 




137:S 










138:C 




2 


begin {lifname to str) 




139:C 




2 


pactostr [In.lO, s) ; si := strlen[s); 




140:C 




2 


if 5l=10 then 




141:C 




3 


begin 




142:C 




3 


If suffix(s)=datafile then 




143:C 




4 


begin < rip underscores and try to add suffix > 




I44:C 




4 


while (5l>=l) and ls[5l]='_') do si := si - 1; 




145:C 




4 


for fk :=untypedfile to lastfklnd do 




146:0 




5 


begirt 

if strlenrsuffixtable'Cfk] >0 then 




147:C 




5 




148:C 




6 


if suffixtable"[fk) [1]=5 si; then 




149:C 




7 


begin { found suffix ) 




150:C 




7 


{ change last char to . then append suffix ) 
setstrlen(5,sl); 5[sl] := ' . ' ; 




151:C 




7 




1S2:C 




7 


s := 5 + suffixtable'[fk] ; goto 1; 




1S3:C 




7 


end; 




154:C 




6 


end; 




J55:C 




4 


end; { for ) 




1S6:C 




3 


end; 




157:C 




2 


l:end; <lifname to str) 




158;S 










159:D 


-4 


1 


(«»«««X:i:«««M(»«X«I(»X«««»X«»»»»*«««««»«*«XX«««»«»««»»*«««*«***«««««»«:*««»«*kX«*} 




160:D 




1 


procedure st rtolif namelvar s:string; var ln:lifname); 




161:D 




2 


var 




162:0 


-8 


2 


si, i : integer; 

stemp,temp2 : fid; <31jan83 temp2 for case insensitive suffix) 




163:D 


-252 


2 




164:D 


-254 


2 


fk : filekind; 




165:S 










166:C 




2 


begin <str to lifname) 




167:C 




2 


si :- strlents) ; 




168:C 




2 


fk := 5uffix(5i ; 




169:C 




2 


if fk=datafile then 




170:C 




3 


begin ( data files have no suffix > 
if sl>10 then badio(ibadtitle) ; 




171:C 




3 




172:C 




3 


strtopac(s,10,ln,false); 




173:C 




3 


end 




174:C 




3 


else 




175:C 




3 


begin < remove the suffix ) 




17$:C 




3 


si := strlen(5)-strlen(suffixtable"[fk] ) ; 




177:C 




3 


if sl>10 then badio(ibadtitle); 




178:C 




3 


strtopac (s, lO.ln, false) ; ( pack the name ) 




179:C 




3 


{ replace dot with first char of suffix (to preserve uniqueness)) 




180:C 




3 


ln[5l] := 5jffixtable"[fk] [1] ; si := sl*l; 
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181 :C 




3 


for i:=:=l to 10 do ln[i] := ' ' ; ■; pad with ) 




182:C 




3 


end; 




183:C 




2 


lifnametostr ( ln,5temp) ; { decompress the name as a final check ) 




184:C 




2 


if stenp<:>s then 




185:C 




3 


begin 01jan83 case insensitive suffix testing) 




186:C 




3 


terrp2 : - s; < copy s, then remove given suffix ) 
setstrlen(temp2,strlen(temp2)-strlen(suffixtable^[fk]]): 




187:C 




3 




188:C 




3 


temp2:= temp2 + suf f ixt able^Cfk] ; ( add suffix from table ) 




189:C 




3 


if stemp<>temp2 then badio (ibadt it le) ; { check again ) 




190:C 




3 


end; 




191:C 




2 


end; <5tr to lifname) 




192:S 










193:D 


-4 


1 


(k**]K«X«*«X»*«X«»«««»»«*X»X««X»««XX*«««»X:«M:«»«»«»»««l«X««*«»«*«««»*«««**»**«»«) 




194;D 


-4 


1 




195;D 




1 


procedure lifdam(anyvar f: fib; unurr: unitnum; request: damrequest type) ; 




196:D 




2 


var 




197:D 


-256 


2 


vol : Ivheader; 




198:D 


-274 


2 


volid : vid; 




199:D 


-277 


2 


ok, mediavalid ,anychange: boolean; 




200:D 


-294 


2 


dindex, dlast, dend, vsize : integer; 




201 ;D 
202:S 
203:D 


-326 


2 


dentry : direntry; 




-326 


2 


Jlocheck off$ 




204 :D 


-326 


2 


^x»*»****M**t**»*****x*t**x**»:»***x********»»*»*x****x**x****************»***y 




205:D 




2 


function volsize:integer; 




20e:C 




3 


begin 




207:C 




3 


if vsize=0 then vsize := ueovbytes (unum) ; 




208:C 




3 


volsize :■= vsize; 




209:C 




3 


end; 




210:S 










211:D 


-326 


2 


(»*«««X««NC Hex ««»XX<«IK*X»SX»XX*«XX««XXX «««»>: XX «xxi;*x»«x»x«««]i»x»«»»y«**»»««:«i«*««) 




212:0 




2 


procedure cleanup; 




213:C 




3 


begin 




214:C 




3 


if iore5ult=ord(zmediumchanged) then mediavalid := false; 




215:C 




3 


unitable"[unum] .umediavalid := mediavalid; 




216:C 




3 


unitable*[unum] .ureportchange := true; 




217:C 




3 


end; 




218:S 










219:D 


-326 


2 


{xxxxxxxx*xxxxxxxxxxxx***x**x»***xx****x**xx****«»«*xx*x«x*x*xx*xxxxx*x*xx*xx) 




220:D 




2 


procedure checkftitle; 




221:C 




3 


begin 

if (strlenrf . ftitle)>tidleng) or ( st r len( f . f title)=0) then badiofibadt itle) ; 
f.ftid :- f.ftitle; 




222:C 




3 




223:C 




3 




224 :C 




3 


end; 




22S:S 










226:0 


-326 


2 


(xxxxxxxx*x*xxxx«x*xxxx*xxxxx*xxxxxx*s«»xx«xxxxx«xxxxx«x«xxx«xx»xxxxx«x««x«x«) 




227:0 




2 


function vvname :boolean; 




228:0 




3 


var 




229:0 


-4 


3 


i : integer; 




230:0 


-S 


3 


b : boolean; 




231:C 




3 


begin 




232:C 




3 


vvname := true; b := true: 

for i := 1 to 6 do {lfeb83 allow all blank names) 




233:C 




3 




234:C 




4 


begin 




235:C 




4 


if b then b := vol . volname [!]>' '; 




236:C 




4 


if not b then <lfeb83 allow all blank names) 




237:C 




6 


if vol .volname[i]<>' ' then vvname := false; 




238:C 
239:C 




4 
4 


end 

end; 
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240:S 
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241 ;D -326 2 (*»««•«»«•««*******«•**»***«*******««****»****»«**«****«****»******«*****««**) 

242:D 2 function lifvol :bo<ilean; 

243:0 3 var 

244:D -4 3 i : integer; {31jan83 allow all blank volname) 

245:C 3 begin { read and validate the volume header > 

246:C 3 .vith fibp(dir)^, unitable^Eunum] do 

247:C 4 begin 

248:C 4 fileid := 0; fpeof := maxint; < initialize dir ) 

249:C 4 if uisbUd then 

250;C 5 begin 

251:C 5 calKtm fibp(dir), readbyte5,vol,5izeof (Ivheader) ,0); 

252:C S with vol do 

253:C 6 ok := f (ioresult=ord(inoer ror) 1 and (discid=32768) and 

254 :C 6 (dujimyl=4096) and (duitmy2=0) and (duniniy3=0) and 

255:C 6 (dstart>l) and (dsize>0) and vvname); 

256:C S end 

257:C 5 else ok := false; 

258:C 4 ureportchange := true; < now let TM report any mediachanges } 

259:C 4 umediavalid := true; 

260:C 4 lifvol := ok; 

261:C 4 if ok then 

262:C 5 begin 

263:C 5 if vol . volname[l ]= ' ' then <31ian83 allow all blank volname) 

264 ;C 6 begin 

26S:C $ set5trlen(volid,6) ; for i:=l to 6 do volid[i]:=' '; 

266:C 6 end 

267:C 6 else 

268:C 6 pactost r (vol .volname, 6, volid) ; 

269:C 5 if volidouvid then 

270;C 6 begin mediavalid := false; uvid := volid; end; 

271:C 5 end 

272:C 5 else setst rlen(uvid, 0) ; 

273:C 4 if (not ok) and (ioresiilt=ord (inoerror ) ) then ioresult :=ord ( inodirectory) ; 

274:C 4 end; 

276:C 3 end; < lifvol ) 

276:S 

277;D -326 2 Siocheck on$ 

278:D -326 2 {»*»t»i******x*iKx*****t*xx^**xt************»:*******iK**x******it:*tx*it*)K***x***xx) 

279:D 2 procedure opendir; 

280:C 3 begin 

281 :C 3 if lifvol then 

282:C 4 begin 

283:C 4 dlast :-vol .dsize • 6; { » entries in directory J 

284:C 4 dend :=vol .dst art + vol.dsize; { directory end sector + i ) 

285:C 4 with fibp(dir)-~ do 

2a6:C 5 begin ( initialize the fib ( fake OPEN )) 

287:C 5 fisnew:»false| 

288:C 5 f readable :=t rue; fwriteable :=t rue; 

289:C 5 f readmode :=fal5e; fbufval id :=false; 

290:C 5 feof:=false; fmodif led :=f alse; 

291:C 5 fileid:=vol.dstart»266; 

292:C 5 if vol . ver5ion>0 then vsize := vol . t ps*vol . sp«n*vol . spt«256 

293:C 6 else vsize := 0; 

294:C 5 fpeof :=vol.dsize»256; { end of directory ) 

295:C 5 f leof ;=fpeof ; 

296:C 5 fpos:=0; am: =amtable^[dat af ile] ; 

297:C 5 freptcnt:=0; f last pos :"-l ; 

298:C 5 fbufchanged : =f alse; fbuf fered :=t rue; 

299 :C 5 end; 

300:C 4 dindex:=l; read (di r^, dent ry) ; 
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301 :C 4 goodio; 

302;C 4 end 

303;C 4 else escapelO) : 

304 :C 3 end; ( opendir ) 

305 :S 

306:0 -326 2 {»*«**»*****************««******»*«*•*******♦****»*****«****«»********#«***«*) 

307:D 2 procedure checkvolld; 

308 :C 3 be<jln 

309:C 3 if f.fvidovolid then badio ( ilost unit ) ; 

310:C 3 end; 

311:S 

312:D -326 2 {»t«VX*«X«»X««»»«««lK»*«»««S*»X**»X»*X*«**«»*«»XX«*«X*«XX*»««»«*««XlK»«*«I«»S«*:«) 

313:D 2 procedure flushdir; 

314:C 3 begin { June 83 fixed to account for ops which don't open the directory RDQ) 

315:C 3 if fibp{dir )-~. f readable 

316:C 4 { directory open so flush thru (^n > 

317:C 4 then call (fibp(dir)". am, fibp(dir) , flush, ioresult ,0,0) 

318:C 4 { directory not open so flush thru TM ) 

319:C 4 else call (unit able"[unum] . tm, fibp(dir) , flush . ioresult ,0,0) ; 

320:C 3 anychange := false; 

321 :C 3 end; 

322:S 

323:0 -326 2 {»«*w*««««**«**«*«««*«*««««*««««*«««*«««*»**«**«***«*x*«*««*****«**»****««*«* ) 

324:D 2 procedure getsdate( anyvar svdate :daterec ] ; 

325:C 3 begin 

326:C 3 if lifvol then 

327:C 4 with vol, svdate do 

328:C 5 begin 

329:C 5 if rot ( (sdatetSI'O) and (sdate [6]=.0) ) then 

330:C 6 begin 

331:C 6 year;=sdateri]»10*sdate[2]; 

332:C 6 month :.5date [3]»10+5date [4] ; 

333:C 6 day :=sdate[5]»10*sdate [6] ; 

334:C 6 end; 

33S:C 5 end; 

336:C 3 end; 

337 :S 

338:0 -326 2 (xx«»*xx*««»*«««xv«*«*«*xx»*«»«»««*«*«x««*«»«*»«x»«»***xxx***«xx«**»»s««»»*««) 

339:0 2 procedure set sdate (anyvar svdate :daterec) ; 

340:0 3 vai 

341 :D -4 3 1 : integer; 

342:C 3 begin 

343:C 3 If lifvol then 

344:C 4 with svdate, vol do 

345 :C 5 begin 

346:C 5 sdate [1 ]: =year div 10; sdate (2) :-year mod 10; 

347:C S sdate[3i :=mon1h div 10; sdate [4] :=month mod 10; 

348:C 5 sdatetB] :=day div 10; sdate [6] :»day mod 10; 

349;C 6 for i:=:7 to 12 do sdateCi] :»0 ; {clear time of day) 

350:C 5 with unitable''"[unum] do 

351:C 6 begin 

352:C 6 call (tm,fibp(dir ) .writebytes, vol, sizeof( Ivheader) ,0) ; 

353:C 6 goodio; anychange := true; 

354 :C 6 end; 

35S:C 5 end; 

356:C 3 end; < setsdate } 



357 :S 

358 :D 
359:0 
360:0 3 



358:0 -326 2 {*«••****»***«•*******»****************««***»*«*««***»****•**»«»***««*#*«*«««) |f fiOQ 

359:0 2 procedure cleandir; ll-UOZ. 
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411:C 
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413:C 
414:C 
415:C 
416:C 
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420 :C 



-4 
-36 



I: 

tempd 



integer; 
dirent ry; 



7 
7 
6 
4 
4 
3 
3 

!<■ 

3 
3 
3 
3 
3 
3 

3 
3 
3 
3 
3 
3 
3 
4 
4 
5 
5 
S 
5 
5 



begin {cleandir) 

k:=l; &eek[dir^,k) ; 

repeat 

read (dir'", lempd) ; 

if tempd . ftype*-l then k:=dl3St 

else 

if tempd . fl ypeoO then 

begin 

If [tempd. fdate[3]=9) and (tempd . fdateC4]=9) then 
begin { temp file so purge it ) 
tempd . ftype :=0; 

writedjr(dir*,k, tempd ); an /change := true; 

end; 
end; 
k:=k+l; 
until k>clast; 
mediavaiid : = t rue; 
end; (clean dir> 

■ *n***^*»***t******t*****t.*** ****.****.**» **t*Mt**:t.************.******t*i 

procedure crunchv; < assumed to be called from procedure lifdam only 



van 

frompos, topes, todindex 
bsize, filesize, movesize 
bufptr , heapcnark 
changed 
datafib 



24jan83> 



: integer; 

: integer; 
: windowp; 
: boolean; 
: fibp; 



begin 

opendir; check vol id; 

if strlen(f .ftitle)<>0 then badio ( ibadt it le) ; 

cleandir; 

( allocate the buffer space ) 

Mf)RK(heapmark); 

try 

bsize:=(memavail- (1024*5) ) ; 
if b5ize>=256 then 

begin ( buffer in sector multiples > 

bsize:=(bsize div 256) * 256; 
newftwords 'bufpt r , bsize div 2); 
new(dataf ib) ; { set up the data fib ) 
with datafib" do 
begin 

funit;=fibp(dir)^.funit; 
fileid:=0: 

fpeof:=voisize; fleof :=fpeof ; 
end ; 
end 

else escape[-2); { not enough room to run } 
< krunch it > 
dindex : = 1 ; 

todindex :=0; topos :=dend*256; anychange :=false; 
repeat 

changed :=f alse; 

re add i r(dir'',dindex,dentry); 

if dent rv. ftype=-l then dindex :-dlast 

else 



seal [Rev 
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t ry. ft ype=eft table" [badfile] then 

( bad sectors ; don't move this file > 
ndex :=todindex+l ; 



if den 
begin 

todi 

if d^,.„^.. - .^-^^,.«^„ v,,„,, s..,«,,5^^ . -. , u^,, 

topos;=(dentry.fstart+dentry.'size]*256; 
end 
else 

if dent ry. f type=0 then anychange := true 
else 
begin 

todi 

if d 



i move the file ? > 
index : = todindex*l ; 
dindexo todi ndex then changed: =t rue; 



( move the entry > 
{ move topos > 



( found purged entry ) 
{ move the entry) 



frompos :=dent ry. f start *2S6; 
if f romposotopos then 
begin < move the data ) 

file5ize:=dent ry.f 5ize*256; { bytes to move) 

dentry. fstart :=topos div 256; { set start) 

changed ; = t rue ; 

with unit able-^tdat afib'^.funit ] do 

repeat 

if filesize>bsize then movesize :=bsize 

else movesize :=filesize; 
call (tm, datafib, re adbyteSjbufptr-^, move size, frompos) ; 
frompos :=f rompos+movesize; goodio; 

call (tm,dataf ib,writebyies,bufpt r"^, move size, topos) ; 
lopos :=topo5+movesize; goodio; 

f ilesize:=filesize-movesize ; 
unt il f ilesize=0; 
end ( move the data ) 
else topos :=topos+dentry. f5ize*256; 
end; < move the file ? > 
if changed then 
begin 

writedir (di r", todi ndex, dentry), anychange := true; 
end; 

dindex :=dindex+l ; 
until dindex>dlast ; 
if anychange then 

begin < put end of directory mark ) 
if todindex<dla5t then 
begin 

dent ry . ftype; =-1 ; 
writedir (dir", todindex+1 ,dent ry) ; 
end; 
end; 

call ( uni t ab le" [da tafib'^.f unit] . tm, da t afib, flush, io result ,0,0) ; 
RELEflSE(heapmark) ; 
recover 
begin 

KELEflSE(heapmark) : 

frompos ;= ioresult: topos := escapecode; { save state 24ian83) 

if anychange then fiushdir; { try to clean up 24ian83> 

ioresult := frompos; < restore the state 24ian83> 

e5cape(frompos) ; <exit 24ian83) 

end; 
end; (crunchv) 
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procedure domakedirecTory(anyvar cat :catent ry ) ; 

i : integer; 
ac tualsize : integer ; 

secbuf : packed 5rrayt0..63] of integer; 
begin 

if St rlen(f .f tit le]>0 then badio (ibadrequest ) ; 

with vol, cat do 

begin 

if not lifvol then 
begin 

if (iore5ult<>ord( inoerror)] and 

{ioresijlt<>ord(inodirectory)) then escape (0); 
ioresult : = o rd ( inoe r ro r ) ; 
< clear header fields > 
discid := 32768; 

dummyl ;= 4096; durnmy2 := 0; dummy3 := 0; 
version : = 0; 
end 
else checkvolid; 

{ directory size checks ) 
dstart := 2; 

dsize := { ( (cext ral«ent rysize) +255) div256); 
if dsize<=0 then dsize := 10; { default directory size > 

< size checks } 
actualsize := ueovbyteslunum] ; 

if (cpsize>a(: tualsize) or (cpsize<1024) then badio(inoroom); 
if (dstar t+dsize+1 )*256>=cpsize then badio(inoroom) ; 

< fill in the pieces ) 
St rtopac (cname, 6pVolname, t rue ) ; { volume name > 
if version>0 then 

if (t ps*spm'':spt*256)<>cp5ize then version := 0; 

setdate (cdate) ; { fill in create date ) 

for i := 1 to 12 do 5date[i] := 0; { clear system date ) 

if versior=0 then 

begin { create pseudo level 1 header > 

version := 1 ; 

tps :» 1: lipm := 1; spt := cpsize div 256; 

for i:=21 to 123 do filler [i] :=0; 
end; 
dumiTiy4 := 0; ( clear 250 maint. word > 

{ write volume header > 
with unitable'^[unum] do 
BEGIN 

call [ tm.f ibpfdir ) ,writebytes, vol , sizeof ( Ivheader ) ,0) ; goodio; 

for i:=0 to 63 do 5ecbuf[i] := 0; 

call[tm,fibp(dir) ,writebytes, secbuf ,256.256) ; {clear sector 1> 

END; 

{ write end of directory ) 
opendir ; 

dent ry. ft ype : = -1 ; 
wriiedir (dir'\ 1 ,dent ry] ; flushdir; 
end; 
end; (domakedi rectory) 

procedure lif tofkind (It : intege ri6 ; var fk : f ilekind) ; 
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begin 

fk : = unt ypedf ile ; 

while (fkolastfkind) and tef t table"[fk]<>lt ) do fk : = 5ucc ( fk) ; 

if efttdble-^Cfklolt then fk:=OflTflFUE; 
end; 

procedure cvtdatet ime (var fdatettdate; var dateidaterec; var time : timerec ) ; 
begin 

date. year : = fda te[l]*10+f date [2] : 

date .month:=fdate[3]*10+fdatet4] ; 

date.day;=fdate[5]»i0-*fdate[6]; 

if (date ,month=:0) or (date.day=0) then 

begin date.year:=0: date. mo nth: =3; date.day;=l; end; 

time.hour :=fdate[7]«10*fdate[8]; 

time.minute:=fdate[9]*10+fdate[10]; 

time.centisecond:=(fdate[ll]*lC+fdate[12] )«100; 
end; 

procedure doopendirectory(anyvar cat :catentry) ; 
begin 

opendir ; checkvolid; 

with cat do 

begin { volume info > 

cname :=volid; 

cstart :=(vol.d5tart+vol.dsize)*256; ( start of data area 

cblocksize: =2S6; { No. of bytes in allocation unit 

cpsize : =vol5ize; ( physical size of the volume 

clsize : =cpsize-C5t art ; { data space on the medium 

cext ral :=vol , dsize*8 ; { number of possible files 

cextra2:=-l; { unused space available 

cvtdatetime (vol.sdate,clastdate ,c last time) ; { system date 

cvt date time (vol .cdate,ccreatedate,ccreatet ime} ;{ date created 

cinfo:='LIF level '; cinfo[ll]:=chr[vol.version+ord('0')); 
end; { volume info ) 
end; 

procedure docat(anyvar cat : catarray); 
var 

di, dstart, dnirm : integer; 

done : t'oclean; 

procedure zerodatet ime (var dr:daterec; var tntimcrec); 
begin 

dr.year:=0; dr.month:=3: dr.day:=l; 

tr.nour:=0; ir.minute:=0; tr.centi5econd:=0; 

end ; 

begin <docat) 

opendi r ; checkvolid; 

dstart : = f .fpos;; dnum: = f . fpeof ; f .fpeof ;=0; 

di: = l; seek|;dir".di); do ne; = false; 

while ( f . fpeof<dnumj and (not done) do 

begin ( get file info ) 

read(dir",dentry) : 

if dent ry .f type=-l then done: = true ll-Do4 

else 

{ don't show temporary or purged files > 
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if (dent ry . f type<>0) and 

( (dentry,fdate[3]<>9) or [dent ry . tdate [4] <>9) ) then 
begin < count this entry ) 

if dstart<=0 then ( skip to start index ) 

begin { report this entry ) 
f.fpeof := f.fpeof+1; 
with dentry, cat[f.fpeof] do 
begin 

lif name tost r ( fname,cname) ; 

ceft := ftype; Jif tofkind(cef t ,ckind) ; 

cpsize ;= f5ize*256; 

if ftype=-5622 {workstation data) then c:si2e:=exten5ion 
else clsize := cpsize- 
cstart := fstdrt*256; 

cblocksize := 256; 

zerodatet ime(ccreatedate,ccreatet ime ) ; 
cvt date time [fdate.clastdaie ,clast t ime) ; 
cextral := extension; cextr32 := vol number ; 
if lastvol then cinfo:='' else cinfo := 'continued': 
end ( with ) 
end ( report this entry ) 
else dstart := dstart-1; 
end; < count this entry > 

di:=di + l ; 

if di>dla5t then done := true; 
end; { while > 

end; (docat ) 

fund ion findfile (temporary :boolean; ft ypecode : integer 16 ) ; boo lean; 
var 

found : boolean; 

tempname : liframe; 

begin {find file) 

if not f.fanonymous then st rtoiifname (f . ft id, tempname) ; 
found;=faIse; d index : = 1 ; iseek (dir-^.d index) ; 
repeat 

read(dir'",dent ry) ; 
with dentry do 
begin 

if ftype=-l then dindex : =dla5t 

else 

if ftypeoO then 

begin < check this entry ) 

if f.fanonymous then found := (dent ry. fstart«256 = f.fileid) 

else 

if ( tempname=fname ) then 

if [ (ft ypecode=0) or ( f t ypecode=f t ype ) ) then 
begin 

if temporary then f o jnd :^ ( f date [3] =9 ) and tfdate[4]=9) 

else foijnd:=(fdate[3]<>9) or ( fdate[4] <>9) ; 
end; 
end; 
end; < with } 

if not found then dindex : -dindex+ 1 , 
until (dindex>dlast ) or found; 
findfile :=found ; 
end; {find file) 
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procedure pu rgef ; 
begin 

dentry. ftype •.■■^ 0; writedir (di r^, dindex , dent ry ) ; flushdir; 
end; 

2 {*****«*«***««««*«*«*«»««)«*«««****«*»*«•»«*»**»««»«««*«»«*#»««««««*», *#*»t#»#j 
procedure dopurgename ; 
begin 

opendir; checlcvolid: check ft it le ; 

if findf lie ( false, ) tnen purgef 

else ioresult := ord (inof ile) ; 
end; 

{«**»»****#«««*#*«*,**«*«#««««««««»,«»,***,*«#*«*»*«**»*««#««*««««»«««»**»,«*) 

procedure get space (space :integer; var srec:sp ace reel; 

var 

fixed, done, opening : boolean; 

integer ; 

integer ; 

space rec; 



last used, lastopening 
dat aspace 
mostavail, nextavail 



procedure shuffle ; 
var 

tempent ry :direntry; 

increment, here, hole : integer; 

begin { move directory entries to open a required space ) 
here := mostavail .here; 
hole := mostavail .hole; 
if here<=hole then 
begin 

If hole<dlast then 

begin { move logical eod if t-equired ) 
readdir(dir'",hoie, tempent ry) ; 
if tempent ry. ftype=-l then 
begin 

writedir (dir'^.hole + 1 , tempent ry) ; 
anychange := true; 
end; 
end; 

increment : = -1 ; 
end 
else 

increment ; = 1 ; 
while holeohere do 
begin 

readdir(dir'',hoIe + inc rement , tempent ry) ; 
writ edir(dir'', hole, tempent ry); anychange := true; 
hole := hole + increment; 
end; 

tempent ry. ftype : = 0; 

writedir(dir,here, tempent ry); anychange := true; 
end; { shuffle ) 

procedure allocate(var srec : space rec; eod : boolean) ; 

begin 

srec.ssize := dataspace; __ --„_ 

srec.sstart := lastusec; + 1; II-OoO 

if eod then 
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9 

9 

10 

8 

9 

9 

10 

10 

10 

10 

10 

10 



begin { end of directory allocation > 
if opening then srec.nere := laslopeni 



"9 



else srec.fiere := dindex; 
srec.hole := srec.here; 
end 
else 

begin { middle of directory allocation > 
if opening then srec.here :- lastopening 
else 

if lastopening>0 then srec.here := dindex-1 
else srec.here := dindex; 
srec.hole := lastopening; 
end; 
end; { allocate ) 

procedure checkspace (eod : boolean); 
var 

temp : integer; 
check2 : boolean; 
begin 

if fixed and [dataspace>=spacel then 
begin ( fixed space check > 

if [mosiavail . S5ire=0) < no space yet > or 
(dat aspace=space) ( exact fit ) or 
{ this space is bigger than previous good fit > 
(( (clata5pace-spaceT>(mo St avail .ssize-space)) and 
(mostavail.ssizeospace)) then allocate (most avail, eod) ; 
if mostavail . hole>0 then done := true; 
end; { fixed space check ) 

if not fixed then 

begin { biggest or Znd biggest > 
cfieck2 := t rue; 

if (dat a5pace>=mo5t avail . ssizel 
begin { check biggest space > 
if [dat as pace>most avail . ssize) 
began < new biggest space ) 
nextavail := mostavail; 
allocate (mostavail ,eod) ; 
check2 := false; 
end 
else 

if not eod then 
begin ( same size space > 

if opening then temp := lastopening 
else 

if la5topening>0 then temp := dindex -1 
else temp := dindex; 
if (abs (temp-lastopening)<=abs (mostavail . he re -most avail .hole) 

(lastopenin9=0) then 
with mostavail do 

begin < this causes shorter shuffle > 
ssize := dataspace; 
sstart := lastused * 1; 
here := temp; 
hole :* lastopening; 
end ; 
end; ( same size space ) 
end; { check biggest space } 
if check2 then 



then 
then 
( demote to second biggest ) 
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6 if (dat as pace>=next avail. ssize) and ( space<0) then 

7 begin < check 2nd biggest space ) 

7 if dstaspace>next avail. ssize then allocate (nextavail ,eod) 

8 else 

8 if not eod then 

9 begin < same size space > 

9 if opening then temp := lastopening 

10 else 

10 if la5topening>0 then temp := dindex -1 

11 else temp := dindex; 

9 if (abs [temp-l35topenin9)<=abs (nextavail .he re- next avail. hole)) or 

10 ilastopenin9=0 ) then 

10 with nextavail do 

11 begin < this causes shorter shuffle ) 
11 ssize := dataspace; 

11 sstart := lastused + 1; 

11 here := temp; 

11 hole := lastopening; 

11 end; 

9 end; 

7 end; < same size space > 

5 end; ( biggest or 2nd biggest > 

4 end; {checkspace) 

3 procedure checkentry; 

4 begin { checkentry ) 

4 if dent ry. ftype=-l then 

5 begin ( logical end of directory > 

5 dataspace :» (volsize div 256) - lastused - 1; 

5 if dataspace>0 then checkspace(true) ; (check space at end of directory) 

5 ■( set lastopening so outer proc. won't think directory is full ) 

5 if lastopening=0 then lastopening := dindex; 

5 if (mostavail .hole=0) and (mostavail. sstart >0) then 

6 mostavail .hole := lastopening; 

5 if (nextavail. ho le=0) and (nextavail . sstart >0) then 

6 nextavail. hole := lastopening: 

5 done := true; lastused := (volsize div 256) + 1; 

5 end 

5 else 

5 if dent ry.ftype-0 then 

6 begin ( hole in the directory > 

6 if not opening then 

7 begin 

7 opening := true; 

7 lastopening := dindex; 

7 if mostavail . 55tart>0 then 

8 wit h mostavail do 

9 begin (adjust fixed/biggest space > 
9 If hole=0 then hole := lastopening 

10 else 

10 if (abs ( ho le- he re) >abs [lastopening -he re)) then 

11 begin, { hole changed direction from entry ) 
11 her^ := here + 1; 

11 hole := lastopening; 

11 end; 

9 if fixed then done := true; 

9 end; ( with ) 

7 if (space<0] and (nextavail .S5tart>0) then 

8 with nextavail do 



11-636 
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adjust second biggest space > 
then hole := iastopening 



begin 

If hole= 
else 

if (abs(hole~here)>abs( Iastopening -here)) then 
begin ( hole changed direction from entry > 

here := here + 1 ; 
hole := Iastopening; 
end; 
end; 

end; 
end ( hole in the directory } 

else 
begin ( have file entry ) 

dataspace := dentry.fstart - lastjsed - 1; 

if dataspace>0 then checkspace ( f islse) ; 

( if no dataspace yet, move Iastopening to end of series ) 

if [most avail . 55t art = ) and opening then Iastopening := dindex 

opening := false; 

lastused :- dentry.fstart + dentr/.fsize - 1; 
e nd ; 
end; (checkent ry} 



begini (get space) 
dindex := Ij 
seek (dir"-, dindex) ; 
if 5pace>0 then begin fixed:= 
else fixed : = f alse; 



space:=(bpace+2S5) div 256; end 



lastused := dend 
mo5 tavail . sstart 
mos tavail . ssize 
mos tavail . hole 
mos tavail , here 



Iastopening 
next avail .sstart 
nextavail .ssize 
next avail . hole 
nextavail .here 
opening := 



= 0; 
= 0; 
= 0; 
= 0; 
= 0; 
false; 



done :- false 
r e pe a t 

read (dir'^,dent ry) ; 

checkent ry; 

d index : = dindex + 1 ; 

if not done then done := dindex>dla5t ; 
until done; 

if l35topening^0 then badiolidirfulli 
else 

begin ( have at least one directory opening ) 
if jmost avail . 5start=0) or not fixed then 
begin 

dataspace := (volsize div 256) - lastused - 1; 

if data5pace>0 then 

begin 

dindex := dlast + 1; (insurance policy ) 
if (not fixed and (dataspace>mo5t avail. ssize) J or 
((5pace<0) and (dataspace>next avail . ssize ) ) or 
(fixed and [data5pace>=space ) ) then checkspace ( false ) ; 
end; 
end; 
if mostavail . sstart=0 then badio [ inoroom) ; 

if fixed then most avail . ssize := space 

else 

wit h most avail do 
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begin 



> 



^ n ( final decision for non fixed space ) 

{ watch for [*] type allocation > 

\ biggest of (1/2 biggest or 2nd biggest) > ( include an 

if space<0 then ssize := (ssize div 2) + (ssize mod 2); 

if next avail . 5size>=s5ize then most avail : = nextavail ; 
end; 

shuffle; ( allign dataspace and directory entr 
srec := mostavail; 
end ; 
end; (getspace) 

procedure finishfib; 
begin 

f.fileid := dent ry . fstart*256; 

f.fpeof := dertry.fsi2e*256; 

if f.fisnew then f.fleof := 

else f.fleof := f.fpeof; 
f.fmodified := f.fisnew; 

if not f.fbuffered then f.am ;= amt able-^CUNTYPEDFILE] 
else 
if f.fistextvar then f.am := amt able'Cf.fkind] 

else f.am := amtablc^fdatafile] ; 
end; (finishfib) 

procedure openrew; 
var 

space : spacerec; 
begin 

getspace (f . fpos, space) ; 

dindex := space. here; 

( fill in the lif directory entry > 

{file name} 

if f. f anonymous then dentry.fname := 'anonymous ' 
else st rtolif name (f.ftid,dentry. fname) ; 

dentry.ftype := f.feft; 

dentry.fstart := space - sst art ; 

dentry.fsiie := space. ssize; 



y odd sector ) 



«««»»*«*) 



9; { mark as temporary ) 



set date (dent ry . fdate) ; 

dentry.fdate[3] := 9; dent ry. fdate [4] 

dentry.lastvol := true; 

dent ry.volnumber := 1; 

dent ry. extension := 0; 

writedir (dir^, dindex, dent ry) ; (write it out) flushdir; 

( finish the file fib } 

finishfib; 



end; (opennew) 



WX<»«X»*S««*««»»««*:»»**««»»** 



type,fk] ; f.fkind: = fk; 



procedure openold; 
var fk:filekind; 
begin 

liftofkind(dentry.ft> 
finishfib; 
with dentry do 
begin 

f.fstart address := 0; 

f.feft := ftype; 

if ftype=ef tt abie'"[datafile] then ffleof := extension 



«****««) 



11-637 
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961:C 5 else f . f startaddress := extension; 

962:C 4 end; 

963;C 3 end; 

964:S 

965;D '326 2 {*****t********x*****t*****************************»*************************y 

966:[i 2 procedure openf; 

967:C 3 begin 

968:C 3 opendir; checkvolid; 

969:C 3 if not (f . f anonymous and f.fisnew) then checkftitle; 

970:C 3 if f.fisnew then 

971 :C 4 bejin ( new temp file ) 

972:C 4 if not mediavalid then cleandir; 

973:C 4 if f . fanonymous tfien opennew 

974:t: 5 else 

975:C 5 if findfile(f .fisnew.O) then ioresult : =ord (idupf lie) 

976:C 6 else opennew; 

977:t: 4 end 

978:C 4 else < existing permanent file > 

979:(: 4 begin 

980:C 4 if findfile(f .fisnew.O) then 

981 :t S begin 

982:C 5 openold; 

983:C 5 if not mediavalid then cleandir; 

984 :C 5 end 

985:C 5 else ioresult :=ord (inofile) ; 

986:C 4 end; 

987:C 3 end; { openf ) 

988:E 

989:D -326 2 {*t»i*t**********x****»********»***x****M***M^**in»*******t******Mx**»*x****x**y 

990 :D 2 procedure closef; 

991 :D 3 var 

992:D -4 3 temp : integer; 

993 :S 

994:C 3 begin 

995:C 3 If f.fisnew then 

996 :C 4 begin < purge old file ) 

997:C 4 temp: =dinde!(; 

998:C 4 if f indfile ( false ,0) then purgef; 

999:C 4 dindex : =temp; readdi r (dir^,dindex,dent ry) ; 

1000:C 4 end; 

1001:C 3 if f.fmodified then 

1002:C 4 with dentry do 

1003:C 5 begin ( rewrite the directory entry > 

1004:C 5 if ftype»efttable"[datafile] then extension := f.fleof 

1005;C 6 else extension := f . f start address; 

1006:C 5 temp:=(f .fleof»2S5) div 256; 

1007:C 5 if temp<fsize then fsize:=temp; 

1008:C 5 setdate(fdate); 

1009:C 5 writedir(dir'^. dindex, dent ry) ; flushdir; 

1010:C 5 end; 

1011:C 3 end; 
1012:S 

1013:D -326 2 {***'»**********x**^********»*****************'^********m*******x**^*x********x) 

1014:D 2 procedure stretchf; 

lOlSiD 3 var 

1016:D -2 3 found, eod : boolean; 

1017:D -18 3 tempindex, filestart, dataspace, reqsize : integer; 
1018:S 

1019:C 3 begin {5tretchf> 

1020:C 3 tempindex := dindex; found := false; eod := false; 
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1021:C 3 filestart := dent ry. f start ; 

1022:C 3 reqsize := (f.fpos ♦ 255) div 256; < round requested size 25ian83) 

1023:C 3 if reqslze>dent ry . fsize then 

1024:C 4 begin 

1025:C 4 while (not found) and (not eod) do 

t026:C 5 with dent ry do 

1027 :C 6 begin 

1028 :C 6 tempindex := tempindex * 1; 

1029:C 6 if tempindex>dlast then eod ;= true 

1030:C 7 else 

1031 ;C 7 begin 

1032:C 7 readdlr(dir', tempindex, dentry); 

I033:C 7 if ftype=-l then eod := true 

1034:C 8 else 

1035:C 8 if ftypeoO then 

1036:C 9 begin 

1037:C 9 found :- true; 

1038:C 9 dataspace ;= dent ry. f start - filestart; 

1039:C 9 end; 

1040:C 7 end; 

1041:C $ end; ( while with ) 

I042:C 4 if eod then 



i043:C 5 begin ( dataspace is from begining of file to end of volume > 
1044:C 5 found:=true; (25ian83> 

104S:C 5 dataspace := (volsize div 256) - filestart; <25:an83> 



1046:C 5 end 

1047:C 4 if found then 

1048:C 5 if dataspace>=reqsize then <25jan83> 

1049:C 6 begin ( will stretch } 

1050:C 6 readdir(dir*, dindex. dentryl ; 

1051 :C 6 < allow requested space + naif of excess space 25jan83 > 

1052:C 6 dentry. fsize := (reqsize + dataspace) div 2; {2Sjan83> 

1053:C 6 writedir(dir", dindex, dentry); flushdir; 

10S4:C 6 f.fpeof := dentry. fsize « 256; 

1055:C 6 end; ( will stretch ) 

1056:C 4 end; 

1057:C 3 end; ( stretchf > 

1058:S 

1059:D -326 2 {*«»***»»********»*******»****»***««*t«»***»**«*«»*«»x*«««»*«««««»«s»»»x«iii»«s) 

1060:0 2 procedure changefname(anyvar n : st rin9255) ; 

1061:0 3 var 

1062:D -4 3 tempindex : integer; 

1063:0 -5 3 ok : boolean; 

1064:C 3 be9in 

1065:C 3 if f . f anonyiDous then badio( ibadrequest ) ; 

1066:C 3 opendir; checkvolid; checkftitle; 

1067:C 3 ( find the original (permanent file) > 

1068:C 3 if not f indfile (false, 0) then badio (inofile) ; 

1069:C 3 < change the name ) 

1070:C 3 tempindex := dindex; 

1071:C 3 if (strlen(n)»0) or (st rlen (n)>tldlen9) then badio ( ibadtltle ) ; 

1072:C 3 f.ftid := n; 

1073:C 3 if f indfile ( falke,0) then badio (idupfile) 

1074:C 4 else 

1075:C 4 begin 

1076;C 4 readdir (dir'\ tempindex, dent ry) ; 

1077:C 4 strtolifnamejf.ftid, dentry. fname) ; 

1078:C 4 writedir(dir'', tempindex, dentry) ; flushdir; Il-fi.^fl 

1079 :C 4 end " "''° 

1080:C 4 end; < changefname ) 
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1103:S 
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U09:C 
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1111:C 

1112:C 

1113:S 

1114:D 

1115:D 

1116:C 

1117:C 

1118;C 

11!9:C 

1120:C 



1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135; 
1136 
1137 
1138: 
1139: 
1140: 



-326 
-326 



*»«»«*:«*«»«»« 



**«X««««Jtr:tX«lk«X»S«« 



procedure dooverwritef ile ; 
begin 

opendir; checkvolid; 

if f. f anonymous then badio(ibadreque&t ) ; 

checkftitle; 

f.fisnew := true; 

if findfile(false,0) then 

begin ^ existing file > 

If not mediavalid tnen cleandir; 
openold; f.fleof := 0; { setup fib then reset logical 



entry. 
ate[31 



dent ry . fdate [3] := 9; dent ry . f date [4] := 9; < now a tempo 

writedir [dir^,dindex,dent ry) ; anychange := true; 

end 
else 
begin { new file ) 

if not mediawalld then cleandir; 

opennew; 
end ; 
end; { dooverwritefile ) 

procedure nowopen; 
begin 

opendi r; 

if f .fvid<:>volid then ioresult : =ord (ilost f ile 

else 

if not findfile(f .f isnew.f .feft ) then ioresult :=ord [ilostf i 

goodio; 
end; 

begin (lifdam) 
lockup; 

mediavalid := unitabl 
< tell TM to keep qui 
unitable^[unum] .umedi 
unitablc^Eunum] .urepo 
fibp(dir)'^. funit 
ioresult 
anychange 
try 

case request of 
openfile : begin 
createfile: begin 
overwr itef ile 
closefile : if 
purgefile : begin 
stretchit ; begin 
changename: Chang 
getvolumengme : 
begin 

ok := lifvol 
end; 
setvolumenane : 
if lifvol then 
begin 



eof > 
rary fi 



le ) 



**.*.X****.*.*i****i**\ 



le); 



turn*****-* 



c^tunum] .umeOiavalid ; 

et about media changes for a wh 

avalid := true; 

rtchange i= false; 

num; fibp(dir)*.freadable := fa 

rd (inoer ror ) ; 

alse ; 



f.fisnew := false; openf; end; 

f . f is new : = t rue ; openf ; end; 
ooverwri tef ile ; 
fmodified then begin nowopen; cl 

nowopen; purgef; end; 

nowopen; stretchf; end; 
ef name [ f , fwi ndow'') ; 



strtoanyl unit able"[un urn]. uvid.f) 





************ 


ile 


> 




Ise 
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n41:C 
1142:C 
1143:C 
1144:C 
1145:C 
1146:C 
1147:C 
1148:C 
1149:C 
1150:C 
1151:C 
1152:C 
1153:C 
1154:C 
1155:C 
1156:C 
1157:C 
1158:C 
1159:C 
1160:C 
1161 :C 
1162:C 
1163:C 
1164:C 
1165:C 
1166:C 
1167:C 

ueeic 

1169:C 
1170:C 
1171:C 
1172:C 
1173:C 
1174:C 
1175:0 
1176:C 
1177:C 
U78:C 
1179:C 
1180:0 
U81:C 
1182:C 
1183:0 
U84:C 
1185:D 
1186:C 
U87;C 
118S:C 
1189:C 



strtopac[f,6,vol .vol name, t rue ; ; 
with unit able^[unum] do 
begin 

call{tm,fibp(dir),writebytes,voI,sizeof(lvheader),0); 

goodio; anychange := true; 



end 
end; 
purgename 

getvclumedate 

setvolumedate 

crunch 

catalog 

opendirectory 

closedirector 

malcedirectory 

openunit , 

openvoljfne 



dopurgename; 
getsdate tf ) 
set5date(f ) 
crunchv; 

docat (f . fwindow") ; 
doopendirectory(f. fwi ndow") ; 
;begin end; 
domakedi rectory [ f. fwindow^) ; 



rec 
beg 



end 
loc 
end 

Croce 
eg in 
If 
end; 
1 end; < 
1 impor 
1 begin { 
1 insta 
1 marku 
1 end.< 



begin 
cleanup; 
unblockedd am (f.unum, request): 
mediavalid := unit able'^Cun urn j. umediavalid; 
end; 
setunitprefix: if st rlen{f . ftit le j>0 then badio(ibadtit le) ; 
5t ripname : begin 

checkftille; set st rlen (f. ftit le,0) ; 
St rtolifname (f.fiid,dentry. fname) ; 
end; 
ot he rwise 

ioresult := ord (ibadrequest ) ; 
nd; { case request > 
f anychange then flushdir; 

leanup; { fix umediavalid and ureportchange ) 
over 
_in 

cleanup; { fix umediavalid and ureportchange ) 
if £e5capecode<0) and (escapecode<>-10) then 
begin lockdown; escape (escapecode ) ; end; 



kdown; 

dure installlifdam; 

dir=nil then new(dir] 

module ) 
t lifmodule .loader ; 

inst lifdam) 
lllifdam; 
ser- 
ev 2.2x1 > 



No warnings . 

***** Nonstandard language features enabled ***** 
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LOCKMOD 



Description 

LOCKMOD provides the function: LOCK and the procedures: UNLOCK and WAITFORLOCK for the sharing 
of SRM files opened with the LOCKABLE option as the third parameter. 



Usage 

Only useful with SRM (Shared Resource Managment). 



Notes 

Supplied in SYSVDL : LIBRARY. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1 :S (« 

2:S 

3:S jc) Copyright Hev<)et t -Packard Company, 1983. 

4;S Rlj rights are reserved. Copying or other 

5:S reproduction of this program except for archival 

6:S purposes is prohibited without the prior 

7:S written consent of Hewlett-Packard Company. 

8:S 

9 : S 
10:S RESTRICTED RIGHTS LEGEND 

11 :S 

12:S Use, duplication, or disclosure by the Government 

13:S is subject to restrictions as set forth in 
14;S paragraph (b) (3) (B) of the Rights in Technical 

15:S Data and Computer Software clause in 

16:S DSP 7-104. 9(a). 

17:S 

18 :S HEUiLETT-PSCKfiRD COMPHNV 

19;D Foit Collins, Colorado ») 

20 :S 
21:S 

22:D Iccpyright 'COPrRIGHT (C) 1983 BY HEULETT-PflCKPRD COMPBNY'I 
23 :S 

24 :D SsysprogS 
25 :D module lockmodule: 
26 :S 

27:D 1 import sysglobals; 
28:0 1 export 
29:S 

30:D 1 function lock (anyvar f 

31:0 1 procedure unlock (anyvar f 
32:0 1 procedure waitforlock anyvar f 
33:S 

34:0 1 implement 
35:3 

36 :0 1 (*»**«**************«******«*»*«************«**«**********»********»*«*) 
37:0 1 function lock [anyvar f : fib) : boolean; 

38:C 2 begin 

39:C 2 loresult := ord (inoe rror ) ; 
40:C 2 *ith f do 
41 :C 3 if not flockable then 
42:C 4 ioresult := ord (inotlockable) 
43:C 4 else 
44:C 4 if flocked then 
45:C 5 ioresult := ord ( if ilelocked ) 
46:C 6 else 
47:C 5 begin 
48:C 5 fwaitonlock :- false: 

49:C 5 call(unitable"[funit] .dam,f ,funit,lockfile) ; 

SO:C 5 end: 

51:C 2 if ioresult = ord (inoer nor ) then 
52:C 3 lock := true 
53:C 3 else 
54:C 3 begin 
55:C 3 lock := false; 

56:C 3 if ioresult <> ord (if ilelocked) then 
S7:C 4 e5cape(-lC') ; 
58:C 3 end; 
59:C 2 enc; 
60:S 



fib) : boolean; 

fib ; 

fib); 
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61 :D 1 (*««************«**«***»*»****w»«*«**«***«*****«******iii*«*******«*«****) 

62:D 1 procedure unlock (anyvar f : fib); 

63:C 2 bejin 

64:C 2 loresult := ord (inoer ror ) ; 

6S:C 2 with f do 

66:C 3 if not flockable then 

67;C 4 loresult :^ o rd( irot lockable) 

68:C 4 else 

69:C 4 if not flocked then 

70:C 5 ioresult := ord ( if ileunlocked] 

71:C 6 else 

72:C 6 call(unitable*[funit] .dam,f ,funit,unlockfile); 
ioresult <> ord ( inoer ror ) then 



73:C 2 if 

74:C 3 escape(-lO); 

7S:C 2 end; 

76:3 



3 

78:0 1 procedure waitforlock (anyvar f : fib); 

79:0 2 begin 

80:C 2 loresult := ord (inoer ror ) ; 

81 :C 2 with f do 

82:C 3 if not flockable then 

83:C 4 ioresult :=^ ord ( inot lockable) 

84:C 4 else 

85:C 4 if flocked then 

86:C 5 ioresult :• ord ( if ilelocked) 

87:C 5 else 

88:C 5 begin 

89:C 5 fwaitonlock := true; 

90:C 5 call(unitable*[funit] .dam.f ,funit,lockfile) ; 

91:C 5 end: 

92:C 2 If ioresult <> ord(inoer ror) then 

93:C 3 e5cape(-10); 

94 :C 2 end; 

95:3 

96:C 1 end. (lockmodule) 

No errors. No warnings. 

««x** Nonstandard language features enabled *«««« 
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M68KSYS 



Description 

M68KSYS provides the command interpreter for the Pascal operating system. 



Requirements 

SYSGLOBALS, FS, LOADER, ASM, MISC, SYSDEVS, and LDR. 



© Copyright Hewlett- Paclcard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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9 
10 
11 
12 
13 

14:S 
1S:S 
16:S 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30:D 
31 :S 
32:D 
33:D 
34 :S 
35 
36 
37 
38 
39 
40 
41 
42 

43:0 
44:D 
45:D 
46:D 
47:D 
48:D 
49:S 
SO:D 
51 :D 
52:D 
53:S 
54 :D 
55:D 
56 :D 
57:D 
58:D 
59:D 
60 :D 



-4 
-736 
-740 
-862 
-864 
-868 
-869 



(.:) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph [b) (3) (6) of the Rights in Technical 
Data and Computer Software clause in 
DHR 7-104. 9(a) . 

HEULETT-PaCKURD COMPfiNY 

Fo [ t Collins, Colorado *) 



JmodcalS 

Siocheck offS Jdebug offS Srange off$ Jovflcheck off$ 

$heap_dispose off$ 

Ssearch 'INITLOfiD', 'fiSM', 'INIT', 'SVSDEVS'S 

program cmd ( input , out put , keyboard ) ; 

module ci; 

import 

sysglobalSjfs, loader, asm, mi sc,sysdev5,ldr; 



sysfiles = ( assembler compiler editor , filer , librarian, library) : 
sysfilevols = array [sysfiles] of 5tring[6]; 
f,ysf ilenames = array [sysfiles] of fid; 



nforec = record 

er r sym.er rblk .errnum : integer; 
gotsyrn,gotcode : boolean; 
workfid,5ymfid,codefid,errfid: fid; 
end (»I.MFOREC») ; 

inforecptr = "^inforec; 
cmdprocedure = procedure; 
ctndprocptr= '^cmdprocedu re ; 

ai streamfib: '^tett; 

filename: sysf ilenames ; 

t ioresult : integer ; {to save previous ioresult) 

chainf lie : fid; 

chaining: (nocnain,progchain,5t reamchain) ; 

userinfo: inforecptr; 

versionup: boolean; 



(•FILE INFORHflTION*) 
(•ERROR STUFF IN EDIT») 
(•TITLES ARE MEfiNINGFUL» 
(•PERtl&CUR UIORKFILES* 



(•FOR SVSTEM STREfirt FILE«) 
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61 :D 
62:D 
63:D 
64:0 
65:3 
66:0 

D 
D 
D 
D 

D 

S 



S8 

69 

70 

71 

72 

73 

74 

75 

76:S 

77:D 

78:S 

79:0 

80:S 

81 :P 

82:D 

83 :D 

84 :D 

85 :D 
86:0 
87:S 
88:0 
89:C 
90:C 
91:C 
92:S 
93:0 
94:C 
95:C 
96:0 
97:C 
98:0 
99:S 

100:0 
101 :C 
102:C 
103:0 
104:C 
10S:C 
106:0 
107:S 
108:0 
109:0 
110:0 



11 
112 
113 
114 

115 
116 
117 
118 
119 
120 



-874 
-875 
-876 



-877 
-877 
-877 



-877 
-877 
-877 
-877 



cmdcharhook : cmdprocptr; 

ci_idJe: boolean; 

ci_cmd: char; 

keystream: boolean; { stream file is original file ) 



procedure homecursor 

pocedure clearscreen 

procedure clearline 

procedure prompt (pi: 

function getcha '" 

function upperc.3se (ch: char): char 

procedure chain (filename : fid); 

procedure st artst ream( filename : fid); 

function streaming: boolean; 



a. Strin980); 

flushit: boolean): char; 



-877 
-877 
-877 
-877 
-877 
-877 



1 procedure systemstartup; 

1 implement 

1 type 

1 monthtype = array [0..15] of packed array [1..3] of char 

1 const 

1 months = monthtype [ '???', 'Jan' ,' Feb' , 'Mar ', 'fipr ', 'day' 

1 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' 

1 '???' '???' ] ■ 

1 function streaming: boolean; 

2 begin with f ibp( st reamf ib )^ do 

3 streaming := freadable and (fpos < fleof); 
2 end, 

1 procedure St art s t ream (filename : fid); 

2 begin 

2 chainfile := filename; 
2 chaining := streamchain; 
2 escape (0); 
2 end; 

1 procedure chai n ( filename : fid); 

2 begin 

2 chainfile := filename; 

2 fixname (chainf ile, codefile); 

2 chaining := progchain; 

2 e5cape(0); 

2 end; 

1 procedure disptime; 

2 var time: timerec; 
2 date: daterec; 
2 X , y : integer ; 

2 second, dayy: shortint; 

2 begin 

2 second : = -1 ; 

2 dayy :« -1; 

2 set runlight (chr(idle) ) ; 

2 with fibp(gfile5(0] )'• do 

3 repeat 

4 calKam, f ibp(gf iles [0] ) ur 
4 if fbusy and versiorup then 



itstatus, gfi]e5[0), 0, 0) 
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121:C 




5 


122:: 




5 


123;C 




5 


124:C 




5 


125;C 




6 


126:C 




7 


127:C 




7 


128:C 




7 


129:C 




7 


130:C 




7 


131:C 




7 


132:C 




B 


133:C 




B 


134:C 




B 


13S:C 




S 


136:C 




B 


137:C 




7 


138:C 




7 


139:C 




5 


140:C 




« 


141;C 




» 


142:C 




2 


143:C 




2 


144:S 






14S:D 




1 


146:C 




2 


147:5 






148:D 




1 


149:D 




2 


1S0:D 


-6 


2 


151:D 


-10 


2 


1S2:C 




2 


1S3:C 




2 


1S4:C 




3 


155:C 




3 


1S6:C 




3 


1S7:C 




» 


158:C 




» 


1S9:C 




i 


160:C 




* 


161:C 




( 


162:C 




5 


163:C 




5 


164 :C 




5 


165:C 




3 


166:C 




7 


167:C 




5 


168:C 




( 


169:C 




3 


170:C 




2 


171:3 






172:D 




1 


173:D 




2 


174:D 


-82 


2 


175:0 


-83 


2 


17$:D 


-88 


2 


177:D 


-92 


2 


178:D 


-94 


2 


179:D 


-100 


2 


1S0:S 







' , second : 2) ; 



begin 

■systime ( time] ; 
sysdate (date) ; 
with time, date do 

if (centisecond div 100 <> second) or (day <> dayy) then 
begin 

second := centisecond div 100; 
fgetxy(output, k, y): 
fgotoxWoutput , 25, 3); 
write(nour:2, ' : *rninute:2, ' : ' , 
if day <> dayy then 
begin 

dayy := day; 
fgotoxy(outptJt 25, 2); 

wr3teln(day:2,-' , months [month] , ' - ' , yea r :2 ) ; 
end; 
fgotoxylout put , x, y) ; 
end; 
end; 

if fbusy and ci_idle then call ( kbd^'aithook) ; 
until not fbusy or (chainingonochain ) ; 
ci_3dle ;=false; 
end; 

procedure dLirnmycmdchar ; 
begin end; 

procedure initdate; 
var 

thedatet ime : date time rec; 
Itime : timerec; 
begin 

with thedatetime, date do 
begin 

ijysdate (date ) ; 

if (year=0) and (month=3) and (day=l) then 
begin 

systime ( It ime) ; 
time := Itime; 

call (unitable'^[sysunit].dam, thedatet ime, sysunit , getvolumedate) 
if ioresult = ord(inoerror ) then 
begin 

setsysdate (date) ; 
with Itime do 

if [hour = 0) and (minute = 0) then 
set systime ( time) ; 
end; 
end; 
end; 
end; (*lNITDflTE*) 

procedure dateset ; 
var 

gs: '5tring80: 

changed : boolean ; 

i: integer; 

cloclctime : timerec ; 

clockdate: date rec; 

clockdatetime : date time rec ; 
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181:0 


2 


182:C 


3 


183:C 


3 


184:C 


3 


18S:C 


3 


186:C 


3 


187:C 


3 


188:C 


3 


189:C 


3 


190:C 


3 


191:C 


3 


192:C 


3 


193:C 


3 


194 :C 


3 


196:C 


3 


196:C 


3 


197:C 


3 


198:C 


3 


189:C 


3 


200:C 


3 


201:C 


3 


202 :C 


3 


203 :S 




204 :C 


3 


20S;S 




206 :C 


3 


207:3 




208 :D 


2 


209:0 


3 


210:0 


3 


211:D 


-7 3 


212:: 


3 


213:: 


3 


214:: 


4 


215:: 


4 


216:0 


5 


217:: 


5 


218:: 


5 


219:: 


5 


220:0 


5 


221:C 


5 


222:0 


4 


223;C 


4 


224:: 


3 


225:0 


4 


226:0 


4 


227:0 


4 


228:C 


3 


229:3 




230:0 


2 


231 :D 


3 


232:0 


-4 3 


233:D 


-9 3 


234:0 


3 


235:: 


3 


236:: 


4 


237:0 


4 


238:0 


6 


239:0 


5 


240:0 


6 
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procedur 
begin 

clear screen; writeln(outp(jt); 

wrlteln [out put ] ; 

writeln tout put , 

wr iteln (out put , ' 

wri teln (out put ) ; 

writelnjout put , ' 

w r i t e 1 n ; 



System date 
Clock time i 



Workstation 



vailable Global Space 
Total Rvsilable fleTiory 
:1, ' bytes') ; 



' , syvid, ' : ' 
' .dkvid, ' :' 



wr iteln[out put 
writeln [out put , 

egloba] -integer (e heap 
wr iteln; 

writelnfoutput,' System volume : 
writeln [out put , ' Default volume: 
wr iteln; writeln; 
writeln; 

wri teln [ 'Copyright 1984 Hewlett-Packard Company.'); 
writelnf'PlJ rights are reserved. Copying or other'l; 
wr iteln (' reproduction of this program except for arcniva 
wr iteln (' purposes is prohibited without the prior'); 
wr iteln ( 'writ ten consent of Hewlett-Packard Company.'); 



.fsidc); 

,eglobal"(a5-32768) :1, ' bytes' 



end; {IDENTIFY} 

f unci ion readnumericf ield 

(1 limit , hlimit : integer; var field: integer 
label 1; 
var gotnum: boolean; i: integer; ch: char; 



boolei"n; 



begin gotnum :-■ false 

while st rlen(gs) > 

begin ch := gs[l] 

if (ch>='0') an-" 



do 

(ch<=' 



begin gotnum := true; 
1 := IO*i+ord(ch" 



t hen 



j(ch)-ord('D' ) ; 
if i>hlimit then i := hlimit+1; 
end 
else 

if gotnum then goto 1; 
strdelete(gs,l,l); 
end; 

if gotnum and (i>=llimit) and [i<=hlimit) then 
begin re ad numeric fie Id := true; field := i end 
else 

readnumericf ield := false ; 
end; {REflDNUMERICFIELD) 

function readmonthabbrev (var mont hnumbe r: integer ) : boolean; 

label 1; 

var s3: packed array[1..3] of char; 

i : integer , ch : char ; 
begi n i : = 0; s3 := ' ' ; 
while strlen(g5) > do 
begin c:h :- g^[l]; 

If ch in ['fl' . .'2' , 'a' . .'z'] then 
begin i := i + 1 ; 

if (ch>='fl'} and (ch<='' then 

ch :. = chr[ord[ch)-ordi .') + ord('a')); 
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241:C 


5 


if i<4 then 53[i] := ch; 




242:C 


5 


end 




243:C 


5 


else 




244:C 


5 


if i>0 then goto 1 ; 




245 :C 


4 


5trdelete(g5,l,l) ; 




246 :C 


4 


end; 




247 :C 


3 


1: s3[l] := uppercase(s3[l] ) ; readmonthabbrev := false; 




248 :C 


3 


for i := 1 to 12 do 




249:C 


4 


if months[i] = s3 then 




250 :C 


5 


begin readmonthabbrev := true; monthnumber :* i end; 




251 :C 

252 :S 
263 :C 


3 


end; (REfiDMONTHfiSBREV) 




2 


begin {DHTESET) 




254 :C 


2 


changed := false; 




255 :C 


2 


sysdatefclockdatel ; 




256 :C 


2 


systime(clocktime) ; 




257 :C 


2 


tdent ify; 




258 ;C 


2 


prompt('New system date ? '): disptime; 




259 :C 


2 


readlnlinput ,gs) ; 




260:C 


2 


if 5trlen(gsj>0 then with clockdate do 




261 :C 


4 


if readnumericf ield (1 ,31 , i) then 




262:C 


5 


begin 




263:C 


5 


changed := true; 




264 :C 


5 


day :» i; 




265:C 


5 


if readmonthabbrev(i) then month :« i; 

if readnumericf ield(0,99,i) then year := i; 




266:C 


5 




267:C 


5 


setsysdate(clockdate); 




268:C 


5 


end; 




269:C 


2 


prompt('New system clock time ? '); disptime; 

readlnjinput ,gs) ; 

if strienfgs)>0 then with clocktime do 




270:C 


2 




271 :C 


2 




272:C 


4 


if readnumericf ield(0, 23, i] then 




273:C 


5 


begin 




274 :C 


5 


changed := true; 




27S:C 


5 


hour := i; 




276:C 


5 


if readnumericfield (0,59,i) then minute := i 




277:C 


6 


else minute ;= 0; 




278:C 


5 


if readnumericfield(0,69,i) then centisecond := i*100 




279:C 


6 


else centisecond := 0; 




280:C 


5 


setsystime (clocktime) ; 




281 :C 


5 


end; 




282 :C 


2 


if changed then 




283:C 


3 


with clockdatetime do 




284 :C 


4 


begin 




285 :C 


4 


date := clockdate; 




286 :C 


4 


time :- clocktime; 




287 :C 


4 


call (unitable^[sysunit] .dam, clockdatetime, sysunit, setvolumedate) ; 




288 :C 


4 


identify; 




289:C 


4 


end; 




290:C 


2 


end; (DBTESET) 




291:S 








292:D 


1 


procedure disableuseris rs ; 




293:D 


-4 2 


var i : integer ; 




294 :C 


2 


begin 




295:C 


2 


call (cleariohook) ; 




296:C 


2 


interrupttable:=perminttable; 




297:C 


2 


end ; 




298:3 








299:D 


1 


function uppercase ((CH: CHflR): CHAR); 




300 :C 


2 


be^in 
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301 :C 


2 


if [ch>='a') and (ch<^'z') 




302 :C 


3 


then uppercase := chr (ord (ch) -32) 




303 :C 


3 


else uppercase := ch 




304 :C 


3 


end; 




306 :S 








306:0 


1 


procedure St reamdv r (f p : fibp; request: amrequest type; anyvar buffer; window; 

bufsize, position: integer); 




307:0 


2 




308:0 


2 


type str = record s: string2S5 end; 




309:0 


2 


St rpt r = "^st r ; 




310:S 








311:0 


-4 2 


var buf: charptr; 




312:0 


-5 2 


c: char; 




313:0 


-8 2 


1: shortint; 




314:S 








315:D 


2 


procedure checkct rl (var c:char); 




316:0 


3 


var 




317:0 


-1 3 


ceoln : boolean; 




318:C 


3 


begin ( check for control chars in keystream files > 




319:C 


3 


if (c=chr(255)) and keystream then 




320:C 


4 


begin 




321 :C 


4 


ceoln; =eoln(st re amfib'^); 
read(st reamf ib'^,c ) ; 




322:C 


4 




323:C 


4 


if ceoln then c:=chr(13) ; 




324 :C 


4 


c:=chr (ord(c) mod 32) ; 




325 :C 


4 


end; 




326:C 


3 


end; ( checkctrl > 




327 :S 








328:0 


2 


procedure closedown; 




329 :C 


3 


begin 




330 :C 


3 


If keystream then c lose ( 5 1 reamf ib*") { if keystream keep the file } 
else close(streamfib", 'PURGE'); 




331 :C 


4 




332 :C 


3 


with fp" do 




333:C 


4 


begin 




334 :C 


4 


am := se rialtextamhook; 




335 :C 


4 


call(am, fp, request, buf^, bufsize, position); 




336:C 


4 


end; 




337:C 


3 


end; 




338:3 








339:C 


2 


segin {STRERMDVRJ 

loresult := ordf inoerror) ; 
buf := addr(buffer) ; 




340:C 


2 




341 :C 


2 




342:C 


2 


if eof (streamf ib^J then closedown 




343 :C 


3 


else 




344 :C 


3 


with fp'^, unitable^[funit] do 




345 :C 


4 


case request of 




346 :C 


6 


readbytes: while bufsize > do 




347 :C 


6 


begin 




348 :C 


6 


feoln := coin (st reamf ib") ; 




349:: 


6 


read(5treamfib", buf"); checkct rl (buf") ; 




350 :C 


6 


if uisinteract ive then 




351:C 


7 


if feoln then call(tm, fp, writeeol, buf", 1, 0) 




352 :C 


8 


else call(tm, fp, writebytes, buf", 1, 0); (echo) 




353 :C 


6 


bufsize :- bufsize - 1; 




364 :C 


6 


if bufsize > then 




355 :C 


7 


begin 

buf :. addr(buf" . 11; 

if eof (streamf ib") then begin 




356:C 


7 




357:C 


7 




358:C 
359;C 


8 
8 


closedown; 
bufsize := 0; 


11-646 


360:C 


8 


end; 
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361 :C 




7 


end; 




362 :C 




6 


end; 




363 :C 




5 


readtoeol: with strptr(buf)^ do 




364 :C 




6 


begin 




365 :C 




6 


setstrlen(5, bufsize); 




366 :C 




6 


i := 0; 




367 :C 




6 


while (i < bijfsize) and not eoln (st reamf ib") do 

begin i := i • Ij read(st reamfib', s[i]); checkct rl (s[i] ) ; end; 




368 :C 




7 




389:C 




6 


5etstrlen(5, i); 




370:C 




6 


{note there is no need to echo, since readtoeol isn't used interactively) 




371:C 




6 


if i < bufsize then 




372:C 




7 


if eof (St reainf ib^) then 




373;C 




8 


begin 

buf :« addrfsCl]); 




374 :C 




8 




375:C 




8 


c := s[i]; 




376 ;C 




8 


bufsire := bufsize - i; 




377:C 




8 


closedown; 




378:C 




8 


setstrlen[s, i+ord (s [i] ) ) ; 




379:C 




8 


5[i] := c; inote that i cannot be 0!) 




380:C 




8 


end; 




381:C 




8 


end; 




382:C 




5 


unitstatus: fbusy := false; 




383:C 




5 


otherwise call(tm, fp, request, buffer, bufsize, position); 




384 :C 




5 


end; 




385:C 
386:S 
387:0 




2 


end; (STREHnOVR) 




-82 


1 


procedure st reamopen{sf ile : 5tring80; report :boolean) ; 




388:0 


-82 


2 


const 




389:0 


-82 


2 


parindex = ['0' „ . '9' , 'fl' . . 'Z' ] ; 




390:0 


-82 


2 


type 




391:0 


-82 


2 


stringptr = "string255; 




392:0 


-82 


2 


var 




393:0 


-254 


2 


parptr: arrayC'O' .. 'Z'] of stringptr; 
la5tior,i; integer; 




394:0 


-262 


2 




395:0 


-266 


2 


heap: i pointer; 




396:0 


-930 


2 


f: text; 




397:0 


-948 


2 


v:vid; 




398:0 


-1070 


2 


t:fid; 




399:0 


-1074 


2 


segs;integer; 




400:0 


-1076 


2 


fk:filekind; 




401 :S 










402:S 










403:0 




2 


function streamsyntax : boolean; 




404:0 




3 


label 




405:0 




3 


1; 




406:0 




3 


var 




407:0 


-2 


3 


c, uc : char; 




408:0 


-166 


3 


5j instr ; stringSO; 




409:0 
410:S 
411:0 


-169 


3 


clseoln, needc, notendofparms : boolean; 






3 


procedure getc; 




412:C 






begin 




413:C 






ciseoln :- eoIn(f ) ; 




414:C 






read(f,c); 

if strlenl'instr ) » 80 then st rdelete 1 inst r , 1 , 10) ; 




415:C 








416:C 






setstrlenlinstr,strlen(instr)+l); 




417:C 






instrCstrlen(in5t r)] := c; 




418:C 






end; 




419:S 










420:0 




3 


procedure testioresult ; 
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421:C 




4 


begin 




422:C 




4 


if ioresult <> ord (inoer ror ) then 




423:C 




5 


begin 

lastior := ioresult; 




424:C 




5 




425:C 




5 


writeln('Can"t create ',5file); 




426:C 




5 


printerror( -10, lastior) ; 




427:C 




5 


goto 1; 




428:C 




5 


end; 




429:C 




4 


end; 




430:S 










431:C 




3 


begin (STRERnSYNTflX) 




432:C 




3 


mark(heap) ; 




433:C 




3 


for uc := '0' to 'Z' do parptr[uc] ;- nil; 




434 :S 










435:C 




3 


streamsyntax :- false; 




436:C 




3 


notendofparms := true; 




437:S 










438:C 




3 


if not keystream then { if keystream then forget this whole operation ) 




439:C 




4 


while not eof(f) do 




440:C 




5 


begin 




441 :S 










442:C 




5 


instr := ''; 




443:C 




5 


s := ' ' ; 




444:C 




5 


getc; 




445:C 




5 


needc := false; 




446;S 










447:C 




5 


if (c = '=') and notendofparms then (parm line) 




448:C 




6 


begin 




449:C 




6 


getc; 




450:C 




6 


uc := uppercase(c) ; 




451 :C 




6 


readlnjf,s) ; 




452:C 




6 


if uc in parindex then 




453:C 




7 


begin 




454:C 




7 


writeln (output , 5) ; 




465:C 




7 


newbytes(parpt r [uc] , sizeof ( st ring255) ) ; 
readln ( input , par pt rtuc]^) ; 




456:0 




7 




4S7:C 




7 


end 




458:C 




7 


else 




459:C 




7 


begin 




460:C 




7 


writeln (out put, inst r,s); 




461 :C 




7 


writeln(output, ' ' :strlen(in5t r)-l 




462:C 




7 


mod syscom^'.crtinfo -width, '^' ) ; 




463:C 




7 


printerror (-24,0) ; 




464:C 




7 


goto 1; 




46S:C 




7 


end; 




466:C 




6 


end 




467:C 




6 


else {line to process) 




468:C 




6 


begin 




469:C 




6 


if notendofparms then 




470:C 




7 


begin 




471:C 




7 


notendofparms := false; 




472:C 




7 


rew rite (st re amfib^,sfile, 'exclusive'); 




473:C 




7 


testioresult ; 




474:C 




7 


end; 




475;S 










476:C 




6 


repeat 




477:C 




7 


if needc then getc; 




478:5 








11-647 


479:C 




7 


if c " chr(255) then {control char) 




480 :C 




8 


begin 
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481:C 


8 


482 :C 


8 


483;C 


8 


484 :C 


8 


485;C 


8 


486 :C 


8 


487:C 


9 


488:C 


9 


489:C 


9 


490:C 


10 


491 :C 


10 


492:C 


10 


493:C 


10 


494 :C 


10 


495:C 


10 


496 :C 


10 


497:C 


9 


498:C 


9 


499:C 


10 


S0O:C 


11 


601 :C 


11 


502 .' : 


11 


S03:C 


a 


504 :C 


11 


505 :C 


11 


506 :C 


11 


S07:C 


11 


608 :C 


11 


509 :C 


11 


S10:C 


10 


611:C 


9 


S12:C 


9 


613:C 


10 


614:C 


10 


515:C 


10 


516:S 




617:C 


10 


618:C 


10 


519:S 




520:C 


7 


521:C 


7 


522:S 




523:C 


7 


624 :S 




S25:C 


6 


52$:S 




S27:C 


5 


528:S 




529:C 


3 


530:C 


3 


531 :S 




S32:C 


3 


533:C 


3 


534 :S 




635 .S 




636:C 


2 


637:C 


2 


538:C 


2 


539:C 


3 


540 :C 


3 
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(macro expansion) 
{error: no char after 9} 



chr(13) 
c :' chr (ord(c) mod 32) ; 
write (St reamf ib'^.c) ; 
end 

else if c = '9' then 
begin 
getc; 

if ciseoln then 
begin 

writeln(output,in5tr)' 
writeln[0Ltpyt,'':strien(in5tr)-l 

mod syscom"^ .c rtinfo -Width, '"') ; 
pr interror ( -25 ,0) ; 
goto 1 ; 
end; 

uc := uppercase (c ) ; 
if uc in parindex then 

if parptr[uc] <> nil then write (St reamfib^, parpt r [uc]"] 

else 

begin 

if not ciseoln then readln(f,s); 
writeln(output,in5tr,5l; 
writeln(output , ' ' : (strlen(instr)-l ) 

mod syscom^.crt info .width, '"') ; 
printer ror ( -25,0 ) ; 
goto 1; 
end 
else {write char as is) 

write (St reamf ib*,c) ; 
end 

else if ciseoln then {char is eoln) 

begin 

If not eof(f) then writeln(st reamf ib') ; 
end 



{normal char) 



else 

wr ite ( St reamf ib",c ) ; 

test ioresult ; 
needc := true; 

until ciseoln or eof(f); 

end; {line to process) 

end; (while not eof(f)) 

teit ioresult ; 
streamsyntax := true; 

1 : release (heap) ; 
nd; {STREPMSVNt«X) 

2 begin (STRERMOPEN) 

re^et ( f , sf iie , ' sha red' ) ; (OPEN THE STREftM FILE) 

if ioresult = ord (inoerror) then (SUCCESSFUL OPEN) 

begin (OPEN THE SVSTEtl STREBM FILE) 

if scant it le (sf lie, V, t , segs, fk ) then keyst ream:=segs<>0 
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541 
642 

54 3 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

656 

657 

558 

659 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

670 

571 

672 

573 

574 

575 

676 

577 

578 

579 

580 

581 

582 

683 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593: 

594: 

595: 

596: 

597: 

598: 

599: 

600 



-2 
-668 
•750 



= false; end; 



K, 0, 0); 



4 else keyst ream: -false; 

3 if not keystream then sfile := '*STREfin'; 

3 if streamsyntax then (SYNTHX AND WRITE TO SYSTEM FILE) 

4 begin (AVOID HOGGING THE DISK) 
4 If not keysTream then close (st reamfib", 'CRUNCH'); 
4 reset ( St rear: f ib", sfile, 'shared'); 
4 fibp(qfile5(0] )". am := streamdvr; (INPUT ) 
4 fibp(gfile5[21)~.am := streamdvr; (KEYBOHRO) 
4 end 

4 else close ( St reamf ib", 'PURGE'); (REMOVE SYSTEM STREAM FILE) 

3 rlose (f); 

3 end 

3 else it report then writeln(output , 'Can ' ' t open file ', sfile); 

2 end; (STREflnOPEN) 

1 procedure homecursor; begin write (homechar ) ; end; 

1 procedure clearscreen; begin write (clearscr ) ; versionup 

1 procedure clearline; begin write{cteol ); end; 

-82 1 procedure prompt («PL: STRING80«); 

2 begin homecursor; clearline; write [out put , pi) end; 

1 procedure zapt ypeahead; 
-4 2 var x; integer; 

2 begin call ( f ibp(gf iles [2] )".am, f ibp(gf iles[2] ) , clearu 
2 resetdnput); reset (gfiles[2]" (KEYBOARD)); 
2 end; 

1 function get cha r ( f lushi t : boolean): char; 
-1 2 var c h : cliar ; 

2 begin 

2 If flushit then zaptypeahead; 

2 read ( input ,ch) ; 

2 gelchar := uppercase (ch); 

2 end (»GETCHAR«) ; 

1 procedure initfnames; 

2 const sf = sysfilenames 

2 [ 'ASSEMBLER' . 'COMPILER' , 'EDITOR' ,' FILER' , 'LIBRARIAN', 'LIBRARY'] ; 

2 sysvolname = sysfilevols 

2 [ 'ASM' , "CMP' , 'ACCESS' , 'ACCESS' , 'ACCESS' ,'SYSVOL']; { js 8/6/83 > 

-2 2 var f: sysfiles; 

-6 2 find: set of sysfiles; 

-8 2 lunit : unitnum; 

2 procedure findem(var volume: vid); 

3 var f: sysfiles; 
3 l:fileof integer; 
3 Ititle: stringSO; 
3 begin 

3 for f := assembler to library do 

4 if f in find then 

5 begin 

5 Ititle := volume* ': '+sf[f] ; 

5 resetd. It it le, ' shared ') ; 

5 if ioresult = ord (inoe r ror ) then 
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<« 


601:C 




6 


begin 

filename[f] :- Ititle; 




602 :C 




6 




603:C 




6 


find := find - [f] ; 




604 :C 




6 


closed); 




605 :C 




6 


end; 




606 :C 




5 


end; 




607 :C 




3 


end; {findem) 




608 :S 










e09:C 




2 


begin < initfnames > 

find := [assembler .. library) ; 




610:C 




2 




611lC 




2 


f indem(5yvid) ; 




612:C 




2 


lunit := 1; 




613:C 




2 


while (lunit <= maxunit) and (find <> [)) do with unitable''[lunit) do 




614:C 




4 


begin 




615:C 




4 


call (dam, uvid, lunlt, getvolumename] ; 

if uisblkd and (uvid <> '') and (uvid <> syvid) then f indem(uvid ) ; 




616:C 




4 




617:C 




4 


lunit := lunit+1 




618;C 




4 


end; 




619:C 




2 


for f := assembler to library do 

if f in find then filenametf) ;= sysvolname [f )■► ' : '*5f [f ] ; 




620:C 




3 




621:C 




2 


syslibrary := filename [library] ; 




622:C 




2 


end (»INITFNfiriES») ; 




623 :S 










624:0 




1 


procedure initworkf ile ; 




625:0 


-82 


2 


var Ititle: stringSO; 




626:0 


-748 


2 


workfile: file of integer; 




627:C 




2 


begin 




628:C 




2 


with userinfo^ do 




629:C 




3 


begin («INITIflLIZE UORK FILES") 




630:C 




3 


errnum := 0: errblk := 0; errsym := 0; 




631 :C 




3 


symfid := ' , codefid := "; workfid := "; errfid := " ; 




632:S 










633:C 




3 


Ititle := 'tUORK.TEXT' ; 




634 :C 




3 


reset (workfile.lt itle, 'shared') ; 




635:C 




3 


gotsym := ioresult = ord ( incerror ) ; 




636:C 




3 


if golsym then symfid := Hitle; 




637:C 




3 


close(workf ile) ; 




638:S 










639:C 




3 


Ititle := '»UORk:.CODE' ; 




640:C 




3 


reset (workf ile, Ititle, 'shared') ; 




641:0 




3 


gotcode := ioresult = ord (inoer ror ) ; 




642 :C 




3 


If gotcode then codefid := Ititle; 




643:C 




3 


close (workf ile) ; 




644 :C 




3 


end; 




645;C 




2 


end («INITWORKFILE») ; 




646:S 










647:0 




: 


procedure updatesysunit ; 
begin 




648:0 




2 




649:0 




2 


initdate; 




650:0 




2 


initfnames: 
initworkfiie; 




651 :0 




2 




652:0 




2 


end; 




653:S 










654:0 




1 


procedure whatfiles; 




655:S 










656:0 


-14 


2 


yar e: strinq[12] ; 
f: sysfiles; 
update: boolean; c: char; 




657:0 


-16 


2 




653:0 


-18 


2 




659:0 


-22 


2 


i: integer; 




660:S 
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t* 


661:0 




2 


procedure edit(f: sysfiles); 




662:D 


-122 


3 


var s: fid; 




663:C 




3 


begin 




664:0 




3 


fgotoxy(output, 12, 3+ord(f)); wr ite(cteol ] ; readln(s); 




665:0 




3 


f]xname(s, codefile); 




666:C 




3 


if s <> '' then filename[f] := s; 




667:0 




3 


fgotoxy(output, 12, 3+ord(f)); write{f ilename [f ] , cteol); 




668:0 




3 


end; 




669 :S 










670:0 




2 


procedure volname (sysvol : boolean); 




671:0 


-4 


3 


var i: integer; 




672:0 


-126 


3 


s: fid; 




673:0 




3 


begin 




674:0 




3 


f90toxy(output , 19, ll-ord(sysvol) ) ; write (cteol) ; readln(s); 




675:0 




3 


2apspaces(s) ; 




676:0 




3 


if s<>" then 




677:0 




4 


begin 




678:0 




4 


if sysvol then doprefixfs, syvid, sysunit, true) 

else doprefix(s, dkvid, i, false); 




679:0 




S 




680:0 




4 


if ioresult<>ord(lnoerror) then 




681:0 




5 


begin 




682:0 




5 


getioerrmsgjs, ioresult ) ; fgotoxy(autput , 0, 13); 
writeln(bellchar, s, cteol); 




683:0 




5 




634:0 




S 


end 




685:0 




5 


else if sysvol then begin updatesysunit; update := true; end; 




686:0 




4 


end; 




687:0 




3 


fgotoxy(output , 19, ll-ord(sysvol) ) ; 

if sysvol then write(syvid) else write (dkvid) ; 




688:0 




3 




689:0 




3 


write[ ' : ' , cteol) ; 




690:0 




3 


end; 




691:0 


-22 


2 






692:0 




2 


begin { whatfiles) 




693:0 




2 


fllename[library] := syslibrary; update := true; 




694:0 




2 


repeat 




695:0 




3 


if update then 




696:0 




4 


begin 




697:0 




4 


page; 




698:0 




4 


writeln; writeln; writeln; 




699:0 




4 


for f := assembler to library do 




700:C 




5 


begin 




701:0 




5 


e := ' ' ; 




702:0 




5 


strwrite(e, 1, i, f): 

writeln(e, " : 12-st rlen (e) , f ilename [f] ) ; 




703:0 




5 




704:0 




5 


end; 




705:0 




4 


writeln; 




706:0 




4 


writelnf'* System volume: ', syvid,':'); 
writeln(': Default volume: ', dkvid,':'); 




707:0 




4 




708:0 




4 


update := false; 




709:0 




4 


end; 
writeln(homechar. 




710:0 




3 




711:0 




3 


'Assembler Oompiler Editor Filer Librarian' , cteol); 




712:0 




3 


write ( 'liBfary System volume Default volume Quit ', cteol); 




713:0 




3 


c := getchar (false) ; 




714:0 




3 


fgotoxy(output , D, 13); write (cteol ) ; 




715:0 




3 


case c of 




716:0 






'S' 


edit assembler); 




717:0 






'B' 


edit library); 




718:0 






'0' 


edit compiler); 
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719:0 






'D' 


volname(f alse) ; (prefix;) 




720:0 






'E' 


edit (editor) ; 





Pascal [t 


ev 3. 


on 


6/ 4/84] n68KSYS.TEXT 26-Dec-84 21:12:05 Page 13 »»« File name: M6eKSyS «»» 




721:C 




4 


'f; editlfiler); 




722 :C 




4 


'L ' : edit (librarian) ; 




723:C 




4 


'S': volname(true) ; <sysvol;> 




724 :C 




4 


'O': ; 




725 :C 




4 


otherwise writefbellchar ) ; 




726 :C 




4 


end; 




727 :C 




3 


until c = 'Q' ; 




728 :C 




2 


syslibrary := filename [library] ; 




729 :C 




2 


end; { whatfiles > 




730:S 










731:D 




1 


procedure ramdriver [f p: fibp; request: amrequest t ype; anyvar buffer: window; 

length, position: integer); 




732:D 




2 




733:C 




2 


begin 




734 :C 




2 


with fp~, unitable"[funit] do 




735 :C 




3 


case request of 




736 :C 




4 


flush: ; 




737:C 




4 


writebytes: if length > then 

f astmove (addr (buffer ) , ipointer (byteof f set + position + fileid), length); 
readbytes: if length > then 




738:C 




5 




739:C 




4 




740:C 




6 


fa5tmove(ipointer(byteoffset + position + fileid), addr (buffer ) , length); 




741 :C 




4 


otherwise ioresult := ord (ibadrequest ) ; 




742:C 




4 


end; 




743 :C 




2 


end; { ramdriver ) 




744 :S 










745:0 




1 


function getvalue{low,high: integer; var value: integer; 




74$:D 




2 


numsign, opt: boolean): boolean; 




747;D 


-82 


2 


var s: stringSO; 




748:D 


-86 


2 


i: integer; 




7A9:C 




2 


beg in 




750:C 




2 


readln(s) ; 




751:C 




2 


if (5trlen(s)=0) and opt then s := '0'; 




7S2:C 




2 


str read[s, 1 ,3, value) ; 

if iore5ult<>ord(inoerror) then 




763:C 




2 




754 :C 




3 


if i <= strlen(s) then 




755:C 




4 


if (s[i]~'#'] and numsign then 




766:C 




5 


begin 




757 :C 




S 


strread[5.i+l,i, value); 

if loresultoO then writeln (#7' integer required') 




758 :C 




5 




759 :C 




6 


end 




760 ;C 




S 


else writeln(»7'integer required'); 




761:C 




2 


ir ioresult=ord ( inoer ro r ) then 




762 :C 






if (value<low) or (value>high) then 




763:C 






begin 




764 :C 






writeln(#7'value must be between ', 




76S:C 






low: 1 , ' and ' , high : 1 ) ; 
ioresult := ord (ibadformat ) ; 




766 :C 








767:C 






end; 




768 :C 




2 


gr^tvalue := iore5ult=0: 




769 :C 




2 


end; ( getvalue > 




770:S 










771:D 




1 


procedure makeramvol; 




772:S 










773:D 




2 


con,t zero = direntry[ 




774:D 




2 


dfirstblk: 0, dlastblk: 6, 




775:0 




2 


dfkind: untypedfile, 

dvid: 'RAM', deovblk: 6, 




778:0 




2 




777:0 




2 


dnumfiles: 0, dloadtime: 0, 




778:0 




2 


dlastboot: daterec [year: 0, 
day:0, month:0]]; 




779:D 




2 




780:S 
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781:S 










782:D 


-4 


2 


var volsize: integer; 




783:0 


-8 


2 


untnumb: integer; 




784:0 


-12 


2 


entries: integer; 




785:0 


-16 


2 


membytes: integer; 

tricfc: record case integer of 




786:0 


-16 


2 




787:0 


-16 


2 


2: (ip: ipointer); 




788:0 


-16 


2 


3: (i: integer); 




789:0 


-20 


2 


end; 




790 :D 


-682 


2 


f: fib; 




791:0 


-762 


2 


cat: catentry: 




792 :S 










783 :C 




2 


begin ( makeramvol 1 
writeln('«»» CREATING fl nEMORV VOLUME *»•'); 




794 :C 




2 




795 :C 




2 


writeln; 




796 :C 




2 


write( 'Ljhat unit number? '); 




797 :C; 




2 


if getvalue(7,maxunit, untnumb, true, false) then 




798 :C 




3 


begin 

writeCHow many 512 byte BLOCKS? '); 

if getvalue(l ,maxint ,vol5ire, false, false) then 




799:C 




3 




800:C 




3 




801 :C 




4 


begin 

write('How many entries in directory? '); 




802:C 




4 




803:C 




4 


if getvalue{0,maxint, entries, false, true) then 




804 :C 




5 


begin 
releaseuser; 




80S:C 




5 




806 :C 




5 


membytes := blocksize*volsize; 




807;C 




5 


if integer (eheap)+membyte5 > userstack then escape(-2]; 

newbytesttrick. ip, membytes): 

unitable [untnumb] := unitable'^[0] ; {handles most fields correctly) 




808:C 




5 




809:C 




5 




810:C 




S 


with unitable"[untnumb] do {fill in the rest) 




811 :C 




6 


begin 




8I2:C 




6 


tm := ramdriver; 




ei3:C 




6 


byteoffset := trick. i; 




814:C 




6 


uvid := 'RFIM'; 
offline ;. false; 




81S:C 




6 




816:C 




6 


umaxbytes := volsizetfblksize; 




817:S 










818:C 




6 


with f, cat do 




819:C 




7 


begin 




820 :C 




7 


fvid :=■ ''; funit := untnumb; ftitle := "; 




821:C 




7 


fwindow := addr(cat); 




822 :C 




7 


cname :* 'RAM'; 




823:C 




7 


cext ral := ent ries; 




824 :C 




7 


cpsize := umaxbytes; 




825:C 




7 


call (dam, f, untnumb, makedirectory) ; 




826:C 




7 


end; 




827:C 




8 


end; 




828:S 










829:C 




5 


if ioresult = ord (inoerror ) then 




830:C 




6 


begin 




831:C 




6 


markuser; 




832:C 




6 


writeln; 




833:C 




6 


writeln[ '*', untnumb:! , ': (Rflh:) zeroed'); 




834:C 




6 


end 




835:C 




6 


else printer ror (-10, ioresult); 




836:C 




5 


end 




837:C 




5 


end; 




838:C 
839 :C 




3 
3 


end 
and; { makeramvol ) 
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840 :S 
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841:0 




1 


procedure newsysunit; 




842:0 


-8 


2 


var newunitji: integer; 




843:0 


-130 


2 


name: fid; 




844 :C 




2 


begin 




845:C 




2 


writeCUhat new system unit number? ']; 




846:C 




2 


if getvalue(l, maxunit, newunit, true, false) then 




847:C 




3 


begin 




848:C 




3 


name := '#'; st rwrite(name, 2, i, newunit:l, ':'); 




849:C 




3 


dopref ix (name , syvid, sysunit, true); 




850:C 




3 


if ioresult <:> ord(inoerror ) then pr interror [-10, ioresult ) 




851:C 




4 


else updatesy^unit ; 




852:C 




3 


end; 




853:C 




2 


end; < newsysunit ) 




854 :S 










855:0 




1 


procedure osinit; 




856:0 


-2 


2 


var iu : 1 . .maxunit ; 




857:0 


-6 


2 


esccode: integer; 




858:C 




2 


begin («OSINIT») 




859:C 




2 


esccode :- sysescapecode ; 




860:C 




2 


locklevel :- 0; act ionspending := 0; 




861 :C 




2 


zaptypeahead; 




862:C 




2 


if keystream then close (st reamfib^) 




863:C 




3 


else close(streamfib^, 'PURGE' ) ; 




864 :C 




2 


for iu := 1 to maxunit do (* force directory cleanups on all vols *) 




865:C 




3 


unitable^[iu3 .umediavalid := false; 




866:C 




2 


sysescapecode := esccode; 




867:C 




2 


end (•0SIN1T«| ; 




868 :S 










869:0 




1 


procedure go_prog (debugging: boolean); 
var stopgoing: boolean; 




870:0 


-1 


2 




871:0 


-6 


2 


lastioresult : integer; 




872:0 


-8 


2 


esccode: shortint ; 




873:0 


-12 


2 


userheap: anyptr; 




874:0 


-16 


2 


modptr: moddescptr; 




875:0 


-17 


2 


done: boolean; 




876 :C 




2 


begjn (GO PROG) 




877 :C 




2 


repeat 




878:C 




3 


clearscreen; 




879:C 




3 


writeln(output) ; 




880:C 




3 


modptr := entrypoint; 




881:C 




3 


repeat 




882 :C 




4 


done := modpt r^. lastmodule; 




883 :C 




4 


if modptr^. startaddroO then 




884 :C 




5 


begin 

call (debugger . 1 , en t rypo in t" . star taddr, or d (debugging) ); 

mark[userneap); 




885:C 




6 




886 :C 




5 




887:C 




5 


userprogram(modptr".5tartaddr,userstack) ; (««» ALL PROGRBHS HRE ENTEREO HERE ««««) 




888 :C 




S 


esccode := escapecode; last ioresult :=ioresult ; 




889 :C 




5 


release(userheap) ; 
call (debugger ,2,0,0) ; 




890 :C 




5 




891 :C 




6 


stopgoing := true; 
openf lies ; 




892 :C 




5 




893 :C 




5 


if esccode <> then 




894 :C 




6 


begin 




895 :C 




6 


done '.' true; 




896 :C 




6 


dlsableuserisr s; 




897 :C 




6 


osinit; (shuts off stream files) 




898 :C 




6 


if (esccode <> -1) and [esccode<>-20 ) then 




899 :C 




7 


begin 




900 :C 




7 


printerror (esccode, last ioresult); 
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901:C 




7 


prompt [ 'Restart with debugger ? '); 
stopgoing := getchar ( false] <> 'Y'; 




902 :C 




7 




903:C 




7 


end; 




904:: 




6 


debugging := not stopgoing; 




905:C 




6 


end; 




90$;C 




5 


end; 




907:C 




4 


modptr := modpt r^. link ; 




908:C 




4 


until done^ 




909:C 




3 


until stopgoing; 
end; (GO_PROG) 




910:C 




2 




811:S 










912:0 




1 


procedure loadandgo (var f iletogo :f id ; permanent, debugging: boolean); 
label 1; 




913:0 




2 




914:0 


-146 


2 


var vol: vid; name: fid; segs: integer; kind: filekind; 




915:0 


-168 


2 


modp: moddescptr; upcname: tid; 




916:C 




2 


begin 




917:C 




2 


if not permanent then 




918:C 




3 


if 5cantitle(filetogo, vol, name, segs, kind) then 




919:C 




4 


begin 




920 :C 




4 


if St rlen(name)<=tidleng then upcname := name else upcname := ''; 




921:C 




4 


upc(upcname); 




922:C 




4 


modp := sysdefs; 

while modp <> nil do with modp"^ do 




923:C 




4 




924 :C 




6 


begin 




925 :C 




6 


if startaddroO then 




926:C 




7 


if (name = progname) or (ucase and (upcname = progname)) then 




927:C 




8 


begin 




928:C 




8 


if ent rypointomodp then releaseuser; 




929 :C 




6 


entrypoint := modp; 
go pro3(debuggin9) ; 




930:C 




8 




931 :C 




8 


goto 1; 




932:C 




8 


end; 




933:C 




6 


modp := link; 




934 :C 




6 


end; 




935 :C 




4 


end; 




936 :C 




2 


load(filetogo, permanent); 




937:C 




2 


if permanent then markuser 




938 :C 




3 


else if entrypoint <> nil then go prog (debugging) ; 
1: end; (LOflOftfioGO) 




939:C 
940:S 
941:0 




2 






1 


procedure initheap; 




942:0 


-4 


2 


var marker: anyptr; 




943:C 




2 


begin («BflSIC FILE RND HEOP SETTUP») 




944 :C 




2 


new(u5erinfo) : 




945:C 




2 


new[streamfib) ; 




946:C 




2 


mark(marker) ; 




947 :C 




2 


if integer (marker) > userstack then escape(-2); 




948 :C 




2 


markuser; 




949 :C 




2 


end (»lNlTHEnP») ; 




950:S 










951:0 




1 


procedure initunits; 




952:0 




2 


var 




953:0 


-2 


2 


lunit: unitnum; 




954:0 


-664 


2 


f: fib; 




955:C 




2 


begin 




956 :C 




2 


f.fileid :- 0: 




967:C 




2 


for lunit := 1 to maxunit do 




958:C 
959:C 




3 
4 


with unitable'Clunit] do 
begin 
offline := false; 


11-651 


960:C 




4 
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961:C 4 umediavalid := false; 

962:C 4 f.funit :- lunit; 

963:C 4 call (tm, 3Mr [f] , clearunit, 1, 0, 0); 

964:C 4 offline := uisblkd and (ioresultoO) ; 

965:C 4 end; 

966:C 2 end; (• INI TUNITS* 1 

967 :S 

968 ;S 

969 : D 1 procedure command; 

970:D 2 type prompt type=;.t ring [79] ; 

971 :D 2 const 

972;D 2 prompt l-promptt ype 

973:D 2 ['Command: Cmplr E;dit File Inlt Libr Run Xcut Ver ?']; 

974:0 2 prompt2=promptt ype 

975:0 2 ['Command: Asm Dbq Memv New Perm Stream User Uhat ?']; 

976 :S 

977:0 2 lpromptl = prcimpt type 

978:0 2 ['Command: Compiler Editor Filer Initialize Librarian Run execute Version ?']; 

979:0 2 lprompt2=prompt type 

980:0 2 ['Command: ftssembler Debtigger Memvol Newsysvol Permanent Stream User Uhat ?']; 

981:S 

982:D -1 2 var skipping: boolean; 

883:D -6 2 i : integer; 

984:D -10 2 pi : -"prompt t ype ; 

985:0 -U 2 plfirst : boolean; 

986:S 

987:0 2 procedure execute (permanent : boolean; debugging: boolean); 

988:0 -122 3 var title: fid; 

989:C 3 begin 

990:C 3 if permanent then 

991:C 4 promptCLoad what code file? ') 

992:C 4 else if debugging then 

993:C 5 prompt ('Debug u/hat file? ') 

994:C 5 else prompt ( 'Execute what file? '); 

995:C 3 readln(input , t itle) ; 

996:C 3 f ixname(title. codefile); 

997:C 3 if st rlen( title) > then 

998:C 4 begin 

999:C 4 if st rlen(tit le) > (sizeof (f id) -6) 

1000:C S then setst rlen (t itle, sizeof ( fid) -61 ; 

1001 :C 4 loadandgo ( t it le, permanent .debugging) ; 

1002:C 4 end; 

1003:: 3 end [*EXECUTE») ; 
1004 :S 

1005:0 2 procedure compileandedit ; 

1006:C 3 begin (COMPILEfiNDEDlT > 

1007:C 3 with userinfo" do 

1008:C 4 begin 

1009:C 4 errnum := 0; errblk :» 0; 

1010;C 4 loadandgo (f ilename[compiler ], false, false) ; 

1011;C 4 if entrypoint <> nil then if errnum <> then 

1012;C £ loadandgo ( filename [editor] , false, false) : 

1013:C 4 end; 

1014:C 3 end; (COnPlLEHNDEDIT ) 
1015:S 

1016:0 2 procedure runworkfile (debugging : boolean) ; 

1017:0 -122 3 var title: fid; 

1018:C 3 begin with userinfo^ do 

1019:C 4 if not (gotsym or gotcode) then execute( false, debugging) 

1020:C 5 else 
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1021 


:C 


1022 


:C 


1023 


:C 


1024 


:C 


1025 


:C 


1026 


:C 


1027 


C 


1028 


C 


1029 


c 


1030 


S 


1031 





1032 





1033 





1034 


c 


1035 


c 


1036 


c 


1037 


c 


1038 


c 


1039 


c 


1040 


c 


1041 


c 


1042 


c 


1043 


c 


1044 


c 


1045 


c 


1045 


c 


1047 


c 


1048 


c 


1049 


c 


1050 


c 


1051 


c 


1052 


c 


1053 


c 


1054 


c 


loss 


c 


10S6 


c 


1067 


c 


1058 


c 


1059 


s 


1060 


c 


1061 


c 


1062 


c 


1063 


c 


1064 


c 


1065 


c 


1066 


c 


1067 


c 


1068 


c 


1069 


c 


1070 


c 


1071 


c 


1072 


c 


1073 


c 


1074 


c 


1075 


c 


1076 


c 


1077 


c 


1078 


c 


1079 


c 


1080 


c 
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5 begin 

5 if not gotcode then compileandedit; 

5 if gotcode then 

6 begin 

6 title:=codefid; 

6 loadandgo (title, false, debugging) ; 

6 end; 

5 end; 

3 end («RUNUORKFILE*) ; 

2 procedure st ream; 

3 var 

-87 3 &file:5t ringSO ; i : integer ; done : boolean; 

3 begin 

3 if chaining = streamchain then 

4 begin 

4 chaining := nochain; 

4 sfile ;= chainfile; 

4 end 

4 else 

4 begin 

4 prompt ( 'St ream what file ? '); 

4 readln(input,sfile); 

4 end; 

3 if st r len ( 5f ile ) <= 70 then (too long of name can crash system) 

4 fixn»ne(sfile,textfile) { since SFUE is of type STRING80 ) 
4 else 

4 begin 

4 sfile := "; 

4 writeIn(output , 'Stream file name too long'}; 

4 end; 

3 if strlen (sfile) > then {GOT VALID NfinE) 

4 begin 

4 if keystream then closefst reamf ib^) 

5 else closefstreamfib", 'PURGE'); 

4 streamopentsfile.true) ; <TRY TO OPEN THE STREAM FILE) 

4 end; {EXIT IF NO NAME GIVEN) 

3 end; («STREflM«) 

2 begin {COMnfiND) 

2 skipping := false ; 

2 plfirst :=t rue; 

2 ci cmd ; = ' ' ; 

2 caTl (cmdcharhook"") ; 

2 repeat 

3 if chaining=progchain then 

4 begin 

4 chaining ;= nochain; 

4 loadandgo (chainfile, false, false); 

4 end 

4 else if chaining=5t reamchain then stream 

5 else 

5 begin 

5 if skipping then 

6 begin 

6 while streaming and skipping do 

7 begin 

7 if eoln(input) then It /:eo 

8 begin il-OOZ 
8 get(input); 
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1081:C 




8 




1082:C 




9 




1083:C 




s 




10S4:C 




7 




1085:C 




6 




I086;C 




6 




1087 :C 




6 




1088 :S 








1089 :C 




S 




»*»UORNING: 


(1 


ine 


1090) 


«»«UnRNING: 


(1 


ine 


1090) 


1090:C 




6 




1091:C 




7 




»»»UftRNINGr 


[ 1 i ni5 


1092) 


**«UflRNING: 


(1 


ine 


1092) 


1092:C 




S 




1093:S 








1094:C 




5 




1095 :S 








1096:C 




5 




1097:C 




S 




1098 :C 




5 




1099:C 




13 




llOOlC 




15 




1101 :C 




8 




1102;C 




7 




1103:C 




6 




1 1 04 : S 








1105:0 




9 




110S:S 








1107:C 




5 




1108:S 








1109:C 




S 




1110:C 




15 




nil :C 




7 


'O ' 


1112:C 




7 


■R' 


1113:C 




7 


'C' 


1114:C 




7 


'D' 


UIS.C 




7 


■E' 


11I6:C 




7 




1117:C 




7 




1118:C 




7 




1119:C 




7 




1120:C 




7 


'F' 


1121;S 








1122:C 




7 


'I ' 


1123:C 




7 




1124:C 




7 




1125:C 




7 




1126:C 




7 




1127:C 




7 




1128:C 




7 




1129:C 




7 




1130:C 




7 


'L" 


1131 :C 




7 


■h" 


H32:C 




7 


'N' 


tl33:C 




7 


,p. 


1134:C 




7 


'R' 


1135:C 




7 


'S' 


1136:C 




7 


'U' 
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if streaming then skipping 
end 

else get (input ) ; 
end; 
for i := 1 to 80000 do (nothing); 
skipping := false; 
end; 

if syscom^.crtinfo .u/idth>=80 then 
: 'ftOuR' of a constant may not be supported en other implementations 
: 'PiDDR' of a constant may not be supported on other implementations 

if plfirst then pi i^^addr ( Ipromptl ) else pi :=addr (lprompt2) 
else 

; 'flDDR' of a constant may not be supported on other implementations 
'flODR' of a constant may not be supported on other implementations 
if plfirst then pi : ^add r (prompt 1 ] else pi : = addr (prompt2) ; 

if ci_cmd<>chr (0 ) then prompt (pi") ; 

ci_idle : = t rue; 
dispt ime J 

if chaining=nochain then 
begin 

ci_cmd := getchar[ false); call (cmdcharhook") ; 
if ci_cmd<>chr (0) then 

begin clearscreen; writeln (output); end; 
end; 

if ci_cmd = chr(3) then ci_cmd := 'X'; 

iiet runlight (ci__cmd) ;<5et the run light to indicate command) 

if not ((ci cnid=' ') or (ci_cmd=chr (0) ) ) then 
case ci_cmd of 
plfirst := not plfirst; 

ioadandgo [filename [assembler] , false, false) ; 
compileandedit ; 
runworkf ile ( t rue ] ; 
begin 

userinfo'^.er mum ;= 0; 

userinfo'^.er rblk := 0; 

Ioadandgo (filename [editor] , false, false) ; 
end; 
Ioadandgo (filename [filer] , false, false) ; 

begin 

lockup; 

releaseuser ; 

lockf iles; 

initunits; 

openfiles; 

lockdown; 
end; 

Ioadandgo ( filename [librarian] , false, false) ; 
makeramvol ; 
newsysuni t ; 
execute ( t rue, false ) ; 
runworkfile ( false) ; 
St ream; 
if entrypoint <> nil then go_pro9 ( false) 
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1137: 

1138: 

1139: 

1140: 

1141: 

1142: 

1143: 

1144: 

1145: 

1146: 

1147: 

1148: 

1149:C 

1150:C 

USl :C 

1152:C 

1153:C 

1154:C 

1155:C 

1156:C 

1157:S 

1158:C 

1159:C 

U60:C 

1161 :C 

1162:S 

1163:S 

1164:0 

116S:D 

1166:C 

1167:C 

1168:C 

1169:C 

1170:C 

1171:" 

1172; 

1173: 

1174: 

1175: 

1176; 

1177: 

1178: 

1179: 

1180: 

1181: 

1182: 

1183: 

1184: 

1185: 

1186: 

1187: 

118" 

1189: 

1190: 

1191 : 

1192: 

1193: 

1194: 

1195: 

119 



else execute( false , false); 
' V : dateset ; 
'Ul' : whatfiles ; 
'X': ej<ecute(false, false); 
ot herwise 
if streaming then 
if ci^cmd = '*' then 
begin 

skipping := t rue ; 
u/rite (output ,'*'); 
end 
else 
begin 
osinit ; 
if (cl_cmd > ' ') and (ord(ci cmd)<127) then 

k«/rite(output,'',c i_cmd , * ' T 
else 

write (out put, 'Character #',ord (ci_cmd) ) ; 
write (out put , ' is not a command.');" 
end; 

end; <CfiSES) 
end; 
until false; 
end; {COnnflNO) 

procedure systemstartup; 

var done: boolean; 

begin 

initheap; 

repeat 

try 

call (debugger, 2.0,0) ; { log in with debugger ) 

chaining := nocnain; 

versionup := false; 

ci_idle:=fdlse; 

if cmdcharhook=nil then begin 
new(cmdcharhook) ; markuser ; 
cmdcharhook'' := dummycmdchar ; 

end; 

initworkfile; 

initf names; 

streamopen( '*flUT0STflRT' .false) ; {open autostart stream file before dateset) 

if ioresult<>ord(inoer ror) then st reamopen ( '*flUTOKEVS [«]', false) ; 

initdate; 

dateset ; 

repeat 
try 

command 
recover 
repeat 
try 

tio result :=ioresult: 
call(debugger,2,0,0) ; 
osinit ; 

if escapecode <> -1 then 
begin 
disableuserisrs; 



(* point of final allocation of heap space *) 



{save it} 

{shut off stream files) 
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I197:C 9 clearscreen; writein (output ) ; 

1198:C 9 printer ror (escapecode, tioresuit ) ; 

1199:C 9 writeln(output, 'Trapped by outer level of OS.'); 

1200:C 9 end; 

1201:C 8 done := true; 

1202:C 8 recover done := false; 

1203:C 7 until done; 

1204:C 5 until false; 

1205:C 4 recover printer ror (escapecode, ioresjlt); 

1206:C 3 until false; 

1207:C 2 end; (^systemstartup* 1 

1208:S 

1209:C 1 end (»noDULE CI») ; 

1210:S 

121 1 ;D 1 import ci , asm; 

1212:S 

1213:C 1 begin 

1214:C 1 ci_5witch; 

1215:C 1 systemstartup; 

1216:C 1 end. («COMMflND INTERPRETER*) 

1217:S 

No errors. 4 warnings. 

**«*« Nonstandard language features enabled *«««* 
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Description 

MINIT contains the Pascal portion of all the device-dependent drivers in MEDIAINIT. Having no 
real source of its own, this short file includes the files: 

• MIDECS: Mediainit declarations. 

• MMINIT: Internal minifloppy initialization drivers. 

• HMINIT: Supported Amigo device initialization drivers. 

• QMINIT: CS80 initialization drivers. 

• XMINIT: Unsupported Amigo device initialization drivers. 



Notes 

Includes MMINIT, HMINIT, QMINIT, XMINIT and MIDECS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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7: J 
8:S 

9:3 
10:0 
11:3 
12:0 
13:0 
14:3 
16:0 
16:3 
17:0 
18:3 
19:0 
20:0 



21: 

22: 

23: 

24: 

25: 

26: 

27:0 

28:0 

29:0 

30:0 

31 :0 

32:3 

33:3 

34:0 

35:0 

36:3 

37:0 

38:3 

39:0 

40:3 

41:0 

42:D 

43:D 

44 :i: 

45 :C 

46 :C 

47 :C 
48::: 
49 :C 
50 : C 
51 :C 
52:3 
S3:i: 
54:3 
55 : L 
55:0 
56:0 
57:0 
58:0 



-1 

-1 

-1 

-256 
-256 
-257 



$modcal$ 

t'lebuq off, range off, ovflcheck offl 

I'.tacRcheck off, iocheck off$ 

(search ' IOLIB:<ERNEL' , ' INIT :DRV«Sn' , 
'INn:HniGO', 'lNIT:CS80'$ 

Sinclude 'tllDECS'S; 



'INIT:DISCHPIB' 



I'dule midecs; <nediainit declarations) 



import 

sysglobals; 



nterleave_data 

record 
min: . .255 
max: 0. .255 
def: 0. .255 

end; 



{minimum interleave factor) 
(maximum interleave factor) 
(default interleave factor) 



physical_data = ((for LIE volume labels)) 
record 



ntps : 
nspm: 
nspt : 
end; 



integer ; 
integer; 
integer ; 



(number of tracks per surface) 
(number of surfaces per media) 
(number of sectors per track) 



extended_feat ures_mode : boolean; 

function ye5(prompt: strin9255]: boolean; 

implement (midecs) 

function yes(prompt: string255): boolean; 
var 

answer: char; 
begin (yes) 

write(prompt, ' [V/N) '); 

repeat 

read ( keyboaird , answer): 

until answer in ['Y', 'y , 'N'. 'n']; 

wr i leln( answer ) ; 

yes := (answer='y') or ( answer= 'y' ) : 
end; (yes) 



1 end 



(midecs ) 



2 Sinclude 'MIDECS'I; 

I Sinclude 'BMINIT'J; 

1 nOOUlE BniNIT; 

1 IMPORT SySGLOSflLS,mDECS; 

1 EXPORT 
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59:1.) 
60:1) 
61:1) 
62:0 
63:0 
64:1) 
65:1) 
66:1) 
67:0 
68:(: 
69:C 

70 :C 

71 :C 
72:C 
73:(: 
74:(: 

75 :i: 

76 :C 

77 :C 

78 :c: 

79 :C 

80 :C 

81 :S 

82 :t: 

83 :C 

84 :C 
86 : C 

86 :C 

87 :C 

88 :C 

89 :C 

90 :C 
91:C 
92:C 
93:C 
94 :S 
95:ti 
96 :D 
97:P 

98 :C' 

99 :C 
100:C: 
101 :C 
102:C 
103:S 
104:t 
106:C 
105 :D 



-12 
-268 



PROCEDURE BMINITIflLIZE (UN: INTEGER) ; 
FUNCTION BPHVDBTS (UN: INTEGER) : PHYSICflL_DfiTS; 
InPLEnENT 

PROCEDURE BMINITIHLIZE (UN: INTEGER ) ; 
VPR 

VFILE : FIBP; 

HP : PNYPTR; 

I : INTEGER; 

SECTOR : PRCKED (<RRRY[0. . 255] OF CHAR; 
BEGIN 

nnRK(HP); 

TRY 



NEU(VFILE); 

UITH VFILE', UNITnBLE"[UN] 

BEGIN 

( INITIPLIZE FIB FIELDS 

FUNIT :- UN; 

FPEOF := unflXBYTES; 

FILEID :» 0; 

RESET THE UNIT ) 



DO 



CflLL(Tri,VFILE,CLEARUNIT,SECTOR,0.0); 

IF I(3RESULT<>ORD(IN0ERR0R) THEN ESMPE(- 

{ URITE BLANKS flLL OVER THE DEVICE 
FOR I " 



FOR I 
BEGIN 



TO 255 DO SECTOR[Ii 

TO (UMfiXBYTES OIV 256)-l DO 



{ BLANK FILL ) 



CflLL( in, VFILE.URITEBYTES, SECTOR, 266, 1«256); 
IF I0RESULT<>ORD(IN0ERR0R) THEN ESCflPE(-l6); 



END; 
END: 

RELEfiSE(HP); 
RECOVER 

BEGIN RELEBSE(HP) 
END; 



ESCflPE(ESCflPECODE); END; 



FUNCTION BPHYDflT(l(UN:INTEGER) :PHYSICflL DfiTFI; 
VAR 

PDHTfi : PHYSICAL DATS; 
BEGIN 

PORTA. NTPS :- 1; PORTA. NSPM := 1: 

PDATfl.NSPT := UNITABLE'CUN] .UMAXBYTES DIV 256; 

BPHYDRTA :- PDflTR; 
END; 



1 END 

2 Sinclude 'BHINIT'S; 
1 Sinclude 'MMINIT'S; 
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I06:D 

107:S 

108:D 

109:S 

nO:D 

111 :D 

112;S 

113:D 

114: 

US: 

116 

117: 

118 

119: 

120: 

121: 

122: 

123: 

124: 

12S: 

126: 

127: 

128 

129: 

130; 

131:S 

132:D 

133:D 

134:0 

135:0 

136:0 

137:0 

138:C 

139:C 

140:C 



3. OH 6/ 4/84] nnlNIT.TEXT 

1 $page$ 

1 module Mninil; 

1 import 

1 sysglobals, fs, asm, sysdevs, mini, midecs; 

1 export 

1 function hintdata: interleave_data; 

1 function hphydata: phy5ical_dat a ; 

1 procedure f1ninitialize(interleave : shortint); 

1 implement <ftninit> 

1 function Mintdata: inte rle3ve_data; 

2 const 

2 intdata = interleave data 

2 [ min: 1 Tminimum interleave factor 

2 max: 15, {maximum interleave factor 

2 def: 1 J; {default interleave factor 

2 begin (nintdata) 

2 nintdata := intdata; 

2 end; <Hlntdata> 
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1 function Mphydata; physical_data; 

2 const 
phydata = physical_data 



t ntps: (2»35-4) div 2, 
nspm: 2, 
nspt: 16 ]; 
begin {hphydata) 

nphydata :- phydata; 
end; <I1phydata) 



fnufnber of tracks per surface) 
<nurr(ber of surfaces per media) 
{number of sectors per track) 



141: 

142: 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

150: 

151: 

152:C 

I53:S 

154:C 

15S:S 

156:C 

157:C 

158:C 

1S9:C 

160:S 

161 :C 

162:C 

163:C 

164 :S 

165:0 

166:C 

167:C 

168:C 

169:0 

170: 

171: 

172: 

173: 

174; 

175: 

176: 

177: 

178: 

179: 

180: 

181: 

181: 
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1 procedure nninitialize( interleave : shortint); 
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2 

-8 2 

-12 2 

-14 2 

2 

2 

2 
2 
2 
3 

2 
3 
3 

3 
3 
3 
3 
3 
3 
4 
4 
4 
3 
3 



( NOTE: the BOOTROn global that selects drive or 1 must already be setup! > 

var 

x,y: integer; 
c rtpt r : anypt r ; 
saved^escapecode : shortint; 



begin {ttninit ialize ) 

call [maskopshook, fhimask,0) 



{enable kbd fasthandshake ) 



writeln; 

fgetxy(output ,x ,y) ; 
With 5yscom'\crtinfo do 

crtptr := anypt r (crtmemaddr+ (y-1 ) «2»width) 



1 (ma5kopshook,0, fhimask) 



{disable kbd fasthandshake} 



tlpyinit (crtptr, interleave) ; 
call(ma5 "^ ' " "' ■ ' 

ecover 
begin 

call (maskopshook, 0, fhimask) ; {disable kbd fasthandshake) 
if iorvtiloinoer ror then ioresc ( iorval) ; 
saved_escapecode := escapecode; 
try 

T_pwr_on ; 
recover 

{ignore any errors) ; 
escape (saved_e5capecode) ; 
end; {recover) 



2 end; {fininit ialize) 
1 end (rtninit) 



2 Sinclude 'nniNIT'$; 
1 linclude 'HMINIT'S; 
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182:D 






$page$ 




183:S 










184 :D 






moJule IRamigo; {amigo initialization routines) 




185:E 










186:D 






import 




187:D 






sysglobals, bkgnd, discHPIB, CSamigo; 




188:S 










189:0 






exoort 




190:D 






procedure verify (uep: uep_type; nsectors: unsignedie); 




191 :D 






procedure init 'jjith d bitsluep: uep type); 




192:D 






procedure format (uep: uep_type; intlve, d_byte: byte; override: boolean); 




193:5 










194:D 






implement {IRamigo) 




19S:S 










19$:D 






procedure verify(uep; uep_type; nsectors: unsignedlS); 




197:D 




2 


var 




198:C 




2 


ve r if y cmd_buf : 
packed record 




199:D 




2 




200:D 




2 


ftcp: ftCD type; 




201 :C 




2 


sector count: unsignedl6; 




202:0 


-4 


2 


end; 




203:C 




2 


begin (verify) 

verify cmd buf. sector count := nsectors; 




204 :C 




2 




20S:C 




2 


issue cmd{uep, verify cmd, verify cmd buf.ftcb); 




20$:C 




2 


end; (verify) 




207:S 










208:0 




1 


procedure init with d bitstuep: uep type); 




209:0 




2 


/ar 




210:0 


-2 


2 


init_c(nd_buf : ftcb_type; 




211 :D 


-4 


2 


dumny_byte: packed record b: byte; end; 




212:0 


-4 


2 


:onst 




213:0 


-4 


2 


receive data sec = 0; 




214:C 




2 


begin (init with d bits) 




215:C 




2 


issue cmdTuep, init d cmd, init cmd buf); 
HPIBwalt_for_ppol(uepT; 




216:C 




2 




217:C 




2 


dummy byte .b ;= 0; 




218:C 




2 


HPIBsFort msge out(uep, receive data sec, addr(dummy byte), 5izeof(dummy byte)); 
end; ( init_wit h._(J_bits ) 




219:C 




2 




220:S 










221:0 




1 


procedure format(ijep: uep type; intlve, d byte: byte; override: boolean); 




222:0 




2 


var 




223:0 




2 


format cmd buf: 




224:0 




2 


packed record 




225:0 




2 


ftcb: ftcb type; 




226:0 




2 


f: boolean; ( override old format bit > 




227:0 




2 


tlttttt: 0..127; { wanted format type ) 




228:0 




2 


int : byte; { interleave factor > 




229:0 




2 


db: byte; { data byte ) 




230:0 


-6 


2 


end; 




231 :C 




2 


begin (format } 




232:0 




2 


with format cmd buf do 




233:0 




3 


begin 

f := override; 




234 :C 




3 




235:C 




3 


ttttttt := 2; (HP format always) 




236:0 




3 


int := intlve; 




237;C 




3 


db := d byte 




238:C 




3 


end; (witTi) 




239 :C 




2 


issue cmd(uep, format cmd, format cmd buf.ftcb); 




240 :C 




2 


end; (format) 




241 :S 
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242:C 




1 


end; (IRamigo) 




243 :S 










244 :S 










245:0 




1 


module Hminit; 




246:S 










247:0 




1 


import 




248:0 
249:S 

250:0 




1 


■iysglobals, bkgnd, discHPIB, CSamigo, IRamigo, midecs; 






1 


expo r 1 




251 :0 




1 


function Hintdata: interleave data; 




252:0 




1 


function Nintdata (uep: uep_type): interleave^dat a; 




253:0 




1 


function Hphyda ta (uep: uep_type): physical_data; 




254:0 




1 


procedure Hmini t lal ize (uep : uep_type; intlve: shortint); 




255:5 










256:0 




1 


implement (Hminit) 




257:S 










2S8:S 










259:0 




1 


function Hintdata: inter leave_data; 




260:D 




2 


const 




261:0 




2 


intdata = interleave data 




262:0 




2 


[ min: 1, Tmihimum interleave factor) 
max: 29. (maximum interleave factor) 




263:0 




2 




264:0 




2 


def: 2 ); (default interleave factor) 




265:C 




2 


begin (Hintdata) 

Hintdata :- intdata; 




266:C 




2 




267:C 




2 


end; (Hintdata) 




268:S 










269:S 










270:0 




1 


function Nintdata (uep; uep_type): interleave_data; 




271:0 




2 


const 




272:0 




2 


intdata = interleave data 




273:0 




2 


[ min: 1, "(minimum interleave factor) 
max: 15, (maximum interleave factor) 
def: 3 J: (default interleave factor) 




274:0 




2 




275:0 




2 




276:C 




2 


tieqin (Nintdata) 

Nintdata := intdata; 




277:C 




2 




278:C 




2 


if uep".devid<>0 then (this is actually a Sparrow...) 




279:C 




3 


Nintdata. def := 2; (which performs best at this interleave) 




280:C 




2 


end; (Nintdata) 




281 :S 










282:S 










283:0 




1 


function Hphydata(uep: uep type): physical^dat a; 




284:0 




2 


var 




285:0 


-6 


2 


map: map type; 
phydata: physical data; 




286:0 


18 


2 




287:0 




2 


begin (Hphydata) 




288:C 




2 


get map(uep, map) ; 




289:C 




2 


witH map, phydata do 




290 :C 




3 


begin 




291:C 




3 


nspm := trk_per_cyl; (number of surfaces per medium) 




292 :C 




3 


ntps := cyl~per_med; (number of tracks/surface) 




293:C 




3 


nspt := sec per trk; (number of sectors per track) 




294 :C 




3 


end; (with) 




295 :C 




2 


Hphydata := phydata; 




296 :C 




2 


end; (Hphydata) 
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1 procedure Hminit icjlize (uep: uep_type; intlve; shorfint); 

2 var 
-4 2 status_bytes: status_type; 

-10 2 map: map_type; 

-12 2 t rack 5_per_medl urn; shortint; 
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297:0 

298 :S 

299:0 

300:S 

301:0 

302:0 

303:0 

304:0 

305:S 

306:0 

307:C 

308:C 

909:C 

3I0:C 

311 :C 

312:C 

313:0 

314:D 

316:C 

316: 

317: 

318 

319: 

320: 

321: 

322: 

323: 

324: 

325: 

326: 

327 :C 

328:C 

329 :C 

330:S 

331:S 

332:0 

333:0 

334:0 

335:0 

336:0 

337:0 

338:0 

339: 

340: 

341: 

342: 

343: 

344: 

345: 

346: 

347: 

348: 

349: 

350: 

351 : 

352: 



-12 



-2 

-4 

-6 

-7 

-8 

-10 

-12 

-20 



procedure conf i rm_preeoi ; 
begin (conf i rm_preeoi) 

with bip_t ype (uep^.dvrtemp)^ do 

if (e«>capecode=-10] and ( iores=zbadhardware) 
then lores := inoerror 
else escape (escapecode) ; 
end; <confirm_preeoi) 

procedure check status; 
begin {check_l."t atus) 

statijs(uep, status_bytes) ; 
case status bytes. si of 
("acceptaB'le" errors) 

uncor rectable_dat a_error , 
head_sector_compare_error , 
access_no t_ready_during_dat a^operat ion : 
(acceptable: do not escape); 
(error requiring status 2 check) 
drive attention: 

iT not status bytes. c then io resc_bkgnd(uep, zinitfail) 
(other errors) 

otherwise ioresc_bkgnd (uep, zinitfail) 
end; (case) 
end; <check_slatus) 



procedure init_9895_913X_Chinook 
const 

testpasses = 4; 

max_bt = 4; 
type 

test_pat1ern_type = packed array [1 .. testpasses] of byte 
const 

test pattern = test_pattern type 



number of test passes > 

maximum number of bad tracks) 



[ T98, 
99, 
219, 
136 ]; 



($C6 or UOOOUSllOOOUO) 

($63 or 0110001101100011) 

($08 or 1101101111011011) 

<$88 or 1000100010001000) 



bt_count : short int ; 

test pass: shortint; 

veri7y_start in9_t rack : shortint, 

verify_pa55 complete: boolean; 

bt_al ready_Tog9ed : boolean; 

bad t rack : shor tint ; 

bt_Index : short int ; 

bt_table: array[l..max bt] of shortint; 
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353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378:C 

379:C 

380:C 

381 :C 

382:C 

383:C 

384:C 

385:C 

386:C 

387:C 

388:3 

389:C 

390:C 

391:C 

392:C 

393:C 

394 :C 

395:C 

396:C 

397:3 

398:C 

399 :C 

400:C 

401 :C 

402 :C 
403:C 
404 :C 
405:C 
406:C 



3. on 6/ 4/84] HfllNIT.TEXT 
■20 3 tpageS 
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begin (lnit_9895_913X Chinook) 
Dt_count ;"0; ~ 
for test pass :■ 1 to testpasses do 
begin 

Tormattuep, 1, te5t_pattern [test pass], true); 

HPIBwait_for ppol(uep); 

if dsj(uep)<>0 then ioresc_bk9nd(uep, zinitfail); 

verify_5tar t ing_t rack := 0; 

repeat ~ 

seek(uep, verify st artin9_t rack«map. sec_per_t rk ) ; 

HPIBwait_for ppoT(uep}; 

verifyfuep, Ttracks per medium+max bt-verify starting t rack)*map. sec per trk) 

HPISwait_for ppol(uep);" ' i >■-.-- i 

if dsi(uep)=iJ then 

ver iry_pass_complete := true 
else 
begin 

check_5tatu5; 

bad_track := logical_addr (uep) div map. sec_per_t rk; 
bt_already_logged := false; (initial assumption) 
for bt_index := 1 to bt_count do 

if bl table[bt_index]=bad_track then bt_already_log9ed := true; 
if not Ft_already_logged then (log it) 
begin 

if bt_count>=max_bt then ioresc_bk9nd (uep, zinitfail); 
bt_count := bt_count+l; 
bt_table[bt_count] := bad_track; 
end; 
verify_st art ing_t rack := bad track+1; 

verify_pass_compIete := veriTy_star1in9 t rack>=t racks_per_medium+max_bt ; 
end (else) ~ 

until verify_pass complete; 
end; (for) *" 



:= 1 to bt_count do (set all d-bits on the bad tracks) 



for bt_index 

begin 

seek[uep, bt_table[bt index]«map. sec_per_t rk ) ; 

HPIBwait for ppol(uep7; 

init_witK d_Fits{uep); 

HPIBwait_Tor_ppol(uepi ; 

if d5j(uep)<>0 then ioresc_bkgnd( uep, zinitfail); 
end ; 

format(uep, intlve, 0, false); 
HPIBwait_for_ppol (uep) ; 

if dsj(uep)<>0 then iore5c_bkgnd ( uep, zinitfail): 
seek (uep, ) ; 
HPIBwait_for_ppol (uep) ; 

verify(uep, t racks_per_medium«map . sec_per_t rk) ; 
HPIBwait_for_ppol (uep) ; 

if dsj(jep)<>0 then ioresc bkgnd(uep, zinitfail); 
end; ( init_9895_913X_Chinooky 
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407:0 -12 2 IpaqeS 

408;S 

409:0 2 p'ocedure init 9],3X fiBC; 

410:S 

411:0 3 var 

412:0 -2 3 verify_pas5: shortirt; 

413:D 4 3 csvp: shortint; {consecutive successful verify passes) 

414:0 -6 3 ve rif y_st arting^t rack: shortint; 

415:0 -7 3 verify pass complete: boolean; 

416:S 

417:0 -7 3 const 

418:D -7 3 min_vp = 5: (minimum It of verify passes) 

419:0 "7 3 max_vp = 15: (maxmimum # of verify passes) 

420:0 -7 3 min_csvp = 2; {minimum # of consecutive successful verify passes) 

421 :S 

422:C 3 begin {init 913X ABC) 

423:S 

424:C 3 format(uep, Intlve, 0, true]; 

425:C 3 HPIBwait_for_ppol(uep) ; 

426:C 3 ifd5j( uep)<>0 then io re5C_bkgnd ( uep, zinitfail); 

427:S 

428:C 3 verify_pass := 0; 

429:C 3 csvp := 0: 

430:5 

431 :C 3 repeat 

432:S 

433:C 



433:C 4 verify_pa5;. := ver if y_pass+ 1 ; 

434:C 4 verify_starting_Track := 0; 



435:S 

436:C 4 repeat 

437:C 5 seek(uep, verify start ing_t rack«map. sec per trk); 

438:C 5 HPIBwaiT_.for ppoT(uep); 

439:C 5 verifyfuep, X^ racks_pe r_medium-ver if y_5t art ing_t rack)*map. sec_per_t rk ] ; 

440:C 5 HPiewait_for ppol(uep); 

44l:C 5 if dsj(ufrp)=EJ then 

442:C 6 verify pass complete := true 

443:C 6 else 

444 :C 6 begin 

445:C 6 check_5tatus; 

446;C 6 verify 5tarting_track := lo3ical_addr(uep) divmap. sec_per_t rk*l ; 

447:C 6 init with d_bit5(uep); 

448;C 6 HPIBwai t_To r_ppol ( uep) ; 

449:C 6 ifdsj(uep)<>Othen ioresc_bkgnd (uep^ zinitfail); 

450:C 6 verify pa55_complete :- verify starting t rack>=t racks per medium: 

451 :C 6 end (else) 

452:C 6 until verify pass complete; 

4S3:S /-K - r 

454:C 4 if ve ri fy_s t art ing_t rack=0 {i.e., successful verify pass) 

455:C 5 then csvp ;= csvp+1 

456:C 5 else csvp ;= 0; 

457:5 

4S8:C 4 until ( (ver if y_pass>=min_vp] and (csvp>=min csvp)) or (verify pa55>sma>; vp) 

4S9:S 

460:C 3 if csvp<min_csvp then ioresc bkgnd[uep, zinitfail); 

461 ;S 

462:C 3 end; { init_91 3X_flBC ) 
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2 SpaqeS 

2 begin {Hminit ialize ) 

2 try 

3 allocate_bkgnd_info (uep) ; 

3 try 

4 status (uep, St atus_byte5) ; 
4 recover 

4 begin 

4 confi rm_preeoi ; 

4 ifdsj(uep)=2then iore5c_bkgnd (uep, zmediumc hanged) 

5 else ioresc bkgnd(uep, zbadhardware j ; 
4 end; { recovery 

3 with statu5_bytes do 

4 begin ~" 

4 if f then ioresc^bkgnd (uep, zmediumc hanged) ; 

4 if 5S<>0 t hen ioresc_bkgnd(uep, znomedium) ; 

4 if w then ioresc_bkgnd (uep, zprotected); 

4 end; {with) 

3 get map(uep, map) ; 

3 witH map do 

4 t racks_pe r___medium ;= t rk_pe r_cyl*cyl_per_med ; 

3 -lase devicefuep) of 

4 HP9895, HP8290X: init_9e95_913X_Chinook ; 
4 HP913X_P. .HP913X_C: init_913X_flBC ; 

4 otherwise ioresc_bkgnd (uep, zcatchaJl); 

4 end; {case) 

3 deal locaie_bkgnd_info(uep) ; 

3 re:over 

3 begin 

3 abort_bkgnd__process ( uep) ; 

3 ioresult := uep'^.dvrtemp; 

3 uep".dvrtemp := ord{ inoer ror ) ; {report the error only once) 

3 escape(-lO): 

3 end; {recover} 

2 end, (Nminit ialize) 

1 end {Hminit > 

2 Sine lude 'HhINIT'$; 
1 Sinctude 'QMINIT'S; 
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611:0 

S12:S 

513:D 

614:S 

S15:D 

S16:D 

S17;S 

S18:D 

519:D 

520:D 

521 :D 

S22:D 

523:D 

S24:D 

52S:D 

526:0 

627:0 

528:0 

529:0 

630:0 

531 :0 

632:0 

533:0 

534:0 

535:0 

536:D 

637:D 

638:D 

639: 

540: 

541 : 

542: 

543: 

544: 

545: 

546: 

647: 



3. on 6/ 4/84] QUINIT.TEXT 
SpageS 
module CSSOir; {Command Set 



:D 
:0 
:0 
:0 
:0 
:D 
:D 
:0 
:0 
648:0 



549 
550 
6S1 
652 
553 
554 
565 
556 
557 
558 
669 
560 

561 
562 
563 
564 
565 
566 
567 
568 
569 
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initialization routines) 



import 

sysglobals, bkgnd, discHPIB, CS80; 



xport 
type 



va_type = (three-vector address (6 tytes)) 
pacfeed record 



cyln 
head 
sect 
end ; 



unsgn24 ; 
ijnsgnS; 
:iignedl6 ; 



de log_type = {the two distinct types of data error logs) 
Tert, runtime); 

log_ent ry_type = {data error log entry) 
packed Tecord 



physical_cyln 
phy5ical_head 
physical_sect 
logical_cyln: 
logicai_head: 
logical_sect : 
er ror_byte : 
occurrences : 
end; 



5ignedl6; 

LinsgnS; 

unsgnS : 

signedl6; 

unsgnS; 

unsgnS; 

unsgn8; 

unsgnS; 



log_info_tvpe == {info returned by the REflO_OflTfi_ERR0R_LOGS corrniand) 
packed record 

my_special_pad : unsgn8; {internal allignnent only; not sent by the device!!!) 

loqentries: unsgnS; 

otner_lnfo: array[l . .5+2+1 ] of char; 

entry: array [1 .. 106] of log_ent ry_type; 
end; 

ert_area_type - 

(sector_ert, track_ert, cylinder_ert 



surface_ert, volume_ert] 



NOTE: the following functions each perform a COMPLETE transaction. They: 
issue a (device or transparent) command (Command message) 

transfer data if applicable Execution message) 

return the resulting QSTI^T [Reporting message) 



function format tlng_^opt ion (uep: uep_type; option; unsgnS): unsgnS; 

function init iate_dTagnostic ( uep: uep_type; unit: unsgn4; loops: signedl6: section: unsgnS): unsgnS; 

unsgnS; 



function init ialize_media 

function preset drive 

function clear Togs 

function set_3V_address 

function dat;r_error_log 

function pattern_ert 

function 5pare_bIock 



ign 
unsgnS) : 



(uep: uep_type; options, interleave 

(uep: uep_type): unsgnS; 

(uep: uep_type; loqcode: unsqnS): unsgnS; 

uep: uep_type; cyln: unsgn24; head: unsgnS; sect: signedl6): 
(uep: uep type; de_log : de_log_type; head: unsgnS; 

war logBytes: log_info_type) : unsgnS; 
(uep: ueo_type; ert_area: ert_area_type; loops: unsgnS; 

var ert_me5sage: boolean; var log entry: log_ent ry_t ype) : un; 
(uep; uep_type; sparingmode: unsgnj) : unsgnS; 



unsgnS ; 
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570:0 

671:S 

672:0 

573:S 

674:S 

675:0 

676:0 

577:0 

678:0 

679:0 

680:0 

SS1:S 

582; 

583: 

584; 

585; 

5S6; 

687: 

688: 

6S9:S 

690:0 

591:S 

592:5 

693:5 

594 ;S 

595 :S 
596:3 
597;S 
598:0 
699:0 
600:0 
601 ;D 
602:0 
603:0 
604:0 
806:0 
606:0 
607:0 
608:0 
609:0 
610:0 
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611; 
612; 
613; 
614; 
615; 



;C 
;C 
;C 
;C 
;C 
;C 
617;C 
618;C 
619:C 
620:C 
621;C 
622;C 



3. on 6/ 4/84] QMINIT.TEXT 

1 SpageS 

1 implement {CSSOir) 

1 type 

1 setunitvol_type = {SET_UNIT/SET_VOLUHE cortmand pair) 

1 packed record 

1 setunit: CnO type; 

1 setvol: cno_type; 

1 end; 

1 function 5uv_crlO_pair (uep; uep_type); setunitvol_type; 

2 begin (5uv_CMD_pair > 

2 suv_[:nO_pair .setunit ;» CMD^type (signedl6 (CrlD5et_unit Oj+uep^^ .du) ; 

2 SUV CnOpair .setvol ;« CnD_type (signedl6 (CriOset_vol_5)+uep".dv) ; 

2 end; (5uv_cnO_pai r) 

1 function formatt ing_option(uep: uep_type; option: unsgnS): unsgnS; 

issue the following command sequence; 

. SET_UNIT 

. SET_V0LUME 

. SET_FORnflT_OPTION (Sub5et/80 only) 
issue the option byte in an execution message 
return the QSTttT byte 

2 var 

2 f : {the 5 bytes in the command message) 

2 packed record 

2 setunitvol: setunitvol_type; 

2 initutil: Cf1D_type; 

2 set formatoption : unsgnS; 

2 parameter: unsgnS; 

-6 2 end; 

-6 2 em; {the single byte execution message) 

-6 2 packed record 

-6 2 optionbyte: unsgnS; 

-S 2 end; 

2 begin { format t ing_option) 

2 I'o . set unitvol := suv cnD_pair [ uep) ; 

2 fo. initutil := CMOTnit_utll REM; 

2 fo . set formatopt ion := 243; 

2 fo. parameter := 95; 

2 HPIBshort m5ge_out ( uep, command_sec, addr(fo), 5izeof[fo)); 

2 HPIBwalt_Tor_ppol(uep); 

2 em.opt ionbyte := option; 

2 HPIBshort msge_out ( uep, execut ion_sec , addr(em], 5i2eof(em)); 

2 HPIBwait_Tor_ppol (uep); 

2 format t ing_option := qstat(uep); 

2 end; { formatTing^option) 



File name; fllNIT ««» 
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623;D 

624 :S 

625 :D 
626:S 
627:S 
628:S 
S29:D 
630:D 



1 $pdge$ 



631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 

652 :S 

653 :S 
654:5 
655:3 
656 :D 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 



669: 

670: 
671 : 
672:C 
673:C 



1 



function Init iate_diagno5t ic [uep: uep_type; unit: unsgri4; loops: signedie; section: unsgnS): ursgnS; 

set specified unit & issue the INITIFlTE_DIflGNOSTIC command 
return the QSTflT byte 
) 
var 

id: {the 5 bytes in the initiate diagnostic conriand message) 
packed record 

setunit: CMD type; 
initdiag; CMP type; 
loops: 5ignedT6; 
section: unsgnS; 
end; 

n (initiate diaqnostic) 

.setunit := CMij^t ype ( signedl6 (CnDset_unit_0 ) + uni t ) ; 
.initdiag := CMDTnit_diagnost ic ; 
.loops := loops; 
.section := section; 

IBshort mS9e_out (uep, command_sec, addr{id), sizeof(id)); 
lBwait_Tor_ppol (uep) ; 
it iate^diagnost ic := qstat(uep); 
{ initXatediagnostic) 



begi 



1 function init ialize_media(uep: uep_type; options, interleave: unsgnS): unsgnS; 
( 

issue the following command sequence: 
. SET UNIT 
SET VOIUME 
INITISLIZE MEDIA 
return the QSTST byte 



im : {the 5 bytes in the command message) 
packed record 

setunitvol: 5etunitvol_t ype; 
initmedia: CMD type; 
options: unsgnj; 
interleave: unsgnS; 
end; 
egin { init ialize_media) 
im. set unitvol := suv CrlD_pai r (uep) ; 
im initmedia := ChDlnit_media; 
im. options := options; 

im. interleave := interleave: 

HPIBshort msge out(uep, cormand_5ec, addr[im], 5izeof(im)); 
HPI8vjait_Tor_ppol(uep) ; 
initialize media := qstat(uep); 
nd; { initiaTize_media } 
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3. on 


674 :D 


1 


675:S 




676;D 


1 


677:S 




678:S 




679 :S 




680 :S 




681 :S 




682:S 




683:0 


2 


684:0 


2 


685:0 


2 


686:0 


2 


$87:0 


2 


688:0 


2 


689:0 


2 


690:0 


-4 2 


691:C 


2 


692:C 


2 


693:0 


2 


694 :C 


2 


695:C 


2 


696:C 


2 


697:C 


2 


698:C 


2 


699:5 




700:S 




701 :D 


1 


702:8 




703:S 




704 :S 




705:5 




706:S 




707:S 




708:0 


2 


709:0 


2 


710:0 


2 


711:0 


2 


712:0 


2 


713:0 


2 


714:0 


2 


715:0 


2 


716:0 


-6 2 


717:C 


2 


718:0 


2 


719:C 


2 


720:C 


2 


721:C 


2 


722:0 


2 


723:C 


2 


724:0 


2 


725:C 


2 



6/ 4/84] QhlNIT.TEi-iT 

1 Spd'jeS 

1 function pre5et_dr ive ( uep: uep_type): unsgnS; 
{ 

issue the following command sequence: 
SET_UNIT 
SET VOLUMIE 
PRESET DRIVE 
return the SSTflT byte 
) 
v.a r 

pd : {the 4 bytes in the command message) 
packed record 

setunitvol: set unitvol_ type; 
initutil: CMD_type : 
presetdrive: unsgrS; 
end; 
begin {preset _d rive) 
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pd . setunitvol 
pd. initutil 
pd . presetdrive 



:= SUV CMD_pair(uep) ; 
-- ChDlnit util NEM; 

■ ^ 2^^; 

HPIBshort msge _out (uep, comma nd_sec , addr ( pd) 
HPIBwait_Tor_ppol (uep) ; 
preset^drive :■' qstat(uep]; 
end; {pre5et_drive) 



sizeof (pd) 



1 furct ion clear_logs (uep: uep_type; logcode: unsgnS): unsgnS; 



issue the following command sequence: 

SET_UNIT 

SET VOLUnC 

CLEffR_L0G:3 
return the QSTflT byte 
I 

cl: {the 5 bytes in the command message) 
packed record 

set unitvol : setunatvoi_t ype ; 
initutil : (:[1D_type; 
clearlogs : unsgnS; 
logcode : unsgno ; 
end ; 
legin {clear_logs } 
cl, setunitvol := suv cnD_pai r (uep) ; 
cl. initutil := CnDTnit_iit il_NEf1; 
cl .clearlogs : = 205; 



;= 205; 

logcode ; 



cl.loqcode' ;= logcode; 
HPIBshort msge out(uep, command_sec, 
'or ppol (uep) ; 



HPIBshort msge out(uep, co 
HPIBwait_Tor_ppol (uep) ; 
clear logs := q5tat(uep); 
tid ; {cTear_log5), 



addr(cl), 5azeof(cI)); 
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3. on 


726 :D 
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727:S 




728:D 
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729:D 
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730 :S 




731:S 




732 :S 




733;S 




734 :D 
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737:D 
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738:D 
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739 :D 
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740 :D 
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2 
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743 :D 
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744 :D 


2 


745 :D 
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746 :D 
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747 :D 
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748 :D 


-6 2 


749 :C 
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750 :C 


2 


751:C 


2 


752 :C 


2 


753:C 


2 


754 :C 


2 


755 :C 


2 


756 :C 


2 


757 :C 


3 


758 :C 


3 


759 ;C 


3 


760 :C 


4 


761 ;C 


4 


782 :C 


5 


763 :C 


4 


764 :C 


4 


765 :C 


2 


766 :C 


2 


767 :C 


2 
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SpageS 

function data._error_log (uep: uep type; de_lo9 : de_loq_t>'pe; head: unsgnS; 
~ vdr log_Eyte5: log_info_t ype ) : ursgnS; 

{ 

issue the appropriate REflD_DflTR_ERROR_LOG command 

place the returned data error log info in the passed variable 'log_bytes' 
return the QSTflT byte 
> 
type 

read_de log micro_OD type = 
arrayTde_To9__type] of unsgnS; 
const 

read de_log micro_op = read de_log_rfiicro op type 
[ Tert) 1^8, (runtime) 197 ]; 
var 

del: {the 5 bytes in the command message) 
packed record 

setunitvol: setunitvol_type; 
initutil: CriD_tvpe; 
readlogs : unsgnS; 
head: ursgnS; 
end; 
begin {data error_log) 

del . setunitvol := suv CMD pair(uep); 

del. initutil := CMDlnitlut il_SEM; 

del. readlogs := read_de_log_nnicro op[de_log] ; 

del . head := head; 

HPIBshort msge_out (uep, corrmand_sec . addr(del), sizeof(del)); 

HPIBwait_for_ppol (uep) ; 

try 

HPIBshort_m5ge_in (uep, execution_sec, addr ( log_bytes , 1 ) , sizeof (log^bytes ) -1 ) ; 
recover 

with bip_t ype (uep'*'.dvrtemp)'^ do (confirm the "premature" eoi) 
begin 

if [escapecodeo-101 or (ioresozbadhardware) then 

escape [escapecodej ; 
iores : = inoerror ; 



end; (recover > 
H PI Bwa i t _f r_ppo 1( ue p 



_ppol(uep). 
data error_lo9 ;= qstat(uep); 
end; {3ata_er ror_log) 



seal [Rev 


3.01-1 


768:D 


1 


769:S 




770;D 


1 


771 :D 


2 


772:S 




773:S 




774:S 




775:S 




776:D 


2 


777:D 


2 


778:D 


2 


779:D 


2 


780:D 


2 


781:D 


2 


782:D 


2 


783:0 


2 


784 :D 


2 


78S:D 


2 


786:0 


2 


787:0 


2 


788:0 


-10 2 


789:C 


2 


790:C 


2 


791 :C 


2 


792:C 


3 


793:C 


3 


794 :C 


2 


795:C 


2 


796:C 


2 


797:C 


2 


798:C 


2 


799:C 


2 


800:C 


2 


801:C 


2 


802:C 


3 


803:C 


4 


804:C 


4 


805:C 


4 


806:C 


4 


807:C 


5 


808:C 


5 


809:C 


6 


810:C 


5 


811:C 


5 


812:C 


5 


813:C 


2 


814:C 


2 


81S:C 


2 
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function pattern_ert (uep; uep_type; ert_a rea ; ert_area_t ype; loops : unsgnS; 

var ert_message : boolean; var log_ent ry: log_ent ry__t ype ) : unsgnS 

issue the appropriate ERROR_RflTE_TEST command 

if specified, request an execution message and set var boolean accordingly 
return the QSTflT byte 
) 
var 

ert; {the 9 bytes in the command message) 
packed record 

setunitvol: setunitvol^type; 
initutil: CMD_t ype; 
patternert : unsgnS; 
loops : unsgnS ; 
offset : signedS ; 
report : unsgnS; 
lestarea: unsgnS; 
datasource; unsgnS; 
end; 
begin (pat tern_eri > 

ert. setunitvol := suv_Cf1D_pair (uep) ; 
if ert_message " " 



then ert . initut il 
else ert . initut il 

er t .patternert 

ert. loops 

er t . offset 

er t . report 

er t . test area 

er t .datasource 



:= Cf1Dinit_util SEM 

CnDinit_utir"NEri 

200; 

loops; 

0; 
:= 0; 

ord (ert_area ) ; 

0; 

HPIBshort_m5ge_out (uep, command_sec , addr[ert), sizeof(ert 
if ert_message then 



(send execution message) 
(no execution message) 
(pattern ert micro opcode) 
(as specified) 
(no offset) 

^data error log info only) 
{as specified) 
internal pattern table) 



try 

HPIBwait_for_ppol (uep) ; 

HPIBshort^msge^in (uep, execut ion_sec, addr (log_ent ry), si2eof( log_ent ry) ) ; 
recover 



with bip_type (uep" .dvrtemp) 
begin 

if (escapecode<>-10J or 

escape (escapecode); 
iores : = inoerror : 
ert message := false; 
end; '^'recover ) 
HPIBwait_for_ppol (uep) ; 
pattern_ert := qstat(uep); 
end; (pat tern_er t ) 



do (confirm the "premature" 
[ioresozbadhardware ) t hen 
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817:S 
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818 

819: 

820: 

821: 

822: 

823: 

824: 

825: 

826: 

827:D 

828:0 

829:0 

830:0 



1 function set_3V_address (uep: ijep_T>'pe; cyln: unsgn24; head: unsgnQ; sect: 5ignedl6): unsgnS; 

issue tne following cortmand sequence: 

. SETJNIT 
SET_VOLUnE 

. SET ADDRESS 
return tTTe QSTflT byte 



831: 
832: 
833: 
834: 
835: 
836: 
837: 
838: 

839 :C 

840 :C 
841:C 



842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854:0 

855:0 

856:0 

857 :D 

858 ' 
859 
860 
861 
862 
863 
864 
865:C 
866;C 
867:C 
868:C 
869:C 
870:S 

871 ;S 

872 :C 



s3va: (the 10 bytes in the cormiand message) 
packed record 

setunitvol: setunitvol_type ; 
nop: CMO type; 
setadd: CnD.type; 
tva: tva type; 
end; 
be9in <set_3V_addre5s > 

53va . setunitvol := 5uv_CnD_pair (uep) ; 
s3v3,nop := CI1Dno_op; 

53va. setadd := Ch0set_addre5s_3V; 

s3va . tva . cyln := cyln; 
53va . tva , head := head; 
s3va . tva . sect := sect; 

HPIBshort msge out(uep, cormiand_sec, addr(s3va) 
HPIBwait Tor_ppol(uep) ; 
set 3V_a^dress := qstat(uep); 
end; T5et_3V_addre55) 



sizeof (53va ) ) 



1 function 5pare_bIock(uep: uep_type: sparingmode: unsgnS): unsgnS; 

issue the following command sequence: 

. SET UNIT 

. SET VOLUME 

. SPftl?E_BLOCK 
return the QSTflT byte 

2 > 

2 var 

2 sb : <the 4 bytes in the command message) 

2 packed record 

2 setunitvol: setunitvol type; 

2 spareblock: CnD_type; ~ 

2 sparingmode: unsgnS; 

2 end; 

2 begin <spare_block> 

2 sb . setunitvol := SLiv_CnD_pai r (uep) ; 

2 sb . spareblock := CnDspare_block ; 

2 5b . sparingmode := sparingmode; 

2 HPIBshort msge_out ( uep, comniand_sec , addr(sb) 

2 HPIBwait_Tor_ppol(uep) ; 

2 5pare_block := qstat(uep); 

2 end; < spa re_block ) 

1 end; (CSSOir) 



sizeof (sb) ) ; 
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873:0 




1 


874 :S 






875:0 




1 


876:S 






877:0 




1 


878:0 




1 


879:S 






880:0 




1 


881 :0 




1 


882:0 




1 


883:0 




1 


884:0 




1 


885 :D 




1 


886 :S 






887:0 




1 


888:3 






889 :S 






890:0 




1 


891:0 


-38 


1 


892:0 


-40 


1 


893:0 


-41 


1 


894:0 


-42 


1 


895:0 


-44 


1 


896:0 


-46 


1 


897:0 


-48 


1 


898 :S 






899:3 






900:0 


-48 


1 


901:0 


-48 


1 


902:0 


-48 


1 


903:0 


-48 


1 


904 :S 






905:3 






906 :D 




1 


907:C 




2 


908:C 




2 


909:C 




3 


910:C 




3 


911:C 




3 


912:0 




4 


913:C 




4 


9I4:C 




3 


916:C 




3 


916:C 




2 


917:3 






918:S 






919:0 




1 


920 :C 




2 


921 :C 




2 


922:C 




3 


923:C 




3 


924 :C 




3 


925:C 




3 


926 :C 




4 


927:C 




4 


928:C 




3 


929 :C 




2 
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6/ 4/84] QhlNIT.TEXr 

$page$ 

riodu Je Qminit ; 

import 

sye^globals, bkgnd, discHPIB, CS80, CSSOdsr, CSSOir, midecs; 

expof t 

function Qdevicename [uep: uep type^ var saved ioresult: integer): 5tring255; 

function Qintdata(uep: uep_type) : interleave_3'ata ; 

function Qphydata|uep: uep_type j : physic a l_d at a; 

procedure Qge t inilparms; 

procedure Qminit ialize (uep: uep_type; interleave_factor : shortint); 

implement (Qminit ) 



de5cribe_bytes: describe_type- 
format t ang__opt ion_byte : unsgnS ; 
format t ing_opt ionjsuppor ted: boolean; 
diagnost ic_to_be_rLjn : boolean; 
ini t ialize_opt ions_byte : unsgnS; 
volume ert_pa55es: unsgnS; 
clear_Tog5_opt ion_byte : unsgnS; 



const 

def ault_init ialaze_opt ion5_byte = 0; 

def aul t_volume ert^passes = 2; 

def ault_clear_Togs2opt ion_byte = 1; {clear ert logs only) 



function Qintdata (uep: uep_type) 
begin (Qintdata) 

with describe_byte5 do 



interleave_da1a; 



begin 



Qintdata ,mir := 1 ; 
if format ting_opt ion_supporTed 
tfien Qintdata. max := 255 
else Qintdata. max := mif; 
Qintdata. def ;= currentif; 
end; (with> 
end; (Qintdat a) 



(maximum subject to format specified) 

(true maximum) 

(default) 



1 function Qphydata(uep: uep_t ype) : pfiysical_dat a; 
begin {Qphydata ) 

with de5cribe_bytes do 
begin 

Qphydat a. nspm := maxhadd+1; (number of surfaces per medium} 
Qphydat a. nt ps := maxcadd+1; (number of tracks/surface) 
if maxsadd>0 (number of sectors per track) 

then Qphydata . nspt := maxsadd+1 (actual) 

else Qphydata. nspt := (maxsvadd . lfb+1 )*nbpb div 256; (pseudo) 
end; (with) 
end ; (Qphydat a> 
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sv 3.01 


930 :D 


-48 


1 


931:S 






932 :D 




1 


933:S 






934:0 




2 


935:0 


-1 


2 


936:0 


-258 


2 


937:0 


-2S2 


2 


938:0 


-262 


2 


939:0 


-262 


2 


940:0 


-262 


2 


941:0 


-262 


2 


942:0 


-266 


2 


943:D 


-270 


2 


944 :D 


-270 


2 


94S:D 


-270 


2 


946:0 


-270 


2 


947:0 


-270 


2 


948:0 


-272 


2 


949:3 






9S0:C 




2 


951:3 






952:C 




2 


953:3 






954 :C 




2 


95S:C 




3 


956:3 






957:C 




3 


958 :C 




4 


959:3 






960 :C 




3 


961:C 




4 


962 :C 




4 


963 :C 




S 


964:: 




4 


96S:S 






966:C 




3 


967 :C 




4 


968 :C 




4 


969 :C 




5 


970 :C 




4 


971 : 3 






972:C 




3 


973 :C 




3 


974 ;C 




4 


975 :C 




6 


976 :C 




S 


977 :C 




6 


878 :C 




6 


979 :C 




7 


980 :C 




S 


981:C 




5 


982:C 




5 


883:C 




6 


984 :C 




6 


985:C 




6 


986:C 




6 


987:C 




7 


888:C 




6 


989:C 




6 
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6/ 4/34J QniNIT.TEXT 

SpageS 

function Qdevicename [ uep: uep_type; var saved_ioresult : integer): string2SS; 

var 

retry_required: boolean; 

device name : string255; 
index : integer ; 

bcd_product_number : {within the describe bytes) 
packed record case integer of 
: (dn : unsqn24) ; 

1: (bed: packed array[1..6] of unsgn4); 
end; 
product number: integer; 
fixed vol_byle : 

paclced record case integer of 
: (byte : unsgnS) ; 

1: (bit: packed array[0..7] of boolean); 
end; 

begin {Qdevicename) 

ioresult := ord(inoer ror) ; 

try 

allocate_bkgnd_info (uep) ; 

if HPIBamiQo_identify(uep) div 256<>2 then 
ioresc_bt9nd(ijep, z node vice ) ; 

repeat 

retry_required := false; 

if set uritvol ( jep)<>0 then 

handTe_bad_5tatus [uep, true, retry_required); 
until not ret ry_required ; 

repeat 

ret ry_ required := false; 

if describe (uep, de5cribe_bytes )<>0 t hen 

handle_bad_st atus (uep, true, retry_required); 
until not ret ry_required; 

format ting_option_supported := false; {until proven otherwise) 
if describe_bytes .ct . subsetSO then {see if multiple formats supported) 
try 

format t ing_option_byte := 255; {test value) 
repeat 

ret ry_ required := false; 

if format t ing_opt ion ( uep, format! ing_opt ion_byte)<>0 then 
handle_bad_st at us (uep, true, ret ry_ required); 
until not ret ry_required; 
format t ing_option_supported := t rue ; 

fo rmat ting_option_byte ;= 0; {device's primary format) 
recover 
with bip_type (uep'^.dvrtempj " do {confirm the command rejection) 
begin 

if (escapecodeo-10) or [ iores<>zbadmode) then 

escape (escapecode) ; 
lores := inoerror; 
end; { recover) 
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990; 
991; 
992; 
993; 
994; 
995; 
996; 
997; 



999: 
1000: 
1001 : 
1002; 
1003:C 
1004 :S 
1005:C 
1006:C 
1007:C 
1008:C 
1009:S 
1010:C 
1011:C 
1012:S 
1013:C 
1014:C 
1015:C 
1016:C 
1017:C 
1018:C 
1019:C 
1020:C 
1021:C 
1022:C 
1023:S 
1024;C 
1025: 
1026: 
1027: 
1028: 
1029: 
1030: 
1031: 



deallocate_bkgnd_info (uep) ; 
recover 
begin 

deaIlocate_bkgnd info (uep) ; 
if escapecode<>-TO then escape (escapecode ) ; 
ioresult := uep"^ . dv rtemp; (flag problem with describe) 
if saved ioresult=ord ( inoer ror ) then {report to miui) 
saved_ioresult := ioresult; 
end; { recover) 

if ioresult=ord(inoer ror) then 

with de5cribe_byte5 do 
begin 

bed product number, dn := dn; 
pro3'uct_numEer := 0; 
for index := l to 5 do 

product_n umber := product_njmber»10+bcd__product_n umber .bed [index] ; 

devicename := 'HP' ; 

st rwrite (devicename, 3, index, product_n umber; 1 ) ; 



case dt of 
0: 

1: 



devicename*' fixed disc'; 



devicename 
begin 

fixed_vol_byte .byte := describe bytes. fvb; 
if f ixed_vol_byte .bit [7-uep".dvT 

then devicename := devicename+' fixed disc' 
else devicename := devicename+' removeable disc' 
end; 
2: devicename ;= devicename*' tape'; 
otherwise (can't further describe the generic device type); 

end; (case) 
end (with) 
else 

devicename := '<inaccessible CS80 device>'; 

Qdevicename := devicename; 

end; (Qdevicename) 
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1032:D 

1033:S 

1034:D 

1035:D 

1036:D 

1037:D 

1038:D 

1039:C 

1040:C 

1041 :C 

1042:C 

1043:C 

1044:C 

1045:C 

1046:C 

1047;C 

1048:C 

1049:C 

1050: 

1051 : 

1052: 

1053; 

1054 : 

lOSS: 

1056: 

1057: 

1058: 

1059: 

1060; 

1061; 

1062: 

1063:C 

1064 :C 

1065:C 



1065 

1087 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082:C 

1083:C 

1084;C 

1085:C 

1086;C 

1087:S 

1088:0 

1089:C 

1090:C 

1091:C 



-48 1 $pd'3e$ 

-256 1 pro':ecJure allow_modificat ion (prompt : 5trlng255; van parm: unsqnS; rnaxparm: uns9n8}; 

-256 2 v.jr 

-512 2 response: 5tring255; 

-520 2 newparm, i; integer; 

-521 2 modif icat ion_ok : boolean; 

2 begin { a 1 low_modi f icat ion) 

2 repeat 

3 write (prompt , ' (defaults to ', parm:l, ') '); 
3 readln ( response) ; 

3 modif icat ion^ok := st rlen [ response)=0; 

3 if not modif Icat ior_ok then 

4 try 

5 St r read ( response , 1, i, newparm); 

5 modif icat ion^ok := ( i=st rlen ( response )+l ) and (newparm>=0) and (newparm<=maxparfn) ; 

5 if modif icatTon_ok then 

6 parm := newparm; 
5 recover 

5 if not (-escapecode in [8, 10]) then escape (escapecode) ; 

3 until modif ication_ok; 

2 end; (aIlow_modif ication) 



pro':edure Qgetini tparms ; 
var 

ch : char ; 
begin (Qget initparms) 
with desc ribe_bytes do 
begin 

diagnostic _to_be_run 
in it ialize_option5_byte 
volume ert__pa5ses 
clear_Togs~option__byte 



= not ct.5ub5et80 and (dt<=l); {CS80 discs only) 

= defaijlt_init ialize_opt ions_byte; 

= def aiJlt_volume ert_passes; 

= def aul t_c lea r_Tog5_opt ion_byte; 



if extended_feature5_mode then 
begin {extended_feature5_mode stuff) 
w r i t e 1 n ; 
if diagnost ic__to be_run Then 

diaghostic_to Ee run := rot yes ( 'Suppress running the initial diag 
allow_modif icatlonX' 1 nit lalize options byte?', initialize options_by 
If not ct.subsetSO and (dt<=l) then ~ 

begin 

allow_modif icat ion ( 'Volume ert passes?', volume erl_pa5ses, 255 
allow modif icat ion ( 'Clear logs option byte?', cTear_logs_option 
end; (iT> 
end {extended_features_mode stuff) 
else if dt"2 then {it's a tape; user may want to force re-certification 
begin 

w r i t e 1 n ; 

writeln { 'Medium is a tape: do you wish to force'); 
if yes(' re-certif icat ion if already certified? j then 
ini t lali2e_opt ions^byte :- 1; (force re-certification) 
end; (if) 

If format ting_opt ion_supported then 
begin 
w r i t e 1 n ; 
a llow_mod if ication ('Formatting option? 



nostic?' ) ; 
te, 255); 



byte, 255); 
) 



format ting_opt ion_byte , 239); 



Pascal [Rev 3. On 6/ "1/84] CinlNIT.TEXT 
4 end; (if) 
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1092:C 
1093:S 
1094 :C 
1095:C 



3 end; (with) 

2 end; (Qget initparms ) 
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1096;D 


-48 


1 


1097;S 






1098:0 




1 


1099:S 






1100:0 




2 


1101:0 


-1 


2 


1102:0 


-4 


2 


1103;0 


-S 


2 


1104:0 


-8 


2 


1105:0 


-10 


2 


110$:0 


-1080 


2 


1107:0 


-1082 


2 


1108:0 


-1086 


2 


1109:0 


-1087 


2 


1110:0 


-1090 


2 


llll:S 






1112:0 


-1O90 


2 


1113:0 


-1090 


2 


1114:0 


-1090 


2 


1115:0 


-1090 


2 


1116:S 






1117:C 




2 


1118:S 






1119:C 




2 


1120:C 




3 


1121:C 




3 


I122:C 




3 


I123:C 




4 


U24:C 




4 


1125:C 




4 


I126:C 




S 


1127:C 




ii 


1128:C 




7 


1129:C 




7 


1130:C 




8 


1131:C 




7 


H32:C 




6 


1133:C 




!> 


I134:C 




7 


1135:C 




8 


1136:C 




8 


1137:C 




9 


1138:C 




9 


1139:C 




9 


1140:C 




9 


1141:C 




9 


1142:C 




9 


1143:C 




9 


1144:C 




6 


114S:C 




4 


1146:S 






1147:C 




3 


1148:C 




4 


1149:C 




s 


11S0:C 




s 


1151:C 




f> 


1152:C 




6 


1153:3 






1154:C 




3 


1166:3 
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procedure Glminitialize(u€p: 
van 
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yep__type ; interJeave_f actor : shortint); 



retry_required: boolean; 

diag^unit : unsgn4 ; 

ert friage: boolean; 

'^^_."^'^'9 ■ ^s__log_t ype ; 

head : unsgnS; 

■lo3_-tiytes : log__info__t ype ; 

log_lnde)( : jnsgnS; 

t his_^ent ry_pt r : '^Jog_ent ry_t ype; 

sparTng_required : boolean; 

5paring_t ries: signedl6; 



const 

sec tor_ert_pa55e5 = 20; 
t racl'_ert_p35ses = 20; 
max__5.paring_t ries = 5; 

begin {Qminitialize) 

try 



(suspect sector scans) 

(spared track scans) 

(maximum attempts to spare a sector/track) 



al]ocate_bkgnd_irfo (uep) ; 

If diagnost ic_to_be_run then 
begin 

diag_unit := uep^.du; (try the explicit unit; may get illegal opcode) 
repeat 
try 

repeat (make one pass of the complete diagnostic) 
retry required := false; 

if Initiate diagnost ic [uep. diag_unit, {loops> 1, (section) 0)<>0 then 
handle_ba5_st at U5(uep, trje, retry_required); 
until not Tet ry_requi red; 
recover 
with bip_type (uep'^.dvrtemp) " do (confirm the illegal opcode) 
if (esca pecodeo-101 or ( iores<>zbadiiode) then 

escape (escapecodej (probably diagnost ic result) 
else if diag_unit=15 then (unat 15 was rejected!:!) 

ioresc_bkgnd (uep, zcatchall) 
else (explicit unit diagnost ic not supported; use unit IS) 
begin 

lores := inoerror ; 

diag_Ljnit := IS; (original CS/80 allows unit 15 only) 
retry required := true: 
end; (iT> 
until not ret ry_required; 
end; (if) 

if format t ing_opt ion_supported then 

repeat (set the user-specified formatting option) 
ret ry_required := false; 

if formatting_option(LePj format t ing_opt ion_byte )<>0 then 
handle_bad_st atus[uep, t^ue, retry_required); 
until not retry_required; 

invalidate__st ateinfo{uep) ; (formatting may change the blocksizel) 
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1166:C 


3 


1157:C 


4 


1158:C 


4 


1159:C 


S 


1160:C 


4 


1161:3 




1162:C 


3 


1163:C 


4 


1164:S 




1166;C 


4 


116e:C 


S 


1167:C 


S 


1168:C 


e 


U69:C 


5 


1170:3 




1171:C 


4 


1172:C 


S 


1173:C 


s 


1174:C 


6 


1175:C 


S 


1176:3 




1177:C 


4 


1178:C 


S 


1179:C 


S 


1180:C 


i> 


11S1:C 


s 


1182:S 




1183:C 


4 


1184:C 


s 


1185:C 


6 


1186:C 


6 


lie7:C 


6 


1188:C 


7 


1189:C 


8 


1190:S 




1191:C 


4 


1192:C 


5 


1193:C 


(> 


1194:3 




1195:C 


ii 


1196:C 


7 


1197:C 


7 


1198:C 


8 


1199:C 


7 


1200:S 




1201 :C 


ii 


1202:C 


7 


!203:C 


7 


1204 :C 


7 


1205:C 


8 


1206:3 




1207:C 


8 


1208:C 


9 


1209:C 


9 


1210:C 


10 


1211:C 


9 


1212:S 




1213:C 


8 


1214:C 


9 


1215:C 


9 
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repeat (initialize the medium) 

retry required := false; 

if init ialize_media (uep, in it ialize_opt ions_byte, interleave_f actor) <>0 then 
handle_bad_5tatus(uep, true, retry_required); 
until not retry_reqjired; 

if not describe bytes .ct .subsetSO and (desc ribe_bytes .dt<=l ) then 
begin (CS80 3isc; perform testing and sparing) 

repeat (preset the drive to force logging of runtime data errors) 

ret ry_reqLii red := false; 

if preset drive(uep)<>0 then 

handle_Bad_status (uep, true, retry_required); 
until not ret ry_required; 

repeat (clear the ert logs) 

retryreqiiired ;= false; 

if clear_logs (uep, clear_logs_opt ion_byte)<>0 then 
handle_bad_stat us(uep, true, retry_required); 
until not ret ry_required; 

repeat {set address 0> 

retry_required ;= false; 

if set 3V addre5S(jep, (cyln) 0, (head) 0, (sect) 0}<>0 then 
handTe_&ad__status(uep, true, retry_requared); 
until not Tet ry_required; 

if volume_ert_pas5es>0 then 

repeat (run a complete volume ert the specified number of passes) 
ret ry_ required := false; 

ert msge :* false; (do not request an execution message) 

if pat tern_ert (uep, volume_ert , volume_ert_passe5, ert_msge, lQg_bytes.entry[l] )<>0 then 
handle_bad_5tatus (uep, t rue , retry_required) ; " ~ 

until not ret ry__required; 

for de log := ert to runtime do 

for TTead := to describe_bytes .maxhadd do 
begin ~ 

repeat (read the appropriate data error log) 

ret ry_required := false; 

if data_er ror_log(uep, de_log, head, log_bytesj<>0 then 
handle_bad_status(uep, t rue , retry_required) ; 
until not ret ry_required; *" 

for log_index := l to log_byte5 . log_entries do 
begin 

t his_ent ry_pt r := addr ( log_bytes .ent ry[log_index] ) ; 
with this_ent ry_pt r'' do 
begin ~ 

repeat (set address to the suspect sector) 
ret ry_required :~ false: 

if set 3v addre5s(uep, iogical_cyln, logical head, logical_sect )<>0 then 
handTe_Ead_stat u5(uep, true, ret ry_require3') ; 

until not ret ry_required; 



repeat (run a sector ert; a message back implies sparing required) 

retry_required :-- false; 

5paring_required := true; (request an execution message) 
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1216:C 


9 


I217:C 


10 


1218:(: 


10 


1219:i: 


9 


1220:S 




1221 :C 


8 


1222 ;C 


8 


1223:(: 


9 


1224 :C 


9 


122S:S 




1226 :(: 


9 


1227;(: 


10 


1228 :C 


10 


1229:r 


11 


1230 :(: 


10 


1231 :S 




1232 .C 


9 


1233:(: 


10 


1234:i: 


10 


123S:(: 


11 


1236:C 


10 


1237;S 




1238:C 


9 


1239:[: 


10 


1240 :C 


10 


1 24 1 : C 


11 


1242 :C 


10 


1243 :S 




1244 :c: 


9 


1245:(: 


10 


1246:C 


10 


1247:C 


10 


1248 :r 


11 


1249:C 


11 


1250:C 


10 


12S1:S 




1252;C 


9 


1253:f 




1254:C 


8 


125S:J; 




12SS;C 


8 


1257:S 




1258:C 


7 


1259:S 




1260:C 


6 


1261:5 




1262:C 


4 
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if pat tern_ert (uep, sector_ert, secTor_ert__passe5, 

s pa ring_ required, t his_ent ry_pt r") <>0 then 
handle_bad__5tatus(uep, true, ret ry_ required); 
untij not ret ry_required; 

sparing_t ries := 0; 

while spar irg_requi red and (sparing_t rie5<max_5paring_t ries) do 
begin 

sparing_t ries := sparing_t ries + 1 ; 

repeat {address the bad sector; may be different after the track ert!> 

retry_required := false; 

if set 3V addre5s(uep, logical__cyln, logical head, logical_sect )oO then 
handTe_Ead_st at u5(uep, true, retry_require3); 
until not ret r y_required; 

repeat (spare without retaining data) 

ret ry_ required ;= false; 

if spare_block (uep, (sparingmode } 1)<>0 then 
handle_bad_st at us (uep, true, retry_required); 
until not ?et ry_required; 

repeat (set address to the beginning of the affected track) 

reTry_required := false: 

if set 3V address (uep, logical_cyln, logical head, 0)<>0 then 
handTe_5'3d_stat us (uep, true, retry_require3]; 
until not retry_required; 

repeat (run a track ert; a message back implies sparing required againll!) 
ret ry_requi red := false; 

sparing_required :- true; (request an execjtlon message) 
if pat tern_ert (uep, t rack_ert , track_ert_pa5ses, 

sparing_requi red, t his,_ert ry_pt r'^)<>0 then 
handle_bad_stat usfuep, true, ret ry_required ) ; 
until not ?et ry_reqLJired; 

end; (while) 

if sparing_requi red then ioresc_bkgnd ( uep, zinitfail); 

end; (with this_ent ry_pt r") 

end; (for log_index} 

end ; (for head) 

end; (if device is a CS/80 disc) 
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1263:C 3 Spaget 

1264:S 

1265:C 3 repeat (describe volume again to update the media parameters) 

1266:C 4 retry required := false; 

1267:C 4 if desc ribe ( uep, describe_bytes)<>0 then 

1268 :C 5 handle_bad_statU5 [uep, true, retry_reauired); 

1269:C 4 until not retry required; 

1270:S 

1271:C 3 deallocate bkgnd info(uep), 

1273:C 3 recover 

1274:C 3 begin 

1275:C 3 abort_bkgnd process (uep) ; 

1276:C 3 ioresult :='~uep" .dvrtemp; 

1277:C 3 jep"^ .dvrtemp := ord( inoer ror) ; (report the error only once I 

1278:C 3 e5cape(-10): 

1279:C 3 end; (recover) 

1280:S 

1281:C 2 end; (Qmini tialize > 

1282:S 

1283:C 1 end (Qminit) 

1284:S 

1285:C 2 Sinclude 'QMINIT'lE; 

No errors. No warnings. 

««*«* Nonstandard language features enabled it**** 
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MIUI 



Description 

MIUI is the "mediainit user interface" and contains the device-independent portion of mediainit. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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l:D 







Smodcal, stackctieck off, iocheck off, debug off, range off, ovflcheck offi 




2:1) 











3:D 







Ssearch ■ lOLIB :KE;RNEL' , ' INIT :DRVflSn' 'INIT :DISCHPIB' , 




4:0 
S:3 
6::3 
7:3 
8:D 
9:S 
10:D 







'INIT;RniGO', 'INIT:CS80', 'FMINIT', 'MINIT'I 









program miui (input , output , list ing) ; (mediainit user interface program) 






1 


import 




11:0 




1 


sysglobals, misc. sysdevs, fs, iodeclarat ions, midecs, bkgnd, 
rtninit, Hminit,, Fminit, Xminit, Qminit, Bminit; 




12:0 




1 




13 :S 










14:0 




1 


type 




15:0 
16:*; 
17:1) 




1 


5up_dev_type = (N.N.U ,V ,U,H, F,C,D,P,X ,6,0) ; (supported devices) 






1 


var 




18:1) 


-4 


1 


lun: integer; 




19 :D 


-8 


1 


uep: uep type; 




20:0 


-10 


1 


device: 5up_des'_type; 




21:;3 










22 :S 










23:D 


-256 


1 


procedure fatal ioresult (message : string255; iores: integer); 




24 ;C 




2 


begin (fatal Toresult) 




26 :C 




2 


writeln(message) ; 




26 :C 




2 


get ioerrmsg(message, iores); 




27 :C 




2 


writeln[' '.message); 




28 :C 




2 


escape(-l) : 




29 :C 




2 


end; {fatal_ioresult ) 




30:3 










31:15 










32:0 




1 


function on_same__medium(f lun: unitnum): boolean; 




33 :i; 




2 


begin <on__^same3iediumj 
with unTtable"" [f lun J do 




34 :C 




2 




35 :C 




3 


on_same_medium := sc = uep'^.sc) and fba=uep".ba) and 
du=uep^.du) and (dv=uep'^.dv) and 
letter»uep'-. letter); 




36:C 




3 




37 :C 




3 




38 :C 




2 


end; <on_same medium) 
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39:0 


-10 


1 


$page$ 




40 :S 










41:0 
42 :S 
43:0 




1 


procedure write_program_header : 






2 


const 




44:0 




2 


previd = daterec [year :84 , day:4, month:6]; 




45:0 




2 


prevno = '3.0' : 




46:0 




2 


programname = 'Mediainit'j (title) 




47:0 




2 


copyrightl = ' Copyright 1984 Hewlett-Packard Company.'; 




48:0 




2 


copyright2 = ' fill rights reserved.'; 




49:D 
60:S 
51:0 




2 


monthstr = ' JanFebMarfiprflayJunJulflugSepOctNovDec' ; 






2 


var 




52:0 


-2 


2 


date: daterec; 




53:0 


-6 


2 


time: timerec; 




54:0 


-10 


2 


i: integer; 




55:0 


-14 


2 


seconds: integer; 




56:0 


-24 


2 


todaysdate: 5tring[9]; 




57:0 


-34 


2 


titnestring: string[8]; 




S8:S 










S9:C 




2 


begin (write_program_header) 




60:C 




2 






61 :C 




2 


sysdatefdate) ; 




62:C 




2 


systime(time) ; 




63 :C 




2 






64 ;C 




2 


with date do 




6S:C 




3 


if (month in [1..12:) and (day>0) and (year<100) then 




66:C 




4 


begin 




67 :C 




4 


todaysdate := ' -'+st r(monthst r, month«3-2, 3)+'- '; 
if day>9 then todaysdate[l ] := chr(day div 10 + ord('O')); 
todaysdate 2] := chr(day mod 10 * ord('O') 
todaysdate 8] := chr(year div 10 + ord('0* ; 




68:C 




4 




69:: 




4 




70 :C 




4 




71:C 




4 


todaysdate 9] := chriyear mod 10 + ord('0' ; 
end (then) 




72:C 




4 




73:C 




4 


else 




74 :C 




4 


todaysdate := ' ' ; 




7S:C 




2 






76:C 




2 


set St r len (time St ring, 0) ; 




77 :C 




2 


1 ;- 1; 




78:C 




2 


if time.hour<10 then 




79:C 




3 


St rwritejtimest ring, i, i '0' ) ; 
St rwrite (timest ring, i,i, time. hour: 1 ,':'); 




80:C 




2 




81:C 




2 


if time.minute<10 then 




82:C 




3 


St rwrite (timest ring, i,i, '0' ) ; 




83:C 




2 


St rwrite (timest ring , i,i , time .minute:! ,':'); 




84:C 




2 


seconds := t ime .centisecond div 100; 




85:C 




2 


if seconds<10 then 




86:C 




3 


St rwrite (timest ring,i,i,'0'); 




87:C 
88:S 
89:C 




2 


St rwrite (timest ring,i,i,seconds:l); 






2 


writeln(programname, ' [Rev '.prevno,' ', previd .month:2, '/', previd .day :2, 




90:C 




2 


'/', pr ev id. ye ar:2,' 3, todaysdate; 10,' ' , time St ring) ; 




91:C 




2 


writeln; 




92:C 




2 


writeln(copyrightl) ; 




93:C 




2 


writeln(copyright2) ; 




94 :C 




2 


writeln; 




95:S 










96:C 




2 


end; {wr ite_program_header > 
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97:D 
98 :S 
99:D 


-10 


1 


$page$ 








1 


procedure request vol: 




100:S 












101:D 




2 


type 






102:D 




2 


5tring27 •-■■ strir9[27]; 




103:D 
104:S 
105:D 




2 


de 


^_name„l/pe = array [M..B] of string27; <rdq) 






2 


const 




106:D 




2 


de 


/ name - {device names) 




107:D 




2 




dev name type 

[ (n) 'internal minifloppy* 
iN) 'HP8290X series minifloppy', 
<U) 'HP913xn series hard disc' 




108:D 




2 






109:D 




2 






110:D 




2 






111:D 




2 




(V) 'HP913XB series hard disc', 




U2:D 




2 




<U) 'HP913XC series hard disc', 




113:D 




2 




(H) 'HP9895 flexible disc' , 




114:D 




2 




(F) 'HP988S flexible disc' 




11S:D 




2 




{C> 'HP7906 removeable hard disc', 




U6:D 




2 




<D) 'HP7906 fixed hard disc', 




117:D 




2 




<P) ■HP7920 hard disc' , 




U8:D 




2 




<X> ■HP792S hard disc' , 

<B> ■HP982S9 bubble memory']; <rdq) 




U9:D 




2 






120:D 




2 


no 


-t3bortive_ioresult_5et = [ord ( inoer ror) ord (zbadblock ) , ord (znoblock) , 
ord(zuninitialized], ord(inodirectory)]; 




121:0 
122-S 




2 






123:D 




2 


var 






124:0 


-25$ 


2 


re 


sponse: string255; 




12S:0 


-274 


2 


rv 


id: vid; 




126:0 


-396 


2 


ft 


itle: fid; 




127:0 


-400 


2 


fs 


igs: integer; 
ird: filekind; 




128:0 


-402 


2 


fk 




129:0 


-403 


2 


scantitle ok: boolean; 




130:0 


-408 


2 


sa 


/ed ioresult: integer; 
/icename: 5tring255; 




131:0 


-664 


2 


de 




132:S 












133:C 




2 


begin < request_vol) 




134 :S 












135:C 




2 


re 


Deat 




136:C 




3 




vrite( 'Volume ID? ' ) ; 




137:C 




3 




-eadlnr response] ; 
STRPOS does not conform to HP standard, see SSUITCH STRPOSS 




«*«UfiRNING 


: (line 


138) : 




138:C 




3 




if (strlen{ response)=0) or (st rpos (1*27 , response ]<>0) then escape(-l); 




139:C 




3 




jcantitle ok := scantitle ( response , fvid, ftitle, fsegs, fkind); 




140:C 




3 




if scantitle ok and (ftitle='') then 




141 :C 




4 




begin 

lun := f indvolume { fvid, true]; 




142:C 




4 






143:C 




4 




saved icresult := ioresult; <for decoding below) 




144:C 




4 




getioer rm5g(response, ord (iriounit ) ) ; {for the case lun=0) 




145:C 




4 




end {then) 




146:C 




4 




Use 




147:C 




4 




begin 

lun := C ; 




148:C 




4 






149:C 




4 




response := 'illegal syntax'; 




150:C 




4 




end; (else) 




151 :C 




3 




If lun=0 then 




152:C 




4 




writelnf' ', response); 
:il lunoO; 




153:C 




3 


un 




154:S 












1S5:C 




2 


ex 


:ended_features_mode := fsegsoO; 
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156:C 







if 


extended features mode then 




1S7:C 




3 




>egin 




1S8:C 




3 




writeln; 




159:C 




3 




writeln '*** Uarning ***'); 




160:C 




3 




writeln ' You have invoked an "extended features mode",'): 




161 :C 




3 




writeln ' which for certain devices requires you to have ) : 




162:C 




3 




writeln (' extensive knowledge about the device''s comriand*); 
if not yes(' set. fire you SURE you want to proceed?') then 




163:C 




3 






164:C 




4 




escape(-l ) ; 




16S:C 




3 




•nd; {if) 




166:S 












167:C 




2 


ue 


) := addr(unitable'^[lun] } ; 




168:C 




2 


wi 


:h uep*^ do 




169:C 




3 




)egin 




170:C 




3 




case letter of 




171:C 




4 




*n' : device 


= M; 




172:C 




4 




'N' : device 


= N; 




173:C 




4 




'U' : device 


= U; 




174:C 




4 




'V: device 


^ V; 




17S:C 




4 




'U' : device 


= U; 




176:C 




4 




'H': device 


' H; 




177:C 




4 




'F': device 


= F; 




178:C 




4 




'C: if dv=0 then device 


= C 




179:C 




S 




else device 


- D; 




180:C 




4 




'P': device 


= P; 




181:C 




4 




'X' : device 


= X; 




182:C 




4 




'B' : device 


' B; (rdq) 




183:C 




4 




'Q' : device 


' Q; 




184 :C 




4 




otherwise 




185:C 




4 




begin 




186:C 




4 




writeln ( 'hediainit does not support this device'); 




187:C 




4 




e5cape(-l ) ; 




188:C 




4 




end; 




189:C 




4 




end; {case) 




190:S 












191:C 




3 




if device=Q 




192:C 




4 




then devicerame := Qdevicename(uep, saved ioresult) {may do I/O, alter saved 


.ioresult ) 


193:C 




4 




else devicename := dev_name [device] ; 




194:C 




3 




writeln • 

write ( 'Device : '.devicename); 




195:C 
196:3 
197:C 




3 








3 




if deviceoM then {it has a select code & possibly a bus address) 
if (device=F) or (device=B) {it has a select code only) (rdq) 




198:C 




4 






199:C 




Jj 




then writeC , ' , sc : 1 ) 




200:C 




5 




elsewriteC, ' , 100«sc+ba : 1 ) ; 




201 :C 




3 




if devlceoB thenwriteC, ',du:l); (rdq) 




202:C 




3 




if device in [C,D,a] thenwnteC, ',dv:l); 




203:C 




3 




writeln ; 




204 ;C 




3 


end; (with uep^> 




20S:S 












206:C 




2 


writeCLoqical unit #'.lun:l,' - '); 




207:C 




2 


if 


fvid[l]<>'#' then writelnC ' ' ' ,fvid, ' : " ' ) i^dq) 




208;C 




3 


el 


le 1 {rdq) 




209:C 




3 




■f (saved ioresult in nonabo-tive ioresult set) or {rdq) 




210:C 




4 




(rdevice=B) and (saved_iore5ult<>ord (znodevice) ) and {rdq) 




211 :C 




4 




(saved ioresultoord (zbadhardware) ) ) {rdq; 




212:C 




4 




hen writeTnf'<no directory>') {rdo> 




213:C 
214:C 




4 
4 


else 

fatal_iore5ult ('<rlediainit dborted>' , saved ioresult); 
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216:1 2 end; < reque5t_vol) 



Pascal IRev 3. on 


2 1 7 : r 


-10 


1 


218:S 






219:C 




1 


220 :D 




2 


221:D 


-1 


2 


222:r 


-4 


2 


223:D 


-s 


2 


224 :D 


-18 


2 


225:D 


-36 


2 


226:D 


-3$ 


2 


227 :D 


-36 


2 


228 :D 


-3S 


2 


229:C 




2 


230:S 






231:C 




2 


232;S 






233:C 




2 


234:C 




3 


235;C 




4 


236:C 




5 


237:C 




S 


238:C 




6 


239:C 




6 


240:C 




7 


241 :C 




7 


242;C 




7 


243:C 




7 


244 :C 




7 


245 :S 






246 :C 




6 


247 :C 




8 


248 :C 




6 


249:: 




6 


250:C 




6 


251 ;C 




7 


252 :C 




7 


2S3:C 




6 


254 :C 




7 


255 ;C 




7 


256 :S 






257:C 




6 


268:C 




6 


2S9:C 




7 


260:C 




7 


261 :C 




7 


262:C 




7 


263 :C 




7 


264 :S 






26S:C 




6 


266 :C 




5 


267:C 




S 


268 :S 






269 :C 




2 


270:C 




3 


271 :S 






272 :C 




2 



6/ 4/S4] niUI.TEXT 26-Dec-84 23:00:28 Page 6 ***■ FUe name: MIUI 

$pige$ 

prijcedure ot her_volume_check; 
var 

warning__i55ued : boolean; 

fjjn: unitrum; 

line : shor tint ; 

CRTline, CRTcolumn, stopline: integer; 

fvid: vid; 
■lonst 

maxlines = 10; 

fieldwidth = 16; 
begin <ot her_volume_check ) 

warnin9_is5ued := false; 

for flun ;= 1 to maxjnit do 
if on same mediumff Inn) then 
witK uniTable'ttlun] do 
begin 

if f lunolun then 
begin 

if not warning_is5ued then 
begin 

writeln ( 'UflRNING: the initialization will also destroy;'); 
warning issued := true; 
line ;= 1; 
end; <if) 



fgetxyfoutput .CRTcolui 
write(^ «\flijn:n; 
fgotoxy (output .CRTcoI 



umn, CRTline) 



fgotoxy (output ,CRtcoIumn+5, CRTline) ; 
Ci>il(dam, fvid. flun, getvolumename) ; 
if St rlen(fvid)>0 

then wnteffvid, ' : ' ) 

else write('<no dir>'); 
if CRTcolumn=0 

then writeln {scrolls the screen if necessary) 

else fgotoxy(output , CRT col umn, CRTline+l) ; 

l:Lne := line+1 ; 
if line>maxlines then 
begin 

fgetxy(output ,CRTcolumn, stopline) ; 

fgot ox /(output ,CR Too lumn+ fieldwidth, stopline -maxlines) ; 
line :'* 1; 
end; {if) 

end;; (if flunolun) 
umediavalid := false; 
end; {wiith} 

if warning_i5!>ued and (CRTcolumn<>0) then 
fgotoxy(output ,0, stopline); 

end; <ot her_vo linne_check > 
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273:D 


-10 


1 


SpageS 




274 :S 










275:D 




1 


procedure user confirmation; 




27S:C 




2 


begin {user confirmation) 




277:C 




2 


writeln; 




278:C 




2 


if not yesCflre you SURE you want to proceed?') then 




279:C 




3 


escape(-t); 




280:C 




2 


end; <ijser_conf irmat ion) 




281 :S 










282:S 










283:D 




1 


procedure init:Lali::e medium; 




284 :S 










285 :D 




2 


var 




286 :D 


-2 


2 


interleave: shortint; 




287;S 










288 :D 


-6 


2 


procedure usi(intdaTa: interleave data); 




289 :D 


-6 


3 


var 




290:0 


-262 


3 


response: String255; 




291 :D 


-266 


3 


i: integer; 




292:D 


-267 


3 


number convei'Sion ok: boolean; 




293:C 




3 


begin {user-specified interleave) 




294 :C 




3 


with intdata do 




295 :C 




4 


if (def>=min) and (def<=max) and (min<max) then 




296:C 




5 


begin 




297:C 




5 


writeln; 




298:C 




S 


repeat 




299:C 




6 


write [ 'Interleave factor? *); 




300;C 




6 


if max<>255 then 




301 ;C 




7 


wrlte('[', min:l, '..', max:!, '] '); 




302:C 




6 


writeC (defaults to ', def:l, ') '); 




303:C 




6 


readln(response) ; 




304 :C 
305:C 




6 
6 


number conversion^ok := st rlen ( respon5e)-0; 
if num&er_conversTon_ok then 




308:C 




7 


interleave := def 




307:C 




7 


else 




308:C 




7 


try 




309;C 




3 


5trread( response, 1, i, interleave); 




310;C 




8 


number_conversion ok := i=5t rlen ( response)*! ; 




3U:C 




8 


recover 




312:C 




8 


if not (-escapecode in [8, 101) then escape (escapecode) ; 


313:C 




6 


until number conversion ok and (interleave>=min) and 


(lnterleave<=max) ; 


3I4:C 




5 


end <then) 




315:C 




5 


else 




316:C 




5 


interleave := def; 




317:C 




3 


end; (user- spec if ied interleave) 




318:S 










319:D 




2 


function fudged d(dev: sup dev type; letter: char): char; 




320 :C 




3 


begin {fudged d) 




321 ;C 




3 


if dev=0 




322 :C 




4 


then fudged d := '0' 




323 :C 




4 


else fudged d := letter; 




324 :C 




3 


end; {fudged_d) 
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325:D 


-2 


2 


$page$ 




326;S 










327rC 




2 


begin {initialize medium) 

{ determine~interleave factor ) 




328:C 




2 




329:C 




2 


case device of 




330:C 




3 


M: U5i(nintdata) ; 




331 :C 




3 


N: usi(Nintdata(uep)) ; 




332:C 




3 


U,,V,U: interleave := 9; {N/R but passed as a parmamete 


) 


333:C 




3 


H: usifHintdata) ; 




334:C 




3 


F: usi (Fintdata) ; 




335:C 




3 


Q: begin 

Ugetinitparms; 




336 ;C 




3 




337:C 




3 


usi (aintdata(Liep) ) ; 




338:C 




3 


end; 




339:C 




3 


otherwise {not applicable); 




340 :C 




3 


end; {case) 




341:S 










342:C 




2 


lockup; 




343:C 




2 


try 




344 ;C 




3 


writeln; 




346 :C 




3 


writeln['nedium initialization in progress'); 




346:0 




3 


with uep^ do 




347 :C 




4 


case device of 




348 :C 




5 


M: rtninitialije interleave); 
H,N,U,V,W: Hminitiali?e uep, interleave); 




349 :C 




5 




3S0:C 




5 


F: Fminitialize isc t able [sc] .card ptr, du, interleave); 


3S1:C 




5 


C,D,P,>{: Xminitialize fudged d(device, letter), sc 


ba, du); 


352 :C 




5 


Q: Qminitialize uep, interleave); 




353 :C 




6 


B: Bminitializeflun) ; 


rdq) 


354 :C 




5 


end; {case) 
writelni'Medium initialization completed'); 




356 :C 




3 




356 :C 




3 


escape(O); {to do the lockdown) 




367 :C 




3 


recover 




358 :C 




3 


begin 

lockdown; 




359 :C 




3 




360 :C 




3 


if e5capecode=0 then 




361 :C 




4 


{do nothing) 




362 :C 




4 


else if escapecode^-lO then 




363 :C 




5 


fatal ioresult (#7'rledium initialization aborted:', ioresult) 


364 :C 




5 


else ~ 




365 :C 




6 


escape(escapecode) ; 




366:C 




3 


end; {recover) 




367:5 










368 :C 




2 


end; { initialize_medium) 




369:5 










370:S 










371 ;D 




1 


procedure make_initial_directories; 




372;D 




2 






373:0 




2 


var 




374 :D 


-2 


2 


flun: unitnum; 




375:0 


-82 


2 


dircatentry: catentry; 
dam^fib: fib; 




376:0 


-744 


2 




377:0 
378:5 
379:0 


-748 


2 


j: integer; 






2 


procedure check ioresult; 




380;C 




3 


begin 




381 :C 




3 


if ioresult<>ord(inoer ror ) then 




382:C 




4 


fatal ioresult (#7'Volume zeroing aborted:', ioresult): 




383:C 




3 


end; 
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381:0 


-748 


2 tp 


3ge$ 




385:S 










386:0 




2 


procedure make_inltial_LIF_di rectory; 




387:S 










388:0 




3 


type 




389:0 




3 


bed = 0. .9; 




390:0 




3 


bcdl2 = packed array[l--12] of bed; 




391:0 




3 


bis = 0. .32767; 




392:S 










393:0 




3 


LIF vol type = 




394 :D 




3 


packed record 




395:0 




3 


id ; short int ; 




396:0 




3 


vol_label: packed array[1..6] of char; 




397:0 




3 


dir sa: integer; 
Oct 10000: shortint; 




398:0 




3 




399:0 




3 


dummy: shortint; 
dir len: integer; 




400:0 




3 




401:0 




3 


version: shortint; 




402:0 




3 


zero : short int ; 




403:0 




3 


phyddta: physic al_dat a ; 
vol stamp: bcdl2; 




404:0 




3 




405:0 




3 


end; 




406:S 










407:D 




3 


LIF_di r entry = 




408:D 




3 


packed record 




409:0 




3 


file name: packed array[1..10] of char; 




410:0 




3 


file type: shortint; 




411:0 




3 


start add: integer; 




412:0 




3 


file Ten: integer; 




413:0 




3 


toe: bcdl2; 




414:0 




3 


l_flag: boolean; 




415:0 




3 


vol num; bl5; 




416:0 




3 


impTem: integer; 




417:0 




3 


end; 




4I8;S 










419:0 




3 


sector type = 




420:0 




3 


record case integer of 




421 :D 
422:D 




3 
3 


1: (LIF vol label: LIF vol type); 

2: (LIF_directory: array[0..7] of LI F_dlr_ent ry) ; 




423:0 




3 


end; 




424 ;S 










425:0 




3 


const 




426:0 




3 


nu]l_bcdl2 = bcdl2 [0,0,0 ,0,0,0,0, 0,0, 0,0,0] ; 




427:S 










428:0 




3 


P LIF vl = {standard LIF volume label) 




429:0 




3 


LIF vol type 
[~ld:~-52768, 




430:0 




3 




431:0 




3 


vol label: 'P9826 ', 




432:0 




3 


dir sa : 2, 




433:0 




3 


oct_100jO: 4096, 




434:D 




3 


dumny : , 
dirlen: 2, 




435:D 




3 




436:D 




3 


version: 1, 




437:D 




3 


zero: 0, 




438:D 




3 


phydata: physical data[ntps: 0, nspm; 0, nspt : 0], (filled in later} 
vol_5tamp: null_bcdl2 ]; 




439:D 




3 




440 :S 










44 1:0 




3 


P_LIF leod = (logical end of directory mark) 




442:0 




3 


LIF_di r_ent ry 




443:0 




3 


[ file_name: ' 
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444:0 




3 


file type : -1 , 




445:0 




3 


start add: 0, 




446:0 




3 


file Ten: 0, 




447:0 




3 


toe: null bcdl2. 




448:0 




3 


l_flag: false. 




449:0 




3 


vol n ym : , 




450:D 




3 


impTem: J ; 




461:S 










452:0 




3 


var 




453:D 




3 


buffer: {four sector buffer for LIF volume label and dummy directory) 




454:0 




3 


record case integer of 




455:0 




3 


0: (long: ar ray [0 . .255] of integer); 




456:0 




3 


1: (sector: array[0..3] of sector type); 




457:0 


-1024 


3 


end; 




453:0 


-1026 


3 


i: shortint; 




469:0 


-1688 


3 


tm_fib: fib; 




460:S 










461 :C 




3 


begin {make_initial_LIF__di rectory) 




462:S 










463:C 




3 


with buffer do 




464 :C 




4 


begin 




4$5:S 










466:C 




4 


for i := to 255 do {zero the entire buffer) 




467:C 




5 


longLi] := 0; 




468:S 










469:C 




4 


with sectortO], LIF vol label do 




470:C 




5 


begin 

LIF vol label := P_LIF vl; 




471:C 




5 




472:C 




5 


case device of 




473:C 




6 


M: phydata 


= nphydata; 




474 :C 




6 


H,N,U,V,U,C,D,P,X: phydata 


' Hphydata(uep) ; 




475 :C 




6 


F: phydata 


= Fphydata; 




476:C 




6 


Q: phydata 


= Qphydata(uep) ; 




477:C 




6 


B: phydata 


= Bphydata lun); (rdq) 




478:C 




6 


end; (case) 




479:C 




5 


end; (with) 




480 :S 










481:C 




4 


sector[2] .LIF_directory[0] := P_LIF_leod; 




482:S 










483:C 




4 


end; (with) 




484:3 










48S:C 




3 


with tm_fib do 




486:C 




4 


begin 

funit := lun; 




487:0 




4 




488:C 




4 


fileid := 0; 




489:C 




4 


fpeof := sizeof (buffer) ; 




490:C 




4 


end; (with) 




491 :S 










492:C 




3 


uep'^ . urepor tchange := false; 




493:C 




3 


call [uep". tm, addr(tm fib), writebytes, buffer, sizeof (buffer ) , 0); 




494:C 




3 


check ioresult; 




495:C 




3 


call [uep". tm, addr ( tm_f lb ) , flush , buffer, 0, 0); (flush tapebuf) 




496:C 




3 


check ioresu It ; 




497:C 




3 


call [uep". tm, addr(tm fib), clearunit , buffer, 0, 0); (update tape parms) 




498:C 




3 


check_iore5ult ; 




499:C 




3 


uep'~ . urepor tchange := true; 




500:5 










501 :C 




3 


end ; { ma ke_ini t ial_LI F_di rectory) 
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2 SpageS 

begin {make_initial_di rectories) 

wr iteln; 

writeln (' Volume zeroing in progress'); 

if uep'^.byieof f set-0 then 
make_ini1 ial__LlF_di rectory; 

for flun := maxunit downto 1 do 
with unit able'[f lun] do 

if (flun=Iun) or (on_same_medlLfm(f lun ) and (byteoffsetouep^.byteof fset ) ) then 
begin 

wit h dircatent ry do 
begin 

cname := ' V" ; 

strwrite(cn ame , 2, i, flun:l); 
ureportchange := false; {for ueovbytes' sake) 
cpsize := ueovbytes (flun); 
ureportchange := true; 

cextral := 0; <let dam decide # of dir entries) 

end; {with) 
with dam_fib do 
begin 

Tun it := flun; 

fwindow := addr [dircatent ry) ; 

called am, fvid, flun, getvolumename) ; {assign fv id) 

pal hid := -1 ; 
ftitle := "; 
end; {with) 
call [dam, dam__fib, flun, makedi rectory) ; 
check ioresulT; 
end; {tHen) 

writeln ( 'Volume zeroing completed'); 

end; {make_init ial_di rectories) 



502 :D -748 2 


S03:S 




S04:C 


2 


SOS:S 




506:C 


2 


507;C 


2 


608:S 




509:C 


2 


S10:C 


3 


511:S 




612:C 


2 


S13:C 


3 


614:C 


4 


S1S:C 


5 


516:C 


5 


517:C 


6 


6I8:C 


6 


S19:C 


6 


S20:C 


S 


S21 :C 


6 


622:C 


6 


523:C 


6 


524 ;C 


6 


S2S:C 


5 


S26:C 


6 


S27:C 


6 


528:C 


6 


529;C 


6 


530:C 


6 


531 :C 


6 


532:C 


6 


633 :C 


5 


534 :C 


5 


535 :C 


5 


536:5 




537 :C 


2 


538 :S 




539 :C 


2 
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540:D 


-10 1 


$01 


geS 


541 :S 








S42;C 


1 


bee 


in (miui) 


543 ;C 


1 


t 


fy 


544 ;C 


2 




inii:ialize_bkgnd; 


S45:C 


2 




wri^e_program_header ; 


546:C 


2 




reque?t_vol ; 


547:C 


2 




other volume check; 


548 :C 


2 




user confirmation; 


549 :C 


2 




initialize medium; 


6S0;C 


2 




make initial directories 


551 :C 


2 


recoveT 


552:C 


2 




if escapecode=-20 then 


553;C 


3 




begin 


554 :C 


3 




writeln; 


555:C 


3 




writeln ( 'hediainit s 


556 :C 


3 




end (then) 


557:C 


3 




else 


558 :C 


3 




escape (esc a pecode ) ; 


559:C 


1 


enc 


. {miui) 


560:S 
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stopped Dy user' 



No errors. 1 warnings. 

*»ic*« Nonstandard language features enabled 
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MOUSE 



Description 

MOUSE provides driver code for the mouse and other HPHIL relative locator input devices. 



Requirements 

SYSDEVS, and SYSGLOBALS. 



Notes 

HPHIL must be executed either before or after MOUSE executes for the mouse to be functional. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

23:D 
24 :D 
25;S 
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26: 

27: 

28: 

29: 

30: 

31: 

32: 

33: 

34: 

35:D 

3S:D 

37:D 

38:S 

39:D 

40:0 

41 :D 

42:D 

43:0 



44 



45: 
46: 

47: 

48 

49: 

SO: 

S1:D 

52:D 

53:0 

54:D 

5S:D 

56:D 

57:D 

58:D 

59:0 

60:0 



(c) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is sjbject to restrictions as set forth in 
para-jraph |b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DPR ?-104.9(a). 

HEUltTI-PflCKfIRD COnPfiNY 
Fort Collins, Colorado *) 

$sysproq$ 

Sstackcneck offi Sheap dispose offi 

liocheck off$ Srange o7f$ Sovflcheck off$ 

Jdebug off$ 

program mouseirit; 

module mouse; { mouse module > 
import sysdevs , sysglobals; 

export 

function initmouse ;booledn; 

implement 
type 

sint = -32768. .32767; 

pollblock = packed record 

case integer of 

0:(d: packed arra¥[1..7] of byte); 
l:(two5et5 : boolean; 
kcodes : 0. .3; 
filler : 0. .7; 
numaxes : . . 3; 
xdata : sint; 

yd at a : sint; 

zdata : sint) 

end ; 
Ikeytype - packed record 

case integer of 
0: (b:byte); 
1 : ( t ow : . , 1 5 ; 
col :0. .7: 
up : boolean) 
end; 
kmtype = array[0..7] of byte; 
cor St 

mkeymap = kmtype [3, 13 ,8 ,0,0, 0,0,0] ; < ex,cr .bs, . . . . > 
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61:0 

62:0 

63:0 

64:0 

65:D 

66 :S 

67: 

68: 

69: 

70: 

71 : 

72: 

73: 



:D 
:0 
:C 
:C 
:C 
:C 
:C 
:S 
75:D 
76:D 
77:D 
78:C 
79:C 
80:C 
81 :C 
82:C 
83:C 



87 



89: 
90: 
91 : 
92; 
93: 

94 :C 

95 :C 
96:C 
97:C 
98:C 
99:C 

100:C 
101:C 
102:C 
103:C 
104: 



105:C 



106: 
107: 
108: 
109: 
110: 
111 : 
112: 
113: 
114: 
115: 
116: 
117: 

lis 

119:C 
120:C 



-4 
-12 
-24 
-32 
-34 



driver : loopdvrptr; 

keystate : array[0..7] of boolean; 

cumdata : array[1..3] of integer; 

Qdata : polltjock; 

cindex : 0. .3; 



procedure doreset; 

var i : sint ; 

begin 

for i:=0 to 7 do keyst a te [i] : = 

for i:=l to 7 do gdat a .d [i] :»0 

for i:=l to 3 do cumdat a[i] :=0 

end ; 



rue; < all keys up ) 



procedure mdataproc [var statbyte.databyte :byte; var done :boolean) 
var 

k : Ikeytype; 

begin (mdataproc; mouse data proc ) 
UlTH LOOPCONTROL" DO (4/9/84 SFB) 

with loopdevices [loopdevice] do 
case devstate of 
1 :be9in 

gdat a .d[l] : -dat abyte; cindex:=0; 

If gdata .numaxe&=u then devstate:=8 else devstate:=2; 
end : 
2,4,6 



begin ( co-ord data ) ( low byte > 
if not descrip. 5izel6 then 



if databyte>127 then gdata .d[devstate] :=255 ( sign extend ) 
else gdata. dfdevstate] :=0; 
gdat a . dtdevstate+1 ] :=dat abyte; 
devstate:-dev5tate+l+ord(not descrip.5i2el6) ; 
if not desc rip. sizeie then 
begin ( 8 bit mode > 
cindex :=cindex+l ; 

if cindex>=gdat a. numaxes then devstate:=8; 
end; 
end; 
3,5,7: ( co-ord data ) ( high byte > 
begin 

gd3ta.d[dev5tate-l} :=d at abyte; 
devst ate ;=devstate+l ; 
cindex :=cindex+l ; 

If cindex>=gdat a. numaxes then devstate:=8; 
end; 
8:begin ( keydata > 

case gdata. kcodes of 

0:; ( not supposed to be any data > 
l:begin ( is all ready ascii > 
St atbyte : =0; 

call (kbdisr hook ,5t atbyte, dat abyte, done); 
end; 
otherwise { key code data ) 
k .b : =databyte : 

keystate [k .col] :=k .up; ( record the state } 
if not k.up then 
begin 

5tatbvte:-0; databyTe:=mkeymap[k.col]; 
call (kbdisr hook, St atbyte, dat abyte, done); 
end; 
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121:C 


8 


end; 






122:C 


5 


end; 






123:C 


5 


end; 






124:C 
12S:S 
126:0 


2 


end; (mdatapiroc) 






I 


procedure mopsproc(op: loopdvrop) ; 






127:D 


2 


var 






128:D 


-4 2 


limit : irteger; 






129:D 


-8 2 


St atbyte ,datat yte : byte; 






130:0 


-9 2 


done : boolean; 






131:S 










132:0 


2 


procedure check (i:integer;d:5int) , 






133:C 


3 


begin 






134:C 


3 


cumdata[i] : =cumdat a[i]+d ; done:^false; 






135:C 


3 


if abs (cumdata [i] )>limit then 






136:C 


4 


begin 






137:C 


4 


done:=true; 






138:C 


4 


if ji=l) then 






139:C 


5 


begin 






140:C 


5 


5tatbyte:=hex('FF' ); ( normal) { x > 

if d>0 then databyte :=26S else databyte:=l; 






141:C 


5 






142:C 


5 


end 






143:C 


5 


else 






144 :C 


S 


begin 






145:C 


5 


5tatbyte:=hex('EF'); { shift ) < y > 

if d>0 then databyte:=l else databyte :=255; 






146:C 


5 






147:C 


5 


end; 






148:C 


4 


cumdataCi] :=0; 






149:C 


4 


end; 






150:C 


3 


end; { check ) 






151 :S 










152;C 


2 


begin { mopsproc; mouse ops } 
UilTH LOOPCONTROL" 00 <4/9/84 SFB) 






153;C 


2 






154:C 


3 


with loopdevicesLloopdevice] do 






155;C 


4 


ca:;e op of 






156:C 


S 


dat astart ing : dev5tate:=l; 






1S7:C 


5 


dat aended : 






1S8:C 


S 


begin 






159:C 


s 


if descrip. sizeie then limit : ^descrip. counts div 8 






160:C 


6 


else limit :=descrip-counts div 800; 






161:C 


5 


check(l ,gdata.xdata) ; 






162:C 


5 


if done then 






163:C 


6 


begin cal l(rpg is rhook,statbyte, databyte, done) ; 






164:C 


S 


gdata .ydata:=0; 






165:C 


6 


end 






ies:c 


6 


else 






167:C 


6 


begin 






168:C 


6 


check(2, gdata. ydata); 






169:C 


6 


if done then 






170:C 


7 


begin call (rpgi5rhook,staTbyte, databyte, done); 






171 :C 


7 


gdata .xdata : -0 : 






172:C 


7 


end; 






173:C 


6 


end; 






174;C 


5 


end; 






175:C 


S 


resetdevice: doreset; 






176:C 


5 


end; 






177:C 


2 


end; < mopsproc) 






178:0 


-34 1 








179:0 


1 


function initmouse ; boolean; 






180;C 


2 


begin 
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181:C 


2 


if (kbdtype=itfkbd) and (driver=nil) then 






182:C 


3 


begin 






183:C 


3 


rew[driver) ; 
wit h driver do 






184:C 


3 






185:C 


4 


begin < initialize driver log in record ) 
lowid:=96; { all relative pointers ) 
highio:=n7; 






186:C 


4 






187:C 


4 






188:C 


4 


daddr:=0: ( any device address ) 






189:C 


4 


opsproc :=mopsproc; < set procedure vars ) 






190:C 


4 


dataproc:=mdataproc; 






191:C 


4 


next : =loopdriver list ; { add to driver list ) 






192:C 


4 


loo pd rive rlist:=driver; 






193:C 


4 


:if toOPCONTROL'.loopisok (;4/9/84 SFB) 
then CBLL(HPHILCf10HOOK,CONFISUREOP); {4/9/84 SFB) 






194:C 


3 






19S:C 


4 






196:C 


3 


initmouse: = trLje; 






197:C 


3 


end 






198:C 


3 


else initmouse:=false; 






199:C 


2 


end; < initloop ) 






200:S 










201 :C 


1 


end; < mouse interface module ) 






202:S 










203:D 


1 


import mouse, loader; 






204 :S 










205 :C 


1 


begin 






206 :C 


1 


if initmouse then markuser; 






207 ;C 


1 


end. 






208 :S 










209:3 










No errors. 


•Jo warnings. 

***** Nonstandard language features enabled ***** 
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NONUSKBD1 



Description 

NONUSKBDl provides initialization for handling 98203 non-U. S.-language keyboards, and handles 
all Katakana keyboards. 



Requirements 

SYSDEVS, MISC, SYSGLOBALS, and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1:S (» 

2:S 

3:S (c) Copyright Hewlett-Packard Company, 1984. 

4:S fill rights are reserved. Copying or other 

5:S reproduction of this program except for archival 

6:5 purposes is prohibited without the prior 

7:S written consent of Hewlett-Packard Company. 

8:S 

9'S 
10:S RESTRICTED RIGHTS LEGEND 

11 :S 

12:S Use, duplication, or disclosure by the Government 

13:S is subject to restrictions as set forth in 

14:S paragraph (b) (3) (6) of the Rights in Technical 

15:S Data and Computer Software clause in 

16 :S DOR 7-104.9 (a) . 

17:S 

18:S HEl.LETT-pflCKflRD COtlPflNY 

19:D Fort Collins, Colorado *) 

20:S 

21 ;D $3VSPR0G$ 

22 :D $heap_dispose off$ 

23:D Siocheck off$ 

24;D Irange offj lovflcheck offi 

25:0 tdebug off$ 

26:D Sstackcheck off$ 

27:0 program NONUSIINIT; 
28:S 

29:0 1 module NON US KBDl; 
30:S 

31:0 1 import sysdevs ,misc ; 

32:0 1 export 

33:0 1 function initlang ;boolean: 
34 :S 

35:0 1 implement 
36:S 

37:0 1 procedure katakanat rans ; 

38:0 2 label 1; 

39:0 2 ( katakana language keycode->character code translations ) 
40:S 

41:C 2 begin {katakanat rans) 

42:C 2 If langcom. status=0 then langcom. result :=alpha key 

43:C 3 else 

44:C 3 if langcom.dat a>127 then langcom. result :=ignored key 

45:C 4 else 

46:C 4 with langcom, langt able [0]", keytable [dat a] do 

47;C S begin 

48:C 5 result := keyclass; 

49:C 5 if ( result=ignored_key) and not kbdaltlock then goto 1; 
50 :S 

51:C 5 if (data=18) or (data^l9) then { change to/from alternate > 

52:C 6 begin result : =ignored key; kbdalt lock := (dat a=18 ; end 

53:C 6 else 

54 :C 6 if control and (kbdtype<>ITFkBD) and 

5S:C 7 lldata=96) or (data=97)) then < change to/from alternate > 

56:C 7 begin result : =ignored_key; kbdalt lock := (data=96) ; end 

67:C 7 else 

S8:C 7 if kbdaltlock then 

59:C 8 begin { use alternate language ) 

60:C 8 langindex : = l-langindex; extension : = false ; 
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8 call[langtable[langindexj''. semant ics) ; 

8 langindex :-l-langindex; 

8 end 

8 else 

8 if result<>ignored_key then 

9 begin { normal processing ) 
9 extension := false; 

9 shift:= shift and not no_shift: 

9 key := keys[3hift]; 

9 end; 

5 end; < with langcom etc. ) 

2 l:end; (kat akanat rans) 

1 function initlang iboolean; 

2 type 

2 tl * packed array [boolean, 60.. 98] of char; 

2 t2 = packed array [FRENCH_KBD. .KflTnKflNfi_KBDJ of tl; 

2 const 

2 keylookup * t2[ 

2 (french) 

2 tl ['0. ,-H23-456«789/E()"1234567890'"»170«200'S'»197t203', .-', 

2 '0. ri23MS69789\<[)>l"»$)i+/()=?'»171#181'»'#201»179' ;:_'], 

2 ' ■ 

2 
2 

2 ( Swedish/finish > 

/E(ri 
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[Re 


61 


:C 


62 


:C 


63 


:C 


64 


:C 


65 


:C 


66 


:C 


67 


■c 


68 


C 


69 


C 


70 


C 


71 


C 


72 


C 


73 


s 


74 





75 





76 


D 


77 





78 


s 


79 





80 


D 


81 


D 


82 


D 


83 


D 


84 


D 


85 





86 


D 


87 





88 





89 





90 





91 





92 


D 


93 


D 


94 





95 


D 


96 


D 


97 


D 


98 


D 


99 





100 


D 


101 


D 


102 


D 


103 


D 


104 





105 





106 


D 


107 





108 





109 


D 


110 





HI 


D 


112 





113 





114 


C 


115 


C 


116 


C 


117 


C 


118 


c 


119 


c 


120 


c 



( german ) 
tl['0., + 123-456»789/En"1234567890'«222"' •»207'* ' (I206»204' , .••', 
'0.|~123'#179;4563789\<[]>! "#JKS/()=?" ' «219'«'«218#216' ; ;_' ] , 



2 tl ['0.,-H23-4S6«789/E() "1234567890* ■«197«212#207#206t204', .-', 

2 ' 0. ri 23 ■ ■4569789\<t]>l "»$)!«/ ()=?'»220«208#219«21 8*218' ;:_'], 

2 ( Spanish ) 

2 tl ['0.,-H23-4S6«789/E()"12345e7890*'«168«179'i'#183'», .-', 

2 '0. I ♦123 "45e»789\< []>:"' »18S'$X&'»184' () = ?/() 'tUZ '3; :_"] , 

2 < katakana ) 

2 tU 

2 '0. .•123-456»789/E()"'*199#204*177»179»180»181»212»213»214(t220»20e»205«209#219#218»185»200»21 7*210, 

2 '0. .♦123-456»789/' | \--'»199«204»l 67»169»170»17 1*1 72»173«1 74*166*1 76#205#222*223*218»185»164»1 6 1*165) 

2 ]; < KflTfiKflNfi TflBLE IS NIMITZ BfiSED flS IN 2.x - HODS LATER IN CODE ) 

2 < end of keylookup ) 

2 type 

2 k2 - packed array [100.. 125] of 0..25S; 

2 bytealphabet type = packed array [boolean] of k2; 

2 

2 const 



2 yencode=92; 

2 kanaalphabet - bytealphabet type 

2 [k2( 215,190,201,216,192,195,178,189,182,221,197,198, 



2 193,196,188,202,183,184,207,211,184,187,191,203 

2 186,208 ], 

2 k2[ 215,190,201,216,192,195,168,189,182,221,197,198, 

2 193,196,188,202,183,184,207,211,175,187,191,203, 

2 186,208)]; 

2 var 

2 i : -32768. .32767; 

2 begin 

2 If [kbdlang=katakana kbd) or 

3 ( ( (kbdtype=largek&d) or (kbdtype=smallkbd ) ) and 

3 I (kbdlang>=f rench kbd) and (kbdlang<=spanish_kbd) ) ) and 

3 ( langt able [0}<>nil) ri f.Qn 

3 if ( langt able [0]'\ l3ngcode=us_kbd) then 
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begin 

initlang := true: 
with langtable[01" do 
begin 

extend char keys don't exist on non ITF keyboards > 
and katakana wants pass thru mode > 
transmode := kpass_extc: 
langcode := kbdlang; 

if kbdjang=katakana_kbd then ( S/14/84 RQ/SFB> 
begin 

If langtable [l]=nil then new( langt able [1 ] ) ; 

langtable [l]^:=langtable[0]"; < copy the us table > 
end; 

for i:=60 to 98 do ( nOVED 5/14/84 RQ/SFB> 
begin < special alpha loading ) 

Re ytable[il. keys [false] :=keyJco^up[kbdlan9, false, i]; 

keytableii]. keys [t rue] ;= ^eylookup [kbdlang, t rue, l]; 
end; 
keytable[99] .keys[false] :=' '; keytable [99] . keys [t rue] := ' '; 

if kbdlang=katakana_kbd then 
begin 

semantics := katakanat rans; 

can_nonadv:= false; 

for i:=100 to 125 do 

begin { load alpha keys > 

keytable[i] .keys [false] :=chr(Kanaalphabet [false,!] ) ; 
keytableii] .keysitrue] :-chr(Kanaalphabet [true, l] ) ; 

end; 

keytable[24] , keyclass : =ignored_key; ( ignore capslock key > 

if kbdtype=ITFkbd then 

begin < changes to keys 1, 2, 92 and 93 ) 
keyt able [1] -keys [false] :=«219; 
keyt able [1] .keys [true] :=»176; 
keytable[2] . keys [false] : =#2C9; 
keyt able [2] .keys [true] :.tl63; 
keytable[92] .keys[falsel :=»222; 
keytable[92] .keys[true] :"«222; 
keytable[93] .keys[fal5e] :=»223; 
keyt able [93] .keys [true] :»»162; 
end; 

IF (KBDTVPE = SMRLLKBD) OR (kBDTyPE = LfiRGEKBO) THEN ( RQ/SFB 5/11/84 ) 
WITH LfiNGTftBLEtll" DO 
BEGIN 
KEYTRBLE[92] .KEYSETRUE] := '\'; 
k:EYTfiBLE[93] .KEYS[TRUE] ;= 'I'; 
END; 
for i:=0 to 127 do keyt able [3 ] . no_cap5lock :=t rue; 
end; 

case kbdlang of 
german_kbd, swedi5h_kbd : 
begin 

keytable[92] . no_capslock :=f al^e; 

keytable[94] . no_capslock : =f alse; 

keytable[95] . no_capslock : -false; 
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181 :C 6 if kbdlang=german kbd then 

182:C 7 begin 

183:C 7 Iteytable[120] :=keytable[109]; <z<=y> 

184:C 7 keytable[109] .keysLfalse] :='z' ; keytable [109] .keys [t rue ]:='Z'; 

185:C 7 end 

186:C 7 else 

187:C 7 begin ( 5wedi5h_kbd ) 

188:C 7 feeytable[91] .no_c3p5lock:=fal5e; 

189:C 7 keytable[93] .no capslock:=f.ilse; 

190:C 7 end; 

191:C 6 end; 

192:C 6 5pani5h_kbd: BEGIN < 5/10/84 SFB ) 

193:C 6 keytable[94] .no capslock:=fal5e; 

194:C 6 KEYTflBLE[91] .KEVCLnSS:-NONR HLPHB KEY; ( 6/11/84 SFB > 

135:C $ END; 

19e:C 6 FRENCH KBD : KEYTfiBLE(91 ] .KEYCLfiSS :«NONfiDV_KEV; ( 5/11/84 SFB > 

197:C 6 otherwise 

198:C 6 end; ( case ) 

199:C 5 langindex:=0; 

200:C 5 kbdcapslock:=true; kbdaltlock ;= (kbdlang=katakana kbd): 

201:C S end; ( with langt abietO]" > 

202 :S 

203:C 4 end < if my kind of keyboard ) 

204:C 4 else initlang :=f alse; 

20S:C 2 end; (initlang) 

206 :S 

207 :C 1 end; < module nonitflang > 

208:S 

209:0 1 import NON US KBDl, loader; 

210:S 

211:C 1 begin 

212:C 1 If initlang then markuser; 

213:C 1 end. 

214:S 

No errors. No warnings. 

«*»«* Nonstandard language features enabled **««« 
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121:C 


4 


122:C 


4 


123:C 


4 


124:C 


6 


12S:C 


5 


126:C 


6 


127:C 


5 


128:C 


5 


129:S 




130:C 


5 


131 :C 


6 


132:C 


6 


133:C 


6 


134:C 


6 


135:S 




136:0 


5 


137:C 


6 


138:C 


6 


139:C 


6 


140:C 


6 


141:C 


5 


142:S 




143:C 


6 


144:C 


6 


145:C 


6 


146:C 


6 


147:C 


6 


148:C 


7 


149:C 


7 


150:C 


7 


151:C 


7 


1S2:C 


6 


153:8 




1S4:C 


6 


155:C 


7 


156:C 


7 


157:C 


7 


158:C 


7 


159:C 


7 


160:0 


7 


161 :C 


7 


162:C 


7 


163:C 


7 


164:C 


7 


165 :C 


6 


166:0 


7 


167:C 


8 


1S8:C 


8 


169:C 


8 


170:C 


8 


171:C 


6 


172:C 


6 


173:S 




174:5 




175:C 


S 


176:C 


6 


177:C 


6 


178:C 


6 


179:C 


6 
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NONUSKBD2 



Description 

N0NUSKBD2 provides initialization for liandling HPHIL non-U. S.-language keyboards. 



Requirements 

SYSDEVS, MISC, SYSGLOBALS, and ASM. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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40 


D 
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47 
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File name; N0NUSKBD2 ** 



(c) Copyright Hewlett-Packard Company, 1984. 
flJl rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
wfitten consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
i; sJbject to restrictions as set forth in 
paragraph [b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
Dl^R 7-104, 9(a) . 

HEULETT-PftCKPlRD COMPRNY 
Fort Collins, Colorado *) 

$SYSPROG$ 

$heap_dispose offj 

Siocheck off$ 

Irange off$ lovflcheck off$ 

Idebug off$ 

jstacKCheck off$ 

program N0N_US_KBD2INIT ; 

1 import sysdevs,mi5c; 

type 

tl = packed array[boolean . 80. .98] of char; 

t2 = packed a r r ay [fin ish_kbd .. Swedish kbd] of tl; 

t3 = packed array[boolean, 1..2] of cKar; 

t4 = packed array[f inish_kbd . . swedish_kbd] of t3; 

const 

lowkeys = t4[ 

{finish) 
(belgian) 
(Canadian eng> 
{Canadian fr ) 
(norweqian) 
fdanisn) 
(dutch) 
( sy-iss or } 
{Swiss fr) 
{ spanish_eur ) 



t3['<" 

t3['$<' 
t3[']$' 
t3[']^' 
t3['«?' 
t3['<0' 
t3['(a5' 

t3['=$'. , ., 
t3['=$','3-'] , 



'[»■), 
■>.■] 

'='»190(f)], 

■3;'), 



{Spanish lat) 
< ABOVE TFSLSE, 



t3i'<S';'>5'] 

t3['-9','58'] , 

1] CHANGED TO '" ' 

1] CHfiNGED TO '5' 



< ABOVE [TRUE 

< ABOVE [FALSE, 2] CHANGED TO 
<uk) t3['~<','- 
{Italian) t3['<*', 
(Trench) t3t'$<', 
igerman) 13 [ '<; ' , 
(Swedish) t3['<"' 



5/8/84 SFB ) 
5/8/84 SFB ) 
5/10/84 SFB ) 



'], 
■1, 



specials =t2[ 



seal [Rev 


3. on 


61:Ci 




62 :D 




63 :D 




64 :D 




65 :D 




86 :D 




67:0 




68 :D 




69:0 




70:D 




71:D 




72 :D 




73 :E 




74:D 




75:C 




76:C 




77:C 




78:D 




79:D 




80:D 




81:0 




82:D 




83:D 




84:0 




85:0 




86:0 




87:0 




88:0 




89:0 




90:0 




91:0 




92:0 




93:0 




94:0 




95:0 




96:0 




97:0 




98:0 




99:0 




100:0 




101 :D 




102:0 




103:0 




104:0 




10S:D 




108:0 




107:0 




108:D 




109:0 




110:0 




111 :D 




112:0 




113:0 




114:0 




115:0 




116:0 




117:0 




118:0 




119:0 




120:0 
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(finish) 
(belgian) 
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>\'l, 



tU'1234S67880*ET0NL, .-', 

■!"#$>4S/()-?\P[ZX;: •), 
tl['SE""! = I16Hj-»~mK;T=', 
'1234S678903 *«nK./»' , 
( ABOVE [FALSE, 92] CHANGED TO '■*" 5/8/84 SFB ) 
(Canadian eng) tl [ ' I234667890-=«S : ) , .E' , 

'1 •/%K->S.*{) •*'#180' :''< 
( ABOVE (FALSE, 95] CHANGED TO 'V 5/8/84 SFB 
< ABOVE [FALSE, 92] CHANGED TO '•■ 6/9/84 SFB 
(Canadian fr ) tl ['1234567890-»»5: ) , .E' , ' 

■ ! Vt"?!,* ( ) +*'tl80' :>'<>\'], 
( ABOVE [FALSE, 95] CHANGED TO 'V S/8/84 SFB > 
( ABOVE [FALSE, 92] CHANGED TO '«■ 5/9/84 SFB ) 
(norwegian) tl [' 1234567890* (T»vy, .-', 

';"»$X8/[)=?)P-~RS::_'i, 
( ABOVE [FALSE, 91] CHANGED TO '(' 5/9/84 SFB > 
( ABOVE [TRUE, 91] CHfiNGED TO ' ) ' S/9/84 SFB > 
(danish) tl ['1234567890+ (T+(jV, .-' , 

'!"=$X8/(j=?)P-SR;:_'i, 
{ ABOVE [FALSE, 91] CHANGED TO ' ( ■ 5/9/84 SFB > 
( ABOVE [TRUE, 91] CHANGED TO 'j' 5/9/84 SFB ) 
(dutch) tie 1234567890/1 ♦<:(, .-', 

■!"«JXS ()"?\''>* ;*='], 
( ABOVE [TRUE. 89] CHANGED TO ■' ' " 5/8/84 SFB ) 
( ABOVE [FALSE, 95] CHANGED TO "(" 5/9/84 SFB > 
( ABOVE [TRUE, 89] CHANGED TO ")" 5/9/84 SFB > 
(swiss gr) tl['1234567890!*0+NL, .-', 

■ ■■5>!8/()=?)I(EH;:^'i, 



( ABOVE 

( ABOVE 

( ABOVE 

( ABOVE 



TRUE, 95] CHANGED TO 'H' 5/8/84 5FB 
TRUE, 93] CHANGED TO ' ( ' 5/9/84 SFB 
FALSE, 911 CHANGED TO '«■ S/9/84 SFB ) 
TRUE, 91] CHANGED TO ')' 5/9/84 SFB > 



(Swiss fr) tl['1234567890l«I+EH,.-' 

■■t"«5M/()'?)0(NL::_'j, 
( ABOVE [FALSE, 95] CHANGED TO >H' 5/8/84 SFB ) 
( ABOVE [TRUE, 93] CHANGED TO ' ( ' 5/9/84 SFB > 
{ ABOVE [FALSE, 91] CHANGED TO '»' 6/9/84 SFB ) 
( ABOVE [TRUE, 91] CHANGED TO ■ ) ' S/9/84 SFB > 
{spanlsh_eur) tl ['1234567890' ')3*7(, .-', 

'! ■9$X&/()=?8«»6*:: ■], 
( ABOVE (FALSE, 95] CHANGED TO '(' 5/8/84 SFB ) 
( ABOVE (FALSE, 91] CHANGED TO ' ) ' 5/9/84 SFB > 
(spanlsfi lat> tl ['I234567896-=C '7 ■ ./' , 

'!»»$X"&«() ■►♦"6:<>?'], 
( ABOVE (FALSE. 92] CHANGED TO 'C S/9/84 SFB > 
{ ABOVE [FALSE, 93] CHANGED TO ' " 5/10/84 SFB ) 
( ABOVE (TRUE, 93] CHANGED TO ■"■ 5/10/84 SFB ) 
(uk) tl [•1234567890*" []»\, .-', 

'!":SK8'!1=?/()*|;:_'], 
(italian) tl[':E"'( I»5H) -YSmK ; :J' , 

'l2345678903+=&nx./i'], 
( ABOVE (TRUE, 98] CHfiNGED TO 'I' 5/8/84 SFB > 
( ABOVE (FALSE, 87] CHANGED TO '«' 5/9/84 SFB > 
(french) t 1 [ ' 8E"' ' (= I ! SH ) -»-mK ; :- ' , 

'12345678903_*»nx./*'], 
( ABOVE [FALSE, 92] CHANGED TO '•' 5/9/84 SFB > 
(german) tl ['1234567890'" 'O+NL, .-' , 

'!"-$XS/(j"?M»ZX; : '), 
(Swedish) t 1 [ ' 1234567890+ETONL , .-' , 

■!-«JXS/()=?\P[ZX; :_') 
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c 


141 


c 
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c 
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144 


c 


145 


c 
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c 


147 


c 


148 


c 


149 


c 


150 


s 


ISl 


c 


152 


c 


153 


c 


164 


c 


155 


c 


156 


c 


157 


c 


158 


c 


159 


c 


160 


c 


161 


c 


162 


c 


163 


c 


164 


c 


165 


c 


166 


c 


167 


c 


168 


c 


169 


c 


170 


c 


171 


c 


172 


c 


173 


c 


174 


c 


175 


c 


176 


c 


177 


c 


178 


c 


179 


c 


180 


c 
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■I ]; 

1 procedure doinit; 

2 var 

-2 ;? i : -32768.. 32767; 

2 begin 

:>. if (kbdtype = ITFkbd) and 

3 (kbdlanq>=finish kbd) and (kbdlang<'^5wedish_kbd} and 
3 (Isngt able[0]<>fiTl) 

3 Then 

3 if (langt able [O]".langcode=us_kbd) then 

4 begin 

4 with langtable[OJ'' do 

!j begin 

E3 { extend char keys are extenstion bit } 

'> 1: ransmode :^kshift_extc; 

SJ langcode : = kbdlan9; 

( load special alpha keys > 



keytable [1] . keys 
keytableClj .keys 
I';eytablet2] .keys 
keytable[2] .keys 



false] : = low/key 5 [kbdlang, false, 1]; 
true]:=lowkeys[kbdlang,true,lj; 
false] :=lowkey5 [kbdlang,fal5e,2]; 
true] :=lowkey5[kbdlang,true,2] ; 



S) for i:=80 to 98 do 

fi with keyt able {i] do 

7 begin 

7 ke ys [false] :=specialb[kbdlang, false,!]; 

7 k€y5[true]:^special5[kbdlang,true,ij; 

7 end; 

S) case kbdlang of ( language fixups i 

i> finish_kbd,SUEDISH KBD: ( ADDED SUEDISH 5/10/84 SFB } 

f> for i: = 91 to 9^ do key:able [i] . no capslock : = fal5e; 

6 { CHANGED BOTTOM INDEX OF ABOVE L^OP TO 91 5/8/84 SFB ) 

(> italian_kbd,f rench_kbd,belgian_kbd: 

6 begin 

(' keytable [119] . no_capslock ; = t rue; 

6 keyt able [94] . no_capslock : =f alse; 

t { exchange z-w and f^<~,? } 

(■> key tablet 119] ,key5[fal5e] : = ',' ; keyt able[119] .keys [t rue] : = '?' ; 

6 keytable[105]:=keytable[120]:; < z<-w ) 

C> keyt able [ 1 20] -keys [false] : = 'w' : keyt able [120] . keys [t rue] : = 'UI' ; 

(> { ABOVE CHANGED TO V, 'U)' 5/S/84 SFB > 

6 if kbdlang<>italian_kbd then 

7 beqin{excharqea-q) 

7 keytable[104j :=keytable[112] ; { q<-a ) 

T key t able [1 12] .keys [false] :=='q'; key table [112] .keys [true] : = 'Q' ; 

7 { ABOVE CHANGED TO [1 12] . KEvS [TRUE] 5/8/84 SFB ) 

7 end 

7 ELSE 

7 KEYTABLE[87].KEVCLASS:=N0NA flLPHA_KEY; < 5/9/84 SFB > 

6 end; 

6 cdn_en9_kbd ,cdn_f r_kbd : 

6 begin 

& keytable [93] .no_capslock :=f alse; 

6 keytable [98]. no capslock :=fal5e; 

6 KEYTABLE[95] .KEVCLflSS:=NONP_ALPHfl_KEy; { 5/9/84 SFB > 

6 end; 

& norwegian_kbd,german_kbd,dani5h_kbd: { REMOVED SUEDISH 5/10/84 SFB > 

& began 
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181 :C 


6 


182:C 


6 
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6 


184:C 


6 


18S:C 


7 


186:C 


7 


187:C 


7 


188:C 


7 


189:: 


7 


190:C 


6 


191:C 


6 


192:C 


6 


193:C 


6 


194;C 


6 


19S;C 


6 


196:C 


6 


197:C 


6 


198:C 


6 


199:C 


8 


200 :C 


6 


201:C 


6 


202 :C 


6 


203 :C 


5 


204 :C 


5 


20S:C 


5 
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6 


207:C 


6 


208:C 


5 


209:C 


6 


210:C 


6 


211 :C 


S 


212:C 


6 


213:C 


6 


214:C 


5 


216:C 


6 


216:C 


5 


217;C 


6 


218:C 


S 


219;C 


6 


220:C 


6 


221:C 


S 


222:C 


6 


223:C 


5 


224 :C 


4 


225 ;C 


2 


226:C 


1 


227:C 


1 


228;C 


1 


229;S 
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keyt able [92] . no_cap slock :=f alse; 
keytable [94] . no^capslock : =f alse; 
keytable [95] . no_cap5lock :=f alse; 
If kbdlang=german_Kbd then 



begin { switch z-y ) 

Reytable[120] :"keytable[109] ; ( y<-z 

key table [109] .keys [false] ;«'r' : keytable [109] . keys [t rue] :-' Z' ; 



keytable[120]:-keytab]e[109] ; ( y<-z > 
keytable(109] .keys [false] ;«'r': keytabjo ui"!>j ■ 
< SBOVE CHSNGED TO [109] .KEYS [TRUE] S/8/84 SFB > 
end; 
end; 
swiss^gr kbd,5wi55_fr kbd: 
begin T switch z-y 7 

keytable[120] :=keytable[109]; < y<-z ) 

keytab le [109] .keys [false] := '2" : keyt able [109] .keys [t rue] :='Z' ; 
< ABOVE CHflNGED TO [109] .KEVS [TRUE j 5/8/84 SFB > 
KEYTftBLE[93] .KEVCLfiSS :=NONflOV_KEY 
end; 
uk kbd, dutch kbd:; { no changes ) 

spanish_latin_kbd,spani5h_eur_kbd: keytable [94] . no capslock :=f alse 
spanish_kbd, katakana_kbd : ; { not implemented here J 
otherwiise 
end; 

langindex -.-O; 

kbdcapslock :=true; kbdalt lock :=f alse; 

IF KBDLSNG IN < THESE noDS 5/9/84 SFB > 

[NORUEGIflN KBD, DANISH KBD, SWISS GR KBD,SUISS FR KBD] THEN 
KEyTBBLE[5l] .KEYCLPSS:=NONfiDV l?EV; ~ ~ 
IF KBDLflNG IN 
[NORUEGIflN KBD, DANISH KBD] THEN 
KEYTHBLE[53] .KEVCLSSS:=NONfl SLPHB KEY; 
IF KBDLSNG IN " ~ 

(DUTCH KBD, SPANISH EUR_KBD] THEN 
KEYTH5LE[95].KEYCrASS:=N0NRDV KEY; 
IF KBDLflNG = DUTCH tCBD THEN { 3. 01 BUG FIX 9/20/84 SFB ) 

KEYTABLE [921. KEYCLflSS:-NONfl ALPHA KEY; 
IF KBDLflNG - FRENCH KBD THEN < 3 . OT BUG FIK 9/20/84 SFB ) 

KEYTABLE [92 ].KEYcrBSS:=NONflDV KEY; 
IF KBDLANG IN 
[BELGIAN KBD, SPANISH LATIN KBD, CON ENG KBD.CDN FR K8D] THEN 
KEYTABLE[92] .KEYCLH5S:=N0RADV KEY; ~ ~ 

IF KBOLANG-SPANISH EUR KBD THEN 
KEYTABLE [91 ] . KEYCrflSST=NONfl_ALPHA KEY ; 
end; { with langtable [0]"^ > 
end; 
end; { doinit > 
begin 

doinit; { structure is to avoid global vars > 
end . 

No errors. No warnings. 

*»**« Nonstandard language features enabled ***** 
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PRINTER 



Description 

PRINTER is the transfer method (TM) for the system printer. 



Requirements 

lODECLARATIONS and whatever lOLIBRARY interface card driver that is applicable. 



(c) Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:S 

2:S 

3:S 

4:S 

5:S 

6:S 

7:S 

8:S 

9:S 

10:S 

11 :S 

12:S 

13:S 

14:S 

15;S 

16:S 

17:S 

18:S 

19:D 

20:S 

21:S 

22:D 

23:D 

24:D 

25:S 

2S:D 

27:S 
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(« 



«*« File name: PRINTER **« 



(f) Copyright Hewlett-Packard Company, 1984. 
flil rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

e, duplication, or disclosure by the Government 

subject to restrictions as set forth in 
ragraph (b) (3) (B) of the Rights in Technical 
ta and Computer Software clause in 
; 7-104. 9(a). 



LETT-PBCKRRD CCinPRNY 
t Collins, Colorado 



Smodcall 

Sdebug off, range off, ovflcheck off! 

$s1ackcheck off, iocheck off$ 

Ssearch ■ lOL IB :KERNEL ' , 'OSFS :SYSDEVS ' $ 



Pascal [Pev 3.0t1 6/ 4/84) PRINTER. TEXT 



26-Dec-84 21 :38:56 Page 2 
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28; 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36:D 

37:0 

38: 

39: 

40: 

41: 

42: 

43: 

44: 

46: 

46: 

47: 

48: 

49: 

50: 

Si: 

S2: 

S3:D 

64 :D 

66:S 

S6:D 

S7:D 

58:0 

59:S 

60:0 

61; 

62; 

63: 

64: 

65; 

66: 

67: 



;0 
;D 
:S 
;D 
;S 
:D 
:D 
;0 
69:0 
70:3 
71 :D 
72;D 
73:0 
74:0 
75:D 
76:0 
77:0 
78:0 
79:0 
80:0 
81:0 
82:S 



-13 
-14 
-16 
-16 
-20 
-24 
-26 
-70 
-71 
-76 



$p.ige$ 

Scopyright 'COPYRIGHT (C] 1984 BY HEULETT-PRCKPRD COMPHNY'S 



module prtdvr; 



-2 2 

-6 2 

-10 2 

-12 2 



import 

sysglobals , 

iodeclarat ions . 

asm, sysdevs, mini, misc, fs; 

export 

procedure prtio {fp; fibp; request 

implement <prtdvr) 

procedjre bep; 

begin write(bellchar) ; end; 

procedure prtio(fp; fibp; request; amrequestt ype; 



amrequest type : anyvar buffer; window; 

length, position: integer) 



anyvar buffer: window; 
length, position: integer); 



const 

ucl r_timeout__con5t 



repeating_timeout 
t imeouts_per_beep 



3^; 

64; 



SOC 

LflGbase 

TflGbase 



linefeed = chr (10) 
formfeed = chr[12) 
return = chr[13) 



25; <HPIB commands during unitclear) 

333; (timeout constant after initial timeout> 
40; (beep period in repeating timeout units) 

{selective device clear) 
(listen address group base) 
{talk address group base) 

{fiSCII linefeed) 
jfiSCII formfeed) 
{ASCII carriage return) 



select code: Type_isc; 

sc_tabTe_ent rypt r : "isc_table_t ype ; 

previous_cliar ptr: charptr; 
bus_address : &yte; 

channel_is_set up: boolean; 
wri t ing_previou5_char : boolean; 
previotjsly_t imed_out : boolean; 
T imeout_blanked : boolean; 
use r_spec^t imeout : integer; 
cur rent_tTmeout : integer; 
t imeout_^counter : short int: 
saved__lTne : 5tring[42]; 
line_needs_re5ioring : boolean; 
buf : charpt r ; 
5aved_echo : boolean; 



{ 3.0 bug 
< 4/12/84 

{ 5/9/84 ) 



fix 
> 



4/12/84 > 
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83:D -77 2 SpageS 

84 :S 

85:D 2 procedure reset card and confirm timeout; 

86:D 3 var - _ _ 

87:D -2 3 saved_escapecode : shortint; 

88 :D -6 3 s3ved_ioe_r5C : Integer ; 

89:0 -10 3 saved_ioe_re5uli : integer; 

90:C 3 begin{ re5et._card_and_conf i rm_t imeout ) 

91 :C 3 5aved_escapecode := escapecode; 

92 :C 3 saved__ioe_!JC :- ioe_isc; 

93:C 3 saved ioe result := ioe result; 

94 :C 3 try ~ ~ 

95:C 4 with sc table entry ptr^ do 

96:C 5 call (Tc_drv~pt r'^.Tod_init , io_tmp_ptr); 

97:C 4 recover 

98;C 4 if (escapecodeoioescapecode ) or ( ioe_i5c<>5elect_code) then 

99:C 5 escape(e5capecode) ; 

100 :C 3 ioe_isc:= saved_ioe sc; 

101:C 3 ioeresult:= !Javed_Toe_re5ult ; 

102 :C 3 if r5aved_escapecode<>ioescapecode ) or ( ioe_i5c<>5elect__code) then 

103:C 4 escape (sdived escapecode); 

104 :C 3 ifioe_result<>ioe timeout then 

10S:C 4 ioresc(2nodeviceT; 

106:C 3 end; (reset card and confirm timeout) 

107:S - - - 

108:0 2 procedure clear unit; 

109:0 3 procedure HPIffsdc; 

110:C 4 begin (HPIBsdc) 

111:C 4 with sc_t able_entry_pt r'^, io_drv ptr*, io_tmp_ptr'^ do 

1 12 :C 5 begin 

113:C 5 call i;iod_send. io tmp_ptr, '?'); 

114:C 5 timeout T= ucir tTmeout_const ; 

115:C 5 call(iod_5erd, Io_tmp_ptr, chr (LflGbase+bus address)); 

116:C 5 calU'iod send, io tmp ptr, chr(SOC)); 

117:C 5 end; (withy ' - ^'-^ > >>, 

118:C 4 end; (HPIBsdc) 

119:C 3 begin (clear unit) 

120:C 3 with sc_t a&le_ent ry_pt r'^ do 

121:C 4 if card type=^hpib card then 

122:C 5 try ~ 

123:C $ HPIBsdc; (first attempt) 

]24:C 6 recover 

125:C 6 begin 

126:C 6 reset card and confirm timeout; 

127:C 6 try ~ ~ ~ 

128:C 7 HPIBsdc; (second attempt) 

129:C 7 recover 

130:C 7 begin 

131 :C 7 reset_card_and_conf arm timeout; 

132:C 7 ioresc (z timeout ) ; 

133 :C 7 end; ( recover) 

134:C 6 end ( recover) 

13S:C 6 else 

136:C 5 try 

137:C 6 call(io drv ptr^.iod init, io tmp ptr); 

138:C 6 recover - -*^ - - _ k_h j , 

*39:C 6 if (escapecodeoioescapecode) or (ioe iscoselect code) then escape (escapecode) 

140:C 7 else ioresc (znodevice) ; ~ ~ ^ ^ v i 

141 :C 3 end; (clear unit) 
142:S 
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2 £page$ 
2 procedure wrtchar(character: char; las-r_char: boolean) ; 



143:D 


77 7 


144;S 




145:D 


2 


146:S 




147:0 


3 


148:D 


-1 3 


149:D 


-2 3 


150;S 




151 ;S 




152:D 


3 


153:D 


-1 4 


154 ;C 


4 


I5S;C 


4 


156;C 


5 


1S7:C 


5 


1S8:C 


5 


159:C 


5 


160:C 


5 


161:C 


4 


162:S 





hs_successf ully_init iated: boolean; 
previous_hs_completed : boolean; 



procedure restore_line; 
var dummyc:char; 
begin 

af line_needs_restoring then ( 4/12/84 ) 
begin 

Reybuffer"*'.echo: = saved_echo; 
keybufops (lt.display,dumnyc) ; 
line„needs_re storing :=false; 
end; 
end; 
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procedure inform^operator ; 
var Imst r : st ring[42] ; 
begin { info rm_opera tor ) 
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( 3.0 bug fix -- 4/12/84 > 



if not previoLJsly_t imed_out then 
begin 

t imeout__blanked := true; 

t imeout__cOLinter : = 0; 
end; 

if not line_need5_restoring then 
begin 

5aved_line := '* Printer timeout; fix or ': 

if intlevel=0 then 5aved_line :=5aved_line+'<stop> aborts *' 
else saved line:=saved Jine+ 'wait auto-abort* ' 
< 3.0 bug fix -- 4/12/ 

line_needs_restoring := true; 

if menust ate=m_none then saved_echo : = keybuf fer'".echo 
else saved_echo : = t rue; 

menustate := fri_none; { 4/12/84 > 

keybuffer^.echo :=false; 
end; 
if tirrieout_blanked then lm5tr:= saved_line 

else Imst r := ' ' : 
CALL (CRT LLHOOK,CLLDrSPLflY,LnSTR, ' ' ) ; 
t imeout_blanked := ( timeout_coiinter mod 4]<>0; 

if timeout__counter<=l then bep; 
t imeC'Ut_counter := t imeout_counter+l ; 
if t imeout_counter>=timeouts_per_beep then 
if intlevel=0 then t imeout_counte r := 
else 
begin 
bep; 

restore_l2ne; 
ioresc (zt imeout ) ; 
end; <else> 

nd ; < i n f rm_o pe r a t o r ) 
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9 
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254 :C 
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3 
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7 
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7 
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6 
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4 


262:C 


4 


263:C 


4 
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)); 



begin (wrtchar > 
try 

with 5C__table_ent ry_pt r"^, io_drv_pT r", io_tmp_ptr'^ do 
repeat ~ 

try 

previous h5_completed := false; 
if not cFannel_i5_set up then 
begin 

case card_type of 
hpib_ca rd : 
begin 

call ( iod_send, io_tmp_pt r , '?' ) ; 
previou5_hs_completed := t rue ; 
timeout := current^timeout ; 

calif iod_5end, io_tmp_pt r , chr (TflGbase+addressed) ) 
call ( iodise nd. io_tmp_pt r , chr [LflGbase+bu5_addres5^ / , 
end : (hpib^card) - - - 

seriaicard: 

if card id=hp98626 then (always set full duplex modem HS > 
call (Tod_wtc , io_tmp_pt r , 13, 1 ) ; 
otherwise 

<do nothing); 
end; {case} 

channel_is_5etup := true; 
end; (if) 
call ( iod_wtb, io_tmp_pt r, character); 
previous_char_pt r'' := character; 
timeout := current_timeout ; 
if la5t_char then 

if card type=hpib card then 
call (Tod_send, io_tmp ptr, '?'); 
if previously timed_out tHen 

if not writTng_previous_char then 
begin 

re5tore_line; 

cu r re rt__ timeout := use r_spec_1 imeout ; 
previously timed out := false; 
end; (if> 
h5_successf uJly_initiated := true ; 
recover 
begin 

re5et_card_and_confirm timeout; 
channel_is_setup := faTse; 
info rm_ope r a t o r ; 
prev:iou5ly_t imed_out := true; 
current t imeout := repeat ing_t imeout ; 

if not Xwiting_previous_char or previous_h5_compieted) then 
begin 

writing previous_char := true; 
wrtcharXprevious_char_pt r"^, false) ; 
writing_previou5_char : = false; 
end; <if> 
hs_successf ully_init iated :» false; 
end; { recover ) 
until hs_succes5fully_irit iated; 
recover 
begin 

restore_line; ( 4/12/84 ) 
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264 :C 
265:C 
266:C 



escape (esc ape code) ; 
end; (recover) 
end; <wrtchar> 
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267:0 
268:S 
269:C 

270 :C 

271 :C 
272:C 
273:C 
274 :C 
275:C 
276 :C 
277:C 
278:C 
279:S 

280 :C 

281 : 
282; 
283; 
284: 
285; 
286: 
287: 
288; 
289: 
290; 
291: 
292: 
293: 
294 ;C 
295:C 
296:C 
297:C 
298;C 
299:C 



300 
301: 
302; 
303: 
304: 
305; 
306; 
307; 
308; 
309; 
310; 
311; 
312; 
313; 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 



begin (prtio) 

ioresjlt ;= ord (Inoerror) ; 
with jnitable^Lfp^-funit] do 
begin 

select code := sc; 

sc_tabTe_ent ry pt r := addr ( isc^table [select_code] ) ; 
bjs_address := ba; 

previoijs_char_pt r := addr [dvrtemp) ; 

user_spec__t imeout ;= devid; {user-specified in CTfiBLE) 
end; <with> 

buf := addr (buffer) ; 

channel_is_5etup := false; 

cur rent_t imeout := user_spec_timeout ; 



( 5C5 1/17/83 > 



previously_timed_out 
writ ing_previou5_char 
line_needs_re storing 



false; 
= false; 
• false; < 4/12/84 > 

do 



with 5c_table_ert ry_pt r^, io_tmp_ptr'^ 
begin 

if card type=no_card then ioresc (znodevicej 
while (Tn bufptronil) or (out bufptronil) 
end; <wlth)~ 



do {nothing); 



case request of 
flush: 

{do nothing); 
clearunit : 

clear unit; 
writeeoT: 
begin 

wrtchar (return, false): 
wrtchar (linefeed, true) 
end; 
writebytes: 

while length>0 do 
begin 

wrtchar (buf^, length=l); 
buf := addr(buf", 1); 
length := length-l; 
end; 
otherwise 

iore5c(zbadmode) ; 
end; {case) 
recover 

if (escapecode=-20) and previously_timed_out then 

ioresult := ord(ztimeout ) 
else if escapftcodeo-10 then 
escape(escapecode) ; 

2 end; (prtio) 

1 end. (prtdvr) 



No errors. No warnings. 

»**«* Nonstandard language features enablec ***** 
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RS_DRV 



Description 

RS_DRV contains low-level I/O drivers. 



Usage 

RS_DRV is used for the 98626 interface (and the Model 216/217's built-in RS-232 interface). 



Requirements 

RS and the I/O library kernel (lODECLARATIONS, etc.) 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 :S (« 

2:S ' 

3:S (c) Copyright Hewlett-Packard Company, 1984. 

4:S fill rights are reserved. Copying or other 

5:S reprodjction of this program except for archival 

6:S purposes is prohibited without the prior 

7:S written consent of Hewlett-Packard Company. 
8:S 

9 ;S 

10 :S RESTRICTED RIGHTS LEGEND 

11:S 

12:S Use, duplication, or disclosure by the Government 

13:S is subject to restrictions as set forth in 

14:S paragraph (b) (3) ( B ) of the Rights in Technical 

15:S Data and Computer software clause in 

16:S DflR 7-104. 9(a). 

17:S 

18 :S HEULETT-PfiCKBRD COMPfiNY 

19:D Fort Collins, Colorado *] 

20:S 

21:S 

22:D SSEflRCH ' lOLIB :KERNEL .CODE' J 

23 : S 

24 :D SCOPyRIGHT 'COPYRIGHT (C) 1984 BY HEULETT-PPCKfiRO COflPfiNV'S 

25 :D SnODCflL 0N$ 

26:D SPflRIIfiL EVfiL 0N$ 

27 :D SSTBCKCHCCK 0N$ 

28:0 SRfiNGE OFFI 

29:0 SDEBUG OFFS 

30:0 C SOVFLCHECK OFF$ 
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31 :D $PfiGF$ 

32:S 

33:0 («*****«*******«*»*****«****««*****«*****«««««»*«**#«#*«********«*»»«**« 

34:0 « 

35:0 (» NOT RELEflSEO VERSION 3.0 

36:0 (» 

37:0 (***•********»**«*********«*««««***«**««**«**«««*»«*««*«****#**#«*«)♦*#«* 

38:0 (» 

39:0 (• 

40:0 « lOLIB RS DRIVERS 

41:0 

42:D 

43 :D (***»**********««««»»*««»»««««««*»****«**«**♦*«««»*****«**«**»»»*«*»«»:«»» 

44:0 (« 

45:0 « 

46:0 » library - lOLIB 

47:0 (« name - RS DRIVERS 

48:0 (• module(s) - inlt rs 

49:0 (« - rs " 

50:0 (« 

51:0 (» date - 6 August 1982 

62:0 • update - 5 March 1984 

53:0 (* release - ?'?7->'?'?'?'?-?-???'?-?9'?'? 

54:0 (« 

65:0 (» source - IOLIB:RS DRV. TEXT 

56:0 (» object - IOLIB:RS DRV. CODE 

57:0 (« 

58:0 i***********»**»****************t****tMii********»»»*»tt*x*****tt****t****^ 
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******************** t**********] 

Find 98644 cards 



S9:D 


$ PAGES 


60:0 





«x«»iK»x»««x«»«*»*«*ar»»«y»»s«x»x««»XK«K«yy 


6l:D 





^ 


62:0 





DC 


63:0 





» BUG FIX HISTORY 


64:0 





* 


65:0 







* iws 10 init rs 


66:0 





» 3/5/84 


67:D 





* 


68:0 





» 


69:0 





* 


70:0 





» 


71:0 





* 


72:0 





* 


73:0 





X 


74:0 





» 


75:0 





* 


76:0 





» 


77:0 





» 


78:0 





* 


79:0 





XXX*IK»»**«»»«;*XS««K»»X«»«*X»»«»» «»«*««««* 



*t**t******».**********KX*** 
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80:D SPflGEI 

81:0 [**«>t***x««**x******«**x**»»***:«x«»«*«*»«««*«x«» «««««« ««»»»«««««»« ««xii:»«« ) 

82:D (« 

83:D « 

84:D (* This is the source code for an e>;ternal procedures library 

8S:D (* to be used for general purpose interfacing on the HP 9826. 

86;D * 

87:D (« The library consists of 3 primary sets of modules - 

88:D (« 

89:D (* 1. KERNEL modules 

90:D (♦ 2. driver modules 

91:D (* 3. lOLIB modules 

92:D (* 

93:D (* The KERNEL modules consist of the following modules - 

94:D * 

95 ;D Oi* 1. iodeclarations (containsstaticr/w space) 

9$:D I* 2. locomasm 

97:D * 3. general„0 ( initialization & low level 

98:D (* routines like ioread/iowrite) 

99:D I* The KERNEL modules also have an executable program segement 

100:D 1* that gets executed at the time it is loaded. This program 

101:D (« initializes the static read/write memory. This program also 

102:D (« allocates the temporary storage for any card that exists - 

103:D I* independent of whether there is or is not a driver for it. 

104:D * 

105;D {* The driver modules consist of the actual assembly or PflSCfiL 

106;D (* routines that deal with a specific interface card. There Is 

107:D (« also an executable program segment for each driver module. 

J08:D (* This program searches the select code table in the static r/w 

109:D (« initialized by the KERNEL general module for all select codes 

110:D (* that have the right interface car3 ( HPIB drivers will search 

111;D (* for the 98624 interface ). This program will then set up the 

112:D (* driver tables to point to the correct drivers. 

113:D (« 

114:0 (* The rest of the lOLIB modules are high-level modules that are 

115;D (* used by an end user in his/her application program. 

116:D (« 

117:D f* The KERNEL and some set of driver modules will exist in the 

118:D j* INITLIB file as object code ( not EXPORT text ). The 

119:D {* export text will reside on the 10 file. The rest 

120:D (* of the library will reside on the 10 file. 

121 :D i* 

122:D [*««»«*««««****»«««»«*«»««««***«x«**»»*««*x«*«*******«**»*»»«***«*««»****} 
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123:D $PBGE$ 

124 :D («»««*««x««x»»*«^iii«**»»xx«x««««»»«w»«x»x«»x««x»««*x**««»«««»****a:x**««« 

125:0 (« 

12S:D (• 

127:D (« REFERENCES : 

128:D (« 

129:D (» 

130:0 « 1. 9826 I/O Designers Guide ( ) 

131:0 (• 

132:0 (• 2. 68000 Manual ( notorola ) 

133:0 (» 

134:0 (* 3. Pascal Language System Users Manual ( ) 

13S:D (» 

136:D (« 4. Pascal Procdure Library Users Manual ( -- ) 

137:D (» 

138:D (« 5. 9826 card documentation ( ) 

139:D (« »l 

140:D (« 6. Pascal I/O Library IRS I 1 •) 

141:D (« " ' . 

142:D (« 7. 98626H ERS ( ) «) 

143:D (« » 

144:0 (« « 

145 :D l****************»*********M***********t*****»**********»*x***«»*********) 

146:S 

147:D PROGRflM rs_initialize ( INPUT , OUTPUT |; 
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148:0 

149:0 

150:0 

151 :0 

152:0 

153:0 

154:0 

155:0 

156:0 

157:S 

158:S 

159:S 

160:S 

161:S 

162:5 

163:" 

164: 

165: 

166: 

167: 

16 

16 

170: 

171: 

172: 

173: 

174: 

175: 

176:0 

177:0 

178:0 

179:0 

180:0 

181:0 

182:0 

183:3 

184:S 

18S:S 

186:S 

187:0 



$PfiGE$ 



*t *************** *****t********»*lf*****H*n*THL***Tlt**t. 



RS-232 CARD DRIVERS 



(************************************************************************ 
EXTERNAL MODULE rs; 

( update 2/14/83 

purpose This module is a declaration of the importation text for 
the external drivers. 

note The assembly language code that is imported needs to be 
called 'rs'. The routines need to be called 
' r5_P^^^W 
1 > 

1 IMPORT sysglobals,, iodeclarat ions ; 

1 EXPORT 



PROCEDURE rs init 

PROCEDURE rs isr 

PROCEDURE rs rdb 

PROCEDURE rs wtb 

PROCEDURE rs rdw 

PROCEDURE rs~wtw 

PROCEDURE r5_rds 

PROCEDURE rs_wtc 

PROCEDURE rs tfr 



temp 
temp 
temp 
temp 
temp 
temp 
temp 

( temp 

( temp 



flNYPTR 
PISRIB 
BNVPTR 
BNVPTR 
BN/PTR 
BNVPTR 
flNYPTR 

flNYPTR 

flNYPTR 



VBR 
val 
VflR 
val 



reg 
val 



CHAR): 

CHAR); 

io„wordl ; 

io_word) ; 

io_word; 
: iojHord); 

io_word; 
: io word ) ; 

flNYPTR ) ■ 



1 ENO; < of rs ) 
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188:D 

189:D 

t90:S 

191:S 

I92:S 

193:S 

194:D 

19S:S 

19 

197: 

198: 

19 

200: 

201: 

202: 

203: 

204: 

20S: 

206: 

207: 

208: 

209: 

210: 

211: 

212: 

213: 

214: 

215: 

216: 

217: 

218: 

219: 

220: 

221: 

222: 

223: 

224: 

225: 

226: 

227: 

228: 

229; 

230: 

231: 

232: 

233: 

234: 

235: 

236; 

237: 

238; 

239: 

240: 

241; 

242; 

243: 

244: 

245: 

246; 

247; 



1 SPflGES 

1 MODULE init_r5; 

( update 3/5/84 jws 



purpose This module initializes the RS 232 drivers. 



1 IMPORT iodeclarations ; 

1 EXPORT 

1 VRR 

-120 1 r5_drivers : drv_table_t ype ; 

-120 1 PROCEDURE io init rs: 



-120 1 IMPLEriENT 



-120 1 IMPORT sysglobals 

-120 1 isr , 

-120 1 general , 

-120 1 rs : ~ 



PROCEDURE io_init rs; 
VflR 



10_i5C 

durrmyword 
io Ivl 
BEGIR 



t ype_isc ; 

io_word; 

io_byte; 



io_revid ;= io_revid + ' R3.0' 

{ set up the driver tables > 

UITH rs_driver5 DO BEGIN 

~ = dummy_driver5 
r5_anit ; 
rs_isr ; 
rs_rdb; 
rs_wtb; 
rs_rdw; 
r5_wtw; 
rs_rds; 
rs_wtc; 
rs tfr; 



{vers number changed JS 8/3/83 > 



rs drivers 

io3_init 

iod_isr 

iod_rdb 

iod_wtb 

iod_rdw 

iod_wtw 

iod_rds 

iod_wtc 

iod tfr 



END; T of UIITH ) 



< set up drivers for the interfaces } 

FOR io_isc : =iominisc TO iomaxisc DO 
UITH ibc_tabIetio_i5c] DO BEGIN 

IF (card_id » hp9862S) or (card__id=hp98644 ) 



{ iws 3/5/84 > 
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3. on 


248 :C 


5 


249 ;S 




2S0:C 


5 


251:S 




2S2:C 


5 


253;C 


5 


254 :S 




255 :C 


5 


256 :C 


5 


257 :C 


6 


258 ;C 


6 


259 :C 


6 


260 :C 


6 


261 :C 


6 


262:3 




263:C 


5 


264:0 


5 


265:C 


5 


266:0 


5 


267 :C 


5 


268:C 


5 


269:0 


5 


270:8 




271:0 


4 


272;S 




273:3 




274 :C 


2 


275:3 




276:C 


2 


277 :C 


3 


278:C 


4 


279:C 


6 


280:3 




281:C 


6 


282:3 




283:C 


S 


284:3 




285 :S 




286:C 


2 


287 ;S 




288 :C 


1 
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4/84] RS_DRV.TEXT 

THEN BEGIN 

io_drv_pt r ;=flDDR ( rs_drivers; : 

{ if the card exists then link in an ISR for it > 
< ??? - what happens if an ISR fires during init ) 

io_lvl:=( (ioread_byte(lo isc.S) DIV 16) MOD 4)»3; 
IF io tmp ptr^.myisrib.lRTREGfiDDR <> NIL 
THER BESIN 



*** File name: RS DRV *** 



{ if isr exists then unJtink it > 
ISRUNLINK(io_Jvl , 

ftDDR(io tmp pt r^'.myiisrib) ) ; 
END; ( of IF 7 

PERMISRLINKlio dry ptr'.lod isr, 

flNYPTRTlNTFGER(card"ptr *3), 
192, 
192, 
io Ivl, 

flD[!R(io tmp ptr".myisrib)); 
END; < of IF card_type - hp98626 ) 

END; < of FOR io_isc UITH i5c_t able [io_i5C] BEGIN > 

< call the actual driver initialization ) 

FOR io isc: =iominisc TO iomaxisc DO 
UITH i5c_table[io isc) DO 

IF (card id ■ hp9?626) OR (card_id = hp98644) 
THEN BFGIN 

CflLL( io_drv_pt r'^. iod_init , io_tmp_ptr ); 

END; < of UITH IF ) 

END; ( of io_init_r5 ) 
1 END; < of MODULE init_rs > 



level 
isrib info 



f isr 

{ card address 

: intr. mask 

( int r . value 

< level 

( isrib info 



< jws 3/5/84 > 
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V 3 


on 


6/ 4/843 rs_drv.te;xt 


289:D 




1 


SPBGES 


290:S 








291:0 




1 


IMPORT init rs , 


292:0 




1 


LOflDFR ; 


293:S 








294:S 








295:C 




1 


BEGIN 


296:C 




1 


io init rs; 


297 :C 




1 


nfllfKUSEff; 


298 :C 




1 


END . < of rs_jnltiaUze ) 


No errors. 


No 


warnings. 
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SEGMENTER 



Description 

SEGMENTER provides for the loading, calling, and unloading of code segments. 



Requirements 

LOADER, SYSGLOBALS, ASM, LDR, MISC, and FS. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1;D 




SmodcalS 




2:3 








3:1) 




( SEGHENTER module -- ) 




4:D 




1 




5:D 




° i ) 




6:D 




° 




7:0 









8:D 




° 




9:D 




) 




10:D 




° ( > 




11:1) 




( > 




12:D 




< ) 




13:1) 




° i } 




14:D 




( > 




15:;; 








16:D 
17:S 
18:0 




module segmenter; 






1 import loader, loir, sysglobals, niSC; < JUS 5/24/83 ) 




19:3 








20:0 




1 export 




21 :0 




1 type segmem_proc = procedure- 
1 proc_name = 5tring[120]; 




22:0 
23:3 
24:0 








1 procedure init__5egmenter (anyvar lowcode, highcode, 




25 :D 




2 lowglobal, highglobal: byte); 




26 :S 








27:D 




1 procedure load_,5egment [filename: fid); 




28 :D 




1 procedure load_heap_5egment (filename : fid); 




29:0 




1 procedure unloa'd_segment ; 
I procedure unload_all; 




30:0 






31:S 








32:0 




1 procedure call segment rfilename: fid); 




33:D 
34 :S 
35:0 




I procedure call_.segment_proc(filename: fid; symbol: proc_name); 






1 function find proc(5ymboI: proc name): segment proc; 




36:0 
37:5 
38:D 
39:S 
40:0 




1 function exi5ts_proc (p : segment_proc) : boolean; 






1 procedure segment_space(var code, global: integer); 






1 implement 




41:3 








42:0 




1 e;^ternal module asm; 




43:0 




1 e^^port 




44:0 




1 function allocate ( size : integer): anyptr; 




45 :P 




1 procedure newbytestvar p: anyptr; size: integer); 




46:D 




1 end; 




47:3 








48:0 




1 import asm; 




49:S 








50:0 




1 type proc = procedure; 




51 :S 








52:0 




1 trick_proc = record case boolean of 




53:0 




1 true: (p; proc); 




54:0 




1 false; (ep, si: integer]; 




55:0 




1 end; 




66:0 








57:0 




1 state ptr = "state rec; 




58:0 




1 name_ptr = ^proc_name; 




59:3 








60:0 




1 state_rec = record 
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*** 


61 :D 




1 savelist : state pt r ; 




62:0 




I restore heap: boolean; 




63:0 




1 saveheap: ''integer; 
1 saveglob, 




64:D 






65:D 




1 savecod: integer; 




66:D 




1 saveentry, 




67:D 




1 savedef: moddescptr; 




68:D 




1 saveflles: anyptr; 




69:0 




1 end; 




70:S 








71 :0 


-8 


1 var highglob, lowqlob: integer; 
1 lowcod, higncod: integer; 




72:D 


-16 




73:D 


-20 


1 segment list: state ptr; 




74 :S 








75:0 




1 procedure init segmenter (anyvar lowcode, highcode, 




76 :D 




2 lowglobal, highglobal: byte); 




77 :C 




2 begin 




78:C 




2 lowcod := integer (addr (lowcode) ) : 




79 :C 




2 highcod := integer (addr (highcode) ) ; 




80 :C 




2 if highcod < lowcod then begin 




81:C 




3 lowcod := integer{addr(highcode) ) ; 
3 highcod := integer (addr (lowcode) } ; 




82:C 






83 :C 




3 end: 




84 :C 




2 lowglob := integer (addr (lowglobal) ] : 
2 highglob := integer (addr (highglobal)) J 




85 :C 






86:C 




2 if highglob < lowglob then begin 

3 lowglob := integer (addr ( highglobal) ) ; 
3 highglob := integer ( addr (lowglobal) ) ; 




87 :C 






88:C 






89:C 




3 end; 




90:C 




2 if odd(lowcod) then lowcod ;= lowcod + 1: 




91:C 




2 if odd(lowglobl then lowglob := lowglob + 1; 
2 if odd(highcod) then highcod := higncod - 1; 




92:C 






93:C 




2 if odd(highglob) then highglob := highglob - 1; 




94 :C 




2 end; 




95:S 








9S:D 




1 procedure segment 5pace(var code, global; integer); 




97:C 




2 begin 




98 :C 




2 code := highcod - lowcod; 




99:C 




2 global := highglob - lowglob; 




100:C 




2 end; 




101:S 








102:C 
103:S 
104:0 




1 procedure no_proc; begin escape(120); end; 






1 function exists proc(p: segment proc): boolean; 




105:C 




2 begin 




106:C 




2 exists proc := not(p = no proc); 




107:C 




2 end; 




108:S 








109:D 


-122 


1 function find proc(symbol: proc name): segment proc; 




110:0 


-122 


2 var ~ 




111 :D 


-126 


2 modp: moddescptr; 




112:0 


-134 


2 ptr, valueptr: ad^rec; 




113:0 


-135 


2 found: boolean; i 




114:D 


-144 


2 proc_rec: t rick._p'roc ; 




11S:C 




2 begin 




1I6:C 




2 find proc := no proc; 




117:C 




2 founcT := false; 




118:C 
119:C 




2 modp :- sysdefs: 

2 wh:le (modponii) and not found do 
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3 with modp" do 
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begin 

ptr := defaddr; 

v-hile (pt r . a<defaddr . a+def size) and not found do 
begin 



found := pt r . syp^=5ymbol; 

pt r . a := pt r . a+st rlen ( pt r . syp'^j 
pt r . a := pt r . a*ord(odd (pt r . a) ) ; 
valuept r . a := pt r . a+2 ; 
if found Then with proc_rec do 
begin 
si := 0; 

ep ;= i/alueptr.vep". value; 
find_proc := p; 
end; 
pt r . a := pt r . a+pt r .gvp"^ . shor t ; 
end; {while} 
modp : = link ; 
end; {with modp'^} 



1; 



end; 

procedure save,_st ate (va 
begin with staTe do 
begin 

savelist 
mark (saveheap) ; 

saveheap 

saveglob 

savecod 

savedef 

saveent ry 

savefiles 



state : state_rec 
segment_list ; 



heapoff, codeoff: integer); 



= addr (saveheap' 

= highglob; 

= lowcod + codeoff; 

= sysdefsj 

= ent rypoint ; 

= openfileptr; 



^egment_list 
res tore_heap 

heapof f) ; 



end ; 
end ; 

procedure ijnload__5egment ; 

begin 

if segment_li5t = nil then escape(121) else 

with segmert_lisf do 

begin ~ 

segment_Hst := savelist: 

if restore_heap then release ( saveheap] 



openfilept r 



addr (state) 
t rue; 



anyptr(-l) ; 



highglob 
lowcod 
sysdef s 

ent rypoint 
openfilept r 



saveglob; 
= savecod; 
= savedef; 
= saveentry; 
= savefiles; 



end ; 
end ; 

procedure unload_3ll; 

begin 

while 5egment_list <> nil do unload_segment ; 

end ; 

procedure load_seg [var filename : fid; p: proc); 
var space: integer; 

modnum: integer; 

highheapO : addrec ; 

ESCTEHP: INTEGER; { :US 5/24/83 ) 

lOTEMP: INTEGER; { :US 5/24/83 ) 
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{ :"LJS 5/24/83 ) 

{guess as to required stack space) 



begin 

LOSOFIB.PHP;=NIL; 

try 

space := memavail - 3000; 

if space <= then escape(-2); 

mark ( lowheap .p) ; 

highheap.a := lowheap. a * space; release (highheap. p) ; 

highheapO := highheap; 

newmods ;= sysdefs; endmod := sysdefs; 

openlinkfile (filename) ; 

if fdirectory = nil then escape[-10); 

for modnum := 1 to fdirectory'^[0] .dnumf iles do 

begin loadinfo(modnijm, true, false); checkrev; end; 
allresolved := true; matchfile; 

if not allresolved then e5cape(119); 

highheap ; = highheapO; 

countcode; 



startglobal := highglob - aS; 
highglob : = highglob - totalglobal; 

if highglob < lowglob then e5cape(117), 
2eromem(anypT r (highglob), totalglobal); 



^(anypT r (highgl 
call(p); 
recover begin 

LOCKUP: 

ESCTEnP:=E3CRPEC0DE; 

IOTEhP:=I0RESULT; 

CLOSEFILES: 

IORESULT:=lOTEriP; 

unload segment ; 

LOCKDOON; 

e5cape[ESCTEnP) ; 

end; 




{ JUS 5/24/83 
( JUS 5/24/83 



end ; 

procedure relea5e_heap; 
begin with segment^lisf^ do 

begin 

release (saveheap) ; 

re5tore_heap := false; 

end; 
end ; 

procedure local(var filename: fid; p: proc); 
var state : siate_rec; 

procedure ioadproc; 

begin 

highheap.a := highheap.a - totalreloc; 

if highheap.a < lowheap. a then e5cape(-2); 

release(highheap.p) ; 

startreioc := integer (allocate(totalre;Loc)); 

loadtext (false) ; 
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3 highheap.a := haqhheap.a - totaldefs; 
* ■ ' . a -: JO ■ 



?4I 


r. 


1-4? 


i; 


■M-.t 


i: 


?44 


[; 


l'4b 


;: 


1'4K 


I 


^47 


i: 


■/AS 


■; 


>'49 


i: 


■/bl) 


: 


VSl 


; 


7S? 


■ 


?s:i 


:; 


/'S4 


s 


7SS 


1 


?SB 


s 


XS7 


1 


/•SU 


1 


XS9 


) 


?(iO 


i: 


?ei 


c 


?fi? 


i: 


?«:) 


i: 


l'B4 


i: 


^HS 


i; 


?BS 


i: 


?67 


t: 


?68 


c 
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c 


;'70 


c 


?71 


i: 
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i: 


■/TA 


s 


?74 


r. 


?75 


c 


■^75 


( 


,>77 


'i 


?7fi 


n 


?79 


n 


^«0 


i) 


^«1 
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7S? 


s 


?8-! 


c 


X84 


c 
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c 
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( 


?ft7 


r 
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s 
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li 
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I) 
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1 
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1 


?9b: 


( 


?9H: 


1 


?97: 


( 


Z9»: 


1 


X9H: 


: 


300: 


I 



3 if highheap.a < aowheap.a then e£cape(-2); 

3 reJeasethighheap.pJ: 

3 movedef5( integer (ail ocateftotaldefs)) ) ; 

3 release_heap; 

3 call(p); 

3 end; 

2 begin 

2 Sdve_state(state, 0,0]; 

2 load_5eg ( filename, loadproc) ; 

2 ur load segment ; 

2 erd; 

-122 I procedure call_5egment ( filename : f id] ; 

2 f'Tocedu re callit ; 

-8 3 var proc_rec: trick_proc; 
-12 3 modptr: moddescptr; 

3 begin 

3 modptr := entrypoint; 

3 w.hiie modptronil do with modptr'^ do 

5 begin 

5 if startaddr <> then with proc_rec do 

7 begin 

7 6l := 0; 

7 ep := startaddr : 

7 calKp]; 

7 end; 

5 if lastmodule then modptr := nil else modptr := link; 

5 end ; 

3 end; 

2 begin 

2 local (filename , callit ] ; 

2 end; 

-244 1 procedure cal l_segment_proc ( filename : fid; symbol : proc_name ] ; 
-252 2 var p: segment proc; 
-252 2 

2 procedure callit; begin call (find_proc (symbol ) ) end; 

2 begin 

2 p := f ind_proc ( svmbol) ; 

2 if exi sts_proc ( p) then call(p) 

3 else local ( filename, callit): 
2 end; 

-122 1 procedure load^segment (filename: fid); 

-126 2 var state: state ptr; 
-126 2 

2 function code space(size: integer): anyptr; 

3 begin 

3 if lowcod ■<■ size > highcod then e5cape(122) 

4 else 

4 begin 

4 code_space := anypt r (lowcod) ; 

4 lowcod := lowcod + size; 

4 end; 

3 end; 
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301 :B 

302:0 2 procedure loadproc; 

303:C 3 begin 

304 :C 3 start reloc := integer (code_5pace (totalreloc)); 

305:C 3 loadtext (false) ; 

306 :C 3 movedef s (integer (code_5pace (tot aldefs) ) ); 

307:C 3 release heap; 

308:C 3 end; 

309:S 

310:C 2 be.3in 

311:0 2 state := code_space (sizeof (state_rec) ) ; 

312:C 2 save_5tate(state'^, 0, -sizeof (state^rec ) ) ; 

313:C 2 load_5eg [ filename, loadproc); 

314 :C 2 end; 

315:S 

316 :D -122 1 procedure load_heap_segment (filename : fid) ; 

317:D -126 2 var state: state ptr; 

318:5 

319:D 2 procedure loadproc; 

320:C 3 begin 

321 :C 3 loadtext (true); 

322 :C 3 movedef s ( 5t art reloc+ totalreloc ) ; 

323 :C 3 '-elease ( anypt r ( 5t artdefs+tot aldefs ) ) ; 

324 ;C 3 end; 

325 :S 

326:C 2 begin 

327:C 2 newbytes (st ate, s izeof ( 5t ate_rec ) ) ; 

328:C 2 save st ate ( state", -sizeof (state_rec) , 0); 

329 :C 2 markTlowheap. p); ^tartreloc := lowheap. a; 

330:C 2 lorad seg ( f i lename , loadproc); 

331 :C 2 end; 

332:5 

333:C 1 end. 

No errors. No warnings. 

««»*♦ Nonstandard language features enabled ***** 
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SRMAM 



Description 

SRMAM is the access method (transfer method) used to read and write files on the SRM. 



Requirements 

SRM_DRV and the I/O library drivers for the 98629 interface card (DATA_C0MM). 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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12:S 
13:S 
14:S 
1S:S 
16:S 
I7:S 
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19:D 

20 :S 

21:S 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31:D 

32:0 

33: 

34: 

35: 

36: 

37: 

38: 

39 

40:D 

41:D 

42:D 

43:D 

44 :S 

45:D 

46:D 

47:D 

48:S 

49:D 

50:D 

SI :D 

52:D 

53:D 

54:0 

55:0 

56:P 

57:0 

S8;C 

59:C 

60 :C 
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(c ) Copyright Hewlett-Packard Company, 1983. 
fllj rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
wntten consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
Dflt 7-104.9(3) . 



HEULETT-PHCKRRD COMPfiNV 
Fort Collins, Colorado 



Scopyright 'COPYRIGHT (C) 1983 BY HEWLETT -PfiCKftRO COMPHNY'S 
Srange off$ 
Sdebug off$ 
SmcdcalS 

module srmammodule; 

1 Ssearch 'SRn DRV, 

1 '10LTB:KESNeL'J 

1 import 

1 sysglobals, 

1 rrisc, 

1 lodeclarat ions , 



1 export 

1 procedure 5rmam(fp 

2 rer^uest 
2 anyvar buffer 
2 bufsize 
2 position 

1 implement 

I type 

1 pointer = ^char ; 



fibp; 

amrequest type; 
window; 
integer : 
integer ) ; 



x*»******n»** 



_reaG [ anyvar f 

St artof f set 
bytecount 
ramadd ress 



fib; 

integer ; 
integer ; 
charptr ) ; 



sent : integer; 
access: integer; 
offset : intege r; 
e-jin 
if bytecount > then 
with f, pack 



ptr.rhead*^ {, packet_ptr . r read"^) do 
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61:C 

62 :C 

63 :C 
54 :C 

65 :C 

66 :C 
67:C 
68:C 
69:C 
70:C 
71:C 
72:5 
73:C 
74:0 
75:C 
' C 

C 

c 
c 
c 
s 
c 
c 

C 

c 
c 
s 
c 
c 
c 
c 
c 
c 



92 

93 

94:C 

9S:S 

96:0 

97:0 

98:0 

99:0 

100:0 

101 :D 

102:0 

103:0 

104:0 

105:C 

106:C 

107:C 

108:C 

109:C 

110:C 

HI :C 

112:C 

113:C 

114:C 

U5:C 

116:C 

117:C 

118:C 

119:S 

120:C 



begin 

access :- random access; 
offset := startoTfset; 
sent := 0; 

if bytecount > 512 then 
begin 

sendreadpack(fur"it,fileid,access,S12,off5et, ramaddress) ; 



sent 
ramaddress 
access 
offset 



'12; 

addr( ramaddress", 512): 

sequential access; 

0; 



while (bytecount - sent > 512) and [ioresult = ord (inoer ror) ) do 
begin 

5endreadpack(funit, file id, access, 512, offset, ramaddress) ; 
sent := sent + 512; 

ramaddress := addr (ramaddress", 512) ; 
packet in [ f unit , req_read) ; 
end; 
end; 

if ioresult = ord (inoer ror ) then 
begin 

sendreadpack(fu nit, file id, access, bytecount -sent, off set, ramaddress); 

packet in ( funit , req_read) ; 
end; 



if (bytecount > 512) and (ioresult 
pacKetin( funit, req_read) ; 

if ioresult <> ord(inoerror ) then 
resetcard (funit ) ; 
end; 



ord(inoer ror ) ) then 



end ; 
(» 



**x*x*n** 



iKMX**tn»**%mM*x*m*M*% 



cedure s rm_wr ite (anyva r f 

startof f set 

bytecount 

ramaddress 

ent integer; 
ccess: integer; 
offset: integer; 



fib; 

integer ; 
integer ; 
charpt r ) 



begin 



f bytecount > then 
with f, packet^pt r . rhead" , packet_pt r . rwr i te" do 
begin 

access :- random access; 
offset := StartoTfset: 
sent :» 0; 

if bytecount > 512 then 
begin 

sendwritepack (funit, file id, access, 512, offset, ramaddress) ; 



sent 
ramaddress 
access 
offset 



512; 

addr(ramaddress",512); 
sequential access; 
0; 
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while (bytecount - sent > 512) and (ioresult = ord ( Inoe r ro r ) 



Pascal [Rev 


3.0M 


6/ 4/84] SRnPin.TEXT 


26-Dec-84 21:52:01 Page 3 ««* File name: SRflftll **« 




121:C 


6 


begin 




122:C 


6 


sendwritepack(funit ,fileid, access, 512, offset, ramadd re ss); 
sent := sent + 512; 




123:C 


6 




124:C 


6 


ramaddress := addr ( ramaddre5s'",512) ; 




12S:C 


6 


packetin (f unit , req write); 




126:C 


6 


end; 




127;C 


5 


end; 




128:S 








129:C 


4 


if ioresult = ord( inoerror) then 




130:C 


5 


begin 




131 :C 


5 


se ndw ritepack(funat,fileid, access, bytecount- sent, offset, ramaddress) ; 




132:C 


5 


packetin (f unit , req_write) ; 




133:C 


5 


end; 




134:S 








135:C 




if (bytecount > 512) and (ioresult = ord (inoe r ror) ) then 
packetinlfunit, req_write) ; 




138:C 






I37:S 








138:C 




if ioresult <> ord (inoerror ) then 




139:C 




reselcard(funit) ; 




140:C 




end; 




141:C 




end; 




142:S 








143:D 




[*»***************x**»***********k********«******«**»»******«*******«**«******) 




144:D 




procedure srm_clear unit (anyvar f : fib); 




145:D 




var 




146:0 


-2 2 


u : unitnum; 




147:0 


-3 2 


keepv-'or kdirs : boolean; 




148:C 




begin 




149:C 




with f, unitable'-[funit] , isc 1able[sc] do 




150:C 




if (card id <> hp93629i then {this is not a theodore card) 




151:C 




ioresuTt := ord (znodevice ) 




152:C 




else 




153:C 




begin 




154:C 




resetcard(funit ) ; 




15S;C 




areyoualivepack(funit); 




156:C 




if ioresult = ord(inoerror) then 




1S7:C 




volpack (f unit ) ; 




158:C 




if ioresult <> ord (inoerrorl then 




159:C 




iore;.jlt := ord(znodevice) 




160;C 




else 




161:C 


5 


begin 

keepworkdirs := false: 
if St rlen(uvid) > then 




162:C 


5 




ie3:C 


5 




164:: 


6 


keepworkdirs := true 




16S:C 


6 


el:.e 




166:C 


6 


for u := 1 to maxunit do 




167;C 


7 


if sc = unit able^Cu] . 51: tlen 




168:C 


8 


if ba = unitable"[u] -ba then 




169:C 


9 


if St rlen(unitable'' [u] .uvid) > then 




170:C 


10 


keepworkdirs := true; 




171 :C 


5 


gangcleanpack ( funit , keepworkdirs) ; 




172:C 


5 


end ; 




173:C 


4 


end ; 




174:C 


2 


end; 




175:S 








176:0 


1 


(*««»«*t**«]»*»*«****X**»:***«*«***«****«***«*****«*««#*«««»:*««»**««#»;(i«j»i»*«***«] 




177:D 


1 


procedure srmam(f p 


fibp; 




178:0 


2 


request 
anyvar buffer 


amrequest type; 




179:0 


2 


window; 




180:0 


2 


bufsize 


integer; 
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181:0 


2 


posit ion : integer ) ; 




182:C 


2 


begin 




183:: 


2 


ioresult := ord(lnoe rror) ; 




184:: 


2 


srmsavesc := 0; 




18S:: 


2 


lockup; 




186:: 


2 


try 




187:: 


3 


with fp' do 




188:: 


4 


if (request <> clearunit) and (unit able'^tf unit ] .of f line) then 




189:: 


5 


ioresult := ord (znodevice) 




190:: 


5 


else 




191:: 


5 


case request of 




192:: 


6 


readbytes :begin 




193:: 


6 


if flockable and (not flocked} then 




194:: 


7 


ioresult ,- ord(if ileunlocked) 




195:: 


7 


else 




196:: 


7 


srm_read ( fp'' , posit ion , bufsize, add r [buffer) ) ; 




197:: 


6 


end; 




198:S 








199:: 


6 


writebytes :begin 




200:C 


6 


af flockable and (not flocked) then 




201 :C 


7 


ioresult := ord(if ileunlocked) 




202:C 


7 


else 




203:C 


7 


5rm_write (fp"^, posit ion,buf size, addr (buffer) ) ; 




204:: 


6 


end; 




205:S 








206:: 


6 


clearunit :be9in 




207:C 


6 


arm clearuni t (f p'^) ; 




208:C 


6 


end; 




209:S 








210:: 


S 


flush : <do nothing, but no error); 




211 :S 








212:: 


6 


otherwise ioresult := ord ( ibadrequest ) ; 




213:C 


6 


end; 




214:C 


3 


if ioresult = ord(isrmcatchalJ ) then 




215:: 


4 


if srmsavesc <> then 




216:C 


5 


escape [srmsavesc} ; 




217:C 


3 


recover 




218:C 


3 


begin 




219:C 


3 


if escapecode = ioescapecode then 




220:C 


4 


ioresult := ord (isrmcatcriall ) 




221:C 


4 


else 




222:C 


4 


begin 

lockdown; 




223:C 


4 




224:C 


4 


escape ( esc a pecode) ; 




225:: 


4 


end; 




226:C 


3 


end; 




227:: 


2 


lockdown; 




228:: 


2 


end; (srmammodule) 




229:3 








230:: 


1 


end . 




No errors. 


No warnings. 

***** Nonstandard language features enabled ***** 
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SRMDAM 



Description 

SRMDAM is the Directory Access Method for the SRM. 



Requirements 

SRM_DRV and the I/O Hbrary drivers for the 98629 interface card (dATA_COMM). 



Notes 

The DAM operates by making requests to the SRM to which it is connected. It does not 
understand the layout of an SRM disc. 



© Copyright Hewlett-Pacl^ard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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14:S 
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18:S 
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20 :S 

21 :3 
22:D 
23:D 
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2S:D 
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29; 
30: 
31; 
32: 
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(c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Oatd and Computer Software clause in 

DHR ?-104.9(a). 



HEULcTT -PflCKHRD COHPHNY 
Fort Collins, Colorado 



•) 



Scopynght 'COPYRIGHT (C) 1983 BV HEULETT -PfiCKBRO COMPBNY'S 
Sran.ge off$ 
$debijg offj 
$modcal$ 

program init_srm; 

1 module srmdammodule; 

1 Ssearch 'SRM DRV" 

1 'I0LTB:KERNEL'I 

1 import 

1 sysglobals, 

1 misc, 

1 bootdarrmodule, 

1 iodeclarat ions, 

1 srm; 

1 export 

1 procedure srmdaminit; 

1 procedure s rmdam( anyvar f 

2 unum 
2 request 



fib; 

unitnum; 
damrequestt ype ) ; 



1 implement 



1 type 
1 pa' 
1 cons' 



sar ray 



= array[1..8] of passentry; 



1 e>;*ent5l2e = 8*512; {arbitrary choice - 

1 constpassar ray= passarray[ 

1 passent 'y[pbit s ; hex 

1 passent r y[pbit s : hex 

1 passent ryipbit s : hex 

1 passent rytpbits : hex 

1 pa55entryEpbits:hex( '08000000' 

1 passent ry[pbits:hex( '04000000' 

1 passentry[pbits:hex('FFFFFFFF' 



multiple of common block sizes) 



'80000000' 
'40000000' 
'20000000' 
'10000000' 



, pword 
, pword 
, pword 
, pword 
, pword 
, pword 
, pv^ord 



'MRNfiGER' 

'REBD' 

'UIRITE' 

'SEfiRCH' 

'PURGELINK' 

'CRERTELINK' 

'PLL' 
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61 :D 
62:0 
63:0 
64 :D 
65:D 
66 :D 
67:D 
68:D 



69: 

70: 

71: 

72: 

73: 

74 : 

75: 

76: 

77: 

78: 

79:0 

80 :C 

81:C 

82 :C 

83:C 

84 :S 

85:0 

86:0 

87:0 

88:0 

89: 

80: 

91: 

92: 

93: 

94: 

95: 



97 



100 
101 
102 



103:C 



104 : 

106: 

106: 

107: 

108: 

109: 

110: 

111 :D 

112:C 

113:C 

1I4:C 

115:C 

116:C 

117:S 

118:0 

U9:D 

120:0 
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passent ry[pbits: hex I '00000000' ) , pword: 'NONE' i 



al Icapabilit ies = access^capabilities [32 of true]; 

nor apabi lit ies = acce55_capabi lities [32 of false]; 

temp file pass = '>TEf1P FUE PflSS<'; (password on temporary files) 

BDHTTypE " = -5791; ~ 



BHSICBINTYPE = -5775 
BflSICPROGTYPE = -5808 
SYSTMTYPE = -6822 
DfilBTYPE = -5622 
CODETYPE = -6582 
TEXITYPE = -5570 




r 

passwordarrayptr 

tempcounter 


: ^passarray 
: shortint; 



procedure set ioresult ( resul t : integer) 
begin 

If ioresult = ord(inoer ror) then 
ioreault : = result ; 
end; 



gang_f ile_codes ) 



***-rt*t********x****. 



t*****Z****:**K* ******** 



******************%'«i******* ) 



r***»**%x******»******** 
function mapfkind( f type 
van 

fk: filekind; 
begir 

maf'fkind := datafile; 

fof fk := lastfkind downto untypedfile do 
If efttable"[fk} = ftype.si2 then 
mapfkind := fk; 
end ; 

[****** ft********* ******* ******************* 
procedure paocl6tost r (anyvar paoc : name_type: 

anyvarslrng : stringZSS) ; 
var 

i : shortint ; 
begin 

1 := sizeof (paocj ; 

while (paoc[i] - ' ') and (i > 0) do 
i := i - 1 ; 

set St rlen( st rng.O) ; 

strrTiove(i,paoc,i,strng,l) ; 
end ; 

[*** 4 ********************************************************************** 
procedure st rt opaoclS ( anyvar strng : 5tring255; 

anyvar paoc : name_type); 
begin 

paoc : = ' ' ; 

if St rlen(st rng) < 17 then 

St rmove (strlen(strng) ,5trng,l ,paoc,l) ; 
end ; 



^***t******************** ************** *********** 
procedure 5etLip_fns(var f : fib; 

anyvar fns : f i Ie_name_set ) ; 



******:r********* 
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121 :C 




2 


begin 




122:C 




2 


with f, fns do 




123:C 




3 


if 5TrIen[ftid] = then 




124:C 




4 


set lore suit (ord ( ibadtit le) ] 




12S:C 




4 


else 




126:C 




4 


begin 




127:C 




4 


strtopaocl6(ftid,f ile name); 




128:C 




4 


St rtopaocl6(ffpw, password) 




129:C 




4 


end; 




130:C 




2 


end; 




131 :S 










132:0 


-6 


1 


^*t:*X*»»***t:M»*******:***»*Mtt**»***M********«**.***K*XtiX****M*»^*Xi'*)^**»**»*X***) 




133:D 




1 


procedure setup fns3(var f : fib; 




134;D 




2 


anyvar nsa : name_set_array_t hree) ; 




135:0 




2 


var 




136:0 


-4 


2 


n 


intege r ; 




137:0 


-8 


2 


tempioresult 


intege r ; 
Strlng[i61; 




138:0 


-26 


2 


tempst r 




139:C 




2 


begin 




140:C 




2 


with f do 




141 :C 




3 


if (not fisnew) or fnosrmtemp then 




142:C 




4 


setup_fns(f ,nsa) 




143:C 




4 


else 




144:C 




4 


if (strlen(flid) = 0) and (not faronymojs) then 




145:C 




5 


setioresult (ord (ibadtit le) ) 




146:C 




5 


else 




147:C 




5 


begin 




148:C 




5 


with n5a[l] do 




149:C 




6 


begin 




150:C 




6 


password ;= ' ': 

file name := 'UORKSlflTIONS' ; 




151:C 




6 




1S2:C 




6 


end; 




153:C 




5 


with nsa[2] do 




154:C 




6 


begin 




15S:C 




6 


password := ' '; 




156:C 




6 


file_name := ' TEnP_FILES' ; 




157:C 




6 


end; 




158:C 




5 


with nsa[3] do 




159:C 




6 


begin 




160:C 




6 


password := temp file pass; 




161 :C 




6 


setstrlen(tempst r,0) ; 




162:C 




6 


tempioresult := ioresult; 




ie3:C 




6 


5trwrite(temp5tr,l,n,srmncde(unitable^[funit].sc ),'_', fa no nctr:l); 




164:C 




6 


ioresult := tempioresult; 




165:C 




6 


strtopaocl6(tempstr,f ile name); 




166:C 




6 


end; 




167:C 




5 


end; 




168:C 




2 


end; 




169:S 










170:0 


-6 


1 


(«««**»*«««««*««#«*«*«#«*««*«*#»**#*«*«»«*******««**»«*««**«****♦*****«******) 




171:0 




1 


procedure check protectcode set array[ nps : integer; 




172:0 




2 


var psa : protectcode_5et_ar ray) ; 




173:S 






9-nay-1983 Rfill 




174:S 








ns;s 






This routine has been added to check for right angle brackets ('>') in 




176:S 






passwords. If any are found, ioresult is set to ord (ibadpass) . This 




177;S 






is because the parsing routines normally used with file opens terminate 




178:S 






passwords at the first '>', therefore it is not possible to use them in 




179:5 






passwords in normal operation. If they are really desired, they can still be 
created by calling the lower level packet routines directly. 




180:S 
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181:S 






Note that temporary files still have an "illegal" password. 

This routine is called from srm create file and from srm set pass. 




182:S 








183:0 




2 


) 




184:0 


-4 


2 


var n : integer; 




185:0 


-8 


2 


i : integer; 




186:C 




2 


begin 

for r := 1 to nps do 




187:C 




2 




188:C 




3 


for i := 1 to name type len do 
if psa[n] .passwordti] = '>' then 




189:C 




4 




190:C 




5 


setioresult (ord (ibadpass)); 




191:C 




2 


end; 




192:S 










193:0 


-6 


1 


(«»««;«»X»»*»«XXX»««K»«XXX«»«i«X»«««x«X««xxx«»«*«:»»x»:»XX«X««»«««»*»««»XX«««X«»«] 




194:0 




1 


procedure parseoptparm( foptstring 


St ring255ptr ; 




195:0 




2 


var sharemode 


integer ; 




196:0 




2 


var lockable 


boolean; 




197:0 




2 


var nps 


integer: 




198:0 




2 


var psa 


protectcode set_array; 
boolean) ; 




199:0 




2 


modeonly 




200:0 




2 


type 




201:0 




2 


tokentype = (none, mode , pass, cap) ; 




202:0 




2 


statetype = (needmodeorpass, needpa5s,needcap) ; 




203:0 




2 


acstrarrtype = array [ac manager .. ac createlink] of stringdO]; 




204:0 




2 


const 




205:0 




2 


tokenlen = 16; 




206:0 




2 


acstrarray = acst rarrtype ['hflNPGER' , 'REPD' , 'WRITE' , 

'SESRCH', -PURGELINK' , 'CREHTELINK ' ] ; 




207:0 




2 




208:0 




2 


var 




209:0 


-2 


2 


typeoftoken 


tokentype; 




210:0 


-4 


2 


state 


statetype; 




211:0 


-8 


2 


sirdx 


integer; 




212:0 


-9 


2 


delim 


char; 




213:0 


-12 


2 


ac 


ac manager.. ac createlink; 
St7ing[l6] ; 




214:0 


-30 


2 


token 




216:0 


-31 


2 


ok 


boolean; 




216:S 










217:0 




2 


procedure get unt ildelimjdell : char: 




218:0 




3 


del2 : char); 




219:0 




3 


var 




220:0 


-4 


3 


startindx ; integer; 




221 :C 




3 


begin 




222 :C 




3 


delim : - chr (0) ; 




223 :C 




3 


startindx := sindx; 




224 :C 




3 


while (sindx <= st rlen (foptst ring") ) and (delim = chr(O)) do 
if (foptstring^ sindx] <> dell) 




225 :C 




4 




226 :C 




S 


and (foptstring" sindx) <> del2) then 




227:C 




5 


sindx := s ndx + 1 




228:C 




5 


else 




229:C 




5 


delim := foptst ring'^[sandx] ; 




230 :C 




3 


if (sindx - startindx) <= tokenlen then 




231:C 




4 


token := st r ( fobtst ring", st artindx, sindx - startindx) 




232:C 




4 


else 




233:C 




4 


setioresult (ordi(ib ad value) ) ; 




234 :C 




3 


if sindx <= 5trlen(fopt5tring") then 




235:C 




4 


sindx := sindx + 1 ; 




236:C 




3 


end; 




237:S 










238:C 




2 


begin <parseoptparm) 
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239:C 




2 


sharemode := exclusive share code: 


240:C 




2 


lockable 


= false; 
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[Re 


241 


C 


242 


■ C 


24 3 


C 


244 


C 


245 


C 


246 


C 


247 


C 


248 


C 


249 


c 


250 


c 


251 


c 


252 


c 


253 


c 


254 


c 


255 


c 


256 


c 


257 


c 


258 


c 


259 


c 


260 


c 


261 


c 


262 


c 


263 


c 


264 


c 


265 


c 


266 


c 


267 


c 


268 


c 


269 


c 


270 


c 


271 


c 


272 


c 


273 


c 


274 


c 


275 


c 


276 


c 


277 


c 


278 


c 


279 


c 


280 


c 


281 


c 


282 


c 


283 


c 


284 


c 


285 


c 


286 


c 


287 


c 


288 


c 


289 


c 


290 


c 


291 


c 


292 


c 


293 


c 


294 


c 


295 


c 


296 


c 


297 


c 


298 


c 


299 


c 


300 


c 
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pass; 

needcap; 



mode; 
needpass; 



state := needmodeorpass; 

np5 := 0; 

smdx := 1; 

if foptstring <> nil then 

j/hile (sirdx <= st rlen (foptst ring") ) and (ioresult = ord ( inoer ror ] ) do 
begin 

case state of 
needmodeorpass : 

begin 

getjntildelimC,', ':'); 
if delim = ' : ' then 
begin 

typeoftoken 
state 
end 
else 
begin 

typeoftoken 
state 
end; 
if modeonly then 

sindx ;= St rlen (fopt St ring") * 1; 
endj 
needpass : begin 

getuntildelim( ' : ' , ' : ' ) ; 
if delim = ' : ' then 
begin 

Typeoftoken := pass; 
state := needcap; 

end 
else 

setioresult [ord(ibadvaJue) ); 
end; 
needcap : begin 

getunt ildelim( ' , ' , ' ; ' ) ; 
typeoftoken := cap; 
if delim * ' , ' then 

state := needcap 
else if delim = ' ; ' then 
state := needpass; 
end; 
end ; <case > 

if ioresult = ord ( inoerror ) then 
case typeoftoken of 
mode : begin 

upc (token) ; 

if token = 'EXCLUSIVE' then 

sharemode := exclusive_share_code 
else if token = 'SHARED' then 

sharemode := shared 5hare_code 
else if token = 'LOCKSBLE' then 
begin 

sharemode ; = shared_5ha re_code ; 
lockable : ^ t rue ; 
end 
else 

5etioresult(ord(ibadvalue) ); 
end j 
pass : begin 

nps : ^ nps + 1 ; 
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301:C 


6 


302 :C 


7 


303 :C 


7 


304 :C 


7 


305 :C 


7 


306 :C 


6 


307 :C 


6 


308;C 


6 


309 :C 


S 


310:C 


6 


311:C 


7 


312:C 


3 


313:C 


8 


314:C 


8 


315:C 


8 


316:C 


8 


317:C 


3 


318:C 


9 


319:C 


10 


320:C 


10 


321:C 


10 


322 :C 


10 


323 :C 


6 


324 :C 


7 


326 :C 


6 


326 :C 


6 


327:C 


4 


328:C 


2 


329:5 




330 :D 


-6 1 


331:D 


1 


332:D 


2 


333:C 


2 


334 :C 


2 


335:C 


3 


33S:C 


3 


337:C 


3 


338;C 


4 


339:C 


S 


340:C 


5 


341 :C 


5 


342:C 


6 


343:C 


5 


344 :C 


2 


345:5 




346:0 


-6 1 


347:D 


1 


348:0 


2 


349:0 


2 


360 :C 


2 


361:C 


2 


352:C 


3 


353:C 


2 


354 :S 




355:0 


-6 1 


356:0 


1 


357:D 


2 


3S3:D 


2 


359:0 


2 


360:0 


-4 2 
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26-Dec-84 21:50:31 Page 6 *«* File name: SRMOfiM *** 

with psa [nps] do 
begin 

St rtopaocie (token, password) ; 
capabilities := nocapabilit ies ; 
end; 
end; 
begin 

upc ( token) ; 
ok ;= false; 
with psa[nps] do 

if token = 'ALL' then 
begin 

capabilities := allcapabillt ies ; 
ok := true; 
end 
else 

for ac := ac_manager to ac createlink do 
if token = acst rar ray[acT then 
begin 

capabilit ies[acl := true; 
ok := true; 
end; 
if not ok then 

set ioresult (ord(ibadvalue)) ; 
end; 



*»««*»«*» «:«»»*x««**« 



end; 

procedure srm_clo5e_f ileid (unum :unitnum; 

var f ileid : integer) ; 
begin 

if fileid = then 

fileid := -1 
else 

if (fileid > 0) and (fileid <> unit able''[unum] .dvrtemp) then 
with packet_ptr . rhead'' do 
begin 

closepack (unum, fileid) ; 
if status = then 
fileid := -1; 
end; 
end ; 

p roc e 'Jure srm_clo5e_pat hid ( Linum 

~ var pathid 

savepathid 
begin 

if not savepathid then 

s rm_clo5e_fileid (unum, pathid) ; 
end ; 



unit num; 
integer; 



*«««««*«*«* 



proce'Jure tran5latedale(var srmdale 

var systemdate 
var systemt ime 



/ar 

t ime 



************ 
date_t ype ; 
daterec ; 
t imerec ) ; 



I************************ ] 



integer ; 
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361. -C 




2 


begin 






362 :C 




2 


with srmdate do 




363 :C 




3 


begin 






364 :C 




3 


with systemdate do 




365 :C 




4 


begin 






366 ;C 




4 


month 




= date. month; 




367:C 




4 


day- 




= date. day; 




368:C 




4 


yea r 




= date. year: 




369:C 




4 


end; 






370:C 




3 


with systemtime do 




371;C 




4 


begin 






372:C 




4 


time 




= seconds since midnight; 




373:C 




4 


hour 




= time div 3600: 

= [time-(hour«3600) ) div 60; 

= (time mod 60) * 100 : 




374 :C 




4 


minute 






375;C 




4 


certisecond 




37S:C 




4 


end; 






377 :C 




3 


end; 






378:C 




2 


end; 






379:S 












380:D 


-6 


1 


[»***X*»XX****** 


******************* tL**t*KH*lt*XX*****t«Mlt»»X*X*X***M**********) 




381 :D 




1 


procedure s rm_get_dir_info (anyvar dircatentry 


catentry; 




382 :D 




2 




var dir id 


integer; 




383:D 




2 




unum 


unitnum; 




384 :D 




2 




long 


boolean : 




38S:D 




2 




dir_is_dvrtemp 


boolean! : 




386:0 




2 


const 






387:D 




2 


zerodate 


= daterec[year :0, day : 0, month :0] ; 

= timerecihour :0,minute:0,centisecord:O]; 




388:D 




2 


zerotime 




389:D 




2 


van 






390:0 


-4 


2 


n 


: integer; 




391 :D 


-8 


2 


tempioresult 


: integer; 




392 :C 




2 


begin 






393 :C 




2 


with dircatentry. unitable^funuml do 




394 :C 




3 


begin 






395:: 




3 


setst rlen( 


:name.O) : 




396 :C 




3 


volpack (unum) ; 

with packet ptr.rvol", packet ptr.rhead"^ do 




397 :C 




3 




398 :C 




4 


begin 






399 :C 




4 


If status = then 




400:C 




6 


if not exist. value then 




401:C 




6 


set ioresult (ordtilost unit ) ) {set ioresult to no volume) 




402 :C 




6 


else 






403:C 




6 


begin 




404 :C 




6 




paocietost r (volume name, cname); 




405:C 




6 




:extral 


» -1 : (max file size div 32) 




406:C 




6 




:psize 


= ' ; ; 




407:C 




6 




:lsize 


- -1 ; 




408;C 




6 




:extra2 


= interleave; 




409:C 




8 




;start 


- -1 ; 




410:C 




6 




:blocksize 


' 1; 




411:C 




6 




:createdate 


= zerodate; 




412:C 




6 




:createtime 


- zerotime; 




413:C 




6 




ilastdate 


= zerodate; 




414:C 




6 




:lasttime 


- zerotime: 




415:C 




6 




setst rlen(cinfo,0) ; 




41B:C 




6 




empioresult := ioresult; 




417:C 




6 




5trwrite[cinfo,l,r>, 'SRII ■,5c:l,',',ba:l,',',du:l); 




418:C 




6 




oresult := tempioresult; 




419:C 




6 




If dirid > then 




420:C 




7 




begin 
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421 :C 




7 




fileinfopack [unum^di rid) ; 

with packet pt r . r fi leinfo^, file info do 




422:C 




7 






423:C 




8 




if status <> then 




424 :C 




9 




begin 




42S:C 




9 




ioresult := tempioresult; 




426:C 




9 




if dir is dvrtemp then 




427:C 




10 




diri3 :- 0; 




428:C 




9 




end 




429:C 




9 




else 




430:C 




9 




begin 

if file name <> ' ' then 




431 :C 




9 






432:C 




10 




paocl5tost r (f ile name, cname); 




433:C 




9 




if long then 




434 ;C 




10 




begin 




435 :C 




10 




translated ate(creation date ,ccreatedate,ccreatet ime) ; 




436:0 




10 




translatedate[last_acce55 da te,clastdate,c last time) ; 




437 :C 




10 




end; 




438 :C 




9 




end; 




439:C 




7 




end: 




440:C 




6 


end; 




441:C 




4 


end; 






442 :C 




3 


end; 






443 :C 




2 


end; 






444:5 












445:0 


-6 


1 


(«*»«*»«****««*******»« *«»»S*XX««XXtX» *«:««« «»:K»i«ik«S« *«»»«»«««»««« ««««««»««•;««« J 




446:0 




1 


procedure srm_get_vol_name [anyvar f : vid; 




447:0 




2 




unum : unitnum); 




448:0 




2 


var 






449:0 


-80 


2 


dircatent ry 


catentry; 




450:C 




2 


begin 






4S1:C 




2 


srm get dir in 


(dircatent ry.unitable'^Eunum] .dvrtemp, unum, false, t rue) : 




452:C 




2 


f := dircatentry. cname: 




453:C 




2 


end; 






464 :S 












455 :D 


-6 


1 


( «»»*«X» »*««»»«**«»»*«»«*»*««****»» ***«»«**«*«**«««*X«*«**JK»««S» «««*««» ««««««] 




456:0 




1 


procedure 5rm_5e 


_pa5s(anyvar f : fib; 




457:0 




2 




unum : unitnum) ; 




458:0 




2 


type 






469:0 




2 


catarray » array[0. .maxint] of passentry; 




460:0 




2 


catarrayptr = '^catarray; 




461:0 




2 


var 






482:0 


-IS 


2 


volpass 


name type; 




463:0 


-52 


2 


fns 


file name set; 




464:0 


-56 


2 


nps 


integer; 




466:0 


-57 


2 


done 


boolean; 




466:0 


-62 


2 


i 


integer; 




467:0 


-66 


2 


i 


integer; 




468:0 


-70 


2 


catindx 


integer; 




469:0 


-74 


2 


catent ryindx 
tempcapbits 


integer; 




470:0 


-74 


2 


record case boolean of 




471:0 


-74 


2 




true : (i : integer); 




472:0 


-74 


2 




false : [b : access capabilities): 




473:0 


-78 


2 




efid; 
protectcode_set_array; 




474:0 


-654 


2 


psa 




475 :C 




2 


begin 






476:C 




2 


with f do 






477:C 




3 


begin 






478:C 
479 :C 




3 
3 


setup fnsi 
if ioresul 


r.fns); 
= ord(inoerror) then 


11-713 


480 :C 




4 


begin 
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4B1 
482 
483 
484 
485 
486 
487 



48 

490: 

491 

492:C 

493:C 

494 :C 

495 :C 
49S:C 
497:S 
498:D 
499:0 
500:0 
501:0 
502:D 
503:0 
504:0 
605:0 
506:0 
507:0 
508:0 
509:0 



510: 

511: 

512: 

513: 

614: 

516: 

SIS: 

517: 

618: 

519: 

520: 

521: 

522: 

623: 

524: 

625:C 

526:C 

627:C 

628:C 

529:C 

530:C 

531 :C 

532 :C 
533:C 
534: 
535: 
536: 
637: 
538: 
539: 
540: 



end; 



for i := 1 to fpeof do 

with psaCi], catarraypt r (fwindow)"[i-l] do 
begin 

sTrtopaocl6 (pword, password) ; 
tempcapbits . i ;= pbits; 
capabilities := tempcapbit 5 .b; 
nps := i; 

end; 
strtopaocl6(fvid,volpas5); 
check_pro tec t code set_array (nps,psa ) ; 
if ioresult = ordTinoerror ) then 

changeprotectpack(unum,l,3ddr(fns),start_alternate,pathidj 
volpass,nps,addr[p5a)); 
end; 



(*»«**♦»**««»*««*****«»***«**»****«***» 
procedure 5rm_cat_pas5 ( anyvar f 

unum 
type 

cat array 

cat arraypt r 
var 



fib; 
unitnum} ; 



ar ray [0 . .maxint] of passentry; 
^catarray; 



««»»««» 



s^**:Kt****** 



3 

catindx 
catent ryindx 
tempcapbit s 



volpass ; nafne_type; 

fns : f ile_name_set ; 

done : boolean; 

i : integer; 

integer; 
integer ; 
integer ; 

record case boolean of 
t rue ■ ( i ■ integer ) ; 
false : (b : acce55_capabilities) ; 
end; 
begin 

catentryindx := 0; 
done := false; 

with f, packet_pt r . rcat pass" do 
begin 

set Ljp_fn5 [ f , f ns) ; 
If ioresult = ord (inoerro r ) then 
begin 

strtopaocl6(fvid,volpas5}; 
foptstring :- anypt r (passwordar raypt r ) ; 
catindx := fpos + 1; 

'hile (catent ryindx < fpeof) and (not done) and (ioresult 
begin 

cat pass pack (unjm,l,addr(fnsh St art_alternate, 
pathid,volpass,24,catindx" 



ord ( inoer ror) ) do 



if ioresult = ord ( inoerro r ) then 
begin 

1 := 1: 

if actual_num_password5 < 24 then 

done ;= true; 
while i <= actual_num_passwords do 
if catentryindx < fpeof then 
begin 

with pa55word_info[i] , catarraypt r (fwindow)''tcatent ryindx] do 
begin 
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54 1 
54 2 
543 
644 
545 
546 
547 
548 



549:C 



650: 

651: 

652: 

553: 

664: 

655: 

556: 

657: 

558: 

559: 

5S0:S 

561:0 

562:0 

563:0 

564:0 

566:0 

666:0 

567:0 

568:0 

669:0 

570:0 

571:0 

572:0 

673:0 

574:0 

675:0 

576:0 

577:0 

678:0 

679:C 

580:C 



581: 

582: 

583: 

684: 

585: 

686: 

587: 

588: 

589: 

590: 

591 : 

592: 

593:C 

594 :C 

695 :C 

596 :C 

697 :C 

598:C 

599:C 

600:C 



26-Dec-84 21:50:31 Page 10 »«« File name: SRMOnn »»» 

paoclStost r [pa5Sword,pword ) ; 
tempcapbit s .b ;= capabilities; 
pbits := tempcapbits . i ; 

end; 
i := i + 1; 

catentryindx := catentryindx + 1; 
end 





else 






bec|in 

1 






:= 25; 




done 


:= true; 




end; 






catindx 


= catindx 




end; 






end; 




end 






fpeof 


:= catentryindx; 




end ; 







procedure srm_catalog (anyvar f 

unum 



i)cX«»*>t:«««S«««iK»S*«:«>:*««*»»Y»«X»»«*«X») 



type 

cat array 
cat arraypt r 

ac_char_arr 
const 

ac_chars 
var ~ 

volpass 

fns 

done 



: fib: 
u n i t n um ) 



array [0 . .maxint] of catentry; 

"■cat array; 

array [ac_manage r . . ac_c reatelink] of char; 

ac_char_arrt'M' , 'R' , 'U' , 'S' , ' P' , 'C ] ; 



cat indx 
catent ryindx 



name_t ype; 
file_name_set ; 
boolean; 
:integer ; 
integer ; 
integer; 
integer; 

acce5s_code_type; 
begin 

catentryindx := 0; 
done := false; 
with f, packet_pt r . rcat^ do 
begin 

St rtopaocl6(fvid, volpass] ; 
catindx := fpos ♦ 1; 

while (cateni ryindx < fpeof) and rot done do 
begin 

catpack(Linum,0,addr(fn5),start alternate, 

pat hid, vol pass, 7, cat in3'x) ; 
if ioresLilt <> ord [inoer ror ) then 

done := true 
else 
begin 

I := 1: 

If actual_nufn_file5 < 7 then 
6 done := true; 

5 while i <= act ual_num_f iles do 

6 if catentryindx < fpeof then 

7 begin 

7 withcat_info[i],catarrayptr( fwindow)" [catent ryindx] do 
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601 ;C 




8 




begin 




e02:C 




8 




paocl6to5t r ( f ile name. enamel: 




603:C 




8 




ceft 


= file code.si2; 




604 :C 




8 




ckind 


= mapf]c'ind(file code); 




605:C 




8 




cpsize 


= physical size; 
= logical eof; 




606:C 




8 




clsize 




607:C 




8 




cstart 


= -1 




608;C 




8 




tran5latedate(c-eation d a te, cc rea t ed at e ,cc re ate time) ; 




609:C 




8 




translatedate (last access date,clastdate,clastt ime) ; 




610:C 




8 




cblQcksize 


» -1 ; 




611;C 




8 




cext ral 


' -1 ; 




612:C 




8 




cextra2 


= -1 : 




ei3:C 




8 




setstrlen(cinfo.ord(ac createlinkl+1); 
for ac := ac^manager to ac createlink do 
if capabilatieslac] then 




614:C 




8 






615:C 




9 






616:C 




10 




cinfo[ord (ac) + 1] := ac chars[ac] 




617:C 




10 




else 




618:C 




10 




cinfo[ord (ac) +1] := ' '; 




619 -.C 




8 




case share code of 




620:C 




9 




exclusive sha"e code : cinfo := cinfo + ' EXCLUSIVE'; 




621 :C 




9 




shared share co3e : cinfo := cinfo + ' SHPRED'; 




622:S 








< 




623:S 








closed share code : cinfo := cinfo + ' CLOSEO'; 




624 :C 




9 




> 




625 ;C 




9 




corrupt share code : cinfo := cinfo + ' CORRUPT'; 




626 :C 




9 




otherwise cinfo := cinfo + ' CLOSED'; 




627 :C 




9 




end; 




628 :C 




8 




end; 




629 :C 




7 




i := i * 1; 




630 ;C 




7 




catentryindx := catentryindx + 1; 




631 '.C 




7 




end 




632;C 




7 


else 




$33 :C 




7 




begin 

i ;= 8; 




634:0 




7 






635 :C 




7 




done := true; 




636 :C 




7 




end: 




637:C 




5 


catindx := catindx + 7; 




638:C 




5 


end; 






639:C 




4 


end; 






640:C 




3 


fpeof := catentryindx; 




641 :C 




3 


end; 






642:C 




2 


end; 






643:S 












644:0 


-6 


1 


^iiintM»*^***%***ii******%*it**************»*******x**tt***r***t *********** t****t) 




646 :D 




1 


procedure 5rm_open_di r (anyvar f : fib; 




64$:D 




2 




unum : unitnum; 




647:0 




2 




opentype : gang_open_t ype; 




648:0 




2 




openparen: :boolean) ; 




649:0 




2 


var 






650:0 


-16 


2 


volpass 


name_type: 




651:0 


-20 


2 


lentille 


integer 






652:0 


-24 


2 


5in<]j< 


integer 






653:0 


-28 


2 


pindj< 


integer 






654:0 


-32 


2 


nindx 


integer 






655:0 


-36 


2 


i 


integer 






656:0 


-38 


2 


path 


path start type; 




657:0 


-42 


2 


save id 


f ile_id_type; 




658:0 


-46 


2 


origpathid 


f ile_id_type ; 




659:0 


-47 


2 


last 


boolean; 




660:0 


-48 


2 


aj readyopen 


boolean; 
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661 :D 


-52 


2 


nf ns 


integer; 




662:0 


-268 


2 


nsa 


name_set_array; 




663:5 












664:0 




2 


procedure getpao 


.(anyvar paoc : name type; 




665:0 




3 




dell : char; 




666:0 




3 




del2 : char) ; 




667:0 




3 


var 






668:0 


-1 


3 


done : boolea 


l; 




669:C 




3 


begin 






670:C 




3 


with f do 






671 :C 




4 


begin 






672:C 




4 


done := false: 




673:C 




4 


while (sin 


X <- lentitle) and (pindx <= name type len) and (not done) do 




674:C 




5 


if (fti 


le[sindx] = dell) or (ft itle [sindx] - 3el2) then 




675:C 




6 


done 


:= true 




676:C 




6 


else 






677:C 




6 


begin 






678:C 




6 


paoc 


pindx] := ftitle[sindxl ; 




679:C 




6 


pindx := pindx * 1; 




680 :C 




6 


sindx := sindx + 1: 




681:0 




6 


end; 






682:C 




4 


if (sindx > lentitle) then 




683 :C 




5 


begin 

If del 






684 :C 




5 


■: '>' then 




685 :C 




6 


ioreSLilt := orddbadpass) : 




686 :C 




6 


end 






687:C 




5 


else 






688:C 




5 


begin 






689:C 




5 


If (f 


itle[5indx] <> dell) and (ft itle [sindx] <> del2) then 




690:C 




6 


begi 
If 


1 




691 :C 




6 


dell = '>' then 




692:C 




7 


ioresult := ord(ibadpass) 




693:C 




7 


else 




694 :C 




7 


ioresult := ordCibadt it le) ; 




695:C 




6 


end 






696 ;C 




6 


else 






697 :C 




6 


if (dell « '>') then 




698:C 




7 


i^ 


(ftitletsindx] <> '>') then 




699:C 




8 


ioresult := opd(ibadpas:>) ; 




700:C 




5 


end; 






701 :C 




4 


end; 






702:C 




3 


end; 






703:5 












704:5 












705:5 












706:C 




2 


begin 
last 






707:C 




2 


= false; 




708 :C 




2 


alreadyopen 


= false; 




709:C 




2 


sindx 


= 1; 




710:S 












711:C 




2 


with f do 






712:C 






begin 






713:C 






origpathid 


:= pathid; 




714:C 






lentitle 


:= strlen(ftitlel : 




715:C 






5etstrlen( 


ftid.O); 
-1 then 




716:C 






if pathid 




717:C 






begin 






718:C 
719:C 






setst r 
setstr 


en(fvid,0); 
enjffpw.O); 
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720:C 






end ; 
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721 :C 


3 


722:C 


4 


723:C 


5 


724 :C 


5 


725;C 


5 


726:C 


6 


727:C 


5 


728:C 


5 


729:C 


5 


730:C 


5 


731 ;S 




732:C 


3 


733:C 


3 


734:C 


4 


735:C 


5 


736:C 


6 


737:C 


6 


738:C 


$ 


739:C 


6 


740:C 


3 


741 :C 


4 


742:C 


5 


743:C 


5 


744 :C 


5 


745 :S 




746 :C 


3 


747 :C 


4 


748 :C 


4 


749 :C 


4 


7S0:C 


4 


761 :C 


4 


752 :C 


4 


753;C 


5 


754;S 




766 :C 


3 


756 :C 


4 


767 :C 


5 


758 :C 


5 


759 :C 


5 



6/ 4/84) SRIlDfin.TEXT 
if 



f (sindx <= lentit 
if ftitletsindx] 
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760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775:C 

776:C 

777:C 

778:C 

779:C 

780:C 



lentitle) then 

then 
begin 

sindx := sindx + 1; 

pindx := 1; 

volpass :* ' '; 

getpacic( vol pass, '>','>'): 

paocl6to5tr (volpass, fv id) ; 

sindx :a sindx + 1; 
end; 

path := St ar t_alternate; 
if ioresult = ord ( inoerrori then 
if (sindx <= lentitle) tnen 
if f title [sindx] = V' then 
begin 

path ;= start_root; 
sindx := sindx + 1 ; 
end; 
if pathid - -1 then 

if path = start_root then 

pathid ;» 
else 

pathid := unitable^[un(jm] .dvrtemp; 

if sindx > lentitle then 
begin 

last := true; 
setstrlen(f title,0) ; 
end 
else 

if tfti11e[lentitle] = '/') then 
set ioresult (ord(ibadt it le)); 

with packet_pt r . ropen" do 

while (not last) and (ioresult = ord( inoerror ) ) do 
begin 

nfns :- 0; 

while (sindx <= lentitle) and (nfns < 6) and (ioresult = ord(inoerror ) ) do 
begin 

with nsa[nfn5+l] do 
begin 

if (ftitle[sindx] = ■/') then 

ioresult := ord( ibadt itle) 
else 
begin 

f ile_name ;= ' ' ; 
password ;= ' '; 
pindx ;= 1; 

getpaoc (f ile_name, '<','/'); 
nindx := pindx; 

if ioresult = ord ( inoerror ) then 
if (sindx <- lentitle) then 
if (ftitleCsindx) = '<■) then 
begin 

sindx := sindx + 1; 

pindx := 1; 

getpaoc (password, '>','>'); 

sindx ;= sindx + 1; 

if sindx <= lentitle then 
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781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797:C 

798:C 

799:C 

800 :C 

801 :C 

802 :S 

803 :C 

804 :C 

805 :C 

806 :C 

807 :C 

808 :C 
809 
810 
811 
812 
813 
814 
815 
316 
817 
S18 
819 
820 
821 
822:C 
823:C 
824 :C 
825 
826 
827 
328 
829 
830 
831 
832 
833:C 

834 :C 

835 ;C 
836;C 
837:C 
838;C 
839 :C 
840:C 



12 
13 
14 
14 
14 
14 
14 
14 
11 
8 
9 
10 
10 
10 
10 



10 
9 
9 

8 
9 
9 
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if ftitleCsindx] <> '/' then 
if nindx > lentitle then 

ioresult := ord(ibadt it le) 
else 
begin 

pindx ;= nindx; 
get pace ( f ile_name, '/','/'); 
end ; 
end : 
if ioresult = ord (inoerror) then 
if (sindx > lentitle) then 
begin 

last := true; 

setstrlen(ftitle,0); 
end; 
end; 
end; 
if ioresult » ordf inoerror) then 

nfns := nfns + 1; 
sindx := sindx + 1; 
end; 

if ioresult « ord(inoerror) then 
begin 

if not (last and openparent) then 
begin 

openpack (unum.nf ns, addr (nsa) ,path, 

fat hid, vol pass, shared share_code , open type) 
t <> ord(inoerror ) tFen 
begin 

if last then 
begin 

ioresult := ord (inoerror ) ; 
openparent := true; 
end; 
end 
else 
begin 

saveid ;= file_id; 

if alreadyopen then ~ 

srm_close_pathid( unum, pat hid, false) 
else 

alreadyopen := true; 
pathid :» saveid; 

path := start_alternate; 

end; 
end; 
if ioresult 
begin 

if last and openparent then 
begin 

if (nfns <= 1) then 
begin 

if pathid = -1 then 

set ioresult (ord( i nodi rectory) ) ; 
end 
else 
begin 

openpack [ unum, nfns- 1 , addr (nsa) ,path, 

pat hid, volpass, shared_5hare_code,opent ype) ; 



ord(inoer ror ) then 
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841 :C 




9 


if ioresult <> ord(inoerror) then 


842 :C 




10 


begin 

If alreadyopen then 


843:C 




10 


844 :C 

845 :C 




11 
10 


5rm_close_pathid(unijni,pathid,fal5e) ; 

end 


846:C 




10 


else 


847 :C 




10 


begin 


848 :C 




10 


saveid := file id; 


849 :C 




10 


if alreadyopen then 


850 :C 
851:C 




11 
10 


srm close pathid (unum, pat hid , false ) ; 
pathij := saveid; 


852 :C 




10 


end; 


853:C 




9 


end; 


854 ;C 




8 


if ioresult = otd( inoerror ) then 


855 :C 




9 


with nsaCnfns] do 


856 :C 




10 


begin 


857:C 
8S8:C 




10 

10 


paocietost r(flle name.ftid); 
ftitle := ftid; 


859:C 




10 


if password <> ' ' then 


860:C 




11 


paoclStcst r( password , f f pw) ; 


861 :C 




10 


end; 


862:C 




8 


end; 


863:C 




7 


end; 


864 :C 




6 


end; 


865:C 




5 


end; 


866:C 




3 


if ((orijpathid <> -1) and (orlgpathid = pathid)) 
or (pathid = unit able [unum] . dvrtemp) then 


867 :C 




4 


868:0 




4 


fsavepathid := true 


869:C 




4 


else 


870:C 




4 


fsavepathid :» false; 


871 :C 




3 


end; 


872:C 




2 


end; 


873:S 








874:0 


-6 


1 


{************x****x****x*******»************t*»**K***n*t******i^******t**m*»it») 


875:0 




1 


procedure srm,_set unit pref ix{anyvar f : fib; 


876:0 




2 


unum : unitnum); 


877:0 




2 


var 


878:0 


-4 


2 


savpathid : integer; 


879:C 




2 


begin 


880:C 




2 


with f, unitable'-[unumj do 


881 :C 




3 


begin 


882:C 




3 


srm_open_dii'( f , unum, open_pro tec tec^di rectory, false) ; 


883:C 




3 


if ioresult = ord{inoe rror ) then 


884 :C 




4 


begin 

if 5trlen(ftltle) > then 


885 :C 




4 


886:C 




5 


set ioresult (ord(i no unit)) 


887:C 




5 


else 


888:C 




5 


begin 


889 :C 




5 


savpathid := pathid; 


890 :C 




5 


pathid := dvrtemp; 
dvrtemp := savpathid; 


891 :C 




5 


892:C 




5 


end; 
srm close pathid [unum, pathid, false) ; 


893:C 




4 


894 :C 




4 


end; 


895 :C 




3 


srm get vol name (uvid, unum) ; 


896 :C 




3 


end; 


897 :C 




2 


end; 


898 :S 








899:0 


-6 


1 


(«X»»«X«««*»*««*»X««««««««««**««»:«*»«XXX««*»»»«*X«««»««»*K»»X«««»»»««»»S*«»««) 


900:0 




1 


procedure doopenpack (unum ; unitnum; 
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901:0 




2 


var f : fib: 


902:0 




2 


nf ns 


integer; 


903:0 




2 


anyvar nsa 


name_set array; 


904:0 




2 


path 


path_start type; 


905:0 




2 


volpass 


name type; 


906:0 




2 


sharecode 


integer : 


907:0 


-16 


2 


lockable 


booleani : 


908:0 


-16 


2 


type 


909:0 


-16 


2 


trickrec = record case boolean of 


910:0 


-16 


2 


true : (i 


integer) ; 


911:0 


-16 


2 


false : (chs 


packed array [1..2] of char; 


912:0 


-16 


2 


5i2 


shortintl : 


913:0 


-16 


2 


end; 


914:0 


-16 


2 


var 


915:0 


-20 


2 


temprec : trickrec; 


916:C 




2 


begin 


917:C 




2 


with f, packet ptr.ropen^ do 


918:C 




3 


begin 


919:C 




3 


If lockable and fistextvar then 


920 :C 




4 


set ioresult (ord(i no tlock able)) 


921 :C 




4 


else 


922:C 




4 


openpack { unum, nfns, add r (nsa) , path, pathid, vol pass, sharecode, open data); 
if ioresult » ord[inoerror) then 

if file code.siz - 3 then (directory) 


923:C 




3 


924 :C 




4 


925 :C 




5 


begin 


926:C 




5 


set lore suit (ord(inotondir)); 
cl05epack(unum, file id); 


927:C 




5 


928:C 




5 


end 


929:C 




5 


else 


930:C 




5 


begin 


931 :C 




5 


fileid 


= file_id; 


932:C 




5 


fpeof 


= open_logical_eof ; 


933;C 




5 


fleof 


" open logical eof; 


934 :C 




5 


feft 


= file code.siJ; 


935:C 




5 


fkind 


= mapfFind(file_code) ; 


936:C 




5 


flockable 


= lockable; 


937:C 




5 


flocked 


• not lockable; (default to locked unless lockable) 


938:C 




5 


if feft = BDSTTYPE) <BDPT file) 
or feft . BfiSICSINTYPE) (BIN file) 
or feft = BfiSICPROGTvPE) then (PROG file) 


939:C 




6 


940 :C 




S 


941 :C 




6 


begin 


942 :C 




6 


temprec. chs := ' '; 


943 :C 

944 :C 




6 
6 


temprec,si2 := max_record_size div 2; 
f startaddress := temprec. i; 


945 ;C 




6 


end 


946 :C 




6 


else 


947 :C 




6 


fstartaddress := boot start address: 
if not fbuffered then am := amtable'^ untypedfile] 


948 :C 




5 


949 :C 




6 


else if fistextvar then am := amtable^ fkind] 


950:C 




7 


else am := amtable" datafile]; 


951 :C 




5 


end; 


952:C 




3 


end; 


953:C 




2 


end; 


954:S 








955:0 


-6 


1 


(««X»««»«S«»X»» «***«*«» ««»»**«*«*«*«*«K»««««»«XKX»«»» *«««««««««»«««««*««»«*««) 


956:0 




1 


procedure srm_open_f ile(anyvar f : fib; 


957:0 




2 


unum : unitnum) ; 


958:0 




2 


type 


959:0 




2 


trickrec = record case boolean of 


960:0 




2 


true :(i 




integer) ; 
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961: 

962: 

963: 

964: 

965: 

966: 

967: 

968:D 

969:D 

970:0 

971:0 

972:C 

973 :C 

974 :C 
975:C 
976:C 
977:C 
978 
979: 
980: 
981 : 
982: 
983: 
984: 
985: 



:C 
:C 
:C 
:C 
:C 
:C 
:S 
:0 
:D 
:0 
:0 
:0 
:D 
:D 
;D 
:D 
:D 
995:C 
996:C 
997:C 

998 :C 

999 :C 
1000:C 
1001:C 
1002:C 
1003:C 
1 004 : C 



983: 
989: 
990: 
991 : 
992; 
993: 



1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015: 
1016 
1017: 
1018: 
1019: 
1020: 



-16 
-52 
-56 
-60 
-64 
-640 
-641 



short int : 
short int) 



2 
2 
2 

2 var 

2 volpass 

2 fns 

2 lemprec 

2 '^haremode 

2 nps 

2 psa 

2 locksble 

2 beqin 

2 iith f do 

3 begin 

3 setup_fns(f ;, fns) ; 

3 parseopt pariTi( foptst ring, sharemode, lockable,np5,psa,true) ; 

3 if ioresult = ord ( inoer ror) then 

4 begin 
5trtopaocl6(fvid,volpa55); 
doo pe npac k(un urn, f,l, fns, St art _alternate, volpass, sharemode .lockable ) ; 

end; 
end : 



false :(5il 
Si2 
end; 



name_type; 

file nanie_set: 

t riclTrec; 

integer ; 

integer ; 

protectcode_set_ar ray; 

boolean; 



4 
4 
4 
3 

2 end 



1 («»««*****««*«««*«*Kl«««*«**««»*«Ki*» 

1 procedure srm_create_dir (anyvar f 
2 

2 type 

2 catentryptr 
2 const 

2 dirfilecode 
2 var 

name_type; 
file name_5et 



unum 
= ^catentry; 
= gang_file_code5[i:3] 



: fib, 

: unitnum) 



««j«*«a:S«»*t«X*«*««»»««i««««KX«»} 



-16 2 lOlpass 
-52 2 fns 
2 begin 

2 with f, catent ryptr (fwindow) ^ do 

3 if St r len (cname ) = then 

4 set ioresult lord (ibadt itle) ) 
4 else 

4 begin 

4 with fns do 

5 begin 

5 password := ' ' ■ 

5 St rtopaocie (cname, fiie_name) ; 

5 end; 

4 St rtopaocie (f vidjVolpass) : 

4 createpack ( un um, i, addrj fns ),st art _alte mate, pat hid, volpass, 0, 

4 dirfilecode, directory_records,0, 6, 0,0); 

4 end; ~ 

2 end; 

-6 1 ( *» **«*«»*»**ii«****««***««*««**«*««**«x 

1 procedure srm_c reate_f i le ( anyva r f 

2 unum 
2 const 

2 dirfilecode - gang_f ile^codes [i :3] ; 

2 type 

2 trickrec = record case boolean of 

2 t rue : (i : integer ) ; 

2 false :(sil : shortint; 



fib; 

uni tnum) ; 



nil. 



t»««»«»:C««KK«««iK)«««««) 
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1021:0 

1022:0 

1023:0 

1024:0 

1025:0 

1026:0 

1027:0 

1028:0 

1029:0 

1030:0 

1031:0 

1032:0 

1033: 

1034: 

1035: 

1036: 

1037: 

1038: 

1039: 

1040: 

1041: 

1042: 

1043: 

1044: 

1045: 

1046: 

1047: 

1048: 

1049: 

1050:C 

1051:C 

10S2:C 

1053:C 



1064: 

1055: 

1056: 

1057: 

1058: 

1059: 

1060: 

1061 :C 

1062:C 

1063:C 

1064:C 

1065:C 

1066:C 

1067:C 

I068:C 

1069:C 

1070:C 

1071: 

1072: 

1073: 

1074: 

1075: 

1076: 

1077: 

1078: 

1079:C 

1080:C 



-16 
-124 
-128 
-132 
-136 
-140 
-144 
-148 
-724 
-728 
-730 
-731 
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ar 
volpass 
nsa 
extl 
temprec 
sharemode 
max rec 
nps 

usefef t 
psa 
i 

ac 
lockable 



end; 

name_t ype; 

name_set_ar ray_three; 

integer ; 

t rickrec ; 

integer ; 

integer ; 

integer ; 

gang_file codes; 

protectco3e_set_array; 

integer ; 

ac_manager . . ac_purgelink; 

boolean ; 



begin 

ith f, nsa[3] do 
begin 

St rtopaocl6(fvid, volpass); 
repeat 



ioresult 
f anonct r 
tempcounter 
usefef t . i 



= ord ( inoer ror ) ; 
= tempcounter; 
= tempcounter + 1; 
= feft; 



if feft = BDHTTVPE then (BDRT file) 
begin 

temprec. i := fst artaddress; 
maxrec := temprec.si2 « 2; 

if maxrec < 1 then 
maxrec := 1; 
end 
else 

maxrec :» 256; 
if fpos > then 

extl := fpos 
else 

extl := extentsize; 
pa rseopt pa rm( foptst ring, sharemode , lock able, nps, psa, false); 
check_protectcode set_array(np5,psa); 

if (nps > 0) and Tnps < 24) and (ioresult = ord(inoerror) ) then 
begin 

nps := nps + 1; 
with psa[nps] do 
begin 

password := temp_f ile,,.pa55; 
capabilities := nocapabilTties; 
If nps > 1 then 

for i := 1 to nps-1 do 



end; 



end; 



for sc :* ac_manager to ac_purqelink do 
if psa[i] .capabilit ies[acj then 
capabilities [ac] := true; 



if (not fanonymous) and (ioresult = ord (inoerror ) ) then 
begin 

setup fns ( f ,nsa) ; 
foldfTleld := -1; 
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1081 :C 
1082:C 
1083:C 
1084:C 



1085: 

1036: 

1087: 

1088: 

1089: 

1090: 

1091: 

1092: 

1093: 

1094 :C 

1095:C 

1096:C 

1097:C 

1098:C 

1099:C 

1100:C 

1101:C 

1102:C 

1103:C 

1104:C 

110S:C 

110$:C 

1107:C 

1108: 

1109: 

1110: 

nil: 

1112: 

1113: 

1114: 

1115: 

1118: 

1117:C 

1118:C 

1119:C 

U20:C 

1121:C 

1122:C 

1123:C 

1124:C 

112S:C 

1126:: 



1127: 
1128: 
1129: 

1130: 

1131: 

1132: 

1133: 

1134: 

1135: 

1136: 

1137: 

1138: 

U39:C 

U40:C 



openpack{unum, l,addr (nsa) , ST 3rt_alternate, pathjd, volpaas, sharemode.open data) : 
if ioresult = ord(inofile) then ~ 

begin 

ioresult := qrd (inoer ror ) ; 
nsa [1 ] . password : = ' ' ; 

createpacte(unum,l, add r(nsa), start alternate, pa thid, vol pass, 
nps,dddr(psa),u5efeft,3ata_records, 
maxrec.extl, extent size, f start address) ; 
if ioresult = ord (inoerror ) then 
if feft <> SySTMTYPE then 

fnosrmtemp := true 
else 

begin (SYSTn files must go through temp first) 

nsa[l ]. password := temp_f ile_pass : 
openpack(unjm,l,addr[rsa),start_alternate,pathid, 
volpass, 5haremode,oper data); 
end; ~ 

end ; 
if (ioresult - ord (inoe rror ) ) and (not fnosrmtemp) then 
begin 

Toldfileid := packet pt r . ropen^. f ile_id; 
fileinfopack(unum, foTdf ileid) ■ 
with packet_pt r . rflleinfo^. f ile_info do 
begin 

if (not capabili ties [ac_marager] ) 

and (not capabi li t ies [ac_pu rgel ink] ) then 

setioresult (ord (ibadpass) ) {won't be able to purge old) 
else <this test added in version 2.2 on 4-f1ay-83) 

if f ile_code.si2 '^ 3 then (disallow rewrite on directory) 
setioresult (ord (inotondir)); 
if ioresult <> ord( inoerror ) then 
5rm_close_f lleid(unum, foldfileid); 
end; ~ 
end; 
end; 



if (ioresult = ord (inoer ror ) ) and (not fnosrmtemp) then 
begin 
set 
if 
bi 



up_fns3 (f ,nsa) ; 
ioresult = ord [ inoer ror) then 
egin 

password : - ' ' ; 

c reatepack (unum,3,addr(nsa),starT root, pa thid, volpass, 
np5,addr(p5ai,usefeft,Jata_records, 
max rec.ej<Il, extent size, fst art address); 
if ioresult = ord(inofile) then 
begin 

ioresult := ord (inoer ror ) ; 

c reatepack (unum.2,addr(n5a),start_root,pathid,volpass, 

0, ni 1, di rfilecode,di rector y_records,0, 0,0,6); 
if ioresult <:* ord[:Lnoer ror ) then 

ioresult := o rd ( ineedtempdi r ) 
else 

createpack(urum,3, addr(nsa),start root, pat hid, volpass, 
nps, add r ( psa) , usefef t ,cJata_reco rds, 
na xr ec, extl, extent size, fst art address); 
end 
else 

if ioresult - ord (idupf ile ) then 
begin 
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1141 :C 

1142:C 

1143:C 

1144:C 

1145:C 

1146:C 

1147:C 

1148: 

1149: 

1150: 

1151: 

1152: 

1153: 

1154: 

1155:C 

1156:C 

1157:C 

1158:C 

1159:C 

1160:C 

1161:C 

1162:C 

ne3:C 

1164:C 

1165:C 

1166:C 

11S7:C 

11S8:S 

1169:0 

1170:D 

U71:D 

1172:D 

1173:D 

U74:D 

1175:D 

1176:D 

1177:D 

1178:D 

1179:0 

1180:0 

1181:0 

1182:C 

1183:C 

1184:C 

1185:C 

1186;C 



1187: 

1188: 

1189: 

1190: 

1191:C 

1192:C 
»*»UfiRNING: 

1 193 :C 
««»UfiRNING: 

1194:C 

U95:C 

1196:C 

1197:C 

1198:C 
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ioresult := ord ( inoer ror ) ; 
password := temp file pass; 

purgepack (unum, 3, addr^nsa) , St a rt_root, pa thid, volpass); 
ioresult :- ord ( inoer ror ) ; 
passwo rd := ' ' ; 

c reatepack (unum, 3, addr[n5a), start root, pathid, volpass, 
nps, addr ( ps a), use feft, da ta_ records, 
maxrec, ex tl, extent si ze,fst art address); 
end; 



6 
4 
3 
4 
4 
4 
5 
6 
5 
5 
5 
5 
6 
5 
5 
3 
2 

-6 1 

1 

2 

2 

2 

2 

16 2 

18 2 

22 2 

58 2 

60 2 

64 2 

00 2 

2 

2 
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3 

3 

4 

3 

4 

5 

5 

5 

(line 

5 

(line 

6 

7 

5 



end; 
until (io 
if ioresu 
srm clo 
else 

if fnosrmtemp then 
begin 
nsa 
doo 
end 
else 
begin 
pas 
doo 
end 



result <> ord(idupfile) ) ; 
It <> ord (inoer ror ] then 
se_f ile id (unum, foldfileid) 



[1]. password := temp_f ile_pa55; 
penpack(unum,f,l,nsa,start_alternate,volpass, sharemode, lock able) 



sword := temp file_pass; 

penpack(unum,T,3,nsa,start_root ,volpa5s,exclusive_share_code, lockable) ; 



fib; 
unitnum) ; 



"fid; 

name_type; 

path_5tart_type; 

integer; 

f ile_name_set ; 

path_start_type; 

integer; 

file name set; 



end; 

procedure 5rm_change_name(anyvar f 

unum 
type 

fidptr 
var 

volpass 
pat hi 
nf nsl 
fnsl 
path2 
nfn52 
fns2 
begin 

with f, unitable''[unum] do 
begin 

srm open_di r ( f , unum, open_di rectory, t rue) ; 
if Ioresult = ord[inoer ror) then 

setup_fns(f, fnsl); 
if ioresult = ord(inoer ror ) then 
with fns2 do 
begin 

f ile_nai^e := ' ' ; 
passworfj := ' ' ; 

1193): STRPOS does hot conform to HP standard, see $SUITCH_STRPOSS 

if strpos( '/', fidptr (fwindow)") = then 
1194): STRPOS does not conform to HP standard, see $SUITCH_STRP03$ 
if (strpos('<' , fidptr (fwindow)") - 0) then 
strtopaocl6(fidpt r [ fwindow)^, f ile_nanle) ; 
if file_name = ' ' then 

set ioresult (ord (ibadt it le)); 
end ; 
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1199: 

1200: 

1201 : 

1202: 

1203: 

1204: 

1205: 

1206: 

1207: 

1208: 

1209: 

1210: 

1211 : 

1212: 

1213: 

1214: 

121S: 

1216: 

1217: 

1218: 

1219 

1220:D 

1221 :C 

1222:C 

1223:C 

1224 :C 

1225:C 

1226:C 

1227:C 

1228:C 

I229:C 

1230:C 

1231 ;C 

1232:C 

1233:C 

1234 :C 

123S:C 

1236: 

1237: 

1238: 

1239: 

1240: 

1241 : 

1242: 

1243: 



1244:D 



1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253: 

12S4: 

1255 

1256 

1257 

1258 



-16 
-32 
-34 
-38 
-74 
-76 
-80 
-116 



1 (•••»••• 

1 procedur 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

4 

3 

4 

3 

4 

3 

4 

4 



if ioresult = rd (inoerror) then 
begin 

5trtopaccl6{fvid,volpa5S); 

createlinkpack(unym,l,addr(fn5l),btart_alternate,pathid,volpass. 
1 ,addr [fns2),start_alternate,pathid,volpass,true) 
end; 
5Tm_cio5e_pathid (unum,pathid,fsavepathid); 
end ; 



volpa 
volpa 
pathl 
nf nsl 
fnsi 
Fath2 
nfns2 
fns2 
begin 
iith 
beg 
s 
i 

i 

i 

i 



srm_dup_link ( anyvar f : fib; 

unum : unitnum); 



name_t>'pe; 

name_type; 

pat h_5tart_t ype; 

integer ; 

f ile_name_set ; 

pat h_star T_t ype; 

integer ; 

f ile_name_set ; 



**ii****x**xm:f****» 



;**«»*»** 



unitable^Cunum] do 



in 

rm ope 
f Tore 
setup 
f lore 
srm_o 
f lore 
setup 
f lore 
begin 
str 
str 
ere 



end 
srm_c 
srm_clo 



n_dir [ f , un urn, ope ndi rectory, t rue) ; 

suit = rd [inoerror) then 

_fns(f, fnsl); 

suit = ord Einoer ror) then 

pen_dir{f ibp(fwindow)^, unum, open_di rectory, t rue) ; 

suit = ord (inoerror ) then 

i_fn5(f ibp[fwindow)^. fn52); 

suit = ord [inoerror } then 

to pace 16 (fvid,volpassl ; 

topaocl6(fibp( fwindow)". fvid,volpa5s2) ; 

atelinkpack (unum, 1, add r( fnsl), start alternate, pat hid, volpass, 

1, add r(fn52). start _alternate, f ibp(Twindow) ^. pathid , volpass2, 

f purgeoldlink) ; 



se_pathid [ unum, pat hid, fsavepat hid) ; 

se_pat hid [unum, f ibp(fwindow)^. pathid, fibp(f window) 



. fsavepat hid) ; 



procedure 5rm_purge_name (anyvar f 

unum 



fib; 
unitn 



um) ; 



name_type; 

f ile_name_set ; 



volpass 
fhb 
begin 

with f do 
begin 

5etup_f ns ( f , fns j ; 
if ioresult = ord (inoerror ) 
begin 

strtopaocl6[fvid,volpass) 
purge pack(unum,l,addr(fn5 
end; 



hen 
, St art_alte mate, pat hid, vol pass) 
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1259 

1260: 

1261; 

1262: 

1263: 

1264: 

1265: 

1266: 

1267: 

1268: 

1269: 

1270: 

1271 : 

1272: 

1273:C 

1274:C 

I27S:C 

1276:C 

1277:C 

1278:C 

1279:C 

1280:C 

1281:C 

1282:C 

1283:C 

1284:C 

1285:C 

1286:C 

1287:C 

1288:C 

1289:C 

I290:C 

1291 :C 

1232:C 

1293;C 

1294:C 

1295:C 

1296:C 

1297: 

1298; 

1299: 

1300: 

1301: 

1302; 

1303:C 

1304:C 

1305:C 

1306:C 

1307:" 

1308; 

1309; 

1310: 

1311: 

1312; 

1313; 

1314; 

1315; 

1316; 

1317; 

1318 



-16 

-18 

-22 

-130 



procedure 5rm_PL rge_f ile(anyvar f 

unum 



: fib; 
: unitnum 



■.***lKX****X***M*****»***%*if**) 



volpass 

path 

nfns 



name_type; 

pat h start_type ; 

integer ; 

name_set_array_three: 



begin 

ith f do 
if (St rlen (f t id) = 0) and not fisnew then 

set ioresult (ord(ibadtitle)) 
else 
begin 

if fmodified then 

if not (flockable and not flocked) then 
begin 

seteofpack(funit,fileid,false,fleof): 
if ioresult = ord (ilostf ile) then 
fileld := -1; 
end; 
if fisnew and (not fanonymous) and (not fnosrmtemp) 

srm clo5e^fileid(unum,foldfileid): 
5rm_cTose fTleid( unum, f ileid) ; 
5etup_f ns3(f , nsa) ; 
if ioresult <> ord(ibadtitle) then 
begin 

if (fisnew) and (not fnosrmtemp) then 



begin 
path 
nf rs 
end 
else 
begin 
path 
nfns 
end; 
5trtopaocl6(fvid,volpa55} 
if fisnew then 



= start root; 
' 3; 



= start_alternate; 
- 1; 



I I jsnew I iir Fi 
nsatnfns] . password ;= temp file pass: 
pu r gepack (unum, nfns, add r(nsay,patH, path id, vol pa 
end; 
if not (fisnew and fanonymous) then 

srm_clo5e_pat hid (unum, pat hid, fsavepat hid ) ; 
end; ~ 

(X*«*»X***«**««:*»**««»*»«**»**«*«*««««»*«»««*X«**»*«X«««'<c>l'X 

procedure srm_st retch (anyvar f ; fib; 

unum ; unitnum) ; 



ss); 



y«»x«««««ii:«« ««»«««) 



volpass 
neweof 
begin 

with f do 
begin 
neweof 



name_type; 
integer ; 



((fpos div extentsize) + 1) * extentsize; 



11-720 
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1319:C 




3 


1320:C 




3 


1321:C 




4 


1322;C 




4 


1323:C 




4 


1324:C 




4 


1325:C 




3 


1326:C 




2 


1327:S 






1328:D 


-6 


1 


1329:0 




1 


1330;D 




2 


1331 ;D 




2 


1332:D 


-16 


2 


1333:D 


-124 


2 


1334 :D 


-160 


2 


1335:0 


-164 


2 


1336:0 


-168 


•? 


1337:D 


-172 


2 


1338:0 


-176 


2 


1339:0 


-180 


2 


1340:0 


-204 


2 


1341:C 




2 


1342:C 




2 


1343:C 




3 


1344 :C 




3 


1345:C 




4 


134$:C 




5 


1347:C 




5 


1348:C 




5 


I349:C 




6 


13S0:C 




5 


1351 :C 




3 


1352:C 




4 


1353:C 




4 


1354;C 




4 


136S:C 




S 


1356:C 




6 


1357:: 




S 


1358:C 




S 


1369:C 




S 


1360:C 




5 


1361 :C 




S 



1362; 

1363: 

1364: 

1365: 

1366: 

1367: 

1368: 

1369: 

1370: 

1371; 

1372: 

1373:C 

1374:C 

137S:C 

1376:C 

1377:C 

1378:C 



se t eof pack [f unit , fileid, faise.neweof ) ; 
if ioresult « ord (inoerror ) then 



begin 

fpecf 
fmodified 
end; 



new/eof ; 

t rue ; 



procedure 5rm_clci5e__f ile (anyvar f 

unum 



f»i***.***fK***M^*X*X***lHLTt ********* t*) 

fib; 
unit num) ; 



name_t ype; 

name__set_3rray_three; 

f ile_name_set ; 

integer; " 

integer; 

integer; 

f ile_id type; 

gan9_fiTe_codes; 

protect code_set; 



volpass 

nsal 
fns 

temp:Loresult 
extl 

saveleof 
savef ileid 
usefef t 
pes 
begin 

with f do 
begin 

if fmodified then 

if not (flockable and not flocked) then 
begin 

seteofpack{f unit , f ileid, fals>? , fleof) ; 
if ioresult = ordfilost f ile) then 
fileid ;= -1; 
end ; 
if not fisnew then 

5rni__clo5e_f ileid (unum, fileid) 
else 

if ioresult <> ord (inoerro^ ) then 

5rm_purge_file (f , unum) 
else 
begin 

St rtop3ocl6[fvid,volpa5S) ; 
set up_fns3[f, nsal ) ; 
5etup_fns ( T , fns) ; 

if (ioresult = ord ( inoerro r) ) and (not fnosrmtemp) then 
if not foverwritten then 
begin 

if not fanonymous then 
begin 

srm_clo5e fileid ( unum, foldfileid) ; 

purgepackXunum, 1 , addr [ fns ), start _alternate, path id, vol pass) 
end; 
if ioresult = ord[inofale) then 

ioresult := ord (inoer ror ) ; 
if ioresult <> ord ( inoe rror j then 
5rfn__purge_f ile ■'. f , un jn) ; 
end 
else 
begin 

If foldfileid < then 

foverwritten :== false 
else 
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1379:C 


8 


1380:C 


8 


1381 :C 


8 


1382:C 


S 


1383:C 


8 


1384:C 


7 


138S:C 


7 


1386:C 


S 


1387:C 


6 


1388:C 


7 


1389:C 


7 


1390:C 


7 


1391 :C 


8 


1392:C 


8 


1393:C 


7 


1394:C 


8 


139S:C 


8 


1396:C 


8 


1397:C 


8 


1398:C 


8 


1399:C 


9 


1400:C 


9 


1401 :C 


9 


1402:: 


9 


1403:: 


8 


1404:C 


8 


1405:C 


8 


1406:C 


8 


1407;C 


8 


1408:C 


7 


1409:C 


7 


1410:C 


7 


1411:C 


7 


1412:C 


7 


1413:C 


7 


1414:: 


7 


141S:C 


8 


141S:C 


8 


1417:C 


8 


1418:C 


7 


1419:C 


7 


1420:C 


7 


1421 :C 


7 


1422:C 


7 


1423;C 


7 


1424:: 


8 


1425:: 


7 


1426;: 


8 


1427:: 


7 


1428;C 


7 


1429:C 


7 


1430:C 


7 


1431 :: 


7 


1432:: 


S 


1433:: 


3 srm 


1434:: 


3 end; 


1435:C 


2 end; 


1436:0 


-6 1 


1437 :D 


-6 1 (««»•»««* 


1438:0 


1 procedLire 
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begin 

exchangepack|unum,foldfileid,fileid); 
5rm_close_fileid(unum, foldfileid) ; 
srm_close_pai hid(unym,pathid,f5avepathid); 
end; 
5rm_purge_file ( f , unum) ; 
end; 

ioresult = ord [inoer ror ) ] and (not foverwritten) then 
■ feft <> SYSTnTYPE then (not SYSTM file) 
begin 

srm clo5e_fileid ( unum, f ileidl ; 

if Tioresult = ord( inoerror) ) and (not fnosrmtemp) then 

create linkpack [ unum, J , addr (nsal ) ,5tart_root , pat hid, vol pass, 

1, addr (fns) , st a rt_alte mate , pat hid, vol pass, true) ; 
if ioresult <> ord (inoe rror ) then 

5rm_purge_f ile ( f , un jm) 
else 
begin 

fns . pas'-iword := tenip_file_pass; 
with pa do 
begin 

pas-iword := temp_f2le pass; 

capabilities := nocapabilTties; 

end; 
tempio result := ioresult; 

change pro tec tpac)^ (Lnum,l ,addr(fnsl , start _alternate, 
pathad,volpa55,i,addr(pc5) ) ; 
tempioresult ; 



ioresult 

end; 
end 
else 
begin 

savef ileid 
saveleof 
f pos 

if fpos > 
extl := 
else 

extl := 
usefef t . i 



(SVSTn file) 
fileid; 
fleof; 
:= saveleof ; 
then 
fpos 



extentsize; 

:= feft; 
fns . password := ' ' ; 

create pack {unum, l,addr(fns), start alternate, pa thid, 
vo 1 pas 5,0, nil , usefef t ,3"ata_ records, 
256, extl .extent size, f St art address] ; 
if ioresult = ord [inoer ror ) then 

doo pen pack (unum, f,l, fns, start _aIternate,volpa5S, exclusive share code, false) : 
If ioresult = ord (inoerror) then 

copypack (unum, 5avefileid,0, f lie id, 0, saveleof); 
5 rm_close_T ile id [unum, fileid] ; 
5rm_cl0 5e_pathid [unum,pathid,fsavepathid); 
fileid := savef ileid; 
5rm_purge_file (f , unum) ; 
end; ~ 

i_close_pathid (unum.pathid.fsavepathid); 



:****************** tttt* 

s rm_9 e t _v l_d a t e ( a n y v a r 



**************** 
: datet ime rec ; 



********* 



**********) 



11-721 



Pascal [R 


V 3. on 


6/ 


/34] SRMDSn.TEXT 


26-Dec-e4 21:50:31 Page 25 «»« File name: SRhtOStl »«« 




1439:D 




2 




unum : unitnum); 




1440 :D 




2 


type 




1441 :D 




2 


f 


bptr = "fib; 




I442:D 




2 


van 






1443:D 


-150 


2 


tompfibspace : packed array [1 . . sizeof (f ib ,0) ] of char; 




1444 :C 




2 


beg 


n 




1445;C 






w 


th fibpt r(addr(tempfibspace) )", packet_pt r . rf ileinfo", f ile_infc do 




1446;C 




3 




begin 




1447;C 




3 




funit 


= u n um ; 




1448:C 




3 




pathid 


= -1; 




1449:C 




3 




fUeid 


= -1; 




1450:C 




3 




fpos 


' 0; 




1451 :C 




3 




fkind 


= datafile; 




1452:C 




3 




feft 


= DHTRTYPE; 




14S3:C 




3 




f isnew 


- true; 




1454 :C 




3 




f anonymous 


= t rue ; 




1455 :C 




3 




fmodif led 


= false; 




1456:C 




3 




foptst ring 


' nil; 




1457 :C 




3 




fnosrmtemp 


= false; 




1458:C 




3 




setst rlen[f t:Ld,0] ; 




14S9;C 




3 




srm create file [fibpt r ( addr ( tempfibspace ) )'^, unum) ; 




1460:C 




3 




if Toresult •-■- ord (inoerror ) then 




1461 :C 




4 




begin 

filelnfopack (unum.fileid); 




1462:C 




4 






1463:C 




4 




if ioresult = ord (inoerror ) then 




1464:C 




5 




with f do 




1465:C 




6 




t ran slatedate (creation date ,date , t ime) ; 
5rm_purge_f ile(f ibptr ( add r^tempfib space) ) ,unum) ; 




1466:C 




4 






1467:C 




4 




end; 




1468:C 




3 




end; 




1469:C 




2 


end 






1470:S 












1471 :D 


-6 


1 


[«X»«l«X*«»K:K:KX«JKl«««««K*««»**««»»*«**««*»**«»**«*«««l|(X»»:y«»«t«»X»««««X»:>K«:KX*X«) 




1472:0 




1 


pro 


edure srm lock file(anyvar f : fib; 




1473:0 




2 




unum : unitnum) ; 




1474:C 




2 


beg 


n 




1475:C 




2 


w 


th f, packet ptr.rlock" do 




1476:C 




3 




begin 

lockpack(unum,fileid,fwaitonlock); 




1477:C 




3 






1478:C 




3 




if ioresult - ord (inoerror ) then 




1479:C 




4 




if not success. value then 




1480:C 




5 




5etiore5ult(ord[ifilelocked)) 




1481 :C 




5 




else 




1482:C 




5 




begin 

fileinfopack(unum,fileid) ; 




1483:C 




5 






1484 :C 




5 




if ioresult - rd [ inoer ror ) then 




1485:C 




6 




with packet_pt r . rfileinfo^. file_info do 




1486:C 




7 




beqin 




1487:C 




7 




tpeof := logical eof; 




1488:C 




7 




fleof := logical_eof; 




1489:C 




7 




flocked := true; 




1490:C 




7 




end ; 




1491:C 




5 




end : 




1492:C 




3 




end ; 




1493:C 




2 


end 






1494:S 












149S:D 


-6 


1 


(«» 


x:t»*x».x»^****x********x*******^***!ttx****************:****************n****} 




1496:0 




1 


pro 


etiure srm_unlock_file (anyvar f : fib; 




1497:0 




2 




unum : unitnum); 




1498:C 




2 


beg 


n 
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1499:C 




2 


w 


t h f do 




1500:C 




3 




begin 




1501:C 




3 




if ioresult == ord (inoer ror ) then 




1502:C 




4 




begin 




1503:C 




4 




call(am,addr(f) ,flu5h,f ,0,0); 




1504:C 




4 




flastpos := -1; 




1505:C 




4 




if ioresult = ord (inoe rror ) then 




1506:C 




5 




begin 

If fmodified then 




1507:C 




5 






1508:C 




6 




seteofpack (unum, file id, false, fleof); 




1S09:C 




5 




if ioresult = ord(inoerror) then 




1510:C 




6 




unlockpack (unum.fileid); 




1511:C 




5 




if ioresult = ord ( inoe r ror ) then 




1512:C 




6 




flacked := false; 




1513:C 




5 




end; 




1514:C 




4 




end; 




1516:C 




3 




end; 




151S:C 




2 


end 






1517:S 












1518:0 


-6 


1 


(**«**««***********»**«*«********«*»**»*«*««*«««««*«««*«**«***«*««»«**««*«*«*) 




1S19:D 




1 


procedure srm_st r ip( anyva r f : fib); 




1520:0 




2 


var 






1521:0 


-256 


2 


s 




5tring[255] ; 




1522:0 


-260 


2 


f 


ndx 


integer 






1523:0 


-264 


2 


s 


ndx 


integer 






1524:0 


-268 


2 


nemelen 


integer 






1625:0 


-272 


2 


P 


ssslen 


integer 






1526:0 


-276 


2 


a 




integer 






1527:0 


-277 


2 


ch 


char; 




1528:0 


-278 


2 


s 


ip 


boolean 






1529:0 


-279 


2 


inpass 


boolean 






1530:0 


-230 


2 


ncpassyet 


boolean 






1531 :C 




2 


beg 


n 




1532:C 




2 


namclen 


" 0; 




1533:C 




2 


Pdsslen 


= 0; 




1534:C 




2 


f 


ndx 


= 1 ; 




1635:C 




2 


5 


ndx 


= 0; 




1536:C 




2 


set5trlen(5,2S5) ; 




1S37:C 




2 


inpass := false; 




1538:C 




2 


nopassyet := true; 




1539:C 




2 


w 


th f do 




1B40:C 




3 




begin 

if ftitled] ^ '<' then <skip over volume password) 




1541 :C 




3 






1542:C 




4 




repeat 




1543:C 




5 




findx := findx * 1; 




1 544 : C 




5 




if (findx > name type len + 3) or (findx > st rlen(f t itle) ) then 




1545:C 




6 




setioresult(or5(iba5pass)); 




1S46:C 




5 




until (f titletf indx-1] = '>'] or (ioresult <> ord(inoer ror) ) ; 




1547:S 












1548:C 




3 




while (findx <= s t r len ( f t i t le ) ) and (ioresult = ord(iroerror) ) do 




1549:C 




4 




begin 




1650:C 




4 




skip := false; 




1551 :C 




4 




ch ::= ftitleCflndx] ; 




1552:S 












1553:C 




4 




if inpass then 




1554:C 




5 




begin 




1555:C 




5 




skip := t rue ; 




1556:C 




5 




if ch = '>' then 
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1557:C 




6 




inpass := false 


15S8:C 




6 




el 


e 
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1559 

1560 

1561 

15S2 

1563 

1564 

15B5 

1566:C 

1567:C 



1568: 

1569: 

1570: 

1571: 

1572: 

1573: 

1574: 

1575: 

1576; 

1577: 

1578: 

1579: 

168 

1581 : 

1582: 

1583: 

1584 :C 

158S:C 

1586:C 

1587:C 

1588:S 

1589:C 

IS90:S 

1591 :C 

1592:C 

1593:C 

1594 :C 

1S95:C 

159S:C 

1597:C 

1598:C 

1599;C 

1600:C 

1601:C 



1602: 

1603: 

1604: 

1605: 

1608: 

1607 ; 

16 

1609: 

1610: 

16 

1612: 

1613: 

1614: 

16I5:S 

1616:D 

1617:D 

1618:C 



:= passlen *■ 1 ; 
/' then 



6 passlen 

S end 

5 else if ch = 

6 begin 
6 nopassyet := true; 
6 inpass := false; 
6 namelen := 0; 

6 passlen := 0; 

6 end 

6 else if ch = '<' then 

7 if nopassyet then 

8 begin 

8 nopassyet := false; 

8 inpass := true; 

8 skip := true; 

8 end; 

4 if not skip then 

5 begin 

5 if ch = '/' then 

6 begin 

6 if s[sindx] = '/' then 

7 setioresult (ord(ibadtitle) ) 
6 end 



else 




namelen 


:= namelen 


sindx 


:= slndx + 


stsindx] 


;= ch; 


nd; 





1; 



f indx := findx + 1 ; 

if (namelen > name type len) then 

setioresult (orddbadt It le) ) 
else if (passlen > name_type_len) then 
set io result (ordlibadpass) ) ; 
end; 

if ioresult = ord (inoerror ) then 
begin 

setst rlen (s, sindx} ; 

i := 0; 

while [sEsindx-i] <> '/') and (i < sindx) do 

i := i + I; 
if i = then 

set ioresult ( ord (ibadt it le) ) 
else 
begin 

setst rlen(ft id,0) ; 
St rmove (i,5,sindx-i + l,ftid,l) ; 
setst rlen(ftitle,0) ; 
St rmove (5indx-i,s,l ,ftitle,l); 
end; 
4 end; 
'■} end; 



procedure srmdaminit; 
begin 



*****m*** 



« X X « X x *«««*» » 



»«*»«>t«««* 



X*t.*m*»**MMM ) 
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1619:C 




2 


•ypRNINS 


: (line 


1620:C 




2 


1621:C 




2 


1622:3 






1623;D 


-6 


1 


1624:D 






1625:D 




2 


1626:0 




2 


1627:0 




;> 


1628:0 


-4 


2 


1629:0 


-8 


2 


1630:D 


-12 


2 


1631 :D 


-30 


2 


1632:0 


-48 


2 


1633:0 


-66 


2 


1634:0 


-188 


'.'. 


1635:0 


-189 


2 


1636:0 


-190 


2 


1637:C 




2 


1638:C 




2 


1639:C 




2 


1640:: 




2 


1641 ;C 




2 


1642;C 




2 


1643:C 




3 


1644 :C 




4 


1645:C 




<; 


1646:C 




6 


1647:C 




S 


1648:C 




S 


1649:C 




6 


1650:C 




6 


1651:C 




6 


16S2:C 




6 


1653:C 




(i 


1654 :C 




6 


166S:C 




6 


1856:: 




6 


1657:: 




6 


1668:: 




6 


1659:C 




6 


1660:C 




6 


1661 ;C 




6 


1662:: 




6 


1663:: 




El 


1664:: 




6 


1665:: 




6 


1666:: 




6 


1667:: 




6 


1668:C 




6 


1669:: 




6 


1670:: 




7 


1671:: 




6 


1672:: 




7 


1673:: 




6 


1674:C 




7 


1675:3 






1676:: 




6 


1677:: 




6 



srminit ; 

1620): 'RDDR' of a constant may not be sjpported on other implementations 

passwordar rayptr := addr(constpa5sarra/); 
end; 



procedure srmdam(anyvar 



van 

holdpathid 
savepathid 
saveflleid 
saveft id 
saveff pw 
savefvid 
saveft itle 
savefsavepathid 
fisafib 
begin 

ioresult := ord(i 

srmsavesc := 0; 

lockup; 

fisafib := false 

try 

with f, unitable-'Cun 
if offline then 

ioresult 
else 
begin 

if request in 



X***n*i!-K***%*%*.*rt.*x-$*t ********** 

f : fib; 
unum : unitnum; 
request : damrequesttype) ; 

; integer; 

: integer; 

: integer; 

: tid; 

: passtype; 

: vid; 

: fid: 

: boolean; 

: boolean; 



*9X******** ] 



urn} do 

ord(znodevice I 



begin 
fisafib 

if St rlen ( 
setst rle 

if St rlen, 
set St rle 

if strlen[ 
setst rle 

savepathid 
saveflleid 



[opendirectory, 
openparentcJir , 
closedirectory, 
catalog, 
catpasswords , 
set passwords , 
openfile, 
createfiie, 
overwritef ile, 
makedi rectory, 
closef ile, 
changename^ 
duplicatelink, 

?urqename, 
ockfile. 
unlockfiie, 
purgef ile, 
set unit prefix, 
stretchit 

:= true; 

ftid) > tidleng Then 

n(ftid,0) ; 

ffpw) > passleng then 

n(ffpw,0) ; 

fvid) > vidleng i hen 

n(fvid,0) ; 



{f is a fib) 



<fix uninitialized fib strings) 



: = p a t h i d ; 
:= fileid; 



{save fib fields to be restored on error) 
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1678:C 


6 


1679:C 


6 


1680:C 


6 


1681:C 


6 


1682:C 


6 


1683:C 


7 


1684:C 


7 


168S:C 


7 


I686:C 


6 


1687:C 


5 


1688:C 


6 


1689:C 


6 


1690:C 


6 


ie91:C 


6 


1692:C 


7 


1693:C 


6 


1694:5 




1695:C 


6 


1696:C 


6 


1697:C 


6 


1698:C 


6 


1699:S 




noo:C 


6 


1701;S 




1702:C 


6 


1703:C 


6 


1704:C 


6 


170S:C 


7 


1706:C 


7 


1707:C 


7 


1708:C 


7 


1709:C 


6 


1710:S 




17U;C 


6 


ni2:C 


6 


ni3:C 


6 


ni4:C 


7 


1715:C 


7 


1716:C 


7 


1717:C 


7 


1718;C 


6 


1719:S 




1720:C 


6 


1721 ;C 


6 


1722:C 


6 


1723:C 


6 


n24:C 


6 


172S:C 


7 


1726:C 


7 


1727:C 


7 


1728:C 


8 


1729:C 


7 


1730:C 


6 


1731:S 




1732:C 


6 


1733;C 


6 


1734:C 


6 


1735:C 


6 


1736:C 


6 


1737:C 


6 


Pascal [Ri'v 


3. on 6/ < 


1738:C 


7 


1739:C 


6 


1740:C 


7 


1741 :C 


7 


1742 :C 


7 


1743:C 


8 


1744;C 


9 


1745:C 


7 


1746:0 


6 


1747:S 




1748:C 


6 


1749:C 


6 


1750:C 


6 


1751 :C 


6 


1752:C 


7 


17S3:C 


7 


1754:0 


7 


17SS:C 


7 


1756:C 


6 


1757:C 


6 


1758:3 




1759:C 


6 


1760:C 


7 


1761 :C 


7 


n62:C 


7 


1763:S 




n64:C 


6 


1765:S 




1766:C 


6 


1767:3 




1768:0 


6 


1769:0 


6 


1770:0 


6 


1771:0 


6 


1772:0 


7 


1773:0 


7 


1774:C 


7 


1775:0 


7 


1776:0 


6 


1777:0 


6 


1778:S 




1779:0 


6 


1780:3 




1781:0 


6 


1782:5 




1783:0 


6 


1784 :S 




1785:0 


6 


1786:3 




1787:0 


6 


1783:3 




1789:C 


6 


1790:3 




1791 :0 


6 


1792:3 




1793:0 


6 


1794:0 


6 


1795:3 




1796:0 


6 


1797:S 
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savef savepath 

savef t id 
savef fpw 
savefvid 
if 5t rlen(fti 
set St rlen (s 
else 

saveftitle 
end; 
case request of 
opendirec lory, 
openparentdir 



closedirectory 



catalog 

cat passwords 



setpasswords 
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id := f savepathid; 

ftid; 

ffpw: 

fvid; 

tie) > fidleng then 
aveftitle,0) 

:= ftitle; 



openf lie 



begin 

srm open__dir ( f, unum,open_directory, request * openparentdir) 

if loresult = ord [ inoerror) then 

srm_get_dir_info(fwandow^,pathid,unum, true, false) ; 
end; 

: begin 

fsavepathid := false; 

srm_cl05e_pat hid (un urn, pat hid, false); 
end; 

srm_cat alog(f , unum) ; 

begin 

srm open_di r ( f , unum, ope redirect ory, t rue) ; 
if loresult = ord ( inoer ror) then 
begin 

srm_cat_pa5S(f jUnum) ; 

srm_close_pat hid (unum, pat hid, fsavepathid) ; 
end; "" 
end; 

begin 

srm open__dir ( f , unum, open_di rector y, 1 rue) ; 
if loresult = ord (inoerror) then 
begin 

srm set_pass ( f , unum) ; 

srm~close__pathad (unum, pathid, fsavepathid); 
end; ~ 

end; 

begin 

Ti srew := false ; 

fnosrmtemp := true; {default case) 

srm open_dir (f, unum, open__direc tor y, t rue ); 
if loresult = ord (inoerror ) then 
begin 

srm open_f ile (f , unum) ; 

if loresult <> ord ( inoerror ) then 

srm_close_pathid (unum.pathid, fsavepathid) ; 
end ; ~ 
end; 



createf ile, 
overwritefile 



egm 
f isnew 

fnosrmtemp 
foverwritten 



if not fanonymous then 



= true; 
= false; 
request 



overwritefile; 
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srm_open_di r(f, unum, open directory, true ); 
if loresult = ord ( inoerrorj then 
begin 

srm create f ile ( f, unum) ; 
if loresulT <> ord(inoerror ) then 
if not fanonymous then 

5rm_close_pathid(unum, pat hid, fsavepathid) ; 
end; 
end ; 

makedirec tory : begin 

holdpathid := pathid; 

srm open_dir ( f , unum, ope n_di rectory, false); 
if loresult = ord (inoerror ) then 
begin 

3 rm_create_dlr (f , unum) ; 

srm close_pat hid (unum, pat hid, fsavepathid) ; 
end; ~ 
pathid := holdpathid; 

end; 

closefile : if (fisnew and fanonymous) then 

5rm_purge_f ile(f , unum) 
else 

5rm_close_f ile(f , unum) ; 

srm_ch3nge_name (f , unum) ; 

srm_dup_link( f , unum) ; 

begin 

holdpathid := pathid; 
srm open di r ( f, unum, open_di rectory , t rue ) ; 
if Toresult = ord ( inoerror ) then 
begin 

srm_purge_name (f ,unum) ; 

5rm_close_pat hid (unum, path id, fsavepathid) ; 
end; 
pathid := holdpathid; 
end; 

lockf ile : srm_lock_f ile (f ,unum) ; 

unlock file : srm_unlock_file (f ,unum) ; 

purgefile : 5rm_purge_f ile ( f, unum) ; 

setunitprefix : srm_set_unit_pref ix (f ,unum) ; 

stretchit : srm_st retch (f, unum) ; 

get volume name : srm_get_vol_name(f , unum) ; 

getvolumeda te : srm_get_vol_date[ f , unum) ; 

setvolumedate , 

crunch : {do nothing, but no error); 

stripname : s rm_st rip(f ) ; 



changename 

duplicaitelink 

purgename 
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1798:C fi otherwise set ioresult (ord ( ibadrequest 1 ) ; 

1799:C !> end: 

1800:S 

1801:C Si if (ioresult <> ord (inoerror 1 ) and fisafib then (restore fib for subsequent calls} 

1802:C (1 begin 

1803:C 6 ■ pathid := savepalhid; 

1804:C 6 fileid :- savefileid; 

1805:C (i fsavepathid := savefsavepathid; 

1806:C t, ftid := saveftid; 

1807:C fl ffpw := saveffp*; 

1808:C 6 fvid := savefvid; 

1809:C 6 if strlen(5aveftitle) > then 

1810:C 7 ftitle := saveftitle; 

1811:C fl end; 

1812:C 6 ifioresult= ord(i5rmcatchall i then 

1813:C 6 if srmsavesc <> then 

1814:C 7 escapetsrmsavesc) : 

1815:C S end; 

1816:C 3 recover 

1817:C 3 begin 

1818:C 3 If escapecode = ioescapecode then 

1819:C 4 setioresult (ord(isrmcatchall) ) 

1820:C 4 else 

1821:C 4 begin 

1822 :C 4 lockdomn; 

1823:C 4 escape(escapecode) ; 

1824:C 4 end; 

182S:C 3 end; 

1826 :C 2 lockdown; 

1827:C 2 end; 

1828:S 

1829:C 1 end; ( s rmdamnodule) 

1830:S 

1831 :D 1 import 

1832 :D 1 srmdamnrtodule; 

1833:C 1 begin (program init_srm) 

1834:C 1 srmdaminit; 

1835:C 1 end. 

1836:S 

No errors. 3 warnings. 

>>:<«» Nonstandard language features enabled «*»** 
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SRM_DRV 



Description 

SRM_DRV is the low-level support for SRMAM and SRMDAM. Primarily, it serves as an SRM packet 
constructor, sender and receiver. 



Requirements 

The I/O library drivers for the 98629 card (DATA.COMM). 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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I:S 
2:S 
3:S 
4:S 
5:S 
6:S 
7:S 
8:S 
9:S 
10:S 
n:S 
12.S 
13:S 
14 -.S 
15:S 
16;S 
17:S 
18:S 
19:0 
20:S 
21 :D 
22:0 
23:0 
24:D 
25:D 
26:D 
27:0 
28:0 
29:0 
30:0 
31 :D 
32:0 
33:S 
33:0 
34:0 
35:S 
36:S 
37:0 
38:" 
39: 
39: 
40: 
41: 
42: 
43: 
44: 
45; 
46: 
47: 
48 
49: 
50:0 
51 :D 
52:D 
63:S 
54 :S 
55:S 
56:0 
57:0 
58:0 
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(c) Copyright Hewlett-Packard Company, 1983. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
wrilten consent of Hewlett-Packard Company. 



RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth 



garagraph (b) (3) (B) of the Rights in Technical 
ata and Computer Software clause in 
OHR 7-104.9(3) . 

HEULETT-PBCKfiRD COnPBNY 
Fort Collins, Colorado «) 

Scopyright 'COPYRIGHT (C) 1983 BY HEULETT-PfiCKflRD COtlPRNY' 
Srange off$ 
$debug off$ 
SmodcalS 
SsysprogS 

$LlCSd$ 

module srm: 

1 $5earch ' lOLIB :KERNEL'$ 
1 import lodeclarat ions, 

1 sysglobals, 
1 loader; 
1 export 



1 Sinclude 
1 type 
< 

byte 

1 halfwor 
1 Jinclude 



INlT:SRn_TYPES'$ 

- 0..255; 
I = -32768. .32767: 



PfiCKETS'S 



»**»«»«««*«: 



*»««*»««** 



GfiNGLIfi MESSAGE FORflfiTS 
AND RELBTED DEFINITIONS 



r»**««»««*»*»**«« 



+ » 



1 CONST 

1 

1 name_type_len = 16 



Message Packet Sizes For Messages That fire Sent To Ganglia 
(* plus 36 *^# file name sets 



1 5ize_to_are_you_alive 

1 size to cat = 



12; 
128; 
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n 


63 


1) 


64 
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66 





67 


1) 


68 


n 
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70 


1) 


71 


II 


72 


1) 


73 


n 


74 


n 


75 


1) 


76 


11 


77 


D 


78 


[) 


79 
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D 


81 
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n 
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S 


86 
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11 
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11 
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11 
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n 


97 


n 
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99 


1) 
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II 
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11 
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n 
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D 
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11 


105 


11 
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n 
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n 
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11 
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u 
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11 
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11 
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n 
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D 
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11 
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s 
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s 
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5ize_to_c at protect = 
5ize_to_changeprotect = 
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s jze__to_change vol_label = 
size_to_close = 
size_to_copy = 
size to'create = 



size 
size 
size 
size 
size 
size 
size 
size 
size' 
size 
size 
size 
size 
size 
size 
size 



to_c reatelink = 
.to_flock = 
'to_fun]ock = 
_to~gang_cleanup 

to_info = 
.to_init_vol = 
.to_open = 

to^position = 

to^purge = 

to_read = 
.to_set_eof = 
__to_set_date = 
'to_vol5t at us = 
'to_write = 

to_xchg_data = 

to_xchg_open ~ 



128; 
116; 

132 
56 
32 

152 

144 
20 
20 
16 
20 

172 

132 
28 

U2 
40 
28 
44 
84 
48 

140 
20 



(* plus 36 * # file name sets «) 
(* plus (36 « # file name sets) + 
(24 * # file name sets) * 



(* plus (36 • # file name sets) + 
(24 * tt protect code sets) 
(* plus 36 * t file name sets «) 



plus 24 
plus 36 



# protect code sets 
« file name sets «) 



(* plus 36 * » file name sets *) 



plus the size of the record <= 
plus 36 * » file name sets *) 



{* 



I Message Packet Sizes For Hessages Ganglia Will Send Back 



size 


from are you al 


ve = 


16 


size 


from cat = 




24 


size 


from catprotect 


= 


24 


size 


from changeprotect = 


lb 


size 


from change vol 


label 


= 16 


size 


from close » 




lb 


size 


from copy = 




20 


size 


from create = 




lb 


size 


from createlink 


= 


16 


size 


from flock = 




20 


size 


from funlock = 




16 


size 


from gang clean 


P = 


16 


size 


from gang error 




16 


size 


from info = 




«8 


size 


from init vol = 




lb 


size 


from open = 




S2 


size 


from position = 




16 


size 


from purge = 




16 


size 


from read = 




36 


size 


from set eof = 




16 


size 


from set date = 




16 


size 


from volstatus = 




40 


size 


from write = 




^0 


size 


from Kchg data = 


16 


size^ 


_f rom_xchg_open = 




lb 



* plus 68 * # entries returned *) 
plus 20 * » prot code entries returned } 



(* plus the size of the record <= 512 *] 



Ganglia Message Request Types, flodeSj find Codes 
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File name: SRn DRV »«« 



119: 

120: 

121: 

122: 

123: 

124: 

12S: 

126: 

127: 

128: 

129: 

130: 

131: 

132: 

133: 

134: 

135: 

136: 

137: 

138: 

139: 

140: 

141: 

142: 

143: 

144: 

145: 

146: 

147: 

148:D 

149:0 

150:0 

151:S 

152:0 

153:0 

154:0 

155:0 

156: 

157: 

158: 

159: 

160: 

161: 

162: 

163: 

164: 

165: 

166: 

167:0 

158:0 

169: 

170: 

171: 

172: 

173: 

174: 

175: 

176: 

177: 



{*** File Access Method Requests ««*) 



req old read 


-0; 


req write 


-1; 


req position 


= 2; 


req read 


= 3; 


req set eof 


=4; 



iOld read packet > 

(Unite a record to an open file.) 

{Position an open file.) 

(Read a record from an open file.) 



(»»« Sharing Requests «»•) 

req_flock =8; (Lock an open file for exclusive use.) 

req funlock =9: {Unlock an open file.) 

req info =10; 

req~close =13; {Close an open file.) 



<♦ 



Directory Pccess Requests 



req open 
req'purgelink 
req~catalog 
req~c reate" 
req createlink 
r eq_c h a nge protect 
req_cat protect 
req~xch9_data 



= 14 
= 15 
= 16 
= 17 
= 18 
= 19 
=20 
-21 



») 



{List all the files in a directory.) 



{Change the passwords on a file.) 
(List all the passwords on a file.) 



{*** Volume Recess Requests *««) 
req_volstatus =22; 
req_init vol =23; 
req_labeT =24; 

(*«* File Transfer Requests ««*) 
req_xchg_open =29; 
req~copy~ =30; 

(*** Ganglia Requests ***) 
req_gang_cle3nup =1000; 
req_are_you_alive =1001; 



{*** Record Modes ***) 

data_records = 0; 

directory_records = 1; 

{*** Share Codes «««) 

exclusive_share code = 0; 

shared_share_co3e = 1; 

closed_share_code = 2; 

cor rupt_share_code = 3; 

{««» Bccess Codes «««) 

random_acce5s = 0; 

seqijential_acces5 = 1; 

primit ive_access = 2; 



178:D 



Enumerated Types find Minor Structures Used To Make Up More 
Major Structures Described In The Next Section 
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179:0 

180:0 

181:0 

182:D 

183:0 

184: 

185: 

18 

187: 

18 

18 

19 

191:0 

192:0 

193:0 

194:0 

19S:D 

196:0 

197:0 

198:0 

199:0 

200:0 

201:0 

202:0 

203:0 

204:0 

205 :D 

206:0 

207: 

208: 

209: 

210: 

211: 

212: 

213: 

214: 

215: 

216:0 

217:0 

218:0 

219:0 

220:0 

221 :S 

222:0 

223:0 

224:0 

225:D 

226:D 

227:D 

228:" 

229: 

230: 

231 : 

232: 

233: 

234: 

235: 

236: 

237: 

238: 



acce55_code_ 
(ac_manag 
ac_read, 
ac_write 
ac"searc 
ac_purge 
ac_creat 
ac_execu 
ac_gencr 
ac~gene 
ac_gener 
ac_gene 
ac_gener 
ac_gencr 
ac_9ener 
ac_gener 
ac_gener 



link, 

elink, 

te, 



icl , ac_gene 
ic2,ac~gene 
ic3,ac_gene 
ic4,ac_gene 
ic5,ac_gene 
ic6,ac_gene 
ic7,ac_gene 
icS.ac qene 
■ 2^); 



ric09, 
riclO, 
ricU, 
ricl2, 
ricI3, 
ricl4, 
riclS, 
ricl6, 



ac_genericl7 , 
ac_gener jcl8 , 
ac_gene ricl9, 
ac_gene ric20 , 
ac_generic21 , 
ac_generic22 , 
ac_generic23 , 
ac_generic24 , 



file_id_type = integer; 

{*** Filler Definitions Used In Padding Out Message Packet Layouts «**) 
gang_boolean filler = boolean; 
gang 32bit filler = integer; 
gangll6bit~filler = -32768. .32767; 



long_boolean 
1: 
2: 



end; 



■ record case integer of 
i : integer) ; 
filll; g3ng_16bit_filler; 
f ill2 : qanq_boolean_filler ; 
value ; boolean) ; 



gang_f ile_codes = packed record 
case Integer of 



end; 



integer) ; 
(sil : short int : 
5i2: shortintj: 
(firstword: -32768 . .32767; 
division_code : 0, .63; 
dcd_system_type : 0. . 15; 
dcd file type: 0. .63); 



gang_open type = 
(open_3ata^ 

pe n_pro tec ted_di rectory, 
open^directory 



Normal data file) 

Directory not closed on cleanup) 

Directory closed on cleanup) 



name_type = packed array [1 . .name_type_len] of char; 



path_start_type = 
(5tart_r"oot , 
start_alternate 



posit ion_type = 
(pos_ab5olute, 



(Start search at root directory) 
(Start search at a working directory, > 



(Position at absolute location in file) 



11-729 
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11 
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11 
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1) 
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II 
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11 
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11 
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11 
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{Position relative to current record) 



I Data Structures Uhich Are Part Of Message Packet Layouts 

acce55_capabilit ies = packed array [ access_code_type ] of boolean; 

date t ype = reco rd 

fill: ganq_l5bit_filler; 
date : packed reco rd 

month: . . 12; 
day: 0. .31 : 
year : 0. .100; 
end; 
secofids_since_midnight ; integer 
end; 



device_addre5s_t ype = record 



addressl 
haddress 

unit_num 
volume_num 
end; 



f ile_header_t ype = record 



integer ; 
intege r ; 
intege r ; 
intege r 



num file name_set5 
wo ririnq_3i rectory 
filler! 
path_type 
root^password 
end ; 

f ile_^info_type = record 

fTle^name 

open_f lag 

snare_code 

f ile_code 

record_mode 

max_record_^size 

max_f ile_sTze 

creat longdate 

last acces5_date 

capabilities 

logical eof 

physicaT_size 
end; 



integer ; 
file_id type; 
ganq_16&it_f ille r 
patn_5tart_type; 
name^t ype; 



name_t ype; 

long_boolean; 

integer ■ 

gang_file_codes; 

integer ; 

integer ; 

integer ; 

date_type ; 

date_t ype ; 

acce ss_capabi lit ies; 

integer ; 

integer; 



file_^name_5et 
fTle_name 
password 
filler 

end; 

linkfillertyp 
requeue : 
zitl: 
zit2: 



= record 
name_t ype ; 
name_t ype ; 
gang_32bit_f iller 



packed record 
boolean ; 

byte; < unused ) 

integer ; { unused } 
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D 


357 


1) 


358 


D 



3.011 6/4/84] PACKETS. TEXT 



oddbytef iller : 


byte; 


dest addr : 


byte; 


sourceaddr: 


byte; 


len lobyte: 


byte; 


len hibyte: 


byte; 


level: 


byte; 



msg_packet_type 
'n5g_packet_pt r = 



owner_id^t ype = record 

id : Tnteger; 
end; 
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{ unused ) 

{ These three bytes > 

< are filled in by > 

{ the transmitting card > 



packed array [1..S00 (or so) ] of char; 
''msg_packet_type; 



*** File name: SRri_DRV «** 



protect code set 
capa5ilitTes 
password 

filler 
end; 



return header type = reco 
linrfiUer 
message_lengt h 
return_reqLtest_type 
user_seqijencing_f ield 
Stat us 

end; 

send header_type = record 
iTnkfiller 
me55age_length 
send_reque5t^type 

user~sequencTng_f ield 
end; 

volume header type = recor 
filTerl - ' 
driver_name 
catalogue organizat ion 

device_ad3're5 3_present 
device_addre5s 
volume_name 
end; 



■ecord 

access_capabilit ies; 
name_type; 
gang_32bit_filler 



linkf illert ype; 

integer; 

integer; 

integer; 

integer 



linkf iller t ype; 
integer; 
integer; 
integer 



3ang_32bit_filler; 
name^type; 
name_t ype; 
iong_boolean ; 
device_addres5_t ype; 
name_t ype; 



volume_info_t ype 
free blocks 
bad^Flocks 
medTa origin 
interTeave 
volume^label 

end; 



record 
integer; 
integer ; 
integer; 
integer; 
name_t ype; 



{* 



I Send and return record layouts for request: flre You Olive ?! 



send__are__you_alive = record 
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Pascal [Rev 3. On 


6/ 4/84] PACKETS. TEXT 




26-0ec-e4 21:49:12 Page 7 »•« File name: SRn_0RV ««« 




359:D 


rsend mess header ; send header type; 




360:0 


end; 




361:0 






362 :D 


ret ijrn_are_you„alive = record 




363:0 


return mess"header : return header type; 




364:0 


end; 




365:0 






366:0 






367:S 
368:S 






\* + 
1 Send and return record layouts for request: Catalogue 1 




369:0 
370:0 






+ ^y 




371:0 


send catalogue = record 




372:0 


send mess header 


send header type; 




373:0 


max_num files 


integer; 




374:0 


file in^ex 


integer; 




375:0 
376:0 


fillirl 

vo lume_name_heade r 


gang_32bit filler; (actual num files) 
volume hea?er_type; 




377:D 


file name header 


file header type; 
gang 32bit Tiller; 




378:0 


fiUer2 




379:0 


start_name_5ets 


integer 




380:0 


end; 




381:0 






382:0 


return_catal09ue = record 




383:0 


return mess header 


return header type; 




384:0 


fillerT 


gang_32bit filler; (file index) 
integer; 




385:0 


actual num files 




386:0 


cat inTo 


array [1..7] of file info type 




387:0 


end; 




388:0 






389:0 






390 :S 
391:S 






1 Send and return record layouts for request: Catalogue Protect Codes 1 




392 :D 
393:0 


^ . _ ' ^ '^ 




' *) 




394:0 


send_cat_pas5words = record 




396:0 


send mess header 


send_header_type; 




396:0 


max num passwords 


integer ; 




397:0 


filTerl" 


gan9_32bit„filler; (actual passwords) 




398:0 


password index 


integer ; 




399 : D 


volume name header 


volume header type; 




400:0 


file name header 


file header type; 
gang 32bit Tiller; 




401:0 


filler2 




402:0 


start name sets 


integer 




403:0 


end; 




404 :D 






405:0 


return cat passwords = record 




406:0 


return mess header : return header type; 




407:0 


actual num passwords : integer; 




408:0 


fillerT : gang_32bit filler; 




409:0 


password_info : array [1 . .?4] of record 




410:0 


password : name type; 




411 :0 


capabilities : access capabilities 




412:0 


end 




413:0 


end; 




414:0 






415:0 






416:S 
417:S 






V*" , + 

1 Send and return record layouts for request: Change Protect Codes 1 




418:0 1 






+ +j 
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419:0 1 






420:0 1 


send_change_protect_codes = record 




421:0 1 


send_me5s_header 


send header type; 




422:0 ] 


volume_name_header 


volume header type; 




423:0 1 


f ile_name_heade r 


file header type; 




424:0 1 


num protect code sets 


integer; 




425:0 1 


start name sets 


inteqe r 




426:0 1 


end; 




427:0 1 






428:0 


return_change_protect codes = record 




429:0 1 


return mess header : return header type 




430:0 1 


end; 




431:0 1 






432:0 1 






433:S 
434:S 






1 Send and return record layouts for request: Change Volume Label 1 




435:0 1 






* +^ 


436:0 1 






437:0 1 






438:0 ) 


send_mess_header 


send header type; 




439:0 1 


volume name header 


volume header type; 




440:0 1 


password 


name type; 




441:0 1 


new volume name 


name type; 




442:0 1 


new_vol_pas5word 


name_type; 




443:0 1 


end; 




444:0 ] 






445:0 1 


return change volume label = record 




446:0 ] 


return mess header : return header type 




447:0 1 


end; 




448:0 1 






449:0 1 






450 :S 

451:3 






f* + 

1 Send and return record layouts for request: Close R File I 




452:0 : 


i __ _ . _ !\ 




+ +^ 


453:0 1 






454:0 1 


send_closeaf ile = record 




455:0 ] 


send mess header 


send header type; 




456:0 1 


file id 


file id type; 




457:0 ) 


directory_pa5sword 


name_type; 




458:0 1 


file password 


name_type; 




469:0 ) 


fillers 


long boolean; 




460:0 1 


nodeallocate 


long boolean: 




461:0 1 


end; 




462:0 1 






463:0 1 


return closeafile = record 




464:0 1 


return mess header : return header type 




465:0 1 


end; 




466:0 ) 






467:0 1 






468:S 
469:5 






^ + + 

1 Send and return record layouts for request: Copy File To File 1 




470:0 1 






^ . --^ ^ y 


471:0 1 






472:0 ] 


send_copy ' record 




473:0 1 


send_mes5 header : send header type; 




474:0 ] 


source file id : file id type; 




475:0 ] 


source offset : integer; 




476:0 ! 


destination file id : file id type; 


11-731 


477:0 1 


destination^off set : integer; 


478:0 1 


requested 




integer; 
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479;D 


I end; 






480:D 








481 :D 


1 return copy = record 






482;D 


1 return mess header : return header_type: 






483:D 


1 actual : integer; 






484:D 


1 end; 






485:D 








486:D 








487:S 




- + 




\* 


488:S 


1 Send and return record layouts for request: Create P File 


1 




489:D 




-> 






490:D 








491:D 


1 send createafile = record 






492:D 


1 send_mess_header 


send_header_lype; 






493:D 


1 volume_name_heade r 


volume header type; 






494:D 


1 f ile_name_header 


file header type; 






495:D 


1 file_code 


gang file codes; 






496:D 


1 record mode 


integer; ~ 






497:D 


1 max record size 


integer; 






498:0 


1 first_extent 


integer; (Size in logical records.) 






499:D 


1 cont iguous_f irst_extent 


long_boolean; 






600:0 


1 secondary_extent 


integer; 






601:0 


1 max file size 


integer ; 






502:0 


1 boot start address 


integer; 






603:D 


1 num protect code sets 


integer; 






604:D 


1 label included flag 


long boolean; 






605:0 


1 start_name_sets 


integer 






50$:D 


1 end; 






607:0 








508:0 


1 return createafile = record 






609:0 


1 return mess header : return header type 






510:0 


1 end; 






511:0 








512:0 








613:S 




-+ 




^ + 


514;S 


1 Send and return record layouts for request: Create fl Link (Rename) 


1 




515:0 




-♦> 






516:D 








517:0 








618:0 


1 send mess header 


send heade retype; 






519:0 


1 volume name_tieader 


volume header type; 






520:0 


1 old file name header 


file header type; 






621:0 
522:0 


1 new file name header 
1 purge olH lin^ 


file header type; 
long~boolean; 






523:0 


1 5tart_name_5et5 


integer 






524:0 


1 end; 






525:0 








526:0 


1 return_createlink = record 






527:0 


1 retTjrn mess header : return header type; 






528:0 


1 end; 






629:0 








530:0 








S31:S 




-+ 




^ + 


632:S 


1 Send and return record layouts for request: Exchange files 


1 




635:0 




-♦) 






534:0 








635:0 


1 send xchg data = record 






636:0 


1 send mess header 


send header type; 






537:0 


1 volume name header 


volume header type; 






638:0 


1 file name headerl 


file header type; 
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639:0 


1 f ile_name_header2 : f ile_header_type ; 






540:0 


1 start name sets : integer; 






541:0 


1 end; 






542:0 








543:0 


1 return xchg_data = record 






644:0 


1 return_me55_header : return_header_type; 






545:0 


1 end; 






546:0 








547:0 








648:0 








549 :S 




- + 




\ + 


5S0:S 


1 Send and return record layouts for request: Exchange open files 


1 




551 :D 




-♦> 






552:0 








553:0 


1 send xchg open = record 






654:0 


1 send mess header 


send header type; 






S5S:D 


1 file id 1 


file id type; 






556:0 


1 file_id_2 


file id type; 






557:0 


1 end; 






558:0 








559:0 


1 return xchg open = record 






560:0 


1 return mess header : return header type; 






561:0 


1 end; 






562:0 








663:0 








564:0 








565 :S 




-+ 




^ + 


566 :S 


1 Send and return record layouts for request: File Information 


1 




567:0 




-♦> 






S68:D 








569:0 


1 send fileinfo = record 






570:0 


1 send mess header : send header type; 






571:0 


1 implicit unlock : long boolean; 






572:0 


1 file_id : file_id_type 






573:0 


1 end; ~ 






574:0 








575:0 


1 return fileinfo = record 






576:0 


1 return_mess_header : return_header_type; 






577:0 


1 current record : integer; 






578:0 


1 file inTo : file info type; 






579:0 


1 end; "" ~ ~ 






580:0 








581:0 








582:0 








583:S 




-+ 




t* 


584 :S 


j Send and return record layouts for request: Ganglia Cleanup 


1 




585:0 




*> 






586:0 








687:0 


1 send_gang_cleanup * record 






688:0 


1 send mess header : send header type; 






689:0 


1 keep protected directories: long boolean; 






590:0 


1 end; 






591:0 








592:D 


1 return_gang cleanup = record 






593:0 


1 return mess header : return header type 






594 :D 


1 end; ~ 






596:0 








596:0 
597:0 
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598:S 




-+ 




^+ 
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599:S 




600;D 




601 :0 




602:D 




603:0 




604:0 




605:0 




606:0 




607:0 




608:0 




609:0 




610:D 




611:0 




612:0 




613:0 




614:0 




61S:D 




616:0 




617:0 




618:0 




619:D 




620:0 




621:0 




822 :D 




623:0 




624 :S 




625:S 




626:0 




627:0 




628:0 




629:0 




630:0 




631:0 




632:0 




633:0 




634:0 




635:0 




636:0 




637:0 




638:0 




639:0 




640;S 




641 :S 




642:0 




643:0 




644:0 




645:0 




646:0 




647:0 




648:0 




649:0 




650:D 




651:0 




652:0 




653:0 




654:0 




655:0 




656:0 




657:0 




658:0 
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I Send and return record layouts for request: Initialize fl Volume 



send_initialize = record 
send_me5S_header 
volume_name_ header 
password 

num_prolect_code_set s 
new_vo 1 ume_n ame 
new~cat_.organizat ion 
sectors_per_ block 
format^media 
interleave factor 
fillers 

phy5ical__sector_size 
new_pa55word 
start_protect_code_5ets 
init_root_password 

end; ~ "* 



5end_header_t ype ; 

volume_header_type; 

name_iype ; 

integer; 

name_t ype; 

name_type ; 

integer ; 

long_boolean; 

integer ; 

gang_32bit_filler; 

integer ; 

(9]obal_}name_type ; 

integer; 

{ glob al_}name_t ype ; 



ret ijrn_initialize = record 

return_mes5 header : return_header_t ype 
end ; ~ 



{* 



I Send and return record layouts for request: Lock fl File 



-*) 



send_lockaf ile = rec 
send mess header 

nielid ~ 
wait for lock 



send_heade r_type; 

f ile_id_type ; 
lon9_boolean 



end ; 

ret urn_lockaf ile « record 

return_mes5_header : return_header_type; 

success : long_boolean 

end ; 



Send and return record layouts for request: Open fi File 



send_openaf ile = record 

se nd_ine s s_he ade r 

volume_name_header 

file name header 

filler2 

fillers 

share code 

fii:er4 

fillerl 

open_type 

start_n3me_set 5 
end; 



ret urn_operaf ile = record 

return_me5S_heade r ; ret urn_neader._ type; 



send__header_t ype; 
volume_header_t ype; 
f ile_header_t ype; 
intege r ; 
integer ; 
integer ; 
owner id type: 
gang_r6bTt_filler; 
gang_open_type; 
intege r 
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659 :D 

660 :D 
661:D 

662 :D 

663 :D 

664 :D 

665 ;D 
666:D 
667 :D 
668:0 
669:0 
670:0 
671 :S 
672:3 

673 :D 

674 :D 
675:0 
676:0 
677:0 
678:0 
679:0 
680:0 
681: 
682: 
683: 
684: 
685: 
686: 
687: 
688:0 
689:S 
690:S 
691 :0 
692:0 
693:0 
694:0 
695:0 
696:0 
697: 
698: 
699: 
700: 
701: 
702: 
703: 
704: 
70S: 



706:S 



707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 



file_id 

record_mode 

max^record size 

ma>;_f ile_sTze 

f ile_code 

open~logical_eof 

•iharebits 

sec_ext_size 

boot start address 



f ile_id_t ype; 
integer; 
integer; 
integer : 

gang_f ile_code5; 
integer ; 
integer ; 
integer ; 
integer ; 



{* 

I Send and return record layouts for request: Position To fl Record 

+ 

5end_po5itiontoarecord = record 

send mess header 

implTcit unlock 

file id " 

fillers 

lype_of position 

byte_ofTset 
end; 

return_p05 jtiontoarecord = reco'd 

return_me5s_header ; return_heade retype 
end; 



send_heade r_t ype ; 
long~boolean; 
file^id type; 
gang_16&it_f iller ; 
position_type; 
integer 



<*-- 

I Send and return record layouts for request: Purge Link 



send_purgelink = record 
send_m€S5_header 
volume_name_header 
file_name_header 
5lart_name_5ets 

end; 



5end_heade retype; 

volume_header_t ype; 
f ile_header_type ; 
integer 



return_purgelink « record 

return_mes5_header : return_header type 
end; 



{* 



I Send and return record layouts for request: Read H Record 



send readarecord = record 



send^mess_header 
implTcit unlock 
file_id " 
access code 
fillers 
requested 
offset 



se nd__he ade r_ type; 

long_boolean; 

f ile_id_type; 

integer : 

array [i..2] of gang 32bit filler; 

integer ; 

integer 
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719:D 


L return^readarecord = record 






720:0 


I return_mess_header : 


return header type; 






721:0 


L actual : 


integer; 






722:D 


1 fillerl : 


array [1..4] of gang 32bit filler; 
packed ar rayfl . .512] of char; 






723:D 


I data : 






724:0 


1 end; 






725:0 








726:S 








727:S 








^ + 




723:S 


1 Send and return record layouts for request: Set Date 


1 




729:0 










* ) 


730:0 








731:0 


send_set_date = record 






732:0 


send_^mess_header 


send_heade retype ; 






733:0 


implicit unlock 


long_boolean ; 






734:0 


1 file id 


f ile_id_type; 






735:0 


set access date 


long boolean; 






736:0 


access date 


date type; 






737:0 


set creation date 


long boolean; 






738:0 


creation date 


date~type 






739:0 


end; 






740:0 








741:0 


return_set_date * record 






742:0 


return_me55_heade r ; return_header_type 






743:0 


end; 






744:0 








745:0 








746:S 








^ + 




747:S 


1 Send and return record layouts for request: Set Eof 


1 




748:0 










+ ) 


749:0 








750:0 


send set eof = record 






751 :D 


send mess header : 


send header type; 






752:0 


implicit unlock : 


long boolean; 






753:0 


1 file_id : 


file_id_type; 






754:0 


U5e_cur rent_pt r : 


long_boolean; 






755:0 


byte offset : 


integer 






7SS:D 


1 end; 






757:0 








758:0 


return set eof = record 






759:0 


return mess header : return header type 






760:0 


end; 






761:0 








762:0 








763:S 








^ + 




764 :S 


1 Send and return record layouts for request: Unlock fi File 


1 




765:0 










+ ) 


766:0 








767 :D 


send_unlockaf lie = record 






768:D 


send mess header : 


5end_header_type; 






769 :D 


1 file id 


file id type; 






770:D 


explicit unlock : 


long boolean; 






771:D 


end; 






772:D 








773:0 


return_unlockafile = record 






774:0 


return_mess_header : return_header_type . 






775:0 


end; 






776:0 








777:0 








778 :S 








^ + 
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name: SRn_DRV *** 




779:S 


1 Send and return record layouts for request: Volume Status 


1 




780:0 










+ ] 


781:0 








782:0 


send volume status = record 






783:0 


send mess header : send header type; 






784:0 


volume name header : volume header type; 






785:0 


end; 






786:0 








787:0 


return_volume_status = record 






788:0 


return mess header 


: return_header_type; 






789:0 


exist 


: long_boolean; 






790:0 


interleave 


: integer; 






791 :0 


volume name 


: name type 






792:0 


end; 






793:0 








794 :S 








795:S 








\* 




796:S 


i Send and return record layouts for request: Urite fi Record 


1 




797:0 










+) 


798:0 








799:0 


5end_writearecord = record 






800:0 


send mess heade r 


: send header type; 






801:0 


implicit unlock 
file id ~ 


: long boolean; 






802:0 


; file id type; 






803:0 


access code 


: integer; 






804:0 


fillerj 


: array [1..21 of gang 32bit filler; 






805:0 


requested 
offset 


: integer; 






806:0 


; integer; 






807:0 


filler8 


long boolean; 






808:0 


flush buffer 


: long boolean; 

: backed array ri..5121 of char 






809:0 


data 






810:0 


end; 






811:0 








812:0 


return writearecord = record 






813:0 


return mess header : return header type; 






814:0 


actual : integer; 






816:0 


end; 






816:0 








817:0 1 
818:0 1 








^ „„ , , , „ ^ J 


819:S 








820:0 1 


Sinclude 'PflCKETS'l 






821:S 








822:0 1 


type 






823:0 1 


ptrmp = msg_packet_ptr; 






824:0 1 


pt r sareyoualive = ^send_are_you_alive: 






825:0 1 


pf r rareyoualive = "^retufn are you alive; 






826:0 1 


ptrscat = ^send catalogue; 
ptrrcat = ^ret urn_catalogue; 






827:0 1 






828:0 1 


ptrscatpass = "^send cat passwords; 






829:0 1 


ptrrcatpass = "return cat passwords; 






830:0 1 


ptr5changeprotect= "send_cTiange_prolect_codes; 






831:0 1 


pt r rchangeprotect= "^return change_protect codes; 






832:0 1 


pt rschangevolume = '^send_cKange_volume_laEel ; 






833:0 1 


pf r rchangevolume = "return change volume label; 
ptrsclose = "send cToseafile: 
ptrrclose = "return_closeafile ; 






834:0 1 






835:0 1 






836:0 1 
837:0 1 


ptrscopy = "send_copy; 
ptrrcopy = "ret ur ncopy ; 
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838:0 1 


pt rscreatef lie = "se 


nd_ 


:reateafile; 
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839 .D 


ptrrcreatef ile 


= "return createafile; 




840 :D 


ptrscreatelink 


= "^send createlink; 




841 :D 


ptrrcreatelink 


= '■return_createlink; 




842 :D 


pt rsej<change 


= "send_j^chg open; 




843:D 


pt rrexchanqe 
ptrsfileinfo 


= "retu rn_^xcEg open; 




844:0 


= "^send fTleinTo; 




845:0 


ptrrfileinfo 


= "return fileinfo; 




846:0 


ptrsgangclean 


= "send_gang_cleanLip; 




847:0 


pt rrgangclean 


= "return gang cleanup; 
= "send initialize; 




848:0 


ptrsinit 




849:0 


ptrrinit 


= "return initialize; 




850:0 


ptrslock 


= "send_lockaf ile ; 




851 :D 


ptrrlock 


~ "return lockafile; 




852:0 


ptrsopen 


= "send openafile: 
= "return openafile; 




853:0 


ptrropen 




854:0 


ptrspos 


= "send positicntoarecord; 




855:0 


ptrrpos 


= "return_positiontoerecord; 




856:0 


ptrspurge 


= "5end_purgel ink; 




857:0 


ptrrpurge 


= "return_purgelink ; 




858:0 


pt r s read 


= "send readarecord; 




859:0 


pt rrread 


= "return readarecorc; 




860:0 


pt rssetdate 


= "send set date; 




861 :D 


pt rrsetdate 


= "return set date; 




862:0 


pt rsseteof 


= "send set eof; 




863:0 


plrrseteof 


= "return_set eof; 




864:0 


ptrsunlock 


= "send_unlocIcaf ile : 
= "return_unlockaf ile ; 




865:0 


pt rrunlock 




866:0 


ptrsvol 


= "send volume status; 




867:0 


pt r rvol 


= "return volume status; 




868:0 


pt rswrite 


= "send writearecord; 




869:0 


ptrrwrite 


= "return_writearecorc; 




870:S 








871 :0 


ptrshead 


= "send_header_type: 




372:0 


ptrrhead 


= "re1urn_header_t ^pe; 




873:3 








874:0 


pk pt r = record case integer of 




875:0 


: 


mp 


pt rmp] ; 




876:0 


1 : 


sareyoualive 


pt rsareyoualivel ; 




877:0 


2 : 


rareyoualive 


pt rrareyoualive) ; 
pt rscat); 




878:0 


3 : 


scat 




879:0 


4 : 


rcat 


pt rrcat); 




880:0 


5 : 


scatpass 


pt rscat pass) ; 




881 :D 


6 : 


rcatpass 


pt rrcatpass) ; 




882:0 


7 : 


schangeprotect 


pt rschangeprotect) ; 




883:0 


8 : 


rchangeprotect 


pt rrchangeprotect] ; 




884:0 


9 : 


sctiangevolume 


pt rschangevolume) ; 




885:0 


10 : 


rchangevolume 


pt r rchangevolume) ; 




886:0 


11 : 


sclose 


pt 'sclose ) ; 




887:0 


12 : 


rclose 


pt 'rclose ) ; 




888:0 


13 : 


scopy 


pt rscopy) ; 




889:0 


14 : 


rcopy 


pt -rcopy) ; 




890:0 


15 : 


screatefile 


pt 'Screatefile) ; 




891:0 


16 : 


re reatef ile 


pt rrcreatefile) ; 




892:0 


17 : 


screatelink 


pt ^screatelink) ; 




893:0 


18 : 


rcreatelink 


pt r rcreatelink ) ; 




894:0 


19 : 


sexchange 


pt '■sexchange) ; 




895:0 


20 : 


rexchanqe 
sf ileinfo 


pt rrexchange) ; 
ptr-sfileinfo) ; 




896:0 


21 : 




897:0 


22 : 


rf ileinfo 


pt rrf ileinfo) ; 




898:0 


23 : 


sgangclean 


pt 'sgangclean) ; 




Pascal [Rev 3.0f1 


6/ 4/84] SRn_TVPE5 


TEXT 26-0ec-84 21:49:12 Page 16 «»« File name: SRn_DRV ««• 


899:0 


24 : 


rgangclean : pt r rganqclean ) ; 




900:0 


25 : 


slnit 


pt rsinit ) ; 




901 :D 


26 : 


rinit 


ptrrinit ; 




902:0 


27 : 


slock 


ptrslock ; 




903:0 


28 : 


rlock 


ptrrlock ; 




904 :D 


29 : 


sopen 


ptrsopen ; 




906:0 


30 : 


ropen 


ptrropen ; 




906:0 


31 : 


spos 


pt rspos) ; 




907:0 


32 : 


rpos 


ptrrpos) ; 




908:0 


33 : 


spurge 


pt rspurge) ; 




909:0 


34 : 


rpurge 


pt rrpurge) ; 




910:0 


35 : 


sread 


pt rsread) ; 




911 :0 


36 : 


rread 


pt r rread) ; 




912:0 


37 : 


ssetdate 


pt rssetdate ) ; 




913:0 


38 : 


rsetdate 


pt rrsetdate) ; 




914:0 


39 : 


sseteof 


pt rsseteof) ; 




915:0 


40 : 


rseteof 


pt rrseteof ) ; 




916:0 


41 : 


sunlock 


pt rsunlock i ; 




917:0 


42 : 


runlock 


pt rrunlock) ; 




918:0 


43 : 


svol 


pt rsvol) ; 




919:0 


44 : 


rvol 


pt rrvol) ; 




920:0 1 


45 : 


swrite 


pt rswrite) ; 




921:0 1 


46 : 


rwrite 


pt rrwrite ) ; 




922:0 1 


47 : 


shead 


pt rsbeadj ; 




923:0 1 


48 : 


rhead 


pt rrhead) : 




924:0 1 


end; 






925 :S 








926:0 1 


name._set_array_tl" 


ree = array [1..3] of file name set; 




927:0 1 


name._5et_array 


= array [1..6] of file name set; 




928:0 1 


pnsa" 


= "nanie_set_array: 




929 :S 








930:0 1 


protectcode set a 


rray = array [1..243 of protect_code_5et ; 




931:0 1 

932:3 

933:0 1 


ppsa 


= "protectcode_5et_ar ray; 




Sinclude 'INn:SRn 


TYPES'* 




933:0 1 


Sinclude 'INn:SRn" 


ERRS'S 




934:0 1 


CONST 






935:0 1 


ios_error_base 


= 31000 






936:0 1 


ios_sof tware_b 


ug = 31000 






937:0 1 


ios bad select 


code = 31001 






938:0 1 


ios unaTlocate 


3 extent = 31002 






939:0 1 


ios_d5_rcm_mi5 


sing = 31003 






940:0 1 


ios unsupporte 


d dam = 31004 






941:0 1 


ios device dri 


vers dont match = 31005 






942:0 1 


ios invaua io 


s_request = 31006 






943:0 1 


ios_attach_tab 


le full = 31007 






944:0 1 


ios improper (t 


ass_storage_device = 31008 






945:0 1 


ios directory 


formats dont match = 31009 






946:0 1 


ios invalid fi 


Je size = 31010 






947:0 1 


los_inva]id;fi 


lelid = 31011 






948:0 1 


ios_voluine_rec 


bverable error = 31012 






949:0 1 


ios volume io 


error . 31013 






950:0 1 


ios file pathfi 


ame missing = 31014 






951:0 1 


ios_illegal_by 


te number = 3101S 






952:0 1 


io5_corrijpt d: 


rectory = 31016 






953:0 1 


ios_succes5TLj! 


completion = 31017 






954:0 1 


ios~system tiov. 


n = 31018 






955:0 1 
956:0 1 


ios_file_.jnope 
ios_volume_of ■ 


ned = 31019 
line = 31020 




11-735 


957:0 I 


los_volume_lab 


els dont match 


' 31021 
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958: 

959: 

960: 

961: 

962: 

963: 

964: 

965:D 

966:D 

967:D 

968:D 

969:0 

970:0 

971:0 

972:0 

973:0 

974:0 

975:0 

976:0 

977:0 

978:0 

979:0 

980:0 

981 :0 

982:0 

983:0 

984:0 

985:0 

986: 

987: 



989: 

990: 

991 : 

992: 

993: 

994: 

995: 

996: 

997: 

998: 

999:0 

1000:0 

1001:0 

1002:0 

1003:0 

1004:D 

100S:D 

1006:0 

1007:0 

1008:0 

1009:0 

1010:0 

1011 :0 

1012:0 

1013:0 

1014:0 

1015:0 

1016:0 

1017:0 



_pas5u/ord_not allowed 
_acces5_to_fiTe_not_allowed 
'un5uppo rled_di rectory_operation 
"conf licting_5hare_modes 

badf ile_name 

file in_use 

_insuTf icient di&k_space 
.duplicate_f iTenames 
'phy5_eof encoLintered 
_no capability for_fiIe 
_f iTe_not_fQun(J 
^volume_in use 
'f ile_not_3irec lory 
.directory_not_empty 
^volume not_found 
"invali3_protect_code 
'volume_jnrecoverable_error 

pa5sword_rot_found 
.duplicate passwords 
.deadlock detected 
"link to cfirectory not allowed 



lum 



rename_ac ro55_ 
volume_down 
eof_encourtered 
invalid_file_code 
.f ile_locked_please_ret r 
no_reply 
purge_on_open 



31022 
31023 
31024 
31025 
31026 
31027 
31023 
31029 
31030 
31031 
31032 
31033 
31034 
31035 
31036 
31037 
31038 
31039 
31040 
31041 
31042 
31043 
31044 
31045 
31046 
31047 
31048 
31049 



ios_error_top 
< 



= 31049 
errors start at 31050 ) 



Sinclude 'INIT:SRM_ERRS'$ 



packet_ptr : pk_ptr: 

default t imeout : integer; 

wait forlockt imeout : integer; 

copytimeout : integer; 

srmsavesc : shortint; 



{timeout values in milliseconds) 



procedure 5rm_init; 
procedure resetcard (unum 
procedure packetout [unum 
procedure packet in [ unum 

sendrea 
procedure 3 reyoualivepack (unum 
procedure catpack(unum 

2 nfns 

2 nsaptr 

2 pat h 

2 wd 

2 rtpass 

2 max 

2 indx 

1 procedure catpasspack (unum 

2 nfns 
2 nsaptr 
2 path 
2 wd 



i t n um ) ; 

unitnum) ; 
unitnum- 
integer ) ; 

: unit num) ; 
unitnum; 
integer ; 
pnsa; 

pat h_st art_t ype; 
f 2le_id_t ype; 
name_type ; 
integer; 
integer ) ; 
unitnum; 
integer ; 
pnsa; 

path_st arttype; 
f ile_id_t ype; 
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1018:0 

1019:0 

1020:D 

1021:0 

1022:0 

1023:0 

1024:0 

1025:0 

1026:0 

1027:0 

1028:0 

1029:0 

1030:0 

1031 :D 

1032:0 

1033:D 

1034: 

1035: 

1036: 

1037: 

1038 

1039: 

1040: 

1041: 

1042: 

1043: 

1044 :D 

1045:0 

1046:0 

1047:0 

1048:D 

1049:0 

1050:D 

1051 :D 

1052:0 

1053:0 

1064:0 

1055:0 

1056:0 

1057:0 

1058:0 

1069:0 

1060: 

1061: 

1062: 

1063: 

1064: 

1065: 

1066: 

1067: 

1068: 

1069: 

1070: 

1071 : 

1072: 

1073:D 

1074:0 

1075:0 

1076:D 

1077:0 



2 

2 

2 

1 procedure 

2 

2 

2 

2 

2 

2 

2 

1 procedure 

2 

2 

2 

1 procedure 

2 

1 procedure 

2 

2 

2 

2 

2 

1 procedure 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 procedure 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 procedure 

2 

2 

1 procedure 

2 

1 procedure 

2 

1 procedure 

2 

2 

1 procedure 



r tpass 

max 
indx 



changeprotect pack (unum 
nfns 
nsapt 
path 
wd 

rt pas 
nps 
psapt 
changevolpack (unum 
vpass 
newname 
newpass 
closepack (unum 

fid 
copypack (unum 

srcf id 
srcof f 
destfid 
destoff 
req 
createpack (unum 
nfns 
nsapt r 
path 
wd 

rt pass 
nps 

psapt r 
ft ype 
mode 
maxrec 
extl 
eKt2 
xaddr 
createlinkpack(unum 

oldnf ns 
oldnsapt 
oldpatn 
oldwd 
oldrtpas 
newnfns 
newnsapt 
newpath 
newwd 
newrtpas 
purgeold 
exchangepack (unum 
fidl 
fid2 
f ileinfopack (unum 

fid 
gangcleanpack (unum 

savewd 
lockpack (unum 
fid 
wait 
openpack (unum 
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name_type ; 
integer ; 
integer ) ; 

unit num; 
integer; 
pnsa ; 

patnst art_type; 
file_id_t ype; 
name^type ; 
integer ; 
ppsa) ; 

unitnum; 

name_t ype; 

name_t ype : 

name_t ype) ; 
u n i t n um ; 
f ile_id_type) ; 
u n i t n um ; 
f ile_id_t ype; 
integer ; 
f ile_id_t ype; 
integer ; 
integer) ; 
unitnum; 
integer ; 
pnsa; 

path_st art_type; 
f ile~id_type; 
name~type ; 
integer; 
ppsa; 

gang_file_codes ; 
integer ; 
integer ; 
integer ; 
integer : 
integer) ; 

unitnum; 

integer; 

pnsa; 

pat h_5tart_type; 

f ile_id_type; 

name type; 

integer ; 

pnsa; 

path_5tart_type; 

f ile_id_type; 

name_type ; 

boolean) ; 

u n i t n um ; 

f ile_id_type; 

file_id_type) ; 

unitnum; 

f ile_id_type) ; 

u n i t n um ; 

boolean) ; 



unitnum; 
file_id type; 
booleanT: 
unit num; 



11-736 
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1078:D 






nf ns 


I079:D 






nsaptr 
path 


1080;D 






1081:0 






wd 


1082:0 






rtpass 


1083:0 






share 


1084:0 


-18 i 




opn 


1085:0 


1 


procedure 


pospack (unum 


1086:0 






fid 


1087:0 






typepos 


1088:0 


-18 ; 




bof fset 


1089:0 


1 


procedure 


purgepack[unum 


1090:0 


; 




nf ns 


1081 :D 


: 




nsaptr 


1092:0 


; 




path 


1093:0 


: 




wd 


1094:0 


-18 ; 




rtpass 


1095:0 


1 


procedure 


sendreadpackfunum 


1096:D 


! 




fid 


1097:0 


; 




access 


1098:0 


J 




;?? 


1099:0 


; 




1100:0 


-18 : 




dat 


1101 :D 


1 


procedure 


seteofpackfunum 


1102:0 


: 




fid 


1103:0 


: 




usecurpt 


1104:0 


-18 : 




boffset 


1105:0 


1 


procedure 


unlockpack(unum 


1106:0 


-18 : 




fid 


1107:0 


-18 1 


procedure 


volpack [unum : uni 


1108:0 


! 


procedure 


sendwritepackfunum 


1109:0 


! 




fid 


1110:0 


i 




acces 


1111:0 


i 




;'f? 


1112:0 


2 




1113:0 


-18 ! 




dat 


1114:0 


-18 1 


procedure 


setdefault timeout ( t 


1115:0 


-18 1 


procedure 


setcopyt imeout (time 


1116:0 
1117:S 
1118:0 


-18 1 


procedure 


setwaitforlockt jmeo 


-18 1 


implement 





1119: 

1120: 

1121 : 

1122: 

1123: 

1124: 

1125: 

1126:0 

1127:D 

1128:S 

1129:0 

1130:S 

1131 :D 

1132:C 

1133:C 

1134:C 

1135:C 

1136:C 

1137:C 
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integer; 

pnsa ; 

path_start_type; 

f ile__id_type ; 

name_t ype; 

integer ; 

gang_oDen_type) ; 

unit num; 

f ile_id_t ype ; 

posi Tion_type; 

integer) ; 

unit num; 

intege r ; 

pnsa; 

pat h_s tart_type; 

file_id_type; 

name_type) ; 

uni t num; 

f ile_id_type; 

intege'"; 

intege' ; 

integer; 

anypt r ) ; 

uni t num; 

f ile_id_type; 

boolean; 

integer ) ; 

uni t num; 

f ile_id__type) ; 
t n um ) ; 

u n 1 1 n um ; 

'ile_id_type; 

integer ; 

integer ; 

integer ; 

anypt r ) ; 
ime : integer 
: integer 
ut (t ime .: integer 



-18 1 const 

-18 1 packetout timeout 

-18 1 ayatimeout 

-18 1 var 

-22 1 

-23 1 

-24 1 



dumbuf : 
srm_inited : 
wait ingforlock : 



= 1000; 
^ 1000; 



^buf_info_t ype; 

boolean; 

boolean; 



{timeout values in milliseconds) 



-24 1 (*«* 



« « « « » X k »: » « « i« 



«»» K X «««««» » 



[ « X » » « x: « m « * » « « 



1 procedure ma ptoio result (status : in 

2 begin 

2 if ioresult ~ ord (inoe rror ) then 

3 if status <> then 

4 case status of 

5 aos_bad_5elect code 

5 ios attach table full 



ioresult 
ioresult 



ord(ibadunit ) ; 
ord (it oomanyopen ) ; 
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1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150:C 

1151 :C 

n52:C 

1153:3 

11S4:C 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

n " " 

1169:C 
1170:3 
1171:0 
1172:C 
1173:3 
1174:C 
1175:C 
1176:S 
1177:C 
1178:C 
1179;S 



II 

1181 

1182 

1183 

1184 

1185 

U86 

1187 

1188 

1189 

1190. 

U91. 

1192 

1193 

1194 ■ 

1195: 

1196: 

1197. 



os_invalid_f ile_size 
ios_invalid_f ile_id 

os_bad_file name, 

os_f ile_patFiname_missing 

5__illegal_byte_rumber 

os_succes5f ul_complet ion, 
os~no_repiy 

os_system_down^ 
os_volume"of f line, 

ios_volume_not__found, 
ios_volume._down 

5_f iIe_unopened 

os_password not_allowed, 
05_no„capability_for_f lie, 
os_in7alid protect_code, 
os_passwor3_not_found, 
os_dupIicate_password5 

5_„acce5 5_to_file_not_allowed 

s_uns uppo r ted_di recto ry_o per at ion, 

os_link_to_di recto ry_not_al lowed 

os_deadlock^detected, 
os_conf lictTng_5hare_mode5, 
os_fiIe__locked_ple a secret ry 

os_f iie_in_use , 
os_purge_oK_open 

05_insuf ficient disk_space 

i05__dijplicate_fiTenames 

ios_phys_eof_encountered, 
ao5~eof_encountered 

os„file_not_found 
os_volume in use 
05_file_not_3'i rectory 
os_directory___not_empt y 
lo5_invalid_fTle_code 
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: ioresult := ord(inotvalidslre) ; 
: ioresult := ordU^ostf ile) ; 



otherwise 
end; 
end; 



ioresult := ord (ibadtit le) ; 

ioresult := ord (ibadvalue ] ; 

ioresult := ord ( inoerror ] ; 

ioresult := ord(znodevice) ; 

ioresult := ord(inotopen) ; 



ioresult := ord[ibadpas5) ; 
ioresult := ord(inoaccess) ; 



ioresult := ord(inotondir ) ; 



ord (if ileiocked ) ; 



ioresult := ord ( inotclosed) ; 

ioresult := ord(inoroom) : 
ioresult ;= ord ( idupf ile) ; 



ioresult := ord(ieof J ; 

ioresult := ord (inofile) ; 

ioresult := ord (znot ready] ; 

ioresult := ord if ilenotdir ) : 

ioresult := ord ( idi rnotempt yi 

ioresult := ord ( ibadf ilet ype) 



ioresult 



ord [ isrmcatchall) ; 



itX**-K*f!ik* ******.* 



****X*****»****** 



procedure i ni t dumbuf ; 
legin 
with dumbuf"' do 
begin 
byf_ptr 
ac t^tfr 
dc tTve„isc 



= nil; 
= no_tfr; 
= no isc; 



11-737 



P'ascal [R ! 

1198:C 
1199:C 

1200:C 

1201 :C 

1202:C 

1203: 

1204: 

1205: 

1206: 

1207: 

1208: 

1209: 

1210:D 

1211 :S 

1 2 1 2 : D 

1213:C 

1214 :C 

1 2 1 5 : C 

1 2 1 6 : C 

1217:C 

1218:C 

!219:C 

1220:C 

1221 :C 

1222:C 

1223:C 

1224:C 

122S:C 

1226:D 

1227:S 



.on 6 1/84; SRMJRV.IEXT 
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1228: 

1229: 

1230: 

1231 : 

1232: 

1233; 

1234 : 

1235: 

1236: 

1237: 

1238: 

1239: 

1240: 

1241: 

1242: 

1243 :C 

1244:C 

124S:D 

1246: 

1247: 

1248: 

1249: 

1250: 

1251 : 

1252: 

1253: 

1254 : 

1255: 

1256: 

1257: 



3 




buf size 


= 


0; 


3 




b.jf empty 


= 


nil; 


3 




buf'flU 


= 


nil; 


3 




dr v_tmp_pt r 


^ 


nil; 


3 




eoT_proc .dum(ny_sl 


~ 


nil; 


3 




eo1_proc .dummy_pr 


- 


ml; 


3 




eot parm ~ 


= 


nil; 


3 




dma priority 


- 


false; 


3 




end, 




2 


end 






1 


(•• 


»»»»«»«.»»»«»»»»«»««»» 


«*«*#*«* 


1 


(•• 


»#»»»»#*»»***<«*»***** 


«***»*«« 


1 


pro 


edure srm_init; 




2 


bo.i 


n 




2 


1 


not 5rm inited then 




3 




begin 




3 




new( packet pt r .mpj ; 




3 




newjdumbufy; 




3 




mark user ; 




3 




srm inited := true; 




3 




end; 




2 


1 


itdumbuf ; 




2 


J 


fault! imeout 


= 


30000; 


2 




It forlockt imeout 


= 


1^0000; 






pyt imeout 


- 


2 


en J 









X »: « « * X « A X X « t; « » 



:****« 
:*»«*» 



%%%%%%%■%.%%%%% 



(timeout values in milliseconds) 



<eduie rese tcard (unjm : unitnijm); 



**««**««** 



t ttXMt.*.* ******* *t*] 



end 
( 



beg 

end 



b-^q 

end 



pro. 

be J 



ic_t able [unit able'CunumJ.sc] do 
call ( io__drv_pt r'^. iod_init , io_tmp_pt r ) ; 



{time is in milliseconds) 



*.'»i» *.*»******* MX**** *************** ******** *************************** 

eduie setdefaulit imeout (time : integer ) ; 

n 

fault t imeout := t ime ; 

eduie setwaitforlocttt imeout [ t ime ; integer ) ; 

n 

jtforlcckt imeoui := 1 ame j {t ime is in milliseconds) 

* If ».W1t ********************************************************** ******** 

edure setcopyt imeout ( l ime : integer ) ; 

n 

pytimeout := tine; {time is in m 



x*»** 



**•* 



****** 



illiseco 

***** 



nds) 
**** 



beq 



le set intege rt imeout (sc ; type_i5c; 
time : integer ) ; 



th i5C_t able [sc] do 

beg I [1 



seal [R 


V J. on 6/ 


1258;C 


3 


1259:C 


3 


1260:C 


4 


1261 :C 


3 


1262:C 


2 enl 


1263:D 


-24 1 (•« 


1264:S 




1265:D 


1 fun 


1266:C 


2 beq 


1267:C 


2 


1268:: 


3 


1269:C 


2 end 


1270:D 


-24 1 («• 


1271:S 




1272:D 


1 prn 


1273:C 


2 beq 


1274:C 


2 * 


1275:C 


3 


1276:C 


4 


1277:C 


4 


1278:C 


4 


1279:C 


4 


1280:C 


4 


1281:C 


4 


I282:C 


2 eni 


1283;D 


-24 1 («• 


1284:S 




I285:D 


1 fun 


1286:C 


2 beo 


1287:C 


2 .V 


1288:C 


3 


1289;C 


3 


1290:C 


4 


1291:C 


4 


I292:C 


3 


1293:C 


3 


1294:C 


2 ena 


1295:0 


-24 1 (•• 


1296:S 




1297:D 


1 prr, 


1298:D 


2 


1299:D 


2 


1300:D 


2 


1301:D 


2 var 


1302:0 


A 2 I 


1303:C 


2 beq 


1304:C 


2 w 


1305:C 


3 


1306:C 


3 


1307:C 


4 


1308:C 


4 


1309:C 


4 


1310:C 


S 


1311 :C 


5 


1312:C 


5 


1313:S 




1314:C 


3 


1 3 1 5 : C 


4 


U16:C 


3 


1 3 1 7 : C 


4 



■/s 



5Rri_DRV.TE>;T 



ur^er_t ime : = time ; 
if io_tmp_ptr <> nil then 
io_tmp_pt f^ . t imeout ■ - 
end: 



■ »*»***«***»***»;****«»««*«****« 
tion do_buf fer_dat a (var b_info 
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{time is in milliseconds) 
t ime; 

********»********************************] 
buf_info_t ype} : integer; 



. t h b info do 
do^buf fer_dat a : = integer {buf_fill ) - integer (buf_empt y) ; 

edure do_buf fer^reset (van b_ififo : buf_info_type) ; 

th b__info do 

if active_isc <> no_i5c then 

io_e scape (ioe_buf_busy,no_i5c) 
e Ise 
begin 

buf^fill := buf_ptr; 

buf_empty :^ buf_ptr; 



******* ) 



end; 



t ion do b 



*********** 



********************* 



iuffer__space (var b_info : buf_info_type ) : integer; 



th b_info do 
begin 

if (do_buffer_data(b^info} = 0) 

and (active_isc - no Tsc) then 
do_buf fer_reset (b Info); 

do__buf fe r_space ;= &uf_size + integer (buf_pt r ) - integer (buf_f ill ) ; 
end ; 



»*■»»***«******»****»««***»»** 

edure do_t ransfe r ( sc 
dir 



*«****«***«***»*****« 

t ype_i5c ; 
dir_of_tf r; 
integer : 
boolean) ; 



************* ] 



ount : integer ; 

: n 

:th ibc_t able [sc] , dumbuf"^ do 
begin 

if not tfr_end then 

Icount := count 
else 

if dir = from__memory then 

Icount :- do_buf fer_data (dumbuf") 
else 

Icount := do_buf fer__5pace (dumbuf^) ; 

if io_tmp_ptr = ml then 

io_e5cape [ ioe no_d river , sc ) ; 

if Icount = tKen 

io_escape [ioe_bad _cnt . no_isc ) ; 



11-738 
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1318;C 


3 


1319:C 


4 


1320:S 




1321 :C 


3 


1322;C 


4 


1323:S 




1324:C 


3 


1325:C 


4 


1326:C 


5 


1327:C 


5 


1328:C 


6 


1329:C 


5 


1330:C 


6 


1331:C 


5 


1332:C 


5 


1333:C 


5 


1334:C 


5 


133S:C 


5 


1336:C 


6 


1337:C 


5 


1338:C 


6 


1339:C 


5 


1340:C 


S 


1341:S 




1342:C 


3 


1343:C 


3 


1344:C 


3 


1346:C 


3 


1346:C 


3 


1347 :C 


3 


1348:C 


3 


1349:C 


3 


1350:S 




13S1 :C 


3 


1352:C 


3 


1353:C 


2 


1354:0 


24 1 


13SS:S 




1366:0 


I 


1357:C 


2 


1358:C 


2 


13S9:C 


2 


1360:C 


3 


1361:C 


3 


1362:C 


4 


1383:C 


4 


1364:C 


3 


1365:C 


3 


1386:C 


4 


1367;C 


2 


1368:C 


2 


1369:0 


24 1 


1370:S 




1371:0 


1 


1372:0 


2 


1373:0 


-4 2 


1374 :C 


2 


137S:C 


2 


1376:C 


3 


1377 :C 


4 



if active_i5c <> no_isc then 
io_e scape (ioe_buf_busy, no_isc) ; 

if do buf fer_data(dumbuf") = then 
do_5'uffer_ reset (dumbuf^j ; 

with io_tmp_ptr^ do 

if dir = to_rTiemory then 
begin 

if in_bufptr <> nil then 

io_escape (ioe_isc busy,sc); 
if do_buffer space (Humbuf"^] < Icount then 

io_e scape (Ioe_no space, sc ) ; 
in_biifptr := dumbuT; 
end 
else 
begin 

if ouT_bufptr <> nil then 

io_e scape (ioe_isc_busy, sc) ; 
if do_bijffer data (dumbuf'^) < Icount then 

io escape (Toe_no_data, sc ) ; 
oyt_&ufptr := dumbuf; 
end; 



drv_tmp ptr 
act_tfr 
usr_t f r 
b w_mode 
direction 
t e rm_c h a r 
term_count 
end_mode 



= io_tmp_pt r ; 

= no_tfr; 

= seri3l_f astest ; 

= false; 

= dir; 

= -1; 

= Icount; 

= tfr end; 



(byte mode) 
<no term char) 



call ( io drv_pt r"^. iod_t f r, io_tmp_pt r , dumbuf ) ; 
end; 
end; 

procedure dorecover [unum : unitnuTi); 
begin 

loresult := ord(isrmcatch3ll ) ; 
if (escapecode <> ioescapecode) then 
begin 

if srmsavesc = then 

srmsavesc := escapecode 
end 
else 

if (ioe_re5ult = ioe timeout) then 
ioresult := ord (ztTmeout ) ; 
resetcard (unum) ; 
end; 



X»»»*X»It!»»«XX«««) 



procedure packetout (unum 
var 

ip : "^integer; 
begin 

with unit able'^Cun urn] do 
trv 

ii n i t d umb u f ; 



uniTnum) ; 
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1378:C 

1373:C 

1380:C 

1381:C 

1382:C 

1383:C 

1384:C 

138S:C 

1386:C 

1387:C 

1388;C 

1389:C 

1390:C 

1391 : 

1392: 

1393: 

1394: 

1395: 

1396: 

1397: 

1398: 

1399: 

1400: 

1401: 

1402: 

1403: 

1404: 

1405: 

1406: 

1407: 

1408: 

1409; 

1410: 

1411: 

1412: 

1413: 

1414: 

141S:C 

1416:C 

1417:" 

1418: 

1419; 

1420: 

1421: 

1422: 

1423; 

1424: 

1425: 

1426: 

1427: 

1428: 

1429: 

1430: 

1431: 

1432: 

1433: 

1434: 

1435: 

1436: 

1437: 



end; 



setintegert imeout (sc,packetoutt imeout ) ; 

packet_pt r.mp'^[8] := chr(unitable^[unum].ba); 

packet_pt r .mp-^fg] := chrfOl 

packet_pt r.fnp"[10] := chrfO 

packet_pt r-mp^Eu] := chrfO], 

ip := addr[packet_pt r .mp'"[17] ) ; {request type) 

if ip^ = req_are you_alive then 

packet_pt r.mp'^Tl2] ;= chr(2) 
else " 

packet ptr.mp"n2] := chr(7); 
dumbuf^. &uf ptr ;= anypt r (packet ptr.mp); 
dumbuf ■^.buf~si?e := sizeof (msg_ packet_t ype) ; 
dumbuf '^.buf 'empty := addr (packel'_pt r .mp"[8] ) ; 
ip :* addrf packet_pt r .mp'^tlS] i ; (packet length) 
dumbuf". bur fill := addr (packet_pt r .mp^[12+l + ip'^] ) ; 
do_t ransferfsCj from memory, 0, T rue) ; 
recover ~ 

dorecover (unum) ; 



*«»*****« 



**«»»««*»«: 



» XX »»«««»»«»»»»): *»««**«**»«*:*«*** 



re packetin(unum 

sendreq 



type 

ayastatustype = packed record 
srmnode 
linker rs 
computerid 
end; 
ayastatusptr = "ayastatustype; 



u n i t n um ; 
integer ) ; 



byte; 
byte; 

short iit ; 



count 
begin 
wit h u 
try 
II 
if 

el 

el 



integer ; 

nit able'^[unum] do 

i t d umb LI f ; 

sendreq = req_are_you_alive then 
set integer timeout (sc , ayat imeout ) 

se if (sendreq = req_fiock ) and (waiting for lock) then 
setintegert imeout (sc ^wait forlock t imeout j 
se if (sendreq = req_copy) or 

[sendreq = req_create] then 
set integer timeout (sc, copy timeout ) 
Ise 

set integer! imeout (sc^defaultt imeout ) ; 
ith packet_ptr.rhead", packet_ptr.rread'^ 
begin 
repeat 

fillchardinkfiller, 28, chr(O)); 



{ 3.0 BUG FIX 3/16/84 ) 



dumbuf^ .buf_pt r 
dumbuf^ .buf_6ize 
dumbuf" .buf_empt y 

dumbuf". buf fill 



= anypt'- (packet_ptr.mp); 

= sizecffmsg packet type); 

= anypt r(pacFet_pt rTmp] ■ 

= addr (packet _ptr .mp"[9j ) ; 



if sendreq <> req_read then 

begin 

do__t ransfer(sc , to_memory,0, t rue) ; 

end 
else 
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1438:C 


7 


1439:C 


7 


1440:C 


7 


1441:S 




1442:C 


7 


1443:C 


8 


1444 :C 


9 


144S:C 


9 


1446:C 


9 


1447:C 


9 


1448:C 


9 


1449. -C 


9 


1450:C 


9 


1451 '.S 




14S2;C 


9 


1453:S 




1454 :C 


9 


1455:C 


10 


1456 ;C 


10 


1457;C 


10 


1458:C 


10 


14S9:C 


10 


1460:C 


10 


1461 :C 


10 


1462:C 


9 


1463:C 


7 


1464:C 


6 


1465:S 




1466:C 


6 


1467:C 


6 


1468:C 


6 


1469:C 


6 


1470:C 


7 


1471:C 


5 


1472:C 


4 


1473:C 


4 


1474:C 


2 


!47S:D 


-24 1 


1476:S 




1477:D 


1 


1478:0 


2 


1479:0 


2 


1480:0 


2 


1481 :C 


2 


1482:C 


2 


1483:C 


3 


1484:C 


3 


1485:C 


3 


1486:C 


3 


1487:C 


3 


1488:0 


2 


1489:0 


-24 1 


1490:S 




1491 :D 


1 


1492:0 


2 


1493:C 


2 


1494 :C 


2 


1495;C 


3 


1496:C 


3 


1497:C 


3 
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begin 

count := size_f rom_gang_error + 4; 
do_1 ransfer (sc, to_memor)', count .false] ; 

if message^length > si2e_f rom_gan9_error then 
if return_reque5t_type <> -req_read then 

begin 

do_t ransfer(sc, to_memory,0,true) ; 
end 
else 
begin 

count := size_f rom_read - size_f rofn_gang_er ror; 

do_t ran5fer(sc, To_memory, count , false) ; 

count := actual; 

if count > Then 
begin 

dumbuf '■.buf_pt r 
dumbuf'^ . buf_si2e 
dumbuf ".buf_empty 
dumbuf^. buf fill 



= anyptr(user sequencing field); 

= 512; 

= anypt r (usersequencing_fieldl ; 

= anypt r (user_seqijencing_field) ; 



end ; 



do_t ransferXsc, to_memo ry, count , false) ; 
end : 



until ret urn_reque5t_t ype = -sendreq; 

if sendreq <> req_are_you_alive then 

maptoioresult (status) 
else 

if ayastat uspt r {addr (st at us) )^. srmnode <> 1 then 
ioresult := o rd (znodevice ) ; 
end; 
recover 

dorecover ( unum) ; 



scedure 5etup_5mh (va r smh 
ml, 
srt , 
usf 



5end_header_t ype ; 
integer ) ; 



vith smh do 
begin 

message^lengt h := ml; 

send^request^type := srt; 

user_sequencing_f ield := usf; 
end ; 



procf^dure set Ljp_vnh (var 

beg in 

with vnh do 
begin 
fillerl 
driver name 



vol ume_he ade r_t ype ; 
uni tnum) ; 
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149S;C 
1499:C 
1600:C 
1501:C 
1502:C 
1503:C 
1504:C 
1505:C 
1506:C 
1607:C 
1S08:C 



1S09 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526:C 

1527:D 

1528:S 

1529:D 

1530:C 

1531:C 

1532:C 

1533 :C 

1534:C 

1535:C 

I536:C 

1537:C 

1538:S 

1539:C 

1540:C 

1541 :C 

15A2:C 

1543 :C 

1544:C 

1545:D 

1546:S 

1547 :D 

1548:0 

1549:0 

1550:D 

1551:0 

1552:0 

1553:0 

1554:0 

1555:C 

1S56:C 

1557:C 



4/84] SRn_DRV.TEXr 

catalogue organization 
device_ad3ress_ present, 
with device^adJress do 
begin 

addressl 
haddress 
uni t_num 
volume_num 
end; 
vol ume_n ame : = ' ' ; 
lend; 
d; 
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1 procedure 5etup_f nh (var f nh 

2 num 
2 wd 
2 pt 

2 rp 

2 beg it! 



unit able'^[unum] .du; 

0; 

0; 

0; 



f ile_header_t ype; 
integer ; 
file_id_t ype ; 
path_st art_type; 
name Type); 



{unit number) 



with fnh do 

begin 

num file name_5ets 
wording 3i recto ry 
filler!" 
pat h_t ype 
root_pa5SWord 

end ; 



0; 

pt; 
rp; 



«X»S«X*««X«««»««*XiK»»X«»[»*«XX»S»«*«««»«X*)|t»X*»»»*:«»»X«»iK«»«:ti»»»X««»»)l:»:« 



end ; 



procedure are youaJive pack (unum 
begin 

wi'h packet__pt r . sareyoualive^ do 
begin 

se t up_smh ( se nd_me 55_heade r , 

size__to_are„you_alive, 
req_are_you_alive, 
0); 
end ; 



par ke tout ( unum) ; 

if ioresult = ord (inoerror) then 

packet in (unum, req^are_you alive) ; 
if ioresult <> ord (TnoerrorJ Then 

packeT_ptr.rareyoualive^. reTijrn_mess_header .status := 0; 



procedure catpack(unum 
nfns 
nsapt r 
pat h 
wd 

rtpass 
max 
indx 

begin 

with packet_pt r . scat" do 
tegin 



««X*«»**K«**» 



uni tnum; 

inl eger ; 

pnsa; 

pat h_5t art_t ype; 

f ile_id_t ype; 

name_type ; 

integer ; 

integer ) ; 
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1S58:C 
1559:S 
1560:C 




3 


pnsa(addr (start_name_sets) )" := nsaptr^; 






j: 


setup 5mti(send mess header. 




1561:C 




3 


size_to_caT+nfn5*36, 




1562:C 




3 


req catalog, 




1563;C 




3 


0); 




1S64;S 










1SS5:C 




3 


max num files := max; 




1S66:C 




3 


file in^ex := indx; 




1S87:C 




3 


fillerl :> 0; 




1568:S 










1569:C 




3 


setup vnh(volume name header, jnum) ; 




1670:S 










1571 :C 




3 


filler2 := 0; 




1572:S 










1S73;C 




3 


set up_f nh ( f i le_name_header , 




1S74:C 




3 


nfns. 




1S75:C 




3 


wd, {working directory) 




1S76:C 




3 


path, 




1S77:C 
1578:S 
1S79:C 




3 


rtpass) :<root password) 






3 


end; 




1580:C 




2 


packetout (unum) ; 




1581 :C 




2 


packetin(unum,req_cataJog) ; 




1582:C 




2 


end; 




1583:0 


-24 


1 






1S84:S 










I585:D 




1 


procedure cat passpack (unum 


unitnum; 




1S86:D 




2 


nfns 


integer ; 




1S8T.0 




2 


nsapt r 
path 


pnsa; 




I588:D 




2 


path start type; 




1S89:D 
1590;D 




2 
2 


wd 

rtpass 


file id type; 
name type; 




1591 :0 




2 


max 


integer; 




1S92;D 


-16 


2 


indx 


integer ] : 




1593:C 




2 


begin 




1594:C 




2 


with packet_ptr .scatpass" do 




1695:C 




3 


begin 




1596:C 
1597:S 
1698:C 




3 


pnsa(addr(5tart_name_sets) )^ := nsaptr^; 






3 


setup smh(send mess header. 




1599;C 




3 


size to catprotect+nf n5*36. 




1600:C 




3 


req catprotect. 




1601 :C 




3 


0);" 




1602:S 










1603:C 




3 


max num passwords := max; 




1604 ;C 




3 


filTerl :. 0; 




160S:C 




3 


password index := indx; 




1606:S 






" 




ie07:C 




3 


5etup_vnh{ vol ume_name_,header, unum) ; 




1608:S 










1609:C 




3 


filler2 := 0; 




1610:5 










1611:C 




3 


setup fnh(file name header, 




1612:C 




3 


nfns, 




t613:C 




3 


wd, {working directory) 




1614:C 




3 


path, 




1615:C 
1616:S 
1617:C 




3 


rtpass) ;{root password) 






3 


end; 
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1618:: 




2 


packetout (unum) ; 




1619:C 




2 


packet in (unun, req catprotect); 




1620:C 




2 


end; 




1621:D 


-24 


1 






1622:S 










1623:D 




1 


procedure changeprotectpack (unum 


unitnum; 




1624:D 




2 


nfns 


integer; 




1625:D 




2 


nsapt r 

path 

wd 


pnsa; 




1626:D 
1627:0 




2 
2 


path_start_type; 
file id type; 




1628:0 
1629:0 




2 
2 


rtpass 
nps 


name type; 

integer; 

ppsa); 




1630:D 


-16 


2 


psaptr 




163I:C 




2 


begin 




1632:C 




2 


with packet ptr.schangeprotect^ do 




1633:C 




3 


begin 




I634:C 




3 


pnsa(addr (start name sets)}^ := nsaptr-^; 




1635:C 
1636:S 
1637:C 




3 


ppsa(addr (pnsa(addr [start_narrie_sets] l^Cnfns+l] ) )'^ := psaptr^; 






3 


setup smh(5end mess header, 




1638:C 




3 


size to cHangeprotect+nfnE*36+nps»24, 




1639:C 




3 


req changeprotect , 




1640:C 




3 


0);" 




1641:S 










1642 :C 




3 


5etup_vnh (volume_name_header, unum) ; 




1643:S 










1644 :C 




3 


setup fnh(file name header. 




ie45:C 




3 


nfns. 




I646:C 




3 


wd, {working directory) 




1647:C 




3 


path. 




I648:C 
1649:S 
I650:C 




3 


rtpass) ; {root password) 






3 


num protect code sets := nps; 




1651:C 




3 


end; 




1652:S 










1653:C 




2 


packetout (unum) ; 




16S4:C 




2 


packetin (unum, req changeprotect); 




1655:C 




2 


end; 




1656:0 


-24 


1 






1657:S 










1658:0 




1 


procedure changevolpack (unum : unitnum; 




1659:0 




2 


vpass : name ype 




1660:0 




2 


newname : name_ ype 




1661:0 


-48 


2 


newpass : name ype ; 




1662:C 




2 


begin 




1663:C 




2 


with packet_ptr .schangevolume' do 




1664 :C 




3 


begin 




1665:C 




3 


setup smh(send mess header, 




1666:C 




3 


size to cHange vol label, 




1667:C 




3 


req label. 




1668:C 




3 


0) ;~ 




1669:S 






setup_vnh(vol[jme_name_header,unum) ; 




1670:C 




3 




1671 :C 




3 


password := vpass; 




1672:C 




3 


new_volume_name := newname; 




1673:C 




3 


new vol password := newpass; 




1674 :C 




3 


end; 




1676:S 
1676:C 




2 


packetout (unum) ; 
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1677:C 




2 


packet in ( unum, req_label): 
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1678:C 
1679:D 
1680:S 
1681 :D 
1682:D 
1683:C 
1684:C 
1685:C 
168$:C 
1687:C 
1688:C 
1689:C 
1690:C 
1691 :C 
1692:C 
1693:C 
1694:C 
1695:C 
1696:S 
1S97:C 
1698:C 
1S99:C 
1700:D 
1701 :S 
1702;D 
1703:D 
1704 :D 
1705:D 
1706:D 
1707:D 
1708:C 
1709:C 
1710:C 
1711:C 
1712:C 
1713:C 
1714:C 
ni5:S 
1716:C 
1717:C 



2 end; 

1 (»M««»K 



»««X*»»«»XX««l:»»»»X»k««W»»«««Sa:««»*»«W*«»««««**«*««»« *««**«««**««**««] 



1 procedure closepack (unum 

2 fid : 
2 begin 
2 with packet_pt r . sclose'" do 

begin 

setup_5mh ( send_mess fieader, 
size_to_cTo5e, 
req_close , 



unitnum; 

f ile_id_lype} ; 



0); 

file_id 

darectory_password 
f ile_pa55word 
fillers.! 
nodeallocate . i 
end : 



= fid; 



0; 

0; 



2 packetouT ( un jm) ; 

2 packelinfunum, req_cl05e ) ; 

2 end; 

1 (t*t»***t*****tt*t****lt**X*»**»*X**XM**»X.XX**M 



X***X**M**»*******X****»***X) 



1718: 

1719: 

1720: 

1721 : 

1722: 

1723: 

1724: 

1725: 

1726: 

1727: 

1728: 

1729:D 

1730:D 

1731:D 

1732:D 

1733:D 

1734 :D 

1735:D 

1736:D 

1737:D 



1 


procedure copypack ( unum 


unitnum; 




2 


srcf id 


file id 


ype 


2 


srcoff 


integer; 




2 


destfid 


file_ld_ 


ype 


2 


destoff 


integer; 




2 


req 


integer! 




2 


begin 






2 


with packet ptr.scopy^ do 






3 


begin 






3 


setup smh(5end mess fieader 






3 


size to copy, 






3 


req copy, 






3 


0); 






3 


source file id 


= srcfid; 




3 


source offset 


= srcoff; 




3 


destination file id 


- destfid 




3 


destination'offset 


= destoff 




3 


requested 


= req; 





end ; 

2 piicketout{unum); 

2 pcicketin(unum, req_copy 

2 end; 

1 procedure c reatepack ( unum 



nf ns 
nsapt r 
path 
wd 

rtpass 
nps 

psapt r 
ft ype 
mode 



*»«»S«Xr):««*X»«X«»» 



unitnum; 

integer ; 

pnsa; 

pat h_st ar t_t ype; 

file_ad_t ype; 

name_t ype ; 

integer ; 

ppsa; 

gang_fale_codes; 

integer ; 



«xxx«;«»»«it:»:»x»»:x«««« 



Pascal 


[R 


1738 


:D 


1739 


:D 


1740 


;D 


1741 


:D 


1742 


:C 


1743 


:C 


1744 


:C 


1745 


:C 


1746 


:C 


1747 


:C 


1748 


:S 


1749 


:C 


1750 


:C 


1751 


C 


1752 


C 


1753 


S 


1754 


c 


1755 


s 


1756 


c 


1757 


c 


1758 


c 


1759 


c 


1760 


c 


1761 


s 


1762 


c 


1763 


c 


1764 


s 


1765 


c 


1766 


c 


1767 


c 


1768 


c 


1769 


c 


1770 


c 


1771 


c 


1772 


c 


1773 


c 


1774 


s 


1775 


c 


1776 


c 


1777 


c 


1778 


D 


1779 


s 


1780 


D 


1781 


D 


1782 


D 


1783 





1784 


D 


1785 


D 


1786 


D 


1787 


D 


1788 


D 


1789 


D 


1790 


D 


1791 





1792 


C 


1793 


C 


1794 


C 


1796 


C 


1796 


C 


1797 


S 
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integer ; 
integer ; 
integer ; 
integer ] ; 



:- nsaptr'^ 



maxrec 
extl 
ext2 
xaddr 
begin 

with packet_pt r . screatefile'^ do 
begin 

pnsa [add r (s t ar t_name_5et 5 ) )'^ 
if nps > then 

ppsa (addr (pnsa (add r (start_name_5ets) ) ^[nfns+1] ) )■" 

set up_smh (send_mes5_header, 

~ 5i2e_to_c reate+nfns*36+nps*24, 
req create, 

0); 

set up_vnh(volume_name_header , unum) ; 

5etup_fnh(f ile_name_h€ader , 
nfns, 
wd, 
path, 
rtpass 



(false) 



{working directory) 
< root password) 



file code 


= 


ftype; 


record__mode 


= 


mode; 


max_record_5ize 




maxrec 


first extent 




extl; 


contiguous first extent. i 




0; 


secondary extent 




ext2; 


max_file_5ize 




maxint 


boot_start_addre55 




xaddr ; 


rum protect code sets 


= 


nps; 


label incluB'ed flag . i 


s 


0; 


end; 







(false) 



*n**i********t *******:***■»:■$.%* 



packetout (unum) ; 

packetin(unum, req_c reate) 
end ; 

procedure createl inkpack ( unum 

oldnfns 
oldnsapt r 
oldpath 
oldwd 
oldrt pass 
newrf ns 
newnsapt r 
newpath 
newwd 
newrt pass 
purgeold 
begin 

ith packet_pt r . screatelink^ do 
begin 

pnsa (addr ( star t_name_5et s))" := oldrsaptr^; 

pnsa (addr (pnsa(addr [ star t_name_set s ] ) ""[oldnfns+l] ) ) 



********* 



*********** ] 



u n i t n um ; 

integer; 

pnsa; 

pat h_5tart_type; 

f ile_id_t ype; 

name_type ; 

integer ; 

pnsa; 

pat h_st art_t ype; 

f ile_id_type ; 

name_type ; 

boolean) ; 



: = newnsapt r" 
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1798:C 




3 


5etup_smh (5end_mes5_header , 




1799:C 




3 


~ size to crea1elirk*oldnf n5»36+newnfns*36, 




1800:C 




3 


req createiink. 




1801:C 




3 


0); 




1802:3 










1803 :C 




3 


setup_vnh(volume_name_header,unum) j 




1804:S 










1805:C 




3 


setup fnh(old file name header, 




1806:C 




3 


oldnfns, 




1807:C 




3 


oldwd, {working directory) 




1808:C 




3 


oldpath, 




1809:C 
1810:S 
1811:C 




3 


oldrtpass) ;{ root password) 






•:; 


setup_fnh(new_fije_name_header, 




1S12:C 




3 


rewnf ns, 




1813:C 




^; 


newwd, {working directory) 




1814:C 




3 


newpath, 




1815:C 
1816:3 
1817:C 




3 


newrtpass) ;{root password ) 






3 


purge old link.i ;= ord{pijrgeold) , 




1818:C 




3 


end; 




1319:3 










1820:C 




2 


packetoLit (unum) ; 




1821:C 




2' 


packet in (un urn, req createlink); 




1822:C 




2 


end; 




1823:D 


-24 


1 






1824:3 










182S:D 




1 


procedure exchangepack (unum : un tnum; 




1826:D 




2 


fidl : fi e_id_type: 




1827:D 




2 


fid2 : fi e id type); 




1828:C 




2 


begin 




1829:C 




2 


with packet ptr . sej^change^ do 




1830:C 




3 


begin 




1831 :C 




3 


setup 5mh(send mess header. 




1832:C 




3 


size to xchg open. 




1833:C 




3 


req xchg open, 




1834:C 




3 


0); 




183S:S 










1836:C 




3 


file id 1 := fidl; 




1837:C 




3 


file~id~2 := fid2; 




1838:C 




3 


end; 




1839 :S 










1840:C 




2 


packetout (unum) ; 




1841 :: 




2 


packet in (unum, req_xchg_open) ; 




1842:C 




2 


end; 




1843:D 


-24 


1 






1844:3 










1845:D 




1 


procedure f ileinfopack [unum : unitnum; 




1846:D 




2 


fid : file_id_type); 




1847:C 




2 


begin 




1848:C 




2 


with packet pt r . sf ileinfo" do 




1849:C 




3 


begin 




1350:C 




3 


setup smh(send mess header. 




18S1;C 




3 


si^e^to info. 




18S2:C 




3' 


req info, 




18S3:C 




3 


0); 




1854:3 










18SS:C 




3 


implicit unlock. i := 1; 




1856:C 




3 


file id ■"= fid; 




1857:C 




3 


end; 
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1858:3 










1859:C 




2 


packetout (unum) ; 




18eO:C 




2 


packet in(unum, req info); 




1861:C 




2 


end; 




1862:0 


-24 


1 






1863:3 










1864:D 




1 


procedure ganqr leanpack (unum : unitnum: 




186S:D 




2 


savewd : boolean); 




1866:C 




2 


begin 




1867:C 




2 


with packet_pt r . sgangclean*^ do 




1868:C 




3 


begin 




1869:C 




3 


setup smh{send mess header, 




1870:C 




3 


size to gang cleanup, 




1871 :C 




3 


req gang cleanup, 




1872:C 




3 


0);~ 




1873:3 










1874:C 




3 


keep protected directories.! := ord(savewd); 




1875:C 




3 


end; 




1876:3 










1877:C 




2 


packetout (unum) ; 




1878:C 




2 


end ; 




1879:D 


-24 


1 


(«X*«*««««:X***X«*««««»X«***«XX»» ««»*««««» IK ««*»««««««X«»«««1K»X ««]«»*» «»«»»*«»»«) 




1880:3 










1881:D 




1 


procedure lockpack (unum 


unitnum; 




1882:0 




2 


fid 


file id type; 




1883:D 




2 


wait 


booleanl; 




1884:C 




2 


begin 




188S:C 




2 


wait ingforlock ;= wait; 




1886:C 




2 


with packet ptr. slock'" do 




1887:C 




3 


begin 




1888:C 




3 


setup_smh (send_mess header , 




1889:C 




3 


5ize~to flock. 




1890:C 




3 


req 7lock, 




1891:C 




3 


0);~ 




1892:S 










1893:C 




3 


file_id := fid; 




1894 :C 




3 


wait for lock.i := ord(wait); 




1895:C 




3 


end; 




1896:3 










1897:C 




2 


packetout (unum) ; 




1898:C 




2 


packet in(unum, req flock); 




1899:C 




2 


end; ~ 




1900:0 


-24 


1 






1901 :S 










1902:0 




1 


procedure openpack(unum 


u n i t n urn ; 




1903:0 




2 


nfns 


: nteger ; 




1904:0 




2 


nsapt r 


pnsa ; 




1906:0 




2 


path 


path start type; 




1906:0 




2 


wd 


f ile^id_t ype; 




1907:0 




2 


rtpass 


name type; 




1908:0 




2 


fehare 


integer; 




1909:0 


-16 


2 


, . PP" 


gang open type) : 




1910:0 




2 


begin j 




1911:C 




2 


with packet ptr.sopen" do 




1912:C 




3 


begin 




1913:C 
1914:3 
191S:C 
1916:C 




3 


pnsa(addr (5tart_name_set5] )" := nsapt r'"; 






3 
3 


setup 5mh(send mess header, 

size to open+nfns«36. 
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1917:C 




3 


req open, 
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1918:C 




3 


0); 




1919:S 










1920:C 




3 


5eTup_vnh(volume_name_header,unum) ; 




1921 :S 










1922:C 




3 


setup_fnh(file_name_header. 




1923:C 




3 


nf ns, 




1924:C 




3 


wd, {working directory) 




1925:C 




3 


path, 




1926:C 




3 


rtpass) ; < root password) 




1927:S 










1928:C 




3 


finer2 


:= 0; 




1929:C 




3 


finer3 


:= 0; 




1930:C 




3 


share code 


:= share; 




1931:C 




3 


fiUe74.id 


:= 0; 




1932;C 




3 


fiUerl 


:= 0; 




1933:C 




3 


open type 


:= opn; 




1934:C 




3 


end; 




1935:S 










1936:C 




2 


Piicketout (unum) ; 




1937:C 




2 


packet ihCunum, req open); 




1938:C 




2 


end; 




1939:D 


-24 


1 






1940:S 










1941 :D 




1 


procedure pospack (unum 


: unitnum; 




1942:D 




2 


fid 


: flle_id type; 




1943 :D 




2 


typepos 


: position type; 




1944 :D 




2 


boffset 


: integer); 




1945:C 




2 


begin 




1946:C 




2 


with packet ptr.spos^ do 




1947:C 




3 


begin 




1948:C 




3 


setup smh{send mess header, 




1949;C 




3 


size to position. 




1950:C 




3 


req position, 




1951:C 




3 


0); 




1952:S 










1953:C 




3 


implicit unlock.! := 1; 




1954;C 




3 


file id := fid; 




195S:C 




3 


fillers := 0; 




1956;C 




3 


type of position := typepos; 




1957:C 




3 


byte~ofTset := boffset; 




1958:C 




3 


end; 




1959:S 










1960:C 




2 


pscketout (unum) ; 




1961 :C 




2 


packet in (unum, req_pos it ion ) ; 




1962:C 




2 


end ; 




1963:D 


-24 


1 






1964 :S 










1966:D 




1 


procedure purgepack ( unum 


u r i t n um ; 




1966:D 




2 


nfns 


integer; 




1967:D 




2 


nsapt r 


pnsa; 




1968:0 




2 


path 


path start type; 




1969:0 




2 


wd 


file id type; 




1970:D 


-16 


2 


rtpass 


name type): 




1971 :C 




2 


beg j n 




1972:C 




2 


with packet ptr. spurge" do 




1973:C 




3 


begin 




1974 :C 




3 


pnsa(addr (start_name_sets) )" ;= nsaptr^; 




1975:S 










1976:C 




3 


setup_smh (send mess header. 




1977:C 




3 


si2e_to_pur9e+nf ns*36, 
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1978:C 




3 


req purqelink. 




1979:C 




3 


01;' 




1980:S 










1981 :C 




3 


setup vnh(volume name header , unum) ; 




1982:S 






~ 




1983:C 




3 


setup fnh(file name header. 




1984:C 




3 


nfrs, 




1985:C 




3 


wd, {working directory) 




1986:C 




3 


path. 




1987:C 




3 


rtpass) ;{ root password) 




1988:C 




3 


end; 




1989:S 










1990:C 




2 


packetout (unum) ; 




1991 :C 




2 


packetin (unum, req purgelink); 




1992:C 




2 


end ; 




1993:0 


-24 


1 






1994 :S 










199S:D 




1 


procedure sendreadpack ( unum 


unitnum; 




1996:0 




2 


fid 


file_id type; 




1997:0 




2 


access 


integer; 




1998:0 




2 


Tf? 


integer; 




1999:0 




2 


integer; 




2000:0 




2 


dat 


anvDt r) : 




2001 :C 




2 


Degin 




2002:C 




2 


with packet ptr.sread" do 




2003:C 




3 


begin 




2004 :C 




3 


setup 5mh(send mess header, 




2005:C 




3 


size to read, 




2006:C 




3 


req ?ea3, 




2007 :C 




3 


integer (dat) ) ; 




2008 :S 










2009 :C 




3 


implicit unlock.! 


= 1; 




2010:C 




3 


file id 


= fid; 




2011:C 




3 


access code 


= access; 




2012:C 




3 


filler!?[n 


= 0; 




2013:C 




3 


filler3[2] 


= 0; 




2C14:C 




3 


requested 
offset 


= req: 

= of?: 




20I5:C 




3 




2016:C 




3 


end; 




2017:S 










2018:C 




2 


packetout (unum) ; 




2019:: 




2 


end ; 




2020:0 


-24 


1 






2021 :S 










2022:0 




1 


procedure seteofpack(unum : 


unitnum; 




2023:0 




2 


fid 


file id type; 




2024:0 




2 


usecurptr : 


boolean: 




2026:0 




2 


boffset 


inteqer 1 ; 




202S:C 




2 


begin 




2027 :C 




2 


with packeT_pt r .sseteof do 




2028:C 




3 


begin 




2029 :C 




3 


setup smh(5end mess header. 




2030:C 




3 


size to set eof. 




2031 :C 




3 


req set eof. 




2032 :C 




3 


0);' " 




2033:S 










2034:C 




3 


implicit unlock. i : 


- 1; 




2035:C 
2036:C 




3 
3 


file id " : 
use current pt p .i : 


= fid; 

= ordtusecurpt r) ; 


n-744 


2037:C 




3 


byte^offset : 


= boffse 


t ; 





P.!":al [Rev 3.0M 



2038 

2039 
2040 
2041 
2042 
2043 
2044 
204S 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084; 
2085 
2086; 
2087; 
2088; 
2089; 
2090; 
2091 ; 
2092; 
2093 
2094 
2095; 
2096; 
2097: 



2 

2 
2 

-24 1 

1 
2 
2 
2 
3 
3 
3 
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procedure unlockpack [unum 

fid : 
begin 

with packet_ptr . sunlock^ do 
begin 

setup_5nih (5end_mess_header , 
size to funlock, 
req TunTock, 
0); 



Linitnum; 

f ile_id_type) ; 



fiie id 

explTcil_unlock . i 
end; ~ 



fid; 

ord( true ) ; 



packetout [unum) ; 
packet in (unum, req_f unlock) ; 
end; 

procedure volpack (unum : unitnum); 
begin 

with packet ptr.svol" do 
begin 

set up_smh [send_me5 5_header, 
size~to_vol5tatu5, 
req volstatus, 
0); 



setup vnh (volume_na(ne_header , unum) ; 
end; ~ 



«««x«««««««*«x»«»«»x«*«i«»»s«y« 



packetout (unum) ; 
packet in (unum, req_vol5tatus) ; 
end; 

(*****x****t*»**if ************ txt****»M*******m^**»:^**t*m*********it***t*******) 



procedure sendwritepack (unum 
fid 

access 
req 
of? 
dat 
begin 

with packet_pt r . swrite^ do 
begin 

setup_smh (5end_me5s_header , 

5ize~to_wr ite + req 
req_write, 
integer (dat ) ) ; 

implicit unlock. i ;= 1; 
file_id := fid; 

access_code := access; 



unit num; 
f ile_id_type; 
integer ; 
integer ; 
integer 
anypt r) 



! fillersri] 






= 0; 


i finer3[2] 






- 0; 


J requested 
i offset 






= req; 

= off; 






) filler8.i 






= 0; 


i flush buffer 


.1 




' 1 : 


) movelef t (charpt 


(dat ]^,data, req 


i end; 
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2098 :C 
2099:C 
2100:C 
2101:C 
2102:C 
2103:C 
2104:C 
2105:C 
2106:S 
2107:C 
2108:C 
2109:0 
2110:5 
2111:C 
2112:S 
2113:S 

No errors. >io warnings. 

***** Nonstandard language features enabled ***** 
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2 packetout (unum) ; 
2 end; 

1 [****»*********************************************************** 

1 end<module srm>. 



************) 



11-745 



11-746 



SWVOL 



Description 

SWVOL prompts for disc changes during stream files. Input is taken from tiie keyboard unit rather 
than the stream file. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 

11-747 



Pascal [Rev 3.011 6/ 4/84] bulVOL.TEXT 26-0ec-84 22:57:13 Page 1 »»« File name: SUVOL «»» 

1:0 Scopyright 'COPYRIGHT (C) 1983 BY HEULETT-PflCKflRD COnPflNY'J 

2:0 SnODCHLS 

3:0 program switchvols (input , output); 

4:0 1 import sysglobals: 

5:0 1 var 

6:0 -1 1 ch: char; 

7:0 -36 1 «ol_name : 5tring[34]; 

8:0 -40 1 unit number : integer; 

9:S 

10:C 1 begin 

11:C 1 readln (vol_name} ; 

12 :C 1 if vol_name = '*' then 

13;C 2 begin vol_name := syvid; unit_number := sysunit; end 

14:C 2 else readlnfunit number); 
1S:S 

16:C 1 page; 

17:C 1 u/riteln; vuriteln; writeln; 

18:C 1 if unit number > then «/riteln( ' Please put ',vol_name, 

19:C 2 "' in unit »' , unit_number : 1 ) 

20:C 2 else writeln (' Please make sure ',vol_name,' is on line'); 

21:C 1 write {' and press the X key...'): 

22:C 1 with unitable~[f ibptgf lies [2] )". f unit ) do 

23:C 2 repeat 

24:C 3 call(tm, f ibp(gfiles[2] ) , readbytes, ch, 1, 0); 

25:C 3 until (ch='!<') or (ch='X'); 

26:C 1 writeln(ch); 

27:C 1 end. 

No errors. No warnings. 

**»** Nonstandard language features enabled **«*« 
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SYSDEVS 



Description 

SYSDEVS provides declarations and "hooks" for the keyboard, the CRT, timers, interrupts, and 
typeahead buffer declarations and functionality. 



Requirements 

SYSGLOBALS. 



Notes 

SYSDEVS is described in Chapter 14 of the Pascal 3.0 Procedure Library manual. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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1:S 


2:S 


3:S 


4:S 


5:S 


6:S 


7:S 


8:S 


9:S 


10:S 


II :S 


12:S 


13:S 


14:S 


15:S 


16:S 


17:S 


18:S 


19;D 


20;S 


21 :D 


22:D 


23:0 


24 :D 


25:D 


26 :D 


27 :S 


28:D 


29;D 


30 :S 


31:D 


32:S 


33:D 


34 :D 


35 :D 


36:0 


37:D 


38:D 


39:D 


40:D 


41:0 


42:S 


43:0 


44:0 


45:D 


46:0 


47:0 


48:0 


49:0 


50:0 


51:0 


52:0 


53 :D 


54:D 


55:0 


56:0 


57:0 


58:0 


59:0 


60:0 
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««• File name: SYSDEVS »«« 



(i) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical 
Data and Computer Software clause in 
DRf 7-104. 9(a). 

HEULETT-PflCKBRO COnPPNY 
Fort Collins, Colorado ») 

$S\3PR0G$ 

$heap_di5pose off$ 

$iocheck off$ 

Jrange offS Sovflcheck off$ 

saebug off$ 

Sstackcheck off$ 

PRCGRfln SVSDEVICES; 
■ nOCULE SYSDEVS; 

SSESRCH 'INITLOSD'I 

inPORT SYSGLOBRLS; 

EXPORT 
(» DUMMY OECLflRHlIONS ««»»«»»»»«««»««««*»»»».«««« 
TYPE 

KBDHOOKTYPE 



BYTE; 



PROCEDURE(VfiR STBTBYTE ,OnTnBYTE : 
VflR DOIT: BOOLEPN); 
0UT2TYPE = PR0CE0URe(VBLUEl,vnLUE2: BYTE); 
REQUESTITYPE = PROCEDURE CMO: BYTE; VRR VflLUE: BYTE); 
BOOLPROC = PROCEDURE(B:BOOLEHN); 

{* CRT ************************^********»M%**lt***TlfiH**it*\ 

{«»«», THIS SECTION HAS HARD OFFSET REFERENCES «*»»*»•«») 
( IN MODULES CRTB (fiSSY FILE GRSSM) > 

TYPE 

CRTUORO = RECORD CASE INTEGER OF 

1 : (HIGHLIGHTBYTE.CHPRPCTER: CHRRI ; 
2:(UH0LEUI0RD: SHORTINT); 
END; 
CRTLLOPS =lCLLPUT,CLLSHIFTL,CLLSHIFTR,CLLCLEflR,CLLDISPLfiY,PUTSTSTUS); 
CRTLLTYPE = PR0CEOURE(OP:CRTLLOPS; PNYVfiR POSI TION: INTEGER; C:CHflR); 
DBCRTOPS =(OBINF0,0BEXCG,DBGOT0XY,DBPUT,DBIN!T,DBCLEHR,DBCLINE,DBSCR0LLUP, 

DBSCR0LLDN,DBSCR0LLL,DesCROLLR,DBHIGHL) ; 
OBCINFO = RECORD 

SnVEBREP : UINDOUP; 
SnvESIZE : INTEGER; 
OCURSORPDOR : INTEGER; 

xniN,XMfix,YniN,Yrmx : shortint; 

CURSX.CURSY : SHORTINT; 
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61 :D 




62:0 




63:0 




64:0 




65:S 




66:0 




67:3 




68:0 




69:0 




70:0 




71:D 




72:P 




73:S 




74:0 




75:0 




76:0 




77:0 




78:0 




79:0 




80:D 




81 :0 




82:0 




83:0 




84 :D 




85:0 




86:S 




87:0 




88:0 




89:0 




90:0 




91 :D 




92:0 




93:0 




94:0 




95:0 




96:0 




97:0 




98:0 




99:0 




100:0 




101:0 




102:0 




103:3 




104:0 




105:0 




106:0 




107:0 




108:0 




109:0 




110:S 




UI :D 




112:S 




113:0 




114:3 




115:0 




116:0 


-4 1 


117:0 


-4 1 


118:0 


-4 1 


119:0 


-12 1 


:20:D 
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C : CHAR; 

flREftlSOeCRT ; BOOLEAN; 
END; 
DBCRTTVPE-PROCEDURE(OP:DBCRTOPS; VPR DBCRT :DBCINFO ) ; 

crtconsttype = packed array [0..11] of byte; 

crtfrec = packed record 

nobreak, stupid^ slowterm. hasxycr t , 
haslccrt {built in crt > , hasclock , 
canupscroll ,candownscroll boolean; 

end; 

b9 = packed array[0..8] of boolean; 
bl4= packed array[0..131 of boolean; 
crtcrec = packed record 

rl f , ndfs .eraseeol, 

eraseeos, home, 

escape : char ; 

backspace ; char: 

fillcount : 0. .255; 

clearscreen , 

clearline : char; 

prefixed : b9 

end; 



(* CRT CONTROL CHfiRS *) 



c rt irec 



packed record 

width, height : shortint; 
crtmemaddr ,crtcont roladdr, 
keybufferaddr.progstateinfoaddr 
keybuffersize: shortint; 



(* CRT INFO & INPUT CHARS *) 



crtcon 

right , left , down, up: 

bade h,chardel, stop, 

break, f lush,eof 

altmode, linedel ; 

backspace , 

etx, prefix : 

prefixed : 

cursormask : 

spare : 



environ 



end; 

record 
miscinfo 
crt type : 
crtct rl: 
crt info : 

end; 



crtconstt ype ; 

char ; 

char; 
char ; 

char; 
bl4 ; 
integer; 
integer; 



crtfrec ; 
integer ; 
crtcrec ; 
crt irec ; 



environptr = '^environ; 

crtkinds = (NOCRT, flLPHATYPE, BIThflPTYPE, SPECIRLCRTl, SPECIflLCRT2 ) ; 

SVSCOM: ENVIRONPTR; 

flLPHfiSTPTEC'flLPHfiFLflG'] : BOOLEAN; 

GRfiPHICSTflTEt'GRAPHICSFLflG'] ; BOOLEAN; 
CPTIOHOOK : flMTYPE; 

TOGGLEALPHAHOOk : PROCEDURE; 
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121 :D 

122:D 

123:D 

124 :D 

12S:D 

126:D 

127:D 

128:D 

129:0 

130:D 

131:D 

132:D 

133:D 

134:D 

13S:D 

136:5 

137:D 

138;D 

139:D 

140:D 

141:D 

142:D 

143 :D 

144: 

145: 

146: 

147: 

148 

149: 

150: 

151: 

152: 

153: 

154: 

155: 

156 :D 

1S7:D 

158: 

159: 

160: 

161 : 

162: 

163: 

164: 

165: 

166: 

167: 

16 



:D 
:D 
:D 
:D 
:0 
:S 
:D 
:0 
:D 
:D 
3:0 



169:S 

170:D 

171: 

172: 

173: 

174: 

175: 

176: 

177: 

178: 

179: 

180: 



-28 

-36 
-44 
-62 
-60 
-68 
-76 
-78 
-80 
-82 
-86 
-90 
-92 
-94 



-96 
-96 
-96 
-96 
-96 
-96 
-96 
-96 



-96 

-96 

-96 

-96 

-96 

-104 

-112 

-120 

-128 

-130 

-132 

-134 

-138 

-142 

-144 

-144 
-144 
-144 
-144 
-152 

-152 
-152 
-180 
-164 

-164 
-164 
-164 
-164 
-164 
-172 



TOGGLEGRnPHlCSHODK 

DUUPHLPHflHOOK 

OUtlPGRflPHICSHOOK 

UPDRTECURSORHOOK 

CRTINITHOOK 

CRTLLHOOK 

DBCRTHOOK 

XPOS 

YPOS 

CURRENTCRT 

BIThfiPfiODR 

FRPhEflDDR 

REPLREGCOPY 

UINDOyREGCOPy 

URITEREGCOPV 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

CRTLLTVPE 

DBCRTTYPE 

SHORTINT 

SHORTINT 

CRTKINDS 

INTEGER; 

INTEGER; 

SHORTINT 

SHORTINT 

SHORTINT 



CURSOR X POSITION ) 
CURSOR Y POSITION > 
BCTIVE fiLPHB DRIVER TYPE > 
ADDRESS OF BITMBP CONTROL SP9CE ) 
BDDRESS OF BITMBP FRPME BUFFER > 
REGISTER COPIES FOR BITMRP DISPLBV > 
MUST BE IN GLOBBLS BECAUSE REGISTERS 
BRE NOT REBDBBLE -- MBY BE UNDEFINED 



{* KEYBOBRD *»«*»*«*««*«**««***»*** 
CONST 



**X**»***M**» 



KBD ENABLE 
SET"BUTO DELAY 
GET BUTO OELBY 
SET KBDTVPE 
TYPE 

STRING80PTR 



KBD DISABLE 
SET_RUTO_REPEflT. 
GET_RUTO REPERT= 
SET KBDLHNG 



„.„. ,., - STRING80: 

KEYBOBROTYPE = (NOKBD, LftRGEKBD.SnRLLKBD, ITFKBD.SPECIBLKBDl ,SPECIBLKBD2) : 

LRNGTYPE = (NO KBD, FINISH_KBD, BELGIAN KBD, CON ENG KBD,CDN FR KBD, 

NOIfUEGIflN KBD, DANISH KBD,CUTCH KBCSUTSS GR k5D,SUISS FR KBD, 
SPANISH ElJR KaD,SPRNTSH LfiTIN_CTD,UK KBD.ITHlIBN KBD, 
FRENCH rBD.CERnAN KBD,30EDISH KBD, SPANISH KBD, 
KATRKARR_KBD,US KBD, ROMANS KBCT.NSl KBD.NS? KBD,NS3 KBD); 

nENUTYPE = (d NONE,n SYSNORR,rl SYSSHIFT,n U1,I1 U2,n U3,n U4); 
VBR " "" _ _ _ _ 



KBDREQHOOK 

KBDIOHOOK 

KBDISRHOOK 

KBDPOLLHOOK 

KBDTYPE 

KBDCONFIG 

KBDLANG 

SYSHENU 

SYStlENUSHIFT 

MENUSTATE 



REQUESTITYPE; 

AMTYPE; 

KSDHOOKTYPE; 

BOOLPROC: 

KEYBORRDTYPE: 

BYTE: 

LRNGTYPE; 

STRING80PTR; 

STRING80PTR: 

MENUTYPE; 



< KEYBOARD CONFIGURATION JUMPER } 



tX***»***M*t***»************X**JK**** 



1 <« ENABLE / DISABLE 

1 CONST 

1 KBDMASK-l;RESETMRSK.2;TIMERMASK«4;PSIMRSK=8;FHIMflSK=16; 

1 VBR 

1 nflSKOPSHOOK : 0UT2TYPE; < ENABLE, OISBBLE ) 



1 {* BEEPER x**x**x***»***»»»***»*»:*»*** 

1 VAR 

1 BEEPERHOOK: 0U1'2TYPE; 

1 BFREQUENCY, BDURATION: BYTE; 

1 /W RPG »««»»XX«lK«»X«»»«««i«lX4c««»***»»«* 

1 CONST 

I RPG.ENBBLE = 0; RPG DISABLE = 1; 

1 SET_RPG_RRTE = 2; GET RPG RATE =3; 

1 VBR 

1 RPGREOHOOK; REQUESTITYPE; 



«> 
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181 

182 

183 

1 

185 

186 

187 

1 

189:0 

190;D 

191 

192 

193 

194 

195 

I 

197 

198 

199 

200 

201:D 

202 :D 

203:D 

204:0 

205:0 

206:D 

207:0 

208:0 

209;0 

210;S 

211;D 

212:0 

213:0 

214:D 

21S:D 

216;D 

217:0 

218:0 

219:0 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

236 

236 

237 

238 

239 

240 



-180 
-180 

-180 
-180 
-180 
-180 
-188 
-196 

-186 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-196 
-204 
-212 

-212 
-212 
-212 
-212 
-212 
-212 
-212 
-212 
-212 
-212 
-212 
-212 
-220 
-228 



-228 
-228 

-228 
-228 

-228 
-228 
-228 
-228 
-228 
-228 
-228 
-228 
-228 



RPGISRHOOK: KBDHOOKTYPE; 



'X BATTERY »************»»**x*»**!ti*x***t**»:* 

Type 
brtcmdtype =■ procedure (cmd ; byte: numdbtb: 

Bl. B2. B3. B4, B5 : 
BBTREADTYPE= PROCEDURE(VRR DATA: BYTE ; 
VAR 

BATTERYPRESENT[-563]; BOOLEAN; 
BRTCMDHOOK : BATCMDTYPE; 
BATREROHOOK: BBTREBDTYPE; 



INTEGER; 
BYTE); 



♦«*#***«*»**«*«**«*»««»**) 



'* CLOCK «»*«****»**«*«*****#* 
'YPE 
RTCTIME = PACKED RECORD 

PBCKEDTI ME, PACKEDOBTE: INTEGER; 
END; 
CLOCKFUNC = (CGET0BTE.CGETTIME,CSETDflTE,CSETTIt1E 
CLOCKOP = (CGET.CSET); 
CLOCKDRTB = RECORD 

CRSE BOOLEAN OF 
TRUE :(TIMETYPE:TlriEREC); 
FALSE : (ORTETYPE :OBTEREC) ; 
END; 
CLOCKREOTYPE = PROCEDURE(CMO :CLOCKFUNC 
CLOCKIOTYPE = PROCEDUREjCMD :CLOCKOP 



RNYVAR DATfl:CLOCKDATfi); 
VBR OflTB:RTCTlnE); 



CLOCKREQHOOK 
CLOCKIOHOOK 



CLOCKREOTYPE; 
CLOCKIOTYPE; 



CLOCK MODULE INTERFACE > 
CARD DRIVER INTERFACE > 



(* TlhER *******«««:«**«*x»***«***«*«*x 
TV 



TYPE 

TIMERTYPES = 
TIMEROPTYPE 
TIMEROATfl = 



(CYCLIC? PER I0DICT0ELAYT,DELAY7T,MATCHT); 



(SETT,R^ROT,GETTI|!lFO) 
RElioRD 
CASE INTEGER OF 

1 
2 



END; 



(COUNT: INTEGER); 
MATCH: TIMEREC); 
RESOLUTION, RANGE: INTEGER); 



TIMERIOTYPE = Pr6cEDURE (TIMER : TIMERTYPES;OP: TIMEROPTYPE;VflR TC: TIMERDRTA) 
VAR 

TIMERIOHOOK : TIMERIOTYPE; 
TIMERISRHOOK : KBDHOOKTYPE; 

{* KEY6UFFER »««*»*****«*«***«****«*♦**»*«******»*******) 
CONST 

KMflXBUFSIZE • 255; 
TYPE 

KOPTYPE = (KGETCHAR,KflPPENO,KNONflDVANCE,KCLEAR,KDISPLflY, 

KGETLAST.KPUTFIRST); 
KBUFTYPE« PACKED ARRAY [0 . .KHAXBUFSIZE] OF CHAR; 
KBUFPTR • "KBUFTYPE; 
KBUFRECPTR = ^KBUFREC; 
KBUFREC - RECORD 

ECHO: BOOLEAN; 

NON CHAR: CHAR; 

MAX!?IZE,SIZE,INP,OUTP: INTEGER; 
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241:D 
242:0 
243:S 
244:0 
245:D 
246 :D 
247:0 
248:0 
249:0 
2S0:D 
251:0 
262:0 
253:0 
254;S 
255:0 
25$:0 
257:0 
258:0 
259:0 

260 :S 

261 ;D 
262:0 
263:0 
264:0 
265:0 
266:0 
267:0 
268:0 
269:0 
270:0 
271 :0 



272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283:0 

284:0 

285:0 

286:0 

287:0 

288:0 

289:0 

230 :S 

291 :0 

292:0 

293:0 

294:0 

295:0 

296:0 

297:0 

298:S 

299:0 

300:S 



-228 
-228 

-228 
-232 
-240 
-248 
-256 
-256 
-256 
-256 
-256 
-256 

-256 
-256 
-256 
-256 
-256 

-266 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-256 
-268 
-276 
-278 
-286 
-288 
-291 

-291 
-291 
-291 
-291 
-291 
-291 
-291 



BUFFER: KBUFPTR; 
ENO; 



VflR 

KEYBUFFER : KBUFRECPTR; 

KBDUnlTHOOK: PROCEOURE; 

HBDRELEPSEHOOK: PROCEDURE; 

STBTUSLINE: PACKED HRRflY[6..7J OF CHSR; 

(0 s or f = STEP/FLBSH IN PROGRESS (UfilTING FOR TRAP »0)) 

(1..5 last executed/current line number ) 

(6 S«SYSTEM U=USER DEFINITION FOR ITF SOFT KEYS) 

( BLHNK FOR NON ITF KEYBOBRDS ) 

{7 RUNLIGHT ) 



***x*t** 



*«> 



;» KEY TRONSLflTION SERVICES 

fYPE 

KEYTRHNSTYPE = (KPfiSSTHRU .KSHIFT EXTC.KPHSS EXTC): 

KEYTYPE . (flLPHfi KEY,NONflDV KEY.SPEClflL KEY, IGNORED KEY.NONP SLPHfl KEY) 
< ADDED NONS_fiLPnfl_KEY 5/9/54 RQ/SFB ) ~ ~ - - ' 

LfiNGCOflREC 



RECORD 
STATUS 
DPTfl 
KEY 
RESULT 



BYTE; 
BYTE; 
CHRR; 
KEYTYPE; 



LRNGKEYREC ■ 



SHI FT, CONTROL, EX tENS ION: BOOLEAN; 
ENO; 



RECORD 

NO^CRPSLOCK: 
NO SHIFT : 
NO CONTROL : 
NO EXTENSION 
KEYCLfiSS 



BOOLEAN; 
BOOLEAN; 
BOOLEAN; 
: BOOLEAN; 
KEYTYPE; 



KEYS : RRRAYtBOOLEANi OF CHAR; 
END; 
LRNGRECORD= RECORD 

CAN NONROV 
LANGCODE 
SEMflNTICS 
KEYTBBLE 
END; 
•^LRNGRECORD; 



BOOLEBN; 

LBNGTYPE; 

PROCEDURE; 

ARRRY(0. .127) OF LANGKEYREC; 



LRNGPTR 

LANGCOn 

LRNGTBBLE 

LhlNGINDEX 

K8DTRRNSH00K 

TRANSMOPE 

KBDSYSnODE 



LANGCOMREC; 

ARRAY [0. .11 OF LRNGPTR; 

0..1; 

KBOHOOKTYPE; 
KEYTRHNSTYPE; 
KBDALTLOCK, KBDCAPSLOCK : BOOLEBN; 



1 (* HPHIL *********************** 

1 <n0VED INTO SYSDEVS 4/6/84 SFB) 

1 const 

1 h!_confi9yred = hex('80'); 
1 le_er ror = hex ( '81 ' ) ; 

I lL!_timeout - hex('82'); 

1 le_loopdown = hex('84'); 

1 Irnaxdevices = 7; 



********** 
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301:0 

302:0 

303:0 

304: 

305: 

306: 

307: 

308 

309: 

310: 

311 : 

312: 

313: 

314: 

315: 

316; 

317: 

318:0 

319:0 

320:0 

321:0 

322: 

323: 

324: 

325: 

326: 

327: 

328; 

329; 

330:0 

331 :0 

332:0 

333:0 

334:0 

33S:S 

336:D 

337:0 

338:0 

339:0 

340:0 

341:0 

342:0 

343;S 

344:0 

345 :D 

346:0 

347:0 

348:0 

349:0 

350:0 



351: 

352: 

353: 

364: 

355: 

356: 

367; 

358:0 

359:0 

360:D 



-291 
-291 
-291 

-291 
-291 
-291 
-291 



-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 

-291 
-291 
-291 
-291 
-291 
-291 

-291 
-291 
-291 
-291 
-291 
-291 
-291 

-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 
-291 

-291 
-291 
-296 
-300 



type 

Idopdv rop 
loopdv rproc 



(data5tarting,dataended,re5etdevlce) 
procedure (op: loopdv rop) ; 



(HPHILOP DEFINED HS NEU TYPE 4/6/84 SFB) 

HPHILOP • (RRySHIFT0P,N0RMSHIFT0P,CHECKL00POP,C0NFIGUREOP,LC0MMRNO0P) ; 

(;. PROCEDURES HOOKED AS TYPE HPHILCnOPROC 4/6/84 SFB) 

HPHILCnDPROC = PROCEDURE(0P : HPHILOP); 

dcscnprec - packed record ( DEVICE DESCRIBE RECORD > 
case boolean of 
true ; (id : byte ; 

twosets ; boolean; 

abscoords: boolean; 

sizeie : boolean; 

hasprompts; boolean; 



reserved 
numaxes ; 
counts ; 
maxcountx : 
maxcounty: 
maxcountz : 
nprompts : 
nbuttons ; 
false; (da rray 
end; 



0. .3; 
0. .3; 

shortint ; 
shortint ; 
shortint ; 
shortint; 
0..7; 
0. .7); 
array[i . .11] of char) ; 



devicerec 



record 
devstate 
descrip : 
opsproc 
dataproc 

end; 



integer; 
descriprec; 
loopdvrproc; 
kbdhookt ype; 



loopdvrptr = ^loopdriverrec; 
loopdriverrec = record 

lowid, highid,daddr 



opsproc 
dataproc 



end; 



loopdvrproc ; 
kbdhookt ype ; 
loopdvrpt r ; 



byte; 



LOOPCONTROLREC = RECORD 
rawmode ; boolean; 
loopdevices ; array[l . . Imaxdevices] of devicerec 
loopdevice ; 1 .. Imaxdevices 



{REDEFINED flS RECORD - 4/6/84 SFB) 



loopcmd ; byte; 

loopdata ; byte; 

looperror : boolean; 

loopinconfig; boo lean; 

loopcmddonei: boolean; 

loopisok I: boolean; 

loopdevreading; boolean; { reading po 



last loop command sent > 
data bye in / out ) 
error occured on last operation ) 
now doing reconfigure ) 
last sent command is done ) 
loop is configured ) 
11 ■ 



data > { 3.0 BUG #39 3/17/84 ) 



loopdriverlist 
LOOPCONTROL 



loopdvrpt r; 
"LOOPCONTROLREC; 
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362 

363 

364 

36S 

366 

367 

368 

369 

370 :D 

371:D 

372:0 

373:0 

374:0 

375:0 

376:0 

377:0 

378:0 

379:0 

380 :D 

381:0 

382:0 

383:D 

384:0 

38S:D 

386:0 

387:0 

388:D 

389:0 

390:0 

391:0 

392:0 

393:0 

394 :S 

395:0 

396 :S 

397:0 

398:0 

399 :C 

400:0 

401:C 

402:0 

403:0 

404 :C 

405 :D 

406 :C 
407:0 
408:0 
409:C 
410 
411 
412 
413 
414 
415 
416 
417 
41 
419 
420 
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HPHILCnOPROC; 
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-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 

-308 
-308 
-308 

-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 
-308 

-308 

-308 



PROCEDURE SVSDEV_INIT; 

(* BEEPER *********************x*******^******»***»*iL****\ 

PROCEDURE BEEP: 

PROCEDURE BEEPER(FREQUENCY,DURfiTION:ByTE) ; 

{» RPG »*xxx«xx«»»«»»«xik«»»»»t««»*««»«««t«*»««*«**s««xs* ) 

PROCEDURE SETRPGRBTE(RfiTE : BYTE); 

{* KEYBOARD ****«****««««*t««««»««««»»**«*««**«*t*««**«* } 

PROCEDURE KBDSETUP(CMD,VflLUE:BYTE) ; 

PROCEDURE KBDID(FP: FIBP; REQUEST: PflREQUESTTYPE ; 

RNYVHR BUFFER: UINDOU; BUFSIZE , POSITION: INTEGER); 
procedure lockedaction(a; action); 

{« CRT *******««*****»<**«*x«««*******»*****»**»*»*«««««* ) 
PROCEDURE CRTIO(FP: FIBP; REQUEST: finREOUESTTVPE; 

SNYYfiR BUFFER: UINDOU; BUFSIZE , POSI TION: INTEGER); 
PROCEDURE 0UMf1YCRTLL(0P:CRTLL0PS; HNYVfiR POSITION: INTEGER; C:CHfiR ; 
<« BRTTERY ********t:*****»:f»******xx9.»****»*******t»****) 

PROCEDURE BflTCOnnfiND(CMD:BYTE: NUMDBTR : INTEGER; 61, B2, 63, B4, B5: BYTE)- 
FUNCTION BfiTByTERECEIYEO:BYTE; 

<* CLOCK «****««********K*»********»*»***#**«««x«««««**» \ 
unction sysclock: integer; (centiseconds from midnight) 
. — — ^..- .c_._._ daterecj 

t imerec j 
daterec ) 
t imerec ) 



procedure sysdate (var thedate 

procedure systime (var thetime 

procedure setsysdate ( thedate 

procedure setsystime ( thetime 

(* KEYBUFFER **»***t*«******«#««***x*»«****»««»*«**««» 

PROCEDURE KEyBUFOPS(OP:KOPTYPE; VPR C: CHAR); 

I* STflTUSLINE «***x*»*«)«»««x*****»**»**«**#«»*««««»««« 

PROCEDURE SETSTflTUS(N:INTEGER; C:CHRR); 

FUNCTION RUNLIGHT:CHnR; 

PROCEDURE SETRUNLIGHT(C:CHnR) ; 



1 IMPLEMENT 

1 <» GENERfiL PURPOSE DUMMY PROCEDURES «»«»»««»•*»««•««»•*»> 

1 PROCEDURE OUtinyPROC; 

2 BEGIN END; 

1 PROCEDURE 0UMMY0UT2(VfiLUEl, VflLUE2 : BYTE); 

2 BEGIN END; 

1 PROCEDURE DUMMYKBDtVfiR STfiTBYTE ,DflTSBYTE : BYTE; 

2 VPR D0IT:BO0LEfiN) ; 
2 BEGIN END; 

1 PROCEDURE DUMMYREQl (CMD : BYTE; VPR VflLUE :eYTE) ; 

2 BEGIN END; 

1 PROCEDURE DUMMVTM(FP: FIBP; REOUEST: (WREQUESTTYPE; 

2 BNYVRR BUFFER: UINDOU; BUFSIZE , POSITION: INTEGER) 
2 BEGIN END; 

1 PROCEDURE DUrlMyB00LPROC(B:BO0LEfiN); 

2 BEGIN END; 

1 {* BEEPER «********«****»*«***»**«**********«****«*!«*«««) 

1 PROCEDURE BEEP: 

2 BEGIN CflLL(BEEPERHOO<,BFREQUENCY,BDURfiTI0N) ; 
2 END: 

1 PROCEDURE BEEPER(FREQUENCY,DURnTION:BYTE) ; 

2 BEGIN CHLL(BEEPERHOOK, FREQUENCY, DURATION) ; 
2 END; 
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421:0 


1 


422:D 


-2 2 


423:C 


2 


424:C 


2 


425:C 


2 


426:S 




427:0 


-308 1 


428:D 


1 


429:0 


-2 2 


430:C 


2 


431 :C 


2 


432:0 


1 


433:0 


2 


434 :C 


2 


435 :S 




436:0 


-308 1 


437:0 


I 


438:C 


2 


439:C 


2 


440:D 


1 


441:0 


-2 2 


442:C 


2 


443:C 


2 


444:S 




445:0 


1 


446:C 


2 


447:0 


1 


448:C 


2 


449:S 




450:0 


-308 1 


451 :D 


1 


452:C 


2 


453:0 


1 


454 :C 


2 


455:0 


1 


456 :C 


2 


457:0 


1 


4S8:D 


-8 2 


459:C 


2 


460:C 


2 


4S1:C 


2 


482 :S 




463:0 


1 


464 :C 


2 


465 :C 


2 


466:0 


1 


467 :C 


2 


468 :C 


2 


469:0 


1 


470:0 


-2 2 


471 :C 


2 


472 :C 


2 


473:0 


1 


474:0 


-4 2 


475 :C 


2 


476:C 


2 


477:D 


1 


478:C 


2 


479:C 


3 


480:C 


3 



PROCEDURE SETRPGRPTE(RfiTE:BYTE); 

VflR IRPTE : BYTE; 

BEGIN 

IRBTE :- RATE; CALL (RPGREQHDOK , SET RPG RATE, IRATE); 
END; - _ . I. 

{« KEYBOARD ************»*:*****»:**xx***M»x**t**x*»******) 
PROCEDURE KBDSETUP(CMD, VALUE :BYTE); 
VflR IVALUE : BYTE: 

BEGIN IVALUE := VALUE; CALL (KBDREQHOOK, CMD, IVHLUE) ; 
END: 
PROCEDURE KBDIO(FP: FIBP; REQUEST: AMREQUESTTYPE ; 

RNYVAR BUFFER; UINDOU; BUFSIZE, POSITION: INTEGER); 
BEGIN CflLL(KBOIOH0OK,FP, REQUEST, BUFFER, BUFSIZE, POSITION); END; 

{« BATTERY **************x****************.*xt**x***»**iK*) 
PROCEDURE BATCOnnqND(CHD:BYTE; NUMDATA: INTEGER; Bl, B2, B3, 
BEGIN CHLL(BfiTCMOHOOK, CMD, NUMORTA, Bl , B2 , B3, B4 , BS); 
END: 

FUNCTION BATBYTERECEIVED:BVTE; 
VRR DflTfi : BYTE: 

BEGIN CALL (BHTREHDHOOK, DATA); BflTBYTERECEIVEO := 
END; 

PROCEDURE DUMf1YBBTCriO{CriD:BYTE; NUMDATA : INTEGER ; 

BEGIN END; 

PROCEDURE DUMMYBflTREflDCVAR OATfi:BYTE); 

BEGIN END; 

(* CLOCK «**«««*««****«««*««««**«********»«*******««*«*«} 
PROCEDURE DUMNYCLOCKSYS(VAR STIME : INTEGER ) ; 
BEGIN END; 

PROCEDURE DUMMYCLOCKREQ(CnD:CLOCKFUNC; ANYVAR OfiTA:CLOCKORTA) 
BEGIN END; 

PROCEDURE DUMNYCLOCKIO(CMD:CLOCK0P ; VAR DflTB:RTCTlnE ) ; 
BEGIN END; 

function sysclocK : integer; 
var Itime: rtctime; 
begin 

CALL (CLOCK I OHOOK.CGET.LTIME); sysclock 
end; 



B4, B5: BYTE); 



DATA; 

Bl, 62, B3, 84, 65: BYTE); 



It ime . pacKedt ime; 



procedure svsdate (var thedate: daterec); 
BEGIN CALL (CL0CKREQHOOK,CGETDflTE, THEDATE); 



procedure systime (var thetime: timerec); 

"LL(CLOCKREQHOOK,CGETT I ME, THETIME) 

END; 



BEGIN CRLL(CLOCKREQHOOK,CGETTIME 

thedate: daterec); 



procedure setsysdate 

VflR D:DATEREC; 

BEGIN 0:=THEDATE; CALL (CLOCKREQHOOK .CSEIOflTE .0) ; 

END; 

procedure setsystime ( thetime: timcec); 

VflR T:TIMEREC: 

BEGIN T:.THETIME; CALL (CLOCKREQHOOK ,CSETT IME, T) ; 

END: ' 

PROCEDURE OUMMYTIMERIO (TIMER: TIt1ERTYPES;0P: TIMEROPTYPE ; VRR ID: TIMEROATfl); 

BEGIN IF OP=REflOT THEN TD.C0UNT;=-1 

ELSE 

IF OP=GETTINFO THEN TO . RESOLUT !0N : =0 ; 
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481:C 


2 


482:S 




483:D 


-308 1 


484:0 


1 


485:0 


2 


486:C 


2 


487:0 


1 


488:C 


2 


489:D 


1 


490:C 


2 


491:S 




492:0 


1 


493:0 


2 


494:0 


-4 2 


495:C 


2 


498:C 


2 


497:C 


3 


498:C 


3 


499:C 


3 


500:C 


3 


S01:C 


3 


502 :C 


4 


503 :C 


4 


504 :C 


4 


505:C 


4 


506:C 


4 


507:C 


3 


508 :C 


2 


509:C 


2 


510:5 




511:0 


-308 1 


512:0 


1 


513:0 


2 


514:0 


-8 2 


515:3 




516:0 


2 


517:C 


3 


S18:S 




519:0 


2 


S20:C 


3 


521:C 


3 


622:3 




623:C 


2 


524 :C 


2 


S25:C 


3 


526:C 


4 


527:C 


4 


528:C 


4 


S29:C 


4 


530:C 


4 


531 :C 


4 


532:C 


4 


533:C 


4 


534 :C 


4 


S3S:C 


5 


536:C 


5 


537:C 


5 


538;C 


5 


539:C 


4 


540 :C 


4 



(« CRT «««««*«««*»****•******«*»*#****♦*««**********««**> 
PROCEDURE CRTIOIFP; FIBP; REQUEST: nnREQUE3TTVPE ; 

fiNYVfiR BUFFER; UINDOU; BUFSIZE , POSITION: INTEGER); 
BEGIN CBLLtCRTIOHOOK, FP, REQUEST, BUFFER, BUFSIZE, POSITION) : ENO; 
PROCEDURE DumYCRTLL(OP:CRTI.LOPS; fINYVflR POSITION: INTEGER; C:CHfiR); 
BFGIN END; 

PROCEDURE DUfinYOBCRT(0P:OBCRT0PS; VPR DBCRT :DBCINFO) ; 
BEGIN ENO; 

procedure lockedactlon (a : action); 
Idbel 1; 
v.ir i; integer; 
begin 
1? locklevel = then calKa) 
else 
begin 

1 :- act ionspendinq ; 

while i>0 do if defer redaction [i] = a then goto 1 else i := i - 1; 

if actionspending = 10 then beep 

else 

begin 

actionspending := actionspending + 1; 
deferredac tion [act ionspending] := a; 
end ; 
end; 
1 : 
end; 

{* KEYBUFFER *********t********t****»»:******t*****»:X**>t:*) 

PROCEDURE KEYBUFOPS(OP:KOPTYPE; VfiR C: CHBR); 

POSITION, TEMPI : INTEGER; 

PROCEDURE fIDVflNCEIVPR P:INTEGER1; 

BEGIN P: = (P-H) MOD KEYBUFFER" .nftXSIZE; END; 

PROCEDURE BfiCKUPlVflR P:INTEGER); 

BEGIN IF P>0 THEN P:=KEYBUFFER^.MfiXSIZE-l ELSE P:=P-1; 

END; 

BEGIN < KEYBUFOPS ) 
UITH KEYBUFFER" DO 
CfiSE OP OF 
KGETCHRR • 

BEGIN ' { nUST NOT CALL IF SIZE=0 > 

IF ECHO THEN CPLL (CRTLLHOOK,CLLSHIFTL, POSITION, ' '); 
C;=BUFFER"[OUTP); SIZE : =SIZE-1 ; ftOVflNCE (OUTP) ; 
ENO; 
KRPPEND.KNONflOVfiNCE: 

BEGIN < nUST NOT CRLL IF SIZE>=nfiXSI2E ) 
IF ECHO THEN CPLL ICRTUHOOK .CLLPUT,SIZE ,C) ; 
IF OP=KfiPPEND THEN 
BEGIN 

SIZE:=SIZE*1; BUFFER'-EINP] : -C ;PDVfiNCE (INP) ; NON_CHnR:=' '; 
END 

ELSE NON CHnR:=C; 
END; 
KCLERR: 



Pascal [Rev 3. on 6/ 4/84] SVSDEVS.TEXT 



28-Dec-84 21:06:13 Page 10 



File name: SYSOEVS »« 



541 :C 
542:C 

543 :C 

544 :C 

545 :C 
548 :C 
547:C 

548 :C 

549 :C 

550 :C 
S51:C 
552: 
553: 
554: 
555: 
556: 
557: 
558: 
559: 
560: 
561 : 
562: 
583: 
564: 
565: 
566: 
567: 
568: 
569: 
570: 
571: 
572: 
573: 
574:C 
675:C 
576:C 
577:C 
578:C 
679:3 
680:0 
581 :D 
582:C 
583:C 
584:0 
585:C 
586 :C 
587: 
588: 



589:C 



590 

591 :D 

592:0 

593:0 

594 :C 

595:S 

596:0 

597:D 

598:0 

599:C 

600:C 



4 BEGIN 

4 IF ECHO THEN CflLL(CRTLLHOOK.CLLCLEflR, POSITION,' '); 

4 SIZE:=0; INP:=OUTP; NON_CHflR;>.' '; 

4 ENO; 

4 KOISPLRY: 

4 IF ECHO THEN 

5 BEGIN 

5 CRLLfCRTLLHOOK.CLLCLERR, POSITION,' '); 

5 POSITION:^. 0; TEnpi:=OutP; 

6 UHILE POSITION<SIZE DO 
6 BEGIN 

6 CfiLL(CRTLLHOOK,CLLPUT, POSITION, BUFFER"[TEnPl] ) ; 

6 HDVflNCE(TEnPl) ; POSITION: =P0SITI0N«1 ; 

6 END; 

5 IF NON CHRRo' ' THEN 

6 CRLLTCRTLLHOOK,CLLPUT, POSITION, NON_CHRR) ; 
S END; 

4 KGETLR3T: 

4 BEGIN 

4 IF ECHO RNO (NON_CHRR<>' ') THEN CALL (CRTLLHOOK,CLLPUT, SIZE, ' '); 

4 IF SIZE>0 THEN 

5 BEGIN 

5 BflCKUP(INP); C :«BUFFER'~[INP] ; SIZE :=SIZE-1 ; NONCHflR:=' '; 

5 IF ECHO THEN CflLL(CRTLLHOOK,CLLPUT, SIZE,' '); 

5 END; 

4 END; 

4 KPUTFIRST: 

4 BEGIN { CfiLL ONLY IF SIZE<=nRXSIZE ) 

4 IF ECHO THEN 

5 BEGIN 

5 POSniON:-0: 

5 CflLLtCRTLlHOOK, CLLSHIFTR. POSITION, ' '); 

5 CALL (CRTLLH0OK,CLLPUT, POSIT lON.C); 

5 END; 

4 BflCKUP(OUTP); BUFFER~[OUTP] :»C; SIZE :«SIZE*1 ; 

4 END; 

4 ENO; ( CRSE ) 

2 END; ( KEYBUFOPS } 

1 PROCEDURE SETSTRTUS(N: INTEGER; C:CHflR); 

2 VRR CI 'CHflR' 

2 BEGIN STRTU^LINEtN] :-C; C1:=C; CRLL (CRTLLHOOK,PUTSTfiTUS,N,Cl ) ; 

2 END; 

1 FUNCTION RUNLIGHT:CHfiR: 

2 BEGIN RUNLIGHT:>STRTUSLfNE[7]; 
2 END: 

1 PROCEDURE SETRUNLIGHT(C:CHRR); 

2 BEGIN SETSTRTUS17,C); 
2 END; 



-308 1 <* HPHIL *«»**«««««*««»«**«*«**»« 

-308 1 <DunnY ADDED 4/6/84: SFB) 

1 PROCEDURE DUhnYHPHILCMD(OP : HPHILOP); 

2 BEGIN ENO; 



-308 1 (« INITIBLIZE ALL HOOKS ««•»•«» 

1 PROCEDURE SYSOEV_INIT; 
-2 2 VPR I : SHORTINT; 

2 BEGIN <SYSDEV_In1t) 

2 nHSK0PSHO0K:=i DUnMV0UT2; 



*** 



t ««««««*»**«««*«**} 



***«****»*********#* 



»*»***«***«♦) 
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601:C 

602 :S 

603 :C 



604: 

605: 

606: 

607: 

608: 

609: 

610: 

611: 

612: 

613: 

614: 

615: 

616: 

617:C 

618:C 

619:C 



3. on 6/ 4/84] SVSDEVS.TEXT 

2 BEEPERHOOK :. DUMnVOUTJ; 

2 RPGREQHOOK := DUMMVREQl; 

2 RPGISRHOOK := DUnnvKBD; 
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620 
621 
622 
623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

S34 

635 

636 

637 

638 :C 

639:C 

640:C 

641 :C 

642:C 

643:S 

644:C 

645 :C 

646:C 

647:S 

648 :C 

643:C 

650:C 

651 

652 

653 

654 

655 

666 

657 

658 

659 

660 



BfiTREflDHOOK: = 
BRTCMDHOOK := 

CLOCKREQHOOK 
CLOCKIOHOOK 
TlnERIOHOOK 
TIMERISRHOOK 

KBDREQHOOK 

KBDISRHOOK 

KBDTVPE 

KBDLflNG 

KBDIOHOOK 

KBDPOLLHOOK 

HENUSTflTE 



DUMMYBflTREnO: 
DUhflYBSTCnO; 

= DUnMYCLOCKREQ; 
= DUMHYCLOCKIO; 
= OUnnYTIMERIO; 

» dummykbd; 
dumhyreqi : 

DUnnYKBD; 

NOKBD; 

NO KBD; 

DURnYTfl: 

DUnMYBOOLPROC: 

n NONE; 



TOGOLEBLPHHHOOK 

TOGGLEGRBPHIC3HO0< 

DUtlPflLPHOHOOK 

DUMPGRPPHICSHOOK 

UPOflTEGURSORHOOK 

CRTINITHOOK 

CRTIOHOOK 

CR7LLH0OK 

DBCRTHOOK 

CURRENTCRT 

NEU(SYSCOn) 



= OUmVTn: 
= DUnnYCRTLL; 
■> DUmYDBCRT; 



DUmYPROC 
DUMMY PROC 
DUMMY PROC 
DUMMY PROC 
DUMMY PROC 
DUMMY PROC 



NOCRT ; 



NELI(KEYBUFFER): 
UITH KEYBUFFER^ DO 
BEGIN 

NEU(BUFFER); 

ECHO :»TRUE: 

MflXSIZE :=KMflXBUFSIZE: 

INP:=0: 0UTP:.O: SIZE:=0; 

NON CHAR :=' ' : 
END; 

FOR I:=0 TO 7 DO STRTUSLINE [I ] ;= ■ '; 
KBDUfilTHOOK := DUMMYPROC; 
KBDREUEflSEHOOK :» DUMMYPROC; 

FOR I:=0 TO 1 DO LPNGTRBLE [I] :=NI L ; 

LHNG1NDEX:=0: 

KBDSVSMODE;=TRUE; <BOfiLTLOCK :=FfiLSE ; KBDCfiPSLOCK :=FfiLSE ; 

KBDTRfiNSHOOK := DUMMYKBD; TRflNSMODE :=KPflSSTHRU; 



2 hPHILCMDHOOK :» DUMMYHPHILCMO; 

2 LOOPCONTROL :» NIL; 

2 LOOPDRIVERLIST := NIL; 

2 END; <SYSDEV_INIT) 

1 END; {MODULE) 



(4/6/84 SFB) 
(4/9/84 SFB) 
(4/9/84 SFB) 
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661 :D 1 IMPORT SYSDEVS; 

662:C 1 BEGIN 

663:0 1 SYSDEV INIT; 

664 :C 1 (MflRKUjER) 

865:C 1 END. <PROGRRM> 

errors. No warnings. 

***** Nonstandard language features enabled 



11-755 



11-756 



TAIL 



Description 

TAIL invokes the loader to execute TABLE and STARTUP. 



Usage 

TAIL is placed at the end of INITLIB , since it terminates the boot-up process. 



© Copyright Hewlett-Packard Company. 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1 :S 
2:S 
3:S 
4:S 
5:S 
6:S 
7:S 
8:S 
9;S 
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10: 

11 : 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20: 

21: 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29:3 

30:D 

3l:S 

32:D 

33:S 

34 :D 

35:S 

36:C 

37: 

38: 

39: 

40: 

41 : 



42: 

43: 

44: 

45: 

46: 

47: 

48:C 

49:C 

SO:C 

51 :C 

S2:C 

53:C 

54 :C 

S5:C 
«««UfiRNING: 

56 :C 

S7:C 

58:C 
•••WARNING: 



(c) Copyright Hewlett-Packard Company, 1984. 
fill rights are reserved. Copying or other 
reproduction of this program except for archival 
purposes is prohibited without the prior 
written consent of Hewlett-Packard Company. 

RESTRICTED RIGHTS LEGEND 

Use, duplication, or disclosure by the Government 
is subject to restrictions as set forth in 
parjgraph (b) (3) (B) of the Rights in Technical 
Datd and Computer Software clause in 
DRR 7-104. 9(a). 

HEULETT-PflCKflRD COflPflNY 
Fort Collins, Colorado *) 

$modcal$ 

lheijp_dispose off$ 

Jiocheck off$ 

$rdnge off$ Jovflcheck off$ 

Idebug off$ 

tstackcheck off$ 

$search 'INITLOfiD', 'RSM', 'INIT', 'SYSDEVS'S 

program tail (output ) ; 

1 import sysglobals, loader, Idr, misc, asm, bootdammodule, sysdevs; 
1 var start, table, systemname: string[20]; 

1 begin 

1 ci_5witch; (move onto supervisor stack) 

1 markuser; {retain memory allocation from this point) 



1 INTRODUCTORY MESSfiGE ) 



;*X»**««»»« 



1 



writeln ( 'Copyright 19 



Hewlett-Packard Company.'); 



1 COMPUTE NflnES OF STfiNDflRD FILES) 

1 

1 start := 'STARTUP'; table :» 'TfiBLE'; 

1 set St rlen (systemname , 0); 5trmove(10, sysname, 1, systemname, 1) 

1 systemname := St rrt rim( systemname ) ; 

1 if 5y5temn3me<>'SYSTE(1_P' then 

2 begin 

2 setstrlen(st3rt, 5) ; 

(line 56): STRPOS does not conform to HP standard, see $SUITCH_STRPCS$ 

2 if St rpos ( 'SYS' , systemname ) =1 then 

3 begin 

3 St rdelete (systemname , 1, 3); 

(line 59): STRPOS does not conform to HP standard, see SSUI TCH_STRPOSI 



Pascal [Rt 


V 3. on 


59:C 


3 


60:C 


3 


61 :C 


2 


62:C 


2 


63:C 


2 


64 :S 




65 :S 




66 :C 


1 


67 :S 




68:C 


1 


69 :C 


2 


70 :C 


1 


71 :S 




72 :S 




73:C 


1 


74 :S 




75 :C 


1 


76:C 


2 


77:C 


1 


78:S 




79:S 




80:S 




81:C 


1 


82:C 


1 


83:S 




84 :C 


1 


85:C 


2 


86:C 


2 


87;C 


2 


88:C 


2 


89:C 


2 


90:C 


1 


91 :C 


1 


92 :C 


1 


93 :C 


1 


94:8 




95 :C 


1 


96 :S 




No errors. 


2 warn 



6/ 4/84] TAIL. TEXT 



if 5tPp05('TEn 

end; 

start ;= start + systemname; 
table := table + systemname; 
end; 

(***)»[««*)«r*««***««*»««)(l«*««)«*«*** 

LOftO hfllN PROGRAM ) 



26-Dec-84 21:11:28 Page 2 *»* 
systemname )=1 then st rdelete (systemname , 



File 
1, A) 



M*********.** 



try load (nodest r+start , true); 

recover if escapecodeo-l then escape (escapecode ) ; 

markuser; 



*«**»*♦»**** 



****t.*»**M****»*»*X*»XltiM»**M****M**'****.**********1l*'t** 



RLLOU RECONFIGURATION OF UNIT TfiBLE) 

try loadjnodest r+table, false); go; {load new unit table) 
recover if escapecodeo-l then escape (escapecode) ; 

releaseuse r; 



END OF SYSTEM INIT IflLIZflTION) 



«»«*:»«««««»««««*X 



try 

loadrom(3t art ) ; 

if entrypoint = nil then load [ '« '+start , false); 

CftLL(nflSKOPSHOOK,KBDnRSK*RESETMfiSK,0) ; {enable the keyboard) 

go; {run the program) 

recover printerror (escapecode, ioresult); 

ritelnroutput, 'SYSTEM FINISHED'); 

flLL(nflSK0PSHO0K,KBDnflSK+RES£TMflSK,O) ; {enable the keyboard) 

hile true do try while true do; recover; {TRY TO TRRP STOP KEY) 



«***» Nonstandard language features enabled 
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TAPEBKUP 



Description 

TAPEBKUP is the Command Set '80 disc/tape backup utility program. 



Usage 

TAPEBKUP is used for complete CS80 media backup and restoration, certification of CS80 tapes 
and complete media verification of both discs and tapes. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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Pascal 


CRe 


1 


:0 


2 


:D 


3 


:D 


4 


:D 


5 


:S 


6 


.S 


7 


.S 


8 


D 


9 


5 


10 


:S 


11 


D 


12 


.S 


13 


:D 


14 


D 


IS 


S 


16 


D 


17 





18 


S 


19 


S 


20 


S 


21 


S 


22 


s 


23 


D 


24 





25 


D 


26 


D 


27 


D 


23 


D 


29 


D 


30 


D 


31 





32 


D 


33 


D 


34 





35 


S 


36 


S 


37 


D 


38 


S 


39 


S 


40 


D 


41 


D 


42 


D 


43 


D 


44 


D 


45 


D 


46 


S 


47 


S 


48 





49 


c 


50 


c 


51 


c 


52 


c 
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Smodcal, switch_st rpos, debug off, range off, ovflcheck off$ 

Ssearcfi ' lOLIB :KERNEL ' , ' INIT :DRVflSn' . 'INIT iDISCHPIB' . 
'INIT:CS80'S 



program tapebkup(keyboard, input .output ) ; (CS80 streaming backup tape utility) 



1 module CSSOtbr; (tape backup routines) 

1 import 

1 sysglobals, bkgnd, discHPIB, CS80; 

1 export 
1 

( 

NOTE: 



) 

f unctio 
funct io 
funct io 
f unctio 
funct io 
f unctio 
f unctio 
f unctio 



the following functions each perform 
issue a (device or transparent) comr 
transfer data if applicable 
return the resulting QSTflT 



- , a COMPLETE 
command 



t ransaction. They: 
(Command message) 
(Execution message) 
(Reporting message) 



5et_specif ied unitvol 
initialize_me3ifl 
5et_addre5s_and_return_modei 
write_file_mark 
copy start address 
unload 

locate_and_verify 
n volume_copy_data 



unit, vol: 



uep: uep_type 

uep: uep_type 

uep: uep_type 

uep: uep_type 

uep: uep_type 

uep: uep_type 

uep: uep_type 

5ource_uep: uep_type ; 

source_blk__addr : integer 

dest ination_uep: uep type; 

destination blk addrT inte 



unsgnA) : unsgnS; 

eave: unsgng) : unsgnS; 
unsgnS; 



nit , vol : unsg 

pt ions J inter! 
address ; integer 

unsgnS ; 
van C5a_bytes: sva type): 

unsgn8; ~ 

length : integer ) : unsgnS; 



eger) : unsgnS; 



unsgnS; 



1 implement (CSSOtbr) 



type 

setunitvol_type = <SET_UNIT/SET_VOLUnE corrmand pair) 
packed record 

setunit : CMO_type; 
setvol: CnD_type; 
end; 

function suv_Cf1D_p3ir (uep: uep_type): setunitvol type; 
begin <suv__CriD_pair ) ~ 

suv_CnO_pair .setunit := CriD_type (signedlS (CnD5et_unit 0)+uep''.du) ; 

SUV criD_pair.se t vol := CnO_type (signedlS (CriDset_vol_iy)+uep''.dv) ; 
end ; ( 5Uv_criD_pai r ) 
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53: 

54: 

55: 

56: 

57: 

58: 

59: 

60: 

61: 

62: 

63: 

64 :C 

65:C 

66 :C 

67:C 



68: 

69: 

70: 

71: 

72: 

73: 

74: 

75: 

76 :S 

77:S 

78:S 

79:S 

80:D 

81:D 

82:D 

83: 

84: 

85: 

86: 

87: 



1 $page$ 

1 function set_5pecif led_unitvol (uep: uep_t ype; unit, vol: unsgn4): unsgnS; 



issue the following command sequence: 

SET_UN1T 
SET VOLUHE 
return tFe QSTflT byte 

var 

suv: setunitvol type; 
begin < set_specifTed unitvol) 

suv. setunit := CMD~type ( signedlS (CriDset_uni t 0) + unit); 

SUV. setvol := CMD type (signedlB (CMDset vol ff)+vol); 

HPIBshort m5ge_outTuep, conmand sec, ad3r(suv), sizeof(5uv)) 



HPIBwait Tor''ppol{uep) 
set specTfieH^ unitvol 



end; Tset_speciTied_unitvol) 



qstat (uep) ; 



1 function initiali2e_media (uep; uep_type; options, interleave: unsgnS): unsgnS; 



issue the following command sequence: 
SET_UNIT 

. SET VOLUME 

. INITIALIZE MEDIfi 
return the QSTfiT byte 

var 

im: <the 5 bytes in the command message) 
packed record 

setunitvol: setunitvol type; 
initmedia: CMD type; 
options: unsgnS^; 
interleave : unsgnS; 
end; 
begin {initialize_media) 

im. setunitvol := suv CMD_pair(uep) ; 
im. initmedia := CMDTnit_media; 
im. options := options; 
im. interleave := inte r leave; 

HPIBshort msge_out (uep, command sec, addr(im), sizeofliml): 
HPI Bwa i t _To r_ppo 1 ( uep ) ; 
initialize media := qstat(uep); 
end; <init iaTize_media) 
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98:D 




99;S 




100:0 




101 :S 




102:S 




103:S 




104:3 




105:S 




106:S 




107:S 




108:0 




109:0 




110:0 




111 :D 




112:0 




113:0 




114:0 




115:0 




116:0 




117:D 


I 


118:0 


-12 ; 


119:C 


I 


120:C 




121:C 


i 


122:C 


i 


123:C 


i 


124:C 




125:C 


! 


126:C 


i 


127:C 


i 


128;C 


i 


129:C 




130:C 




131 :S 




132:3 




133:0 


1 


134:S 




135:S 




136:S 




137:3 




138:S 




139:S 




140:0 


2 


141:0 


2 


142:0 


2 


143:0 


2 


144:0 


2 


145:0 


2 


146:0 


-4 2 


147:C 


2 


148:C 


2 


149:C 


2 


150:C 


2 


151:: 


2 


152:C 


2 


1S3:C 


2 
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:l function 5et_addre5S_and_return_mode (uep: uep_type ; address: integer): unsgnS; 



issue the following cormiand sequence: 

SET_UNIT 

SET_VOLUnE 

SET ADDRESS RETURN MODE 

SET~fiDDRESS" 
return tTTe QSTftT byte 



> 
var 

sarm: <the 12 bytes 
packed record 

setunitvol: setunitvol 
setretadd: CMD type; 
ret addmode : unsgnS ; 
nop: ChD type; 
set add: CnD_t ype ; 
sva: 5va_type; 
end; 
begin (set_address_and_return_mode} 



the cofiriand message) 
type; 



sarm. setunitvol 
sarm. set ret add 
sarm. retaddmode 
sarm. nop 
sarm. setadd 
sarm. sva. utb 
sarm. sva. Ifb 



suv_ChD_pair (uep) ; 

:= CriDset^retadd_mode; 

'.- 0; (sTngle vector!) 

:= ChDno_op; 

:= CMDset address IV; 

:= 0; ~ " 

:= address; 
HPIBshort msge_out (uep, command sec, addr(sarm), sizeof (sarm) ) : 
HPIBwait_Tor_ppol(uep) ; 

set addreS5_?nd_ret urn_mode := qstat(uep); 
end; (set_addres5_and_return_mode) 

funct ion write,_file_mdr)( {uep: uep_type) ; unsgnS; 

issue the following command sequence; 
SET UNIT 

. SET VOLUME 

. URITE_FILE MARK 
return the QSTflT byte 

var 

wfm: {the 3 bytes in the corrmand message) 
packed record 

setunitvol: setunitvol type; 
write filema rk : CMD_type; 
end; 
begin <write_file_mark> 

wfm. setunitvol := 5uv_CMD_pai r (uep j ; 

wfm . write filemark := CMDwriTe_f ile_mdrk; 
HPIBshort m5ge__out (uep, comma nd_5ec , add r (wfm) 
HPIBwalt 7or_ppol (uep) ; 
write_fiTe mark :^ qstat(uep); 
end; <write_Tile_mark) 



sizeof (wfm) ) ; 
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154:0 

1SS:S 

156:0 

1S7:S 

158:S 

159:S 

160:S 

161 :S 

162:S 

163:0 

164:D 

165:D 

166:0 

167:D 

168:0 

169:0 

170:" 

171: 

172: 

173: 

174: 

175: 

176: 

177: 

178: 

179: 

180: 

181: 

182:S 

183:S 

184:S 

18S:S 

186:3 

187:0 

188:0 

189:0 

190:0 

191:0 

192:0 

193:0 

194:D 

195:0 

196:" 

197: 

19 

199: 

200: 

201 : 

202: 

203: 

204: 

205: 



1 function unload (uep: uep_type) : unsgnS; 

issue the following conmand sequence: 

. SET UNIT 

. SET VOLUME 

. UNLOAD 
return the QSTflT byte 



> 
var 

unl: (the 3 bytes in the command message) 
packed record 

setunitvol ; setunitvol_type ; 
unloadcmd : CMD_type; 
end; 
begin (unload) 

unl. setunitvol := suv_CMD_pair (uep) ; 
unl . unloadcmd := CMDunload; 

HPIBshort msge out(uep, command sec, 3ddr(unl), sizeof (unl 1 1 ; 
HPIBwait_Tor_ppol(uep); 
unload := qstat (uep) ; 
end; (unload) 



1 function locate_3nd_verify(uep: uep_,type; length: integer): unsgnS; 

issue the following command sequence: 

. SET_UNIT 

. SET VOLUME 

. SET LENGTH 

. LOCffTE flND VERIFY 
return the 5STflT byte 



206 :C 



> 
var 

Iv : (the 9 bytes in the command message) 
packed record 

setunitvol; 5etunitvol_type; 
nop: CMO type; 
setlen: C"nD_type; 
len; integer; 

locateandverify: CMD_type; 
end: 
begin (locate and_verify) 

Iv .setunitvol := 5uv_cno_pair(uep) ; 
Iv -nop := CMDno_op; 

Iv. setlen := CMDset_length; 

Iv . len := length; 

Iv . locateandverify := CMDlocate_and_ver; 

HPIBshort msge_out (uep, command_sec, addr(lv), sizeof(lv)); 
HPIBwait_for_ppol (uep) ; 
locate_and_verif y := qstat(uep); 
end; { locate, and_yerify) 
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207:0 


1 


{pages 




208:E 








209 :D 


1 


function volume copy data (source_uep: uep type; source blkaddr: integer; 

destination tjep: uep type; destination blK adar: integer]: unsgnS; 




210:D 


2 




211 :S 




( 




212:S 




issue the following conmand sequence: 




213:S 




SET UNIT 15 




214:S 




SET LENGTH 




21S:S 




. COP? DBTfi 




216:S 




return the QSTPT byte 




2 1 7 : D 


2 


) 




218:D 


2 


var 




2I9:D 


2 


cd: {the 24 bytes in the command message) 




220:D 


2 


packed record 




221:D 


2 


setunitlS: CND type; 




222:D 


2 


setlen: CMD_type; 




223 :D 


2 


length: integer; 




224:D 


2 


nop: CMD type; 
copydata: CnD type; 




225:0 


2 




226:D 


2 


s volunit : evu type; 




227:C 


2 


s set add: CnO type; 




228 :D 


2 


5 address: sva type; 




229:D 


2 


d volunit : evu type; 




230:D 


2 


d__5etadd : Cf1D_type; 




231:D 


2 


d^address: sva type; 




232:D 


-24 2 


end; 




233:C 
234:C 


2 
2 


Degin {volume copy data) 

cd.setjnitlS := CnOset unit 15; 




235:C 


2 


cd.set len 


= CMDset length; 

= -1; {Tull volume) 

= CMOno op; 




236:C 


2 


cd. length 




237:C 


2 


cd.nop 




238:C 


2 


cd .copydat a 


= CnDcopy data; 




239:C 


2 


cd. s^volunit .WW 


= source uep-^.dv; 




240 :C 


2 


cd.s^volunit .uuuu 


= source~uep'-.du; 




241:C 


2 


cd.s setadd 


= CMDset address Iv; 




242:C 


2 


cd.s address, utb 


= 0; 




243:C 


2 


cd.s_addre55 .Ifb 


= source blk addr; 




244 :C 


2 


cd .d__volunit . wvv 


= destination uep^.dv; 




245:C 


2 


cd.d^volunit .uuuu 


= destinat ion^uep'^.du; 




24$:C 


2 


cd.d setadd 


= CnOset address Iv; 




247:C 


2 


cd.d address. utb 


= 0; 




248:C 


2 


cd.d__addre5S . Ifb 


= destination blk addr; 




249:C 


2 


HPIBshort msge_out ( source_uep, conniand_sec, addr(cd), sizeof[cd)); 




2S0:C 


2 


HPIBwait Tor ppol(50urce uep); 




251:C 


2 


volume copy H'ata := qstat(sojrce uep); 




252 :C 


2 


end; {voTume_copy_dat a) 
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253:0 


1 


$p<ige$ 




2S4:S 








255:0 
256:S 

2S7:S 


1 


function copy_st art_add ress (uep; Liep_type; var C5a_bytes: sva_type) : unsgnS; 






issue the following conmand sequence; 




2S8:S 




SET UNIT 




259:S 




. SET VOLUHE 




260:E 




REfilT DRIVE TABLES: COPY STPRT ADDRESS (7914 ONLV! i ! ) 




261:S 




return the QSTfiT byte 




262:0 


2 


> 




263:0 


2 


var 




264:0 


2 


csa; {the 5 bytes in the command message) 




265:0 


2 


packed record 




266:0 


2 


setunitvol: setunitvol type; 




267:0 


2 


initutil: CMD type; 




268:0 


2 


re add rive tables: unsgnS; 




269:0 


2 


tablenumber : LnsgnS; 




270:0 


-6 2 


end; 




271:D 


-7 2 


premature eoi: boolean; 




272:0 


10 2 


qs: unsgn5; 




273:C 


2 


t>egin {copy start address) 




274 :C 


2 


csa. setunitvol 


= SUV CMD pair (uep) ; 

= CMDTnit utii SEM; {send execution message) 




275 :C 


2 


csa. initutil 




276 :C 


2 


csa , readdrivetables 


= 196; " 




277:C 


2 


csa . tablenumber 


= 12: 




278 :C 

279 :C 


2 
2 


HPIBshort msge out{uep, command sec, addr(c5a), sizeof (csa) ) ; 
HPIBwait Tor ppol(uep); 




280 :C 


2 


trv 

HPIBshort msge infuep, execution sec, addr(c5a bytes), sizeof(c5a bytes)); 
premat ure_eoi := false; 




281:C 


3 




282 :C 


3 




283 :C 


3 


recover 




284 :C 


3 


with blp type (uep"". dvrtemp)'^ do {confirm the "premature" eoi) 




285 :C 


4 


begin 

if (escapecodeo-101 or (iores<>zbadhardware) then 




286 :C 


4 




287 :C 


5 


escape ( esc a pecode) ; 




288 :C 


4 


premature eoi := true; 




289:C 


4 


iores := inoerror; 




290 :C 


4 


end; (with) 
HPIBwait_for_ppol (uep) ; 




291 :C 


2 




292:C 


2 


qs := qstat (uepj ; 




293:C 


2 


if premature eoi and (q5=0) then 




294 :C 


3 


ioresc bkgnd(uep, zcatchall); 




295:C 


2 


copy start address := qs; 




296:C 


2 


end; {copy_st art__address> 




297:S 








298:S 








299 :C 


1 


end; {CS80tbr> 
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300:0 :L $page$ 

301:5 

302:D :i module CSSOtbdvr; {tape backup driver) 

303:3 , X K K / 

304 :D :l import 

305;D ;i sysglobals, misc, bkgnd, discHPIB, tapebuf, CS80, CSSOdsr, CSSOtbr; 

307:0 1 export 

308 :D 1 type 

309:D 1 uep_proc_type = procedure(uep: uep^type); 

311:0 1 var {"var parameter" set by Qdescrjbe) 

312:D -38 1 desicribe bytes: describe_type; 

313:0 -38 1 procedure 5de scribe (uep: uep_type ] ; 

315:D -38 1 function Qdevicename ( uep : uep_Type; va' saved_ioresult : integer): stringSO; 

317:D -38 ]. var ("parameters" for Qverify) 

318:D -42 1 verify_length : integer; 

319:0 -46 1 verify_block size: integer; 

320:D -46 1 procedure QverTfyfuep: uep type): 

321 :S JK y y_ jy ,. 

322 :0 -4S ] procedure Qtape5etup(uep: uep_t ype) ; 

323:0 -46 1 procedure Qconfigure (uep: uep^type); 

324:0 -46 1 procedure Qwritef ilemark {uep: ijep_typei; 

325 :D -46 1 procedure Qunload(uep: uep_type ) ; 
326 :S 

327 ;D -46 1 var ( "parameter" for Qcertify) 

328:D -48 1 initialize_option5_byte: unsgnS; 

329:0 -48 1 procedure Qcert if y (uep: uep type); 

330:S /v K ^^_ jw I. 

331:0 -48 1 var ("parameters" for Qcont rollercopy) 

332:0 -52 1 destination uep: uep_type; 

333 :D -56 1 sou rce_blocl( address: integer; 

334 :D -60 1 dest inat iori_Flock_address: integer; 

335:0 -60 1 procedure Qcont rollercopy(source_uep: ijep_type); 

337:0 -60 1 var {"var parameter" for Qcopy_start address) 

338:0 -66 1 csa bytes: 5va_type; ~ 

339:0 -66 1 procedure Qcopy_start_address (uep: uep type); 

340 :S 

341 :S 

342:D -66 1 implement {CS80tbdvr> 
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343:0 -66 I SpageJ 

344 :S 

345:0 1 procedure with bkgnd dofuep proc : uep proc type: uep: uep type): 

346:C 2 begin (with b'kgnd Zo) " -^ - jv , y y_ jy ,, 

347:C 2 try - » - / 

348:C 3 loresult := o rd [ inoer ror) ; 

349:C 3 allocate bkgnd infofuep); 

350:C 3 if HPieamiqo_i?entify(uep) div 256<>2 then 

351;C 4 ioresc bkgnd(uep, znodevice); 

352:C 3 call(uep proc, uep); 

353:C 3 deallocate bkgnd info(uep); 

354:C 3 recover - ' - 

355:C 3 begin 

356:C 3 abort_bkgnd_proce55(uep) ; 

357:C 3 ioresuIt:= uep'^.dvrtemp; 

3S8:C 3 uep^.dvrtemp := ord(inoerror) ; (report the error only once) 

359;C 3 escape|-10) : ' ' 

360:C 3 end: (recover) 

361 :C 2 end; {with bkgnd do) 

352:S - 3 - / 

363:S 

364 ;D 1 procedure Q tape set up [uep: uep_type) ; 

365 I S 

356 iD 2 procedure tape setup( uep: uep_type) ; 

367 : D 3 var 

363:D -1 3 ret ry_required: boolean; 

369:C 3 begin (tapesetup) 

370:C 3 repeat 

371 :C 4 retry required := false; 

372:C 4 if seT unitvol (uep)<>0 then 

373 :C 5 handTe_bad_status[uep, t rue, ret ry_required) ; 

374 :C 4 until not re try_required; 

375:C 3 repeat (enable auto skip sparing) 

376:C 4 retry_required:= false; 

377:C 4 if seT options [uep, (options byte) 6)<>0 then 

378 :C 5 handTe_bad_5tatU5(uep, t rue, ret ry required) ; 

379:C 4 until not ret ry_required ; ~ 

380:C 3 end; (tapesetup) 

381 :S 

382:C 2 begin (Qtapesetup) 

383:C 2 with bkgnd do( t apesetup, uep); 

384 :C 2 end; (CTtapesetup) 

385:5 

386:S 

387:0 1 procedure Qconfigure (uep: uep type); 

388:C 2 begin (Qconfigure) 

389;C 2 with bkgnd do (configure, uep): 

390:C 2 end; {ffconf igure) 
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391;D 


-S6 


1 


Jpagel 




392 :S 










393 :D 




1 


procedure Qwritef ilemark(uep: uep„type); 




394 :E 










395 ;D 




2 


procedure wr itef ilemark (uep: uep_type); 




396 :D 




3 


van 




397 :D 


-1 


3 


retry required: boolean; 




398 :C 




3 


begin (writef ilemark) 




399 ;C 




3 


repeat 




400 :C 




4 


retry required := false; 




401 :C 




4 


if write file mark(uep)<>0 then 




402:C 




5 


handle bad 5tatus[uep, true, retry required); 




403:C 




4 


until not retry_required; 




404 :C 




3 


end; {writef ilemaTk ) 




405:S 










406:C 




2 


begin (Qwritef ilemark ) 




407:C 




2 


with bkgnd do (writef ilemark , uep); 




408 :C 




2 


end; {GwriteTilemark ) 




409 :S 










410:S 










411:D 




I 


procedure Qcer tif y (uep: uep_type); 




412:S 










413:D 




2 


procedure certify[uep: uep_type); 




414;D 




3 


var 




415:D 


-1 


3 


retry required: boolean; 




4ie;C 




3 


begin (certify) 




417:C 




3 


repeat (initialize the medium) 




418:C 




4 


retry required :« false; 




419;C 




4 


if initialize media(uep, init ialize_option5_byte , ( interleave_factor ) 0)<>0 then 
handle_bad_statu5(uep, true, retry_required) ; 




420 :C 




5 




421 :C 




4 


until not ret ry_required; 




422:C 




3 


end; (certify) 




423 :S 










424 :C 




2 


begin (Qcertify) 




425 :C 




2 


with bkgnd do(certify, uep); 




426 :C 




2 


end; (ScertiTy) 




427 ;S 










428:S 










429:D 




1 


procedure Qdescribe (uep: uep_type); 




430:5 










431:D 




2 


procedure do describe (uep: uep_type); 




432:D 




3 


var 




433:D 


-1 


3 


retry required: boolean; 
begin (3o_descr ibe) 




434 :C 




3 




435 :C 




3 


repeat 




436 :C 




4 


retry required := false; 




437:C 




4 


if set unitvol(uep)<>0 then 




438:: 




5 


handle bad statu5(uep, true, ret ry_required) ; 




439:: 




4 


until not ret ry^required; 




440 :C 




3 


repeat 




441 :C 




4 


retry required := false; 




442 :C 




4 


if describe (uep, describe bytes)<>0 then 




443 :C 




5 


handle bad statu5(uep, true, retry required); 




444 :C 




4 


until not retry required; 




44S:C 




3 


end; (do_describe7 




446 ;S 










447 :C 




2 


begin (Qdescribe) 




448 :C 




2 


with bkgnd do(do describe, uep); 




449:C 




2 


end; (CldescrTbe) 
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4S0:D 


-66 


1 


$p3ge$ 




451:S 










4S2:D 




1 


function Qdevicename (uep: uep_type; var 5aved_ioresult : integer): strirgSO; 




453:S 










454 :D 




2 


var 




4S5;D 


-82 


2 


devicename: stringBO; 




4S6:D 


-86 


2 


index: integer; 




457 :D 


-86 


2 


bed product number: (within the describe bytes) 




4S8:D 


-86 


2 


packed record case integer of 




459;D 


-86 


2 


: (dn: unsgn24) ; 

1: (bed: packed array[1..6] of unsgn4); 




460 :D 


-86 


2 




461:0 


-90 


2 


end : 




462:D 


-94 


2 


product number: integer; 




463:0 


-94 


2 


fixed vol byte: 




464:0 


-94 


2 


pacFed record case integer of 




465:0 


-94 


2 


0: (byte: unsgnB); 

1: (bit: packed array[0..7] of boolean); 




466:0 


-94 


2 




467:0 


-96 


2 


end; 




468:S 










469:: 




2 


begin (Qdevicename) 




470:S 










471:: 




2 


Qdescribe(uep] ; 




472:: 




3 




473:: 




3 


recover 




474:C 




3 


if escapecodeo-10 then 




475:C 




4 


escape (escapecode ) ; 




476:3 










477:C 




2 


if saved ioresult=ord (inoerror ) then (report any error with describe) 




478:C 




3 


saved loresult := ioresult; (can be inoerror) 




479:S 










480:C 




2 


if ioresult=ord (inoerror) then 




481:0 




3 


with describe bytes do 




482:C 




4 


begin 

bed product number. dn :■ dn; 




483:C 




4 




484 :C 




4 


pro9uct_numBer := 0; 




485:C 




4 


for index :» 1 to 5 do 




486:C 




5 


product number := product number*10+bcd product_number .bcd[index] ; 




487:C 




4 


devicename := 'HP'; 




488:C 




4 


St rwrite(devicename, 3, index, product_number : 1 ) ; 




489:C 




4 


case dt of 




490:C 




5 


0: devicename := devicename*' fixed disc'; 




491:C 




5 


1: begin 

fixed vol byte. byte := describe bytes. fvb; 
if fixed vol byte. bit (7-uep''.dvT 




492:C 




5 




493 :C 




S 




494 :C 




6 


then devicename := devicenamft+' fixed disc' 




495 :C 




6 


else devicename := devicename-*' removeable disc'; 




496:: 




5 


end: 




497 :C 




S 


2: devicename := devicename*' tape'; 




498:C 




5 


otherwise (can't further describe the generic device type); 




499:C 




5 


end; (case) 




500:C 




4 


end (with) 




501 :C 




4 


else 




502:C 




3 


devicename := '<inaccesslble CS80 device>'; 




503:S 










504 :C 




2 


Qdevicename :* devicename; 




SOS:S 










506 :C 




2 


end; (Qdevicename) 
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507:0 -66 


508 :S 


509:0 


S10:S 


5U:D 


512:0 -4 


513:0 -S 


5U:S 


515:0 


516:S 


517:0 


518:0 -2 


619:0 -4 


520:0 -24 


521:0 -28 


522:0 -29 


523:3 


524 :C 


525:S 


526:C 


527:3 


528:C 


529:3 


530:C 


S31:C 


532:3 


533:C 


534 :C 


535:C 


536:3 


537:C 


538:C 


539 :C 


540:3 


541:C 


542 :C 


543:3 


544 :C 


545:3 


546 :C 


547 :C 


S48:C 


549 :C 


560 :C 


551 :C 


552 :C 


S53:C 


554 :C 


S5S:C 


556:C 


SS7:C 


558 :C 


559 :C 


560:C 


561:C 


562:C 


563:C 


564:C 


565:C 


566:C 
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S67:C 


568:C 


569:C 


570:C 


571 :C 


572 :C 


573:C 


574 :C 


575:C 


S76:C 


577:3 


S78:C 


579:C 


580 :C 


581:C 


582 :C 


583 :C 


584 :C 


585 :C 


586 :C 


587 :C 


588:C 


539:3 


590:C 


591:C 


592 :C 


593:C 


594 :C 


595:C 


596:3 


597:C 


598:C 


599:C 


600:C 


601 :C 


602:S 


603:C 


e04:C 


605:C 


606:C 


607:C 


608:C 


609:C 


610:C 


611:C 


612:C 


613:C 


614:C 


615:C 


616:C 


617:C 


618:3 


619:C 


620:C 


621:3 


622:3 


623:3 


624:3 


625 :C 


626:C 
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:i SpageS 

:i procedure Qverifyfuep: uep_1 ype ) ; 

2 var 

2 workang_verify_length: inteqer; 

?. bad_blocks_encoijntered: boolean; 

2 procedure handle_verify_status(var ret i-y^ required: boolean); 

:J var 

'.i iorval_to_report : iorsltwd; {to hold the first reportable error) 

•i working iorval : iorsltwd; (cleared each time status is read) 

'-i status_Dytes : status type; 

:J eb_5can, parameter field owner : er!-orbit_type; 

'~i reconfiguratior_needed : boolean; 

3 begin <handle_verify_statu5} 
3 iorval_to_report := inoerror; 

3 repeat 

* if 5tatus[uep, status bytes)<>0 Then 

!> ioresc_bk9nd[uep, zEadhardware | ; 

4 working_iorval := inoerror; 
A parameter_f ield_owner := channel_parity_er ror ; {doesn't really own it!) 

4 reconfiguration_needed :« false ; 

4 for eb_scan := eb63 downto ebO do 

Si if 5tatu5_byte5.errorbits [eb_5can] then 

(> begin 

6 if eb_5can in errorbit5_owning_parmfield then 

7 pdrameter_field_owner := eb_scan; 

i> case eb_scan of 

7 {specific fatal errors) 

7 channel parity error, 

7 cent rolTer_fauTt , 

7 unit_fault7 

7 diagnost ic_result : 

7 working_iorval := rbadhardware; 

7 inegal_opcode, 

7 par ame t e r_bo u nd s , 

7 illegal parameter : 

7 worE"ing_iorval := zbadmode; {some cmds optional in SS/80) 

7 module__addres5ing : 

7 workin3_iorval := znodevice; 

7 addre55_bound5, 

7 endof^volume : 

7 working_iorval :^ znosuchblk; 

7 uninitiali2ed_media : 

7 if St atus_bytes .errorbit 5[power_f ail] 

& then {probably an uncertified tape; allow access anyway) 

6 else workinqiorval := zuninitialized; 
T no_5pares_available : 

7 working_iorval := zinitfail; 
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7 not_ready: 

^ working_iorval :^ znotready; 

7 write_protect : 

7 working_iorval := zprotected; 

7 no data found, 

7 en3of_Tile : 

7 working iorval := znoblock; 

7 un recover abTe_dat a_over flow, 

7 unrecoverable_dal a: 

7 working_iorval := zbadblock; 

7 (power fail) 

7 power_f ail : 

7 begin 

7 uep'^. umediavalid :- false; 

7 If uep=tapebuf uep then 

8 tapebijf_5tate := undefined; 

7 if uep'^. ureportchange then 

8 working_iorval := zmediumchanged; 
7 reconf2guration_needed := true; 
7 retry required :» true; 
7 end; 

7 {retryable errors) 

7 pe r ato r^r e le a se_ required, 

7 diagnostTc_relea5e_reqtjared, 

7 internal_^maintenance_requi red, 

7 ret ransmTt : 

7 ret ry_required := t rue; 

7 (errors indicating release requested) 

7 operator request , 

7 diagnostTc_request . 

7 internal_ma'irtenance_request : 

7 {do nothing here; release below if parmeter field owned); 

7 {errors indicating reconfiguration needed) 

7 media_wear, {supposed to be masked out) 

7 latency_induced, {supposed to be masked out) 

7 ebS3, {supposed to be masked out} 

7 ebS4, {supposed to be masked out) 

7 auto_sparing_invoked, {supposed to be masked out! 

7 ebS6, {supposed to be masked out} 

7 recoverable_data_overflow, {supposed to be masked out) 

7 marginal data, {supposed to be masked out) 

7 recoveraDle_data, {supposed to be masked out) 

7 eb60, {supposed to be masked out) 

7 maintenance_t rack_overf low, {supposed to be masked out) 

7 eb62, {supposed to be masked out) 

7 eb63: {supposed to be masked out) 

7 i reconf iguration_needed := true; 

7 {errors not covered by the above cases) 

7 olherwise 

{ specifically including: 

message_sequence, 

message_lengt h, 

cro55_unat, fl Tf.t^ 

7 illegal_parallel_operation ) H-/VO 

7 working_iorval := zcatchall; 
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627:S 




628:C 


7 


$29;S 




630:C 


6 


631 :E 




632;C 


4 


e33:C 


5 


634:S 




635:C 


4 


636:C 


5 


637:C 


5 


638:C 


5 


639:C 


5 


640 :C 


5 


641 :C 


6 


642:C 


5 


643:S 




644:C 


4 


645;C 


5 


646:C 


6 


647:C 


6 


648;C 


7 


649:5 




650:C 


4 


651 :C 


S 


652:S 




653:C 


4 


654 :S 




65S;C 


3 


6S6:C 


4 


6S7;S 




658 :C 


3 
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end; {case) 

end; (if) 

if iorva]_to_report=inoerror then {none previously found; report this one) 
iorvaJ_to_repon := working_iorval; {it can be inoerror alsol) 

if parameter_field_owne r = iinrecoverable_d3t a then 
begin ~ " 

writelnC bad block at ' , stat us_bytes .bba . Ifb : 1 ) ; 
bad block5_encountered := true; 

worlcinq verify length := verify_length- (st atus^bytes .bba . lfb+1 ) *verif y_block_S22e; 
- - -T^. 5ength>0 "" " " 



if M/orkTng_verTf y_lengt h>0 then 
re ■ ' 

end ; ( 



ret ry required 



if parameter__f ield_owner in errorbits request ing_release then 
if not (status bytes. urr[l] in [0 . . TS ] ) then 

iore5c_bkgndTuep, zcatchall] 
else if release(uep, st atus__bytes .urr [1 ] )<>0 then 

{handle the bad qstat elsewnere; worry not, the device won't forget!); 

if reconf igjrat ion__needed then 
configure (uep) ; 

until 5et_unit (uep, st atus_byte5. CLjrrent_vu . uuuu)=0 ; {restore original command unit) 

if not (iorval to_report in [inoerror, zbadblock]) then 
iore5C__bkgndTuep, iorval_to_repor t ) ; 

end; { handle_verif y_5tat us } 
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659:D -5 2 SpageJ 

660:S 

661 :D 2 procedure verify(uep: Ljep_type ) ; 

662:S 

663:D 3 var 

664:0 -1 3 retry required: boolean; 

665:S 

666:C 3 begin (verify) 

667:S 

668:C 3 repeat {set address to zero and set .eturn addressing mode) 

669:C 4 ret ry_required := false ; 

670:C 4 if set address_and_retu rn_mode ( uep, (address) 0}<>0 then 

671 :C 5 handle bad_st atu5(uep, true, retry_ required); 

672;C 4 until not retry required; 

673:S 

674:C 3 working_ve rif y_len9th := ver if y_lengt h; 

67S :C 3 bad_blocks_encountered := false; 

676:S 

677:C 3 repeat (verify the requested amount) 

678:C 4 re t ry_requi red := false; 

679:C 4 if locate_and verify[uep, working^verif y_length)<>0 then 

680 :C 5 handle_veri7y_statu5( ret ry_re quired ) ; 

681 :C 4 until not retry required; 

682 :S 

683;C 3 if bad_blocks encountered then 

684 :C 4 iore5c_bk,gn3( uep, zbadblock ) ; 

685 :S 

686:C 3 end; (verify) 

687;S 

688:C 2 begin (Qverify) 

689:C 2 with bkgnd_do(verif y, uep); 

690:C 2 end; (Cverify) 
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691 :D 


-66 


1 


tpaget 




692:S 










693 :D 

694 :S 
69S:D 
696:5 
697:D 




1 


procedure Qcont rollercopy (50urce_uep: ueptype); 






2 


procedure handle_copydata_5t atus (va r -et ry_requi red: boolean); 






3 


var 




69S:D 


-2 


3 


iorval_to_report : iorsltwd; {to hold the first reportable error} 




699:D 


-4 


3 


working iorval: iorsltwd; {cleared each time status is read) 




700:D 


-24 


3 


status Bytes: status type; 

eb_scan, parameter field owner; e-rorbit type; 




701 :D 


-28 


3 




702:D 


-29 


3 


reconfiguration needed: Boolean; 




703:0 


-30 


3 


uee_pending: boolean; 




704 :D 


-32 


3 


index: 5ignedl6; 




705 :S 










706 :D 




3 


procedure handle uee pending(uee byte: signedS); 




707 :D 




4 


var 




708:0 




4 


evu: {encoded volume/unit byte) 




709 :D 




4 


packed record case integer of 




710:D 




4 


: (sgn8 : aignedS) ; 




711:0 




4 


1 : (vu: evu type ) ; 




712:0 


-2 


4 


end; 




713:0 


-6 


4 


vol, unit: unsgn4; 




714:0 


-7 


4 


retry required: boolean; 




715:0 


-88 


4 


message: stringSO; 
begin {handle uee pending) 




716:C 




4 




717:C 




4 


evu.sgnS := uee_byte; 




718:C 




4 


vol := evu.vu.vvvv; 




719:C 




4 


unit := evu.vu.uuuu; 




720:C 




4 


try 

if unit=15 then 




721 :C 




5 




722:C 




6 


repeat 




723:C 




7 


retry required := false; 




724 :C 

725 :C 




7 
8 


if set unit(5ource uep, unit)<>0 then 

handIe_bad_status(source_uep, false, retry required); 




726 :C 




7 


until not retry required 




727 :C 




7 


else 




728 :C 




6 


repeat 




729:C 




7 


retry required := false; 




730 :C 




7 


if set specified unit vol (source uep, unit, vol)<>0 then 
handTe_bad_5tatus(source_uep, false, retry required); 




731 :C 




8 




732:C 




7 


until not retry required; 




733:C 




5 


recover 




734:C 




5 


if escapecodeo-10 then escape (escapecode) ; 




735:C 




4 


with ,5ip type(source uep'^-dvr temp)^ do 




736:C 




5 


if ioresoinoerror then {we need to report it) 




737:C 




6 


begin 




738:C 




6 


if iorval to report=inoerror then {none previously found...) 




739:C 




7 


iorval_to_report := iores; {report this one later in a fatal wayl ) 




740 :C 




6 


if (vol=50urce_uep^. dv) and (unit=source_uep".du) then 




741 :C 




7 


writeln(' source unit error:'] 




742 :C 




7 


else if (vol=destination uep^.dv) and (unit=dest inat ion uep^.du) then 




743 :C 




8 


writelnC destination unit error:') 




744 :C 




8 


else 




745 :C 




8 


writelnC unit: ', unitrl,' volume: ', vol:l, ' error;']; 




746 :C 




6 


get ioerrmsg( mess age, ord (lores)); 




747 :C 




6 


writeln(' ', message); 




748 :C 




6 


iores := inoerror; {now clear it out) 




749:C 




6 


end; {if) 




750:C 




4 


end; {handle__uee_pending ; 
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751:5 










752 :C 
753:5 
754 :C 




3 


begin { handle._copydata_st atus ) 






3 


iorval_to_report := inoerror; 




755 :S 










756 :C 




3 


repeat 




757:5 










758 :C 




4 


if status (source_uep, status by1e5)<>0 then 




759:C 
760:5 
761 :C 




5 


iorebc_bkgnd(source_uep, zBadhardware) ; 






4 


working iorval := inoerror; 

parameter field owner := channel parity error; {doesn't really own it!) 




762:C 




4 




763 :C 




4 


reconfiguration^needed := false; 




764:5 










765 :C 




4 


for eb_scan :* eb63 downto ebO do 




766 :C 




5 


if status bytes .errorbit s [eb scan] then 




767 :C 




6 


begin 




768:5 










769 :C 




6 


if eb_scan in er rorbit5_owning_parmf ield then 




770 :C 




7 


parameter field owner := eb scan; 




771:5 










772:C 




6 


case eb_scan of 




773:5 










774 :C 






{ the expected error) 




775:C 






cross unit : 




776:C 
777:3 
778:C 






{5o nothing here; handle below if parmeter field owned); 








{specific fatal errors) 




779:C 






channel parity error. 




780:C 






controller fault. 




781:C 






unit fault. 




782:C 






diagnostic result: 




783:C 






working iorval := zbadhardware; 




784 :C 






illegal_opcode. 




785:C 






parameter_bound5. 




786:C 






illegal parameter: 




787:C 






wording iorval := zbadmode; {some cmds optional in SS/80) 




788:C 






module addressing; 




789:C 






working_iorval := znodevice; 




790:C 






address bounds. 




791 :C 






end of volume: 




792:C 






working iorval ;= znosuchblk; 




793:C 






uninitialized_media: 




794 :C 






if Stat us_bytes .er rorbit s[power fail] 

then {probably en uncertified tape; allow access anyway) 




796:C 








796:C 






else working iorval := zuninitialized; 
no spares available: 




797:C 








798:C 






working_iorval := zinitfail; 




799:C 






not_ready : 

"working iorval := znotready; 




800 :C 








801 :C 






write protect : 




802 :C 






working iorval := zprotected; 




803 :C 






np data found. 




804 :C 






en3 of Tile; 




805 :C 






working iorval := znoblock; 
unrecoveraBTe_data_overf low. 




806 :C 








807 :C 






unrecoverable data: 




808 :C 

809:5 






working^iorval := zbadblock; 
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810:C 




7 


{power fail) 
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811 :C 


7 


812:C 


7 


813:C 


7 


814:C 


7 


8 1 5 : C 


8 


816:C 


7 


817:C 


8 


818:C 


7 


819:C 


7 


820:C 


7 


821 :S 




822:C 


7 


823:C 


7 


824 :C 


7 


825:C 


7 


826:C 


7 


827:C 


7 


828;S 




829:C 


7 


830:C 


7 


831 :C 


7 


832:C 


7 


833:C 


7 


834 :S 




835 :C 


7 


836 :C 


7 


837:C 


7 


838 :C 


7 


839 :C 


7 


840 :C 


7 


841 :C 


7 


842:C 


7 


843:C 


7 


844:C 


7 


845:C 


7 


846 :C 


7 


847:C 


7 


848:C 


7 


849:C 


7 


850:S 




851:C 


7 


852:C 


7 


863:S 




854 :S 




855:S 




8S6:C 


7 


857:C 


7 


858:S 




859:C 


7 


860 :S 




861:C 


6 


862:5 




863:C 


4 


864 :C 


5 


865:5 




866 :C 


4 


867 :C 


4 


868 :C 


5 


869 :C 


6 


870:C 


6 
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power__f ail : 
begin 

soyrce_uep'^.umediavalid := false; 
if soLi7ce_uep=tapebuf uep then 

tapebuf_5tate := undefined; 
if 50urce_ijep''. ureportchange then 

working_iorval := zmediumchanged; 
reconf iguration_needed := t rue; 
ret ry_reqijired T= true; 
end; 

( ret ryable errors) 

operator_^release_required, 
diagno5tTc_relea5e_required , 

internal^mairtenance^required, 
ret ransmTt : 

ret ry_required := true; 

(errors indicating release requested) 
ope rate r_^request , 
diagnostTc_ request , 
ir)ternal_maintenance_request : 

{do nothing here; release below if parmeter field owned); 

{errors indicating reconfiguration needed) 

media_wear, {supposed to be masked out) 

latency_induced, {supposed to be masked out) 

eb53, {supposed to be masked out> 

eb54, {supposed to be masked out) 

auto_sparing_invoked, (supposed to be masked out) 

eb56, ~ (supposed to be masked out> 

recoverable_data_overflow, (supposed to be masked out) 

marginal data, (supposed to be masked out) 

recovera&le_data, (supposed to be masked out) 

eb60, (supposed to be masked out> 

maintenance_t rack_overflow, (supposed to be masked out> 

eb62, (supposed to be masked out) 

eb63: (supposed to be masked out) 
reconf igurat icn_nceded ;= t rue; 

(errors not covered by the above cases) 
otherwise 

{ specifically including: 
message^sequence, 
mes5age__length, 
illegal_parallel_operat ion ) 
working_iorval := zcatchall; 

end; (case) 

end; (if) 

if iorval__to_repo rt = inoerror then {none previously found; report this one) 
iorval_to__report := wo rk ing_iorva 1 ; {it can be inoerror also!) 

index := 0; 

if parameter_f ield_owner=cross_unit t hen 

repeat "" 

index -.^ index+1 ; 
if index<=6 
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then uee_pending := st at us_bytes . uee [index]>=0 
else uee pending := false; 
if uee pending then 

handTe_uee_perding (status_bytes . uee [index] ) ; 

until not uee_pending; 

if parameter_field_owner in errorbits requesting_release then 
if not (status bytes. urr[l] in [0..T5]) then 

iore5c__bkgndT'iource_uep, zcatchall) 
else if "release (5ource_uep, 5tatus_bytes . urr [1 ] )<>0 then 

(handle the bad qstat elsewhere; worry not, the device won't forget!); 

if reconf igurat ion__needed then 
configure (source^uep) ; 

until set_unit (source_uep, stat us_bytes .current_vu. uuuu)=0; (restore original command unit) 

if iorval to_report<>inoerror then 

ioresc_EkgrTd(source_uep, iorval_to_report ) ; 

end; {handle_copydat a„s t a t u s ) 

procedure cont nolle rcopy( uep: uep_type) ; 
var 

ret ry_required : boolean; 
begin (cont nolle rcopy) 

repeat (copy the entire volume) 
netry requmed := false; 
if voTume_copy_dat a(50urce uep, sounce_block_addres5, 

destinatTon_uep, destination_block_addness)<>0 then 
handle_copydata_status (net ny_required ) ; 
until not ret ry_requined; 
end; (cont nolle ncopy) 

begin (Qcont nolle ncopy) 

with bkgnd__do(cont roilercopy, 50unce_uep); 
end; (EJcontnollencopy) 
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3. on 


871 :C 


7 


872:C 


7 


873:C 


6 


874;C 


7 


875:C 


6 


876:S 




877:C 


4 


878:0 


5 


879:C 


6 


880:C 


6 


881 :C 


7 


882:S 




883:C 


4 


884 :C 


5 


885 :S 




886 :C 


4 


887:S 




888 :C 


3 


889 :C 


4 


890:5 




891:C 


3 


892 :S 




893:5 




894 :D 


2 


895 :D 


3 


896 :D 


-1 3 


897 :C 


3 


898 :C 


3 


899 :C 


4 


900:C 


4 


901 :C 


5 


902:C 


5 


903:C 


4 


904 :C 


3 


90S:S 




906:C 


2 


907:C 


2 


908 :C 


2 
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909 

910 

911 

912 

913 

914 

915 

916.. 

917:C 

918:C 

919:C 

920 :C 

921 :C 

922 :C 
923:S 
924:C 
92S:C 
926;C 
927:S 
928 :S 
929 
930 
931 
932 
933 
934 
935 
936 
937.. 
938 :C 
939:C 
940:C 
941 :S 
942:C 
943:C 

944 :C 

945 :S 

946 :S 

947 :C 



ret ry_required} ; 



-66 1 $page$ 

1 procedure QunIoad(uep: uep_type): 

2 procedure do_unload [uep: uep_type); 

3 var 

-1 3 retry required; boolean; 

3 begin (3o_unload> 

3 repeat 

4 retry required := false; 

4 if unload (uep) <>0 then 

5 handle_bad_st atus [uep, true, 
4 until not ret ry_required; 

3 end; (do_unload) 

2 begin (Qunload) 

2 with bkgnd do (do_unload, uep); 

2 end; <5unloa3) 



1 procedure Qcopy_start_address (uep: uep_type); 

2 procedure do_copy_start addreS5(uep; uep type): 

3 var ~ 

3 retry required: boolean; 

3 begin <3o_copy_5t art_addre5s) 

3 repeat 

4 ret ry_required := false; 

4 if copy_5tart_address[uep, csa_byte5)<>0 then 

5 handle_bad_5tatus(uep, true, ret ry_required) 
4 until not ret ry_required; 

3 end; <do_copy_,st art_addres5) 

2 begin {Qcopy_star1_address> 

2 with bkgnd_do (do_copy_st art address, uep); 

2 end; {Gcopy^sta rt_address> ~ 



1 end; (CSSOtbdvr) 
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948 :D 

949 :S 
9S0;D 
951 :S 
952:D 
953:D 

954 :S 

955 :D 

956 :D 

957 :S 
9S8:D 

959 :D 

960 :S 
961:D 
962:0 
963:0 
964:3 
965:3 
966 :D 
967:C 
968:C 
969:C 
970:3 
971:3 
972:0 
973: 
974: 
975: 
976: 
977: 
978: 
979; 
980: 
981 ; 
982: 
983: 
984; 
985; 
986: 
987: 
988; 
989: 
990; 
991 :C 
992:C 
993:C 
994 ;S 
99S;S 
996:0 

997 :C 

998 ;C 
999;C 

1000:C 
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(program tapebkup;) 
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import 

sysglobals, misc, sysdevs, fs, bkgnd, tapebuf, CSSOtbr, CSSOtbdvr; 

var 

keyboard: text; 



-82 
-82 
-83 



type 

proc_.type = procedure; 

const (for under_lock_do procedure calls) 
verbosely = t rue; 
silently ■ false; (if desired, set true to debug) 

i procedure upcchar(var ch : char); 
'' begin 

if (ch>='a') and (ch<='z") then ch ;= chr (ord(ch) -32) ; 
end; 



1 function yes(prompt; string 
var 

answer: char; 
begin (yes) 
writeln; 
write (prompt , ' 
repeat 

read(keyboard, 

upcchar ( answer 

until (answer='Y 

writeln (answer) ; 

yes := answer=*v 

end; (yes) 



(Y/N) •); 
a n swe r ) ; 
1 or (answers'N' ) ; 



1 procedure fatal ioresult (message : string 

2 begin (fatal_Tore5ult ) 
2 writeln (#7+me55age) ; 

2 get ioerrmsg (message, lores); 

2 writelnC , message); 

2 escape(-l)j 

2 end; (f at al_ioresult ) 



1 procedure fat al_message (message; stringSO] 

2 begin (fatal message) 
2 writeln(#7+miessage) ; 
2 escape (-1 ) ; 

2 end; {f at al_me5sage) 



lores: integer); 
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1001:D 
1002:S 
1003:D 
1004:D 
1005:0 
1006:C 
1007:C 
1008:C 
1009:C 
1010:C 
1011 :C 



1012: 

1013: 

1014: 

1015: 

1016: 

1017: 

1018 

1019: 

1020: 

1021: 

1022: 

1023:C 

1024:C 

1025 :C 

1026:C 

1027:: 

1028;C 

1029:S 

1030:S 

1031:0 

1032:C 

1033:C 

1034 :C 

1035:C 

1036:C 

1037:C 

1038:C 

1039:S 

1040:S 

1041 :D 

1C42:C 

1043:C 

1C44:C 

1045:C 



1 Spaces 

1 function on same mediLim(lunl , lun2: unitnum): boolean; 

2 var - " 

2 uepl, uep2: uep type; 

2 begin {on_same me3ium> 

2 uepl :* addrTunit able^[lunl] ) ; 

2 uep2 ;= addr (unit able''[lun2] ) ; 

2 on_5a(ne_mediufn := ( uepl"^ . 5C = uep2'^ .5C) and [uepl'^.ba=uep2^.bal 

2 (uepl" .du = uep2" .du) and [uepl".dv=uep2''.dv) 

2 (uepl'. Ietter = uep2''. letter) ; 

2 erd; {on_same_fT)edium) 



1 function on_5ame_cont roller [ uepl , uep2: uep_type): boolean; 

2 begin {on_same_cont roller) 

2 on_&ame_cont nolle r := (uepK . 5C=uep2' . sc ) and (Lepl".ba=uep2'.ba3 ; 

2 end; (on_same_controlle r } 

1 procedure enable_report_changes ( uep: uep_Type); 

2 begin {enable_report_ctianges> 

2 with uep" do 

3 begin 

3 umediavalid := false; 

3 ureportchange ;= true; 

3 end; <with) 

2 end; (enable_report_changes> 

1 procedure di 5able_repor t_change5 (uep : uep_type]; 

2 begin (disable^report^changes) 

2 with uep" do 

3 begin 

3 umediavalid := false; 

3 ureportchange := false; 

3 end; (with) 

2 end; (disable_report_changes) 

1 procedure u5er_conf irmation; 

2 begin {user_conf i rmat ion) 

2 if not yes('flre you SURE you want to proceed?') then 

3 escape (-1 ) ; 

2 end; (u5er_conf i rmation ) 
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and 

and 
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1046:D 
1047:S 
1048:0 
1049:S 
1050:0 
1051 :D 
1052:0 
1053:0 
1054:0 
1055:0 
1056:0 
1057:0 
1058:0 
1059:0 
1060:0 
1061:0 
1062:S 
1063:C 
1064:S 
1065:C 
1066:C 
1067:C 
1068:C 
1069:C 
1070:C 
1071:C 
1072:C 
1073:C 
1074 :C 
1075:C 
107e:C 
1077:C 
1078:C 
1079:C 



1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087:C 

1088:C 

1089:C 

1090:S 

1091 :C 

1092:C 

1093:C 

1094:S 

1095:C 

1096:C 

1C97:C 

1098:C 

1099:C 

U00:C 

1101:C 

1102:S 

U03:C 



1 SpageS 

1 procedure request_vol (prompt : stringSO; var lun: unitnum); 



-82 

-82 

-82 

-82 

-164 

-182 

-304 

-308 

-310 

-311 

-316 

-320 



const 

nonabort ive_ioresijlt_set = [ord (inoerror) , ord [zbadblock ) , ord(znoblock) , 
ord(zuninitialized), ord (inodi rectory)]; 
var 

response: 5tring80; 

fvid: vid; 

ftitle: fid; 

fsegs: integer; 

fkind: filetind; 

5cantitle_ok : boolean; 

saved_iore5ult : integer; 

uep: uep_type; 

begin ( request^vol) 

repeat 
write (prompt ,cteol) ; 
readln ( response ] ; 

If (St rlen(re5pon5e)=0) or (st rpos( response, »27)<>0 ) then e5cape(-l); 
scantitle_ok := scant itle ( response, fvid, ftitle, fsegs, fkind); 
if scantitle_olc and (ftitle='') then 
begin 

lun := f indvolume [ fvid, true); 

5aved_ioresult := ioresult; ^for decoding below> 

get ioerrmsg (response , ord ( inounit ) ) ; {for the case lun-0) 
end {then) 
else 
begin 

lun :■ 0; 

response ;= 'Illegal syntax: volume ID required'; 
end; [else) 
if lun=0 then 

writeln(' ', response); 
until lunoO; 

uep := addr (unitable"[lun] ) ; 
with uep" do 
begin 

if not (letter in ['Q', 'K']) then 

fatal_message ( 'Specif ied volume is not on a CS80 device'); 

write( 'Oevice : ', Qdevicename (uep, saved ioresult)); 
writeln(', ' , 100*sc+ba : 1 , ' , ',du:l,', ',3v:l); 
end; {with uep ) 



write ( 'Logical unit 
if fvid[l]<> 



lun:l,' - ') ; 
then 
iteini ' ' ' ' ( fvid, ' : " ' ) 
else if 5aved_ioresult in nonabor tive_ioresult_set then 

writeln('<no directory^') 
else 

fatal_ioresult ( " , saved_ioresult ) ; 

end; { request_vol ) 
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1104:0 




1 


SpageS 




UOS:S 










1106:0 




1 


procedure other volume check(lun: ijnitnutnj; 




1107:0 




2 


var 




1108:0 


-1 


2 


warring_issijed: boolean; 




1109:0 


-4 


2 


flLjn: unitnum; 




1110:0 


-6 


2 


line: shonint: 

ORTline, CRTcolumn, stopline: integer; 




1111:0 


-18 


2 




1112:0 


-36 


2 


fvid: vid; 




1113:0 


-3$ 


2 


const 




1114:0 


-36 


2 


max line 5 = 10; 




1115:0 


-36 


2 


fieldwidth « 16; 




1116:C 




2 


begin {other_volume_check> 




1117:S 










1118:C 




2 


warning_issued := false; 




1119:S 










1120:C 




2 


for flun := 1 to maxunit do 




112!:C 




3 


If on same mediumfflun, lun) then 
witK unitable^[flun] do 




U22:C 




4 




1123:C 




5 


begin 




1124:C 




5 


if flunolun then 




U25:C 




6 


begin 




1126:0 




6 


If not warning issued then 




1127:C 




7 


begin 




1128:C 




7 


writelnCNOTIOE: thi:i will also affect:'); 




1129:C 




7 


warning issued := true; 




1130:C 




7 


line :» 1; 




1131:C 




7 


end; (if) 




1132:S 










1133:C 




6 


fgetxy (out put, CRTcolumn, CRTline) ; 




1134:C 




6 


write( ' «• ,flun:n; 

fgot ox /(output ,CRTcolumn->-5, CRTline) ; 




1135:C 




6 




1136:C 




!> 


call(dam, fvid, flun, get volumename) ; 




1137:C 




6 


if str]en(fvid!>0 




1138:C 




7 


then write (fvid, ' : ' ) 




1139:C 




7 


else write('<no dir>'); 




1140:C 




6 


if CRTcolumn=0 




1141:C 




7 


then writein (scrolls the screen if necessary) 




1142:C 
U43:S 
U44:C 




7 


else fgotoxy(output , CRTcolumn, CRTline+1); 






6 


line := line+1; 




1145:C 




6 


if line>maxline5 then 




1146:C 




7 


begin 

fgetxy(output , CRTcolumn, stopline) ; 

fgotoxy(outDut .CRTcolumn*f ieldwidth, stopline-maxlines) ; 




1147:0 




7 




1148:C 




7 




1149:C 




7 


line := 1; 




1150:C 




7 


end; (if) 




11S1:S 










11S2:: 




6 


end; (if flunolun) 




H63:C 




5 


umediavalid := false; 




1154:C 




6 


end; (with) 




1155:3 










1156:C 
11S7:C 




2 
3 


if warning_i55ued and (CRTcolunnoO) then 
fgotoxy(output ,0, stopline); 




1158:S 










1159:C 




2 


end; (other_volume_chect: ) 
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U60:D 




1 


$page$ 




liei:S 










1162:0 




1 


procedure preserving status dofproc: proc type); 




1163:D 




2 


var 




1164 :0 


-2 


2 


saved escapecode: shortint; 




1165:0 


-6 


2 


saved ioresult: integer; 




1166:C 




2 


begin (preserving status do) 




1167:C 




2 


saved_e5capecode := escapecode. 




1168:C 




2 


saved ioresult := ioresult; 




1169:C 




2 


call{proc) ; 




mo:c 




2 


sysescapecode := saved escapecode; 




1171 :C 




2 


ioresult := saved ioresult; 




1172:0 




2 


end; (pre5erving_5tatu5_do) 




1173:S 










1174:S 










1175:0 




1 


procedure writein proc; 




1176:0 




2 


begin (writein proc) 




1177:0 




2 


writein; 




1178:0 




2 


end; (writeln_proc) 




1179:S 










1180:S 










1181 :D 




1 


procedure under_lock_do(verbo5e : boolean; uep proc: uep proc type; 




1182:0 


-82 


2 


uep: uep type; op descTipt ion : 5tring80); 




1183:0 




2 


begin ( underlock do) 




1184:S 










1185:0 




2: 


lockup; 




1166:0 




2 


try 

if verbose then 




1167:0 




■5; 




1188:0 




4 


begin 




1189:0 




4 


writein; 




1190:0 




4 


writeln(op description, ' in progress'); 




1191 :C 




4 


end; (if) 




1192:0 




'■.'. 


call(uep proc, uep); 




1193:0 




3 


if verbose then 




1194:0 




4 


writeln(op description, ' completed'); 
escape(O); ("to do the lockdown) 




1195:0 




3; 




1196:0 




3: 


recover 




1197:0 




3 


begin 




1198:0 




3 


preserving_5tatu5 do (lockdown) ; 




1199:0 




J 


if escapecode=0 tFen 




1200:0 




4 


(do nothing) 




1201:0 




4 


else if escapecode=-10 then 




1202:0 




5 


begin 

if not verbose then 




1203:0 




5 




1204:0 




6 


preserving status..do (writein proc); 




1205:0 




c, 


fatal ioresult (op descript ion + "'" errored:', ioresult); 




1206:0 




5 


end 




1207:0 




c, 


else 




1208:0 




c, 


escape (escapecode) ; 




1209:0 




3 


end; (recover) 




1210:3 










1211 :0 




2 


end; (under_lock jio) 


11-771 



1212:D 




1 


1213:S 






1214:D 




1 


1216:S 






1216:D 




2 


1217:0 


-4 


2 


1218:0 


-12 


2 


1219:0 


-14 


2 


1220:0 


-16 


2 


1221:0 


-24 


2 


1222:0 


-32 


2 


1223:0 


-33 


2 


1224:0 


-35 


2 


1225:0 


-38 


2 


1226:S 






1227:0 




2 


1228:S 






1229:0 




3 


1230:C 




4 


1231:C 




4 


1232:C 




5 


1233:C 




4 


1234:S 






1235:C 




3 


1236:S 






1237:C 




3 


1238:C 




4 


1239:C 




4 


1240:C 




4 


1241 :C 




4 


1242:S 






1243:C 




3 


1244 :C 




4 


1245:C 




4 


1246:C 




4 


1247:C 




4 


1248:C 




4 


1249:C 




4 


1250:C 




5 


1251 :C 




4 


12S2:S 






1253:C 




3 


1254 :C 




3 


1255:C 




4 


1256:C 




5 


1257:S 






1258:C 




4 


1259:C 




5 


1260:C 




5 


1261;C 




5 


1262:C 




5 


1263:C 




5 


1264 :C 




5 


1265:S 






1266:C 




4 


I267:S 






1268:C 




4 


1269:C 




5 


1270:S 
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1 tpacjej 

1 profedure medlum_copy; 

var 

50urce_lun, de5tination_lun : unitnum; 
source_uep, tape_uep; uep_type | 

source_is_a_t3pe7 destinat ion_is_a_tape : boolean; 
50urce_is_a 7914, destinat ion^is a_7914: boolean; 
50urce_blocR"_5ize , dest inat ion_bTock_5ize ; integer; 
5ource_5ize , dest inat ion_size : integer; 
ver if y_de5 1 mat ion: boolean; 

copy_at tempt_coniple ted, ioop_condit ion: boolean; 
pass : shortint ; 

procedure at tempt _copy; 

procedure cleanup; 
begin (cleanup) 

if dest inat ion_is a_tape then (restore its configuration) 
Qconfigure (destTnat ion_uep) ; 
end; (cleanup) 

begin (attempt_copy> 

if source_is_a_tape and dest inat ion_is_a_7914 then (see where to restore) 
begin 

under_lock_do (silently, Qcopy_start_addre5s, 50urce_uep, 'Copy start address request ' ] ; 
destination block address :■ csa bytes. Ifb; 
end; (if) - - 

if destinat ion_is_a_tape then (ensure it's certified; update size af terwardl 1 1 > 

begin 

t apebuf^st ate := undefined; 

init ialTze_opt ions_byte := 0; (certify only if currently uncertified) 

under_lock_do (verbosely, Qcertify, destinat ion_uep, 'Destinat ion tape certification']; 

under lock do(5ilently, Qdescribe, destination uep, 'Destination tape describe request'); 

with 3escrTbe_bytes do ~ 

destin£ition_size := (max5vadd.lfb+l)*nbpb; 
end; (if) 

lockup; 
try 

if dest inat ion_is a_tape then (enable auto skip-sparing) 

Qtape5etup(destTnation_uep) ; 

if source_is_a_7914 or destination_is_a_7914 then 
begin 

writeln; 

writeln ( 'Copy parameters for 7914 save/restore -'); 

writelnf' source starting block address: ', sou rce_b lock_addre55 : ) ; 

writeln(' destination starting block address: ', dest inat ion_block__addre55 ; 0) ; 
end; (if) 

under_lock_do (verbosely, Qcont rolle rcopy, source_uep, 'Medium copy'}; 

if destination_is a„tape and (destinat ion_5ize>source_5ize) then 

unde r_lock_do (silently, Qwritefilemark, dest inat ion_uep, 'Destination tape filemark append' ) 
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escape(O); (to do the cleanup) 
recover 
begin 

pre5erving_5tat u5_do [cleanup) : 
preserving_stai u5_do (lockdown) ; 
if escapecodeoO then 
escape [escape code); 
end; ( recover) 

if destination_i5_a_tape and verify_dest ination then (verify it) 
begin 

if destination 5i2e>50urce_size 
then verify_Tengt h := source_bize 
else verify_length := destination^size; 
verify block_size := destinat ion_block size; 

under lock do (verbosely, Qverify, destination uep, 'Destination tape verification'); 
end; (iT) 

end; ( attempt_copy) 

begin (medium_copy) 

writeln (clearscr ] ; 

request_vol ( 'Source medium for copy? ', source_lun); 
source_uep ;= addr ( jnitable'^[source_lun] ) ; 
enable_report_change5 (source_uep) ; 
other_volume check (50urce_lun) ; 
50urce_i5_a 7914 := source_uep''.devid=7914; 
with descriFe__bytes do 
begin 

source_i5_a tape := dt=2; 

5ource_blocF_5ize := nbpb: 

source_size := (max sv add . lfb+1 )*nbpb; 
end; (with) 

wri teln; 

request_vul ( 'Dest inat ion medium for copy? ', destination_lun) ; 

dest inat ion_uep := addr (unit able'*' [dest inat ion_lun] ) ; 

enable__reportchan9e5(dest ination_uep) ; 

if on_same_me3iijm(5ource_lun, dest ination_lun ) then 

fat al_mfssage ( 'Specified volumes are on the same medium'); 
if not on_same_cont roller ( 5ource_^uep, dest inat ion_uep) then 

fat al_me55age ( 'Source and destination not on the same controller'); 
other_volume check ( dest inat ion_lun); 
destination Is a_79l4 ;= destinat ion_uep'^.devid=7914; 
with descriBe_Fytes do 

begin 

destinat ion_is_a tape := dt=2; 

destination^blocf^size := nbpb; 

destinat ion_size := (maxsvadd.lfb + l)*nbpb; 

end; (with) 

if dest inat ion_i5 a tape and (destination_size<source_size) then 
if 50urce__is_a_79T4 then 
begin 

writeln; 

writeln ( 'REMINDER : two long tapes are required for'); 

writelni' complete 7914 backup.'); f| 779 

end (then) **'' '*■ 

else 
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begin 

writeln; 

writelnj 'NOTICE: the destination tape is too small for a'); 

writeln{' complete source backupi'); 
end; (else) 

user_conf irmation; 

if destination i5_a_tape 

then verif y_?estinataon := yesf'Verify destination tape after the copy?') 
else verify_destination := true; (always verify discs) 

pass ;» 1; 

50urce_block address := 0; 

de5tination_&lock_addre5s := 0; 

repeat {loop for swapping tapes) 

repeat (copy attempts) 
try 

attempt_copy; 

copy_attempt completed := true; 
recover ~ 

if escapecode<>-l then 

escape (escapecode) 
else 

if yes('Retry the current copy segment?') then 

copy attempt completed := false 
else iT yes('flEort the entire medium copy sequence?') then 

fatal_message ( 'Medium copy sequence aborted*) 
else 
begin 

writeln [ 'riedium copy sequence continued'); 
copy_attempt_completed :« t rue; 
end; " ~ 

until copy_at tempt_completed; 

if source_is_a_tape then 

under_loclc_do (verbosely, Qunload, 50urce_uep, 'Source tape unload request'); 

if destinat ion_i5_a tape then 

under_lock_do (verbosely, Qunload, dest ination_uep, 'Destination tape unload request'); 

loop_condition := [source_i5_a_7914 or destinataon_is_a_7914) and (pass<2) ; 

if loop_condition then (prepare for the next pass through the loop) 
begin 

if dest ination_is_a_tape then (update the source disc parms) 
begin 

source_size :- source_size - destinat ion_si2e; 

source block address T= source block address + destination size div source block size; 
end; (jfT " ~ - - 

if source_is_a_tape 

then tape_uep := source_uep 

else tape_uep := dest inat ion_uep; 

writeln; 

writeln { 'Uait ing for a new tape to be loaded:']; 
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writeln( 'Press <stop> to abort'); 

di5able_report_changes (tape_uep) ; 

repeat 
trv 

Qcopy_start_addre5s (tape_uep) ; 
recover 

if escapecodeo-lO then 

escape (escapecode) 
else if loresultoord (z not ready) then 

falal_ioresult ( 'Error while awaiting new tape load:', ioresult) 
until ioresult<>ord(znot ready) ; 

enable_report_change5(tape_uep) ; 

pass := pass+1 ; 

end; (if) 

until not loop_condition; 

if not destination is a tape then 
begin ~ 

ve''i^y_iength := dest inat ion_size; 

verify block_5ize := de5tination_block size; 

under Tock_do (verbosely, Qverify, destination uep, 'Destination disc verification'); 
end; (ir) 

end; (medium_copy) 
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1 $page$ 

1 p'-jcedure verify; 

var 

lun: unitnum; 
uep : uep__t ype ; 
auto_unloaa : boolean ; 

begin (verify) 

writeln (clearscr] ; 

request_vcil f 'Verify what medium? ', lun); 

uep := addr (unitable" [lun] ) ; 

enable_report_changes{uep); 

ot her_volume_check( lun) ; 

user^confirmation; 

with describe_bytes do 
begin 
If dt=2 

then auto_unload := yesCUnload tape after verification?') 
else auto_Ltnload := false' 
verif y__length := (max sv add . Ifb+l )*nbpb; 
verify_block_5ize := nbpb; 
end; <with} 

under_lock_do (verbosely, Qverify, uep, 'Verification'); 

if auto_unload then 

under_lock_do (verbosely, Qunload, uep, 'Tape unload request'); 

end; (verify) 
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1455:D 1 $pd'je$ 

1456:S 

1457:D 1 procedure certify; 

1458:S 

1459:D 2 v.ir 

1460:D -2 2 lun: unitnum; 

1461 :D -6 2 

1462:D -7 2 

I463;S 

I464:C 2 begin (certify) 

146S:S 

1466 :C 2 writeln(clearscr): 

1467;C 2 request_vol ( 'Ce rt if y what tape? ', lun); 

1468:C 2 uep := add r ( uni table" [lun] ) ; 

1469 ;C 2 enable__repo rt_changes (uep) ; 

1470:C 2 if describe_bytes.dt<>2 then 

1471:C 3 fatal_messa9e ( 'Specified volume is not on a tape'); 

1472:C 2 other volume checkflun); 

1473:S 

1474:C 2 user confirmation; 

1475:S 

1476:C 2 if vesCRe-certify if already certified?') 

1477;C 3 then init ialize_opt ion5__byte := 1 (force complete certification) 

1478:C 3 else init ialize_opt ions_byte :- 0; (certify only if currently uncertified) 

1479 :S 

1480:C 2 auto unload := yesf'Unload tape after certification?'); 

1481:S _ J ^ K 

1482:C 2 t apebuf_5t ate := undefined; 

1483:C 2 under lock do(verbosely, Qcertify, uep, 'Tape certification'); 

1484:S " " 

1485:C 2 if auto_unload then 

1486:C 3 under~lock do (verbosely, Qunload, uep, 'Tape unload request'); 

1487:S 

1488:C 2 erd; (certify) 
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1 SpageS 

1 procedure commandlevel; 



var 

ch: char; 

begin (coimiandlevel) 

repeat 

try 

write (honechar, 

'Tapebkup: Medium-copy Verify Certify-tape Quit 

cteol) ; 
read()(eyboard, ch) ; 
upcchar (ch) ; 
writein; 
case ch of 



'C 


cert if y; 


'M' : mediufn copy; 
'Q' : <quit); 
'V : verify; 
otherwise 


write{clearscr); 


end; 


case) 



recover 

if e5capecode«-20 then 

ch := 'Q' <5top key means "qui:"> 
else if escapecode=-l then 

{do nothing; remain in command level) 
else 

escape (esc a pec ode) ; 

unti 1 ch='Q' ; 
end; {commandlevel ) 



begin {t apebkup) 

write! n(clearbcr) 

write] n ( ' 

write] n; 

writein; 

write] n 

write! n 

write! n . 

commandlevel : 
end . { tapebkup) 



[Version 3.0] ' ) ; 



Copyright 1984 Hewlett-Packard Company'); 
fill rights are reserved,'); 



No errors. No warnings. 

t*KMM Nonstandard language features enabled 
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TYPES 



Description 

TYPES contains declarations used by the DGL graphics routines. 



© Copyright Hewlett-Packard Company, 1984. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7-104.9(a). 
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1:;; 

2:1) ( ) 

3:1) { Pascal work station graphics library ) 

4:1) < ) 

5:1) ( Module = DGL_TYPES ) 

6:1) ( Programer = BJ3 > 

7:D ( Date - 2/1/82 > 
8:13 

9:') { Purpose: Holds declarations which must be imported by graphics library 

10:1) users when interfacing with some library routines. > 

11 ::; 

12:1) ( Rev history ) 

13:1) ( 6-1S-82 BJ3 Added data type gchar list > 

14:;i 

15:;; { (cj Copyright Hewlett-Packard Company, 1983. 

16:'d fill rights are reserved. Copying or other 

17:;; reproduction of this program except for archival 

18;;; purposes is prohibited without the prior 

19:;; written consent of Hewlett-Packard Comoany. 

20:;; 
21:;; 

22:;; RESTRICTED RIGHTS LEGEND 

23:;; 

24:;; Dse, duplication, or disclosure by the Government 

25:;; is subject to restrictions as set forth in 

26:;; paragraph (b) (3) (B) of the Rights in Technical 

27:;; Data and Computer Software clause in 

28:;; DHR 7-104, 9(a). 

29:;; 

30:;; HEULETT-PflCKSRD COMPflNV 

31:[) Fort Collins, Colorado > 

32;[) 

33:1) STUBLESS 

34 :n $rrodcal$ 

34:11 Sinclude 'OPTIONS'S 

35:;; 

36:S { This include file specifies range checking, debug and other compiler 

37:[l options for the graphics library ) 

38:S 

39:11 $oebug OFF$ 

40:[i Srange OFF$ 

41:11 tcopyriqht 'COPYRIGHT 1984 BY HEWLETT -PHCKfiRO COMPfiNY'S 

42:0 SFLOBT HDU TESTS 

43 :S 

44:;; 

45:;i 

46:;; 

47:D Sinclude 'OPTIONS'S 
1000:11 Slinenum 1000$ 
1001:!! 

1002:1) module DGL TYPES: 
1003:;, 

1004:11 1 export 

1005:;; 

1006 :t; 1 type 

1007:[) 1 gbyte = -128 . . 127; 

1008:1' 1 gshortint = -32768 .. 32767; 

1009:L 1 3string255 = string[255]; 

1010:; 
1011:1; 1 gshor t int_list = array [l..maxint] of gshortint; 
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1012:( 1 gint list = array [l..maxint] of integer; 

1013:1 1 9reaT_li5t = array tl..maKint] of real; 

1014:L 1 gchar list - packed array [l..maxint] of char; 

1015:S 3 _ r 

1016 :L 1 implement 
1017:; 

Dump of DGL_TYPES 
Importer' ; 

Exported : 
DGL TYPES module lev=l 

GBYTE type 

subrai'ge min=-128 ■Tiax = 127 Lnpacksize=2 align'=2 bitsize=8 signed 
GCHflR_l 1ST type 

array elbit5ize=8 unpacksize-2147483647 ali9n-2 
GINT_L1ST type 

array el5ize=4 unpacksize=4 (OFLO) align=2 
GREfiL_lIST type 

array ftl5ize=8 unpacksize=4 (OFLO) align=2 
GSHORTINT type 

subrar'ge min=-32763 max=32767 unpack5ize=2 align=2 bit5ize=16 signed 
GSH0RT1NT_LIST type 

array el5ize=2 unpacksize=4 (OFLO) align=2 
GSTRING255 type 

array elbitsize=8 'jnpack'>ize=256 align=2 

OGL_TYPES dump complete 

1018:C 1 end. ( DGL TYPES ) 

1019:P 1 $LtST ONJ 

No errors. No warnings. 

***«« Nonstandard language features enabled ***** 
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